Скрипт на алхимию... - Форум гильдии Gelezinis Vilkas

Страница 1 из 1 1
Модератор форума: PAR

Скрипт на алхимию...

Untitled

Дата: Четверг, 2006-12-28, 9:33 PM | Сообщение # 1

Рядовой

Группа: Пользователи

Сообщений: 3

Статус: Offline

PAR, я смотрю ты тут главный. Не мог ты мне помочь - вот в чем.
Мне нужен скрипт на изготовление - пойсон бутылки на лесер ману и на лесер инвизибл- бутыклки в паке реги тоже -получившися бутыкли кладутся в пак.

PAR

Дата: Пятница, 2006-12-29, 5:02 PM | Сообщение # 2

Великий Скриптор

Группа: Модераторы

Сообщений: 149

Статус: Offline

Главный по скриптам biggrin

Посмотю что мона сделать.. по крайней мере с перекладыванием проблемм не будет)

Сообщение отредактировал PAR - Суббота, 2006-12-30, 0:41 AM

PAR

Дата: Суббота, 2006-12-30, 0:38 AM | Сообщение # 3

Великий Скриптор

Группа: Модераторы

Сообщений: 149

Статус: Offline

Отакой скриптег вышел:

----- Создание потов -----

Code

#Настройки-----------------

#ИД сундука для хранения пустых бутылок и складывания полных,
#узнается коммандой ",info"
var Syndyk=0x62a55aaf

#Выбор того, что будет создаваться:
#1-Lesser Mana Potion
#2-Leser Invisibility Potion
var SelectedMode=1

#Код-----------------------

var BlackMoors =0x0F79
var VolcanicAsh =0x0F8F
var Mortar =0x0E9B
var Bottle =0x0F0E
var EmpBottleColor =0x0000
var LsrManaPotColor =0x0697
var LsrInvisPotColor=0x0488
var ReceipeBook =0x0FBD
var Bandages =0x0e21
var OKX
var OKY
var Reagent
var MouseX
var MouseY

sub Alchemy_by_PAR()
CreateVariables(SelectedMode)

while not UO.Dead() and UO.Count(Mortar)>0 and SelectedMode>-1
Put(Bottle,LsrManaPotColor)
Put(Bottle,LsrInvisPotColor)
Put(Bottle,EmpBottleColor)
Take(Bottle,'200')

if UO.Count(Bottle)==0 or UO.Count(Reagent)==0 then
SelectedMode=-1
end if

while UO.Count(Bottle)>0 and UO.Count(Reagent)>0
UO.DeleteJournal()
UO.UseType(ReceipeBook)
Wait(2000)
UO.LClick(MouseX,MouseY)
Wait(1000)
UO.Say("20")
Wait(1000)
UO.LClick(OKX,OKY)

if UO.InJournal('grind') then
while not UO.InJournal('Cancelled') and not UO.InJournal('choking') and not UO.InJournal('explodes')
wait(100)
wend
end if

if UO.Life<UO.Str/2 then
while UO.Life<UO.Str
if UO.Count(Bandages)>0 then
UO.UseType(Bandages)
end if
wait(1000)
wend
end if

Wait(2000)
wend
wend
end sub

sub Put(Item,Color)
UO.UseObject(Syndyk)
while UO.Count(Item,Color)>0
UO.FindType(Item,Color)
UO.MoveItem('finditem','0',Syndyk)
wait(1000)
wend
UO.Resend()
UO.Hide(Syndyk)
end sub

sub Take(Item,Count)
var PrevItemCount=UO.Count(Item)
UO.UseObject(Syndyk)
UO.FindType(Item,'0x0000',Syndyk)
wait(1000)

if UO.GetQuantity('finditem')>0 Then
wait(1000)
UO.MoveItem('finditem',Count,'backpack')
wait(1000)
endif

while PrevItemCount==UO.Count(Item)
wait(200)
if UO.GetQuantity('finditem')==0 Then
wait(1000)
PrevItemCount=-10
endif
wend
UO.Resend()
UO.Hide(Syndyk)
end sub

Sub CreateVariables(Mode)
OKX=315
OKY=308

if Mode==1 then
Reagent=BlackMoors
MouseX=297
MouseY=282
end if

if Mode==2 then
Reagent=VolcanicAsh
MouseX=451
MouseY=282
end if
end sub

# @ PAR -)

Скрипт будет брать из сундука по 200 пустых бутылок и делать поты, после чего сбросит поты в сундук и возьмет следующие 200 пустых, и так пока не кончатся реги или бутылки. Если в результате взрывов твоя ХП станет меньше половины то будут юзаца бинты до ее полной регенерации.

Собсна алхимиков у меня под рукой нет, и скрипт работает токмо в теории)) предполагаю что он будет виснуть после успешного исготовления 20 потов.. Скажи что пишется в логе когда создются поты и я это поправлю happy