PDA

Просмотр полной версии : Скрипт на фишинг



XoXa
31.07.2004, 07:13
Напишите пожалуйста скрипт на фишинг !
Заранее спасибо !

$e1eN
31.07.2004, 22:13
Выводишь корабль на прямое длинное место.
Командуешь Forward и включаешь УОлуп :) , допустим, на Delete:
LastObject
WaitForTarget
TargetSelf.
Это самый простой вариант, но вполне приемлемый...

Devil Dun'Shaar
31.07.2004, 22:39
set $not there are
set $can't you can't see

set $put you pull
set $loos you fish

set #x charposx
set #y charposy
set #x #x - 2
set #y #y + 2

send f1
waitfortarget 3000
left 649, 217

for #ii 1 5 1
for #i 1 5 1
set lasttargetx #x
set lasttargety #y
:re
send f2
waitfortarget 10000
wait 600
set timer
while_not lastmsg = $not or lastmsg = $try or lastmsg = $can't or lastmsg = $noline or lastmsg = $far
if lastmsg = $put or lastmsg = $loos
gosub re
end_if
if timer > 10000
gosub re
end_if
end_while
set #x #x
set #y #y - 1
set timer
end_for
set #x #x + 1
set #y #y + 5
set timer
end_for

say forward
wait 7s
say stop

f1 = Lastobject
f2 = Lastobject - WFT - Lasttarget
проплавает немного, вылавливает вокруг себя всю рыбу и так по циклу

XoXa
01.08.2004, 03:06
Большое спасибо ... Топик закрыт !