Хорошее место для прокачки это Серпентс хол. Вставить координаты вендоров initevents
Begin:
move 3029 3387 0 ;vendor 1
gosub strt
move 3025 3383 0 ;vendor 2
gosub strt
move 3031 3380 0 ;vendor 3
gosub strt
move 3023 3388 0 ;vendor 4
gosub strt
move 3034 3385 0 ;vendor 5
gosub strt
move 3035 3387 0 ;vendor 6
gosub strt
move 3036 3379 0 ;vendor 7
gosub strt
Goto Begin
Sub strt
Start:
FindItem IS_HS
If #FindDist <> 1
{
Ignoreitem #Findid
Goto Start
}
set #ltargetkind 1
Set #Ltargetid #Findid
Event Macro 13 6
target
Event Macro 22 0
wait 3s
ScanJournal 1
If Annoy IN #Journal
{
IgnoreItem Reset
RETURN
}
ScanJournal 2
IF Annoy in #Journal
{
IgnoreItem Reset
return
}
Goto Start
Скомунизжено с: http://www.hex.flybb.ru/topic18.html
