Camping

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
shrt
Posts: 6
Joined: 2004-12-08 23:47:58

Camping

Post by shrt »

Вобщем смысл скрипта прост, игрок берёт из бэкпека 1 хворост , кидает под ноги и поджигает, если не получается , пробует еще раз, если хворост заканчивается , то скрипт завершает работу. Заранее спасибо !
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:

Post by Leo »

Code: Select all

sub camping() 
# BETEP™ # 
VAR Exit=0 
while NOT UO.Dead() OR Exit<>1 
UO.FindType('0x0DE1','0x0000','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.DropHere('finditem') 
wait(1000) 
UO.UseObject('finditem') 
wait(1000) 
Else 
Exit=1 
Endif 
wend 
end sub 
shrt
Posts: 6
Joined: 2004-12-08 23:47:58

Post by shrt »

On kladjot na pol vse, a nuzhno , 4tobi po odnomu
shrt
Posts: 6
Joined: 2004-12-08 23:47:58

Post by shrt »

Так, с этим я разобрался, теперь напишите плиз скрипт еще легче: чар использует ветки с бекпека, затем делает менюселект 2.. макрос останавливается, если ветки кончаются. Заранее огромное спасибо !
shrt
Posts: 6
Joined: 2004-12-08 23:47:58

Post by shrt »

vsjo , selal, mozhete zakrivatj temu
Post Reply