UoKit.com Форумы > Помогите Со Скриптом

Помощь - Поиск - Пользователи - Календарь

UoKit.com Форумы > Ultima Online > Программы для Ultima Online > Injection

KosTjaN

6.3.2009, 22:36

Начел играть на пвп серваке, а там команда .sac и вот написал скрипт чтобы он разрезал труп с командой .sac но вот некак немогу сделать чтобы он ешё с него сначала денги забирал, а потом резал кто может помочь заранее спасибо! Совместил два скрипта но всёравно денги не лутит! Вот скриптуля!

Цитата

sub sacLoot()
var i,n
Dim Loot[1]
Loot[1]=0x0EED; gold
i = 500
FOR n=1 TO 1
uo.findtype(Loot[n],"-1","lastcontainer")
if uo.findcount() > 0 then
UO.grab(0, "finditem")
uo.print("Found "+str(uo.findcount()))
Wait(i)
END if
next
var corps=0x2006
UO.print(".sac script by spy")
wait(100)
while (i < 10000)
if UO.CountGround("0x2006") > 0 then
wait(100)
wait(100)
uo.say(".sac")
uo.waittargetground("0x2006")
i = i+1
endif
wend
end sub
end sub

Alexiz

8.3.2009, 5:58

А не с `MaJlou` ли ты в mIRC совмешал scp

Deks

12.4.2009, 18:05

Твою мысль понял , но вот написано совсем не грамотно !!!

Согласен с firewall такое ощущение что пытался совместить носорога с динозавром !!!

Вот тебе , попробуй так :

sub SucLoot()

Var exit=0

repeat
uo.findtype( '0x0EED',-1,'lastcontainer' )
if uo.getquantity( 'finditem' ) then
uo.grab( '0','finditem' )
wait( 500 )
else
exit=1
endif
until exit==1

wait( 500 )

uo.findtype( '0x2006',-1,1 )

uo.waittargetobject( 'finditem' )
uo.msg( '.sac' )

endsub

если я понял идею правильно , то работать будет , если нет , то опиши немного поподроней , что это за команда , для чего она нужна !!!!

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.