Сбор какашек (тестилось на Абиссе)
Posted: 2010-12-01 14:28:23
Не назову образцом изящного программирования, но работал. Постарался побольше рандома повставлять.
Случайным образом примерно десятую часть какашек "не замечает", но замечает через некоторое время. Делает случайные паузы перед началом движения за какашкой и перед подбором какашки.
Требует ходилки "Walker" by Destruction с включенным режимом "BlindWalk".
Code: Select all
sub kaka()
var x,y,i
uo.set('finddistance', '8')
while 1
for i=1 to (uo.random(100)+50)
uo.findtype('0x0f3b','-1','ground')
if uo.findcount('finditem')<>0 and uo.random(1000)>100 then
x=uo.getX('finditem')
y=uo.getY('finditem')
uo.print(str(x)+','+str(y))
Wait(uo.random(1500))
if walker(x,y,1) then
wait(uo.random(1000))
uo.useobject('finditem')
wait(1000)
end if
#uo.ignore('finditem')
end if
uo.findtype('0x0f3c','-1','ground')
if uo.findcount('finditem')<>0 and uo.random(1000)>100 then
x=uo.getX('finditem')
y=uo.getY('finditem')
uo.print(str(x)+','+str(y))
Wait(uo.random(1500))
if walker(x,y,1) then
wait(uo.random(1000))
uo.usefromground('finditem')
uo.useobject('finditem')
wait(1000)
end if
uo.ignore('finditem')
if uo.injournal('GM') then
uo.exec(',terminate all')
end if
end if
wait(500)
next
uo.ignorereset()
wend
end sub
Случайным образом примерно десятую часть какашек "не замечает", но замечает через некоторое время. Делает случайные паузы перед началом движения за какашкой и перед подбором какашки.
Требует ходилки "Walker" by Destruction с включенным режимом "BlindWalk".