61 replies to this topic

[Prey]

Исправил FS Каст. Тестил глюков походу больше нет.

[Prey]

Выбираем в Start число которое соответствует названию выше.
Скрипт будет начинать работу с этого вида инготов.

Stop ставим число на катором закончит.

Пример:

Start 1
Stop 6
Начнет на Марганце, закончит на Бронзе

Start 6
Stop 6 Начнет и закончит на бронзе.

Set %Ingscont WKOBLMD;Container s ingotami

Set %IngsAmmount 300

Set %Trashcan OHDCLMD

Set %Forgeid PSHBLMD

Set %Foodcont





;-- Settings

;(1)Marganece (2)Tourmaline (3)Tin (4)Lead (5)Corrundum (6)Bronze (7)Gold (8)Silver(9)Titanium

;---------------------------------Warning!!!------------------------------

;--------------------------------Start ne mozhet bitj menshe Stop------------------------------

Set %Start 1; S kakogo metala nachinaem

Set %Stop 6;  Na kakom metale zakanchivaem

;--------------------------------------------------------------------------------------





;;;;;;;;;;;;;;



Begin:

set %fail 0

Gosub Begin

goto _make







_make:

Finditem RMK C_ , #Backpackid

if #findcnt = 0 || #Findstack < 6

gosub trash

event macro 17 0

gosub gumpWait

event sysmessage craft..

click 493 455

set %j #jindex

gosub scan

goto _make



sub gumpWait

set %failT #scnt + 15

repeat

{

if #contname = generic_gump && #contkind = MIJB

return

if #contname = generic_gump && #contkind = UCHB

return

wait 10

}

until #scnt > %failT

return



sub scan

deletejournal

set %lag #scnt + 30

repeat

{

scanjournal %j

If World_save_has_been in #sysmsg || World_save_has_been in #journal

{

wait 10s

set %lag #scnt + 30

}

if hungry in #journal

{

gosub eat

goto _make:

}

if you_put in #journal

{

If %Begin

{

Set %Crafted #True

Set %Begin #False

}

set %fail 0

return

}

if you_fail in #journal && : notin #journal

{

If %Begin

Goto Begin

gosub fail

return

}

if failed in #journal && : notin #journal && event notin #journal

{

If %Begin

Goto Begin

gosub fail

return

}

if you_need in #journal

{

click 405 264 r

Gosub Trash

goto _make

}

if #jindex > %j

set %j %j + 1

}

until #scnt > %lag

return





sub eat

set %l #lobjectid

milk:

finditem ZBM C_ , #backpackid

if #findcnt < 2

{

set #lobjectid %Foodcont

event macro 17 0

while #contid <> %Foodcont

wait 1

finditem ZBM C_ , %Foodcont; 1 pitcher of milk

exevent drag #findid 1

exevent dropc #backpackid

wait 20

}

finditem ZBM C_ , #backpackid

if #findcnt < 2

goto milk

finditem GND C_ , #backpackid

if #findstack < 2

{

finditem GND C_ , %Foodcont

exevent drag #findid 2; 4 baocn slices

exevent dropc #backpackid

wait 20

}

If %Double

{

Set %Double #False

Goto Double

}

Set %Double #True

Goto One

Double:

finditem ZBM C_ , #Backpackid

set #lobjectid #findid

event macro 17 0

wait 10

One:

finditem ZBM C_ , #Backpackid

set #lobjectid #findid

event macro 17 0

wait 10

finditem GND C_ , #Backpackid

set #lobjectid #findid

event macro 17 0

wait 10

set #lobjectid %l

return



sub fail

set %fail %fail + 1

if %fail >= 3 3

click 491 455

wait 15s

set %fail 0

return



Sub Begin

gosub startcolors

Set %Begin #True

Set %Crafted #False

StartCraft:

Finditem RMK C_ , #Backpackid

If #Findcol <> %Color

{

exevent drag #findid #Findstack

wait 5

exevent dropc %ingscont

wait 20

}

if #Findstack < 6 || #Findstack = 0

gosub Trash

If #Findcol = %Color && #Findstack >= 6

{

Set #Lobjectid #Findid

Event macro 17 0

gosub gumpWait

Click 259 286

gosub gumpWait

Click 314 226

wait 5

Click 312 455

set #sysmsgcol 25

Event Sysmessage Making first %Name buckler

set %j #jindex

gosub scan

}

If %Crafted

{

set #sysmsgcol 80

goto _make

}

goto StartCraft

return





Sub Trash

trash:

repeat

{

Finditem FIK C_ , #Backpackid

If #findcnt <> 0

{

If #Findcol = 1750

{

Exevent drag #findid

Exevent dropc %TrashCan

If World_save_has_been in #sysmsg

wait 10s

if ( You_can_not_pick_that_up. in #sysmsg )

{

gosub backpack

goto trash

}

wait 15

goto trash

}

Set #Ltargetid #Findid

Set #Lobjectid %Forgeid

set #ltargetkind 1

Event macro 17 0

Target 2s

event macro 22 0

If World_save_has_been in #sysmsg

wait 10s

wait 10

}

}

until #findcnt = 0

Finditem RMK C_ , #Backpackid

if #Findstack < 6 || #Findstack = 0

Gosub Take

Set #Lobjectid #Findid

return







Sub Take

repeat

{

Finditem RMK C_ , #Backpackid

If #Findcnt <> 0

{

Exevent drag #Findid #Findstack

Exevent dropc %Ingscont

wait 25

}

}

until #findcnt = 0

set #sysmsgcol 70

Event Sysmessage  Trying to find %Name

Event Sysmessage  Wait some seconds

ignoreitem reset

Set #Lobjectid %Ingscont

Event macro 17 0

finding:

repeat

{

Finditem RMK C_ , %Ingscont

If #findcol = %Color && #Findstack >= 6

{

set #sysmsgcol 99

Event Sysmessage #Findstack %Name Ingot founded

Exevent drag #Findid %IngsAmmount

wait 5

Exevent dropc #backpackid

If %begin

Goto startcraft

return

}

If #findcol = %Color && #Findstack < 6

{

ignoreitem #Findid

goto finding

}

}

If #Findcol <> %Color

ignoreitem #Findid

}

until #Findcnt = 0

If %Start = %Stop && #Findstack < 6

{

Display There is No more %name Ingots...

Halt

}

Set %Start %Start + 1

set #sysmsgcol 50

Event Sysmessage No %Name Founded.

goto begin

return







sub startcolors

If %Start = 1 2

Set %Color 1750

Set %Name Marganec

If %Start = 2 2

Set %Color 1218

Set %Name Tourmaline

If %Start = 3 2

Set %Color 1325

Set %Name Tin

If %Start = 4 2

Set %Color 2125

Set %Name Lead

If %Start = 5 2

Set %Color 1548

Set %Name Corrundum

If %Start = 6 2

Set %Color 1160

Set %Name Bronze

If %Start = 7 2

Set %Color 1093

Set %Name Gold

If %Start = 8 2

Set %Color 1153

Set %Name Silver

If %Start = 9 2

Set %Color 1107

Set %Name Titanium

return



sub backpack

event macro 9 7

wait 30

event macro 8 7

wait 30

return

[GREF]

(: класс, более продуманного скрипта, на форуме не найти, рекомендую.

Спасибо.

[Ganjakur]

mozzet estj komuta scp na easy uo, katorij pri nazhite knopke odenet konkretij bow/aruzhie?

[Prey]

Подсчет зарядов в рунбуке.
Скрипт нужен для того чтоб брать необходимое количество скроллов на зарядку буки.
Может кому и пригодится.

Работает со скриптом на инжект.

Инжект:

sub gump()

uo.set('norbcheck','1')

uo.set('norbcalc','1') 

if uo.LastGump('replyed') == 0 then

if uo.lastgump("text", 1) <= '99' then

uo.print( uo.lastgump( "text", 1 ) )

endif

endif

end sub

Изи:

set %Runebookid *******

set %BookMaxCharges 36; Skolko zarjadov v knige



sub scrollscount

set %recahrging #True

set #lobjectid %runebook

event macro 17 0

wait 10

gumpread:

msg ,exec gump$

wait 5

If #sysmsg = 0

{

Set %Takescrolls %BookMaxCharges

goto closebook

}

If #sysmsg = %BookMaxCharges

{

set %recahrging #False

event exmsg #charid 3 63 Book is Fully Charged...

click 400 300 r

return

}



Set %Takescrolls %BookMaxCharges - #sysmsg

closebook:

click 400 300 r

event exmsg #charid 3 63 You need %Takescrolls scrolls

return

[Elfinya]

Prey а ты можешь сделать что бы атака противоположной фракции при последующем нажатии вешала цель на след игрока противоположной фракции на подобии таргетнекст. типо таргет некст который игнорит себя и свою фракцию ?

[kiffa]

Атака Ближнего плайера.
С проверкой на Фракцию.
Магам этот скрипт тоже ставит таргет.

;-----------------------Settings--------------------------------

Set %Hotkey s; Knopka pri nazhatii kotoroj budet ataka

Set %Distance 10;Distancija na kotoroj budet iskatsa protivnik.

Set %Friends ####_####_####;Stavim id playerov kotorih ne hotim atakavatj.

Set %Order #True;False ne bduet atakovatj frakciju

Set %Chaos #False; True budet atakфvatj frakciju

Set %Criminal #False



;---------------------------------------------------------------







Start:

If %Order

Set %Or 1

If %Chaos

Set %Ch 6

If %Criminal

Set %Cr 4

Ignoreitem %Friends

Ignoreitem #Charid

Set %Player IS_HS



Loop:

Onhotkey %Hotkey

Gosub find

Goto loop



Sub find

ataka:

Msg $

set %d 0

Repeat

{

Set %d %d + 1

Finditem %Player G_ , %d

If #Findcnt <> 0

{

If #Findrep = %Or || #Findrep = %Ch || #Findrep = %Cr

{

Set %Enemy #Findid

Gosub Kill

}

}

}

Until %d => %Distance

Set %d 0

Return



Sub Kill

Set #Ltargetid %Enemy

Event macro 27 0

Set %d 0

Goto Loop

Return

A kak mne propisatj frakciju chaos ? Podskazhite pozhalujsto

[Prey]

Prey а ты можешь сделать что бы атака противоположной фракции при последующем нажатии вешала цель на след игрока противоположной фракции на подобии таргетнекст. типо таргет некст который игнорит себя и свою фракцию ?

Я немного доработал скрипт на атаку. Так что пробуй, теперь там такая функция есть.
Правда он не так быстро работает как хотелось бы.

Внимательней смотри настройки. Теперь там Тру и Фалс наоборот надо ставитью

Скиффа зачем копировать весь топик, если только шапку текста с настройками можно скопировать.

Там все подписано в скрипте, что и как. Главное сделать пробел перед кавычками в настройках.
К примеру:
Set #Distance 10 в таких случаях между текстом и скобками справа нужен пробел ;;;;;;;;;;;;;;;;;;;;

[Elfinya]

Prey Красавчик. слушай а вот возможно же скрипт ЦТФ переделать на ЛОСТ просто, скрипт от ЦТФ на Лост не подходит, там при появление он запоминает плаеров как я понял, а там дистанция стоит ? или как он там запоминает просто разница ЛОСТА от ЦТФ что при появление игроки раскиданы дальше.

[Elfinya]

Есть у каво скрипт нормальный длЯ атаки ЦТФ противоположной команды,скрипт который тут атакует всех подряд, что в муне , что на цтф

[ExTjUtY]

Есть у каво скрипт нормальный длЯ атаки ЦТФ противоположной команды,скрипт который тут атакует всех подряд, что в муне , что на цтф

Rukami attack!Psc vashe leniviji stali uze!Moz datj isho scp katorij sam odevajitsa letajit v moon i ubivajit i lootajit vseh?

[Elfinya]

Да я не привык к етим командам фракциям, я привык бегаешь два три чела остальные враги , если тут так делают, и рулят тут ресендеры и скриптеры, если до етого довели сервер остается только подстраиваться. при примерно равном скилле игры выигрывают скрипты, что не есть правильно,поетому что бы не отставать охото быть хотя бы среднячком для начала

[teror]

Есть у каво скрипт нормальный длЯ атаки ЦТФ противоположной команды,скрипт который тут атакует всех подряд, что в муне , что на цтф

Set %Hotkey s; Knopka pri nazhatii kotoroj budet ataka

Set %Distance 10;Distancija na kotoroj budet iskatsa protivnik.

Set %Friends ####_####_####;Stavim id playerov kotorih ne hotim atakavatj.

Set %Order #True;False ne bduet atakovatj frakciju

Set %Chaos #False; True budet atakфvatj frakciju

Set %Criminal #False

ты настраивал эту часть скрипта ?

[Elfinya]

ну конечно под ордера настроил,он по всем таргетами прыгает. Тут до этого был скрипт я скачивал, хороший скрипт на цтф идеально работал его тоже Прей делал, комп завис сохранить не успел в тхт файле , а теперь найти немогу, были 2 скрипта разные скейчас тут один остался ;( (там еще написано было, запускайте перед цтф он запоминает своих и атакует только врагов)

[Prey]

ну конечно под ордера настроил,он по всем таргетами прыгает. Тут до этого был скрипт я скачивал, хороший скрипт на цтф идеально работал его тоже Прей делал, комп завис сохранить не успел в тхт файле , а теперь найти немогу, были 2 скрипта разные скейчас тут один остался ;( (там еще написано было, запускайте перед цтф он запоминает своих и атакует только врагов)

Я случайно вставил атаку плейеров, в пост где была цтф атака. Мои извинения.
Отойду от выходных, выложу )

[Prey]

Сделал фикс на БС скрипт.
Теперь если к примеру есть 2 стопки 1 вида ингов, в 1 меньше 6, а в другой больше.
Скрипт не будет стопориться.

Обновлена атака плаеров. И сделаны фиксы на ошибки.

[Catherina]

nu i srazu vopros

mozhno li EASYUO sdelat' po verh vseh okon ? 4to bi postojanno ne pereklju4atsa ALT+TAB ?



А ТЫ СДЕЛАЙ В ВИНДОВСЕ ВСПЛЫВАЮЩУЮ ПОЛОВСУ СТАРТ ПУСКА ПОСТАЯННО ВЕСЯЩЕЙ .

А ПОТОМ ВСЁ ДОЛХНО ПЕРЕКЛЮЧАТСЯ С ПОМОШЬЮ НАВЕДЕНИЯ КУРСОРА НА ОКОШКО ВНИЗУ И НАЖАТИЯ КНОПКИ. ЕСЛИ ЧТО НАПИШИТЕ ПРИШЛЮ СКРРЕНШОТ С ТБЬЯСНЕНИЕМ .

skype :freedolly

[Catherina]

ИЗВЕНИТЕ. НЕ СУМЕЛА ИСПРАВИТЬ

[Prey]

Бовкрафт с переплавкой луков, работает так же как и БС скрипт.

Set %Logscont GJQBLMD;Container s logami

Set %LogsAmmount 1000; Skolko logov beret s sunduka

Set %Trashcan OHDCLMD

Set %Forgeid PSHBLMD; Id plavilki

Set %Foodcont; Id otdelnogo meshka na polu, dla edi

Set %CraftTool KMBEMMD; Id bowcraft Daggera

;----------------------------------------------------------------------------------

Set %Ostatok 100; Ne stavitj menshe 20.

;K primeru esli stoit 60, on budet doberatj logi iz sunduka,

;kogda v backpack ostanetsa menshe 60 logov. Chtob skript rabotal efektivnej. ostavlaj 60 - 80.

;A to budet tratitj mnogo vremeni na plavku 1 luka. A tak esli 60 to plavit po 3 luka podrad i rabotaet bistrej.

;---------------------------------------------------------------------------------





;-- Settings

;(1)Aspen (2)Maple (3)Cedar (4)Noblefire (5)Cherry

;---------------------------------Warning!!!------------------------------

;--------------------------------Start ne mozhet bitj menshe Stop------------------------------

Set %Start 1; S kakogo vida logov nachinaem

Set %Stop 5; Na kakom vide logov zakanchivaem

;--------------------------------------------------------------------------------------





;;;;;;;;;;;;;;



Begin:

set %fail 0

Gosub Begin

goto _make







_make:

Finditem ZLK C_ , #Backpackid

if #findcnt = 0 || #Findstack < 6

gosub trash

event macro 17 0

gosub gumpWait

event sysmessage craft..

click 493 455

set %j #jindex

gosub scan

goto _make



sub gumpWait

set %failT #scnt + 15

repeat

{

if #contname = generic_gump && #contkind = MIJB

return

if #contname = generic_gump && #contkind = UCHB

return

wait 10

}

until #scnt > %failT

return



sub scan

deletejournal

set %lag #scnt + 30

repeat

{

scanjournal %j

If World_save_has_been in #sysmsg || World_save_has_been in #journal

{

wait 10s

set %lag #scnt + 30

}

if hungry in #journal

{

gosub eat

goto _make:

}

if you_put in #journal

{

If %Begin

{

Set %Crafted #True

Set %Begin #False

}

set %fail 0

return

}

if you_fail in #journal && : notin #journal

{

If %Begin

Goto Begin

gosub fail

return

}

if failed in #journal && : notin #journal && event notin #journal

{

If %Begin

Goto Begin

gosub fail

return

}

if you_need in #journal

{

click 405 264 r

Gosub Trash

goto _make

}

if #jindex > %j

set %j %j + 1

}

until #scnt > %lag

return





sub eat

set %l #lobjectid

milk:

finditem ZBM C_ , #backpackid

if #findcnt < 2

{

set #lobjectid %Foodcont

event macro 17 0

while #contid <> %Foodcont

wait 1

finditem ZBM C_ , %Foodcont; 1 pitcher of milk

exevent drag #findid 1

exevent dropc #backpackid

wait 20

}

finditem ZBM C_ , #backpackid

if #findcnt < 2

goto milk

finditem GND C_ , #backpackid

if #findstack < 2

{

finditem GND C_ , %Foodcont

exevent drag #findid 2; 4 beacon slices

exevent dropc #backpackid

wait 20

}

If %Double

{

Set %Double #False

Goto Double

}

Set %Double #True

Goto One

Double:

finditem ZBM C_ , #Backpackid

set #lobjectid #findid

event macro 17 0

wait 10

One:

finditem ZBM C_ , #Backpackid

set #lobjectid #findid

event macro 17 0

wait 10

finditem GND C_ , #Backpackid

set #lobjectid #findid

event macro 17 0

wait 10

set #lobjectid %l

return



sub fail

set %fail %fail + 1

if %fail >= 3 3

click 491 455

wait 15s

set %fail 0

return



Sub Begin

gosub startcolors

Set %Begin #True

Set %Crafted #False

StartCraft:

Finditem ZLK C_ , #Backpackid

If #Findcol <> %Color

{

exevent drag #findid #Findstack

wait 5

exevent dropc %Logscont

wait 20

}

if #Findstack < %Ostatok || #Findstack = 0

gosub Trash

If #Findcol = %Color && #Findstack >= %Ostatok

{

Set #Lobjectid %CraftTool

Event macro 17 0

gosub gumpWait

If %Start = 1

Click 315 225

If %Start = 2

Click 428 225

If %Start = 3

Click 548 225

If %Start = 4

Click 315 355

If %Start = 5

Click 425 355

wait 10

Click 312 455

set #sysmsgcol 25

Event Sysmessage Making first %Name bow...

set %j #jindex

gosub scan

}

If %Crafted

{

set #sysmsgcol 80

goto _make

}

goto StartCraft

return





Sub Trash

trash:

repeat

{

Finditem TOH_WOH C_ , #Backpackid

If #findcnt <> 0

{

If #Findcol = 973

{

Exevent drag #findid

Exevent dropc %TrashCan

If World_save_has_been in #sysmsg

wait 10s

if ( You_can_not_pick_that_up. in #sysmsg )

{

gosub backpack

goto trash

}

wait 15

goto trash

}

Set #Ltargetid #Findid

Set #Lobjectid %Forgeid

set #ltargetkind 1

Event macro 17 0

Target 2s

event macro 22 0

If World_save_has_been in #sysmsg

wait 10s

wait 10

}

}

until #findcnt = 0

Finditem ZLK C_ , #Backpackid

if #Findstack < %Ostatok || #Findstack = 0

Gosub Take

Set #Lobjectid %Crafttool

return







Sub Take

repeat

{

Finditem ZLK C_ , #Backpackid

If #Findcnt <> 0

{

Exevent drag #Findid #Findstack

Exevent dropc %LogsCont

wait 25

}

}

until #findcnt = 0

set #sysmsgcol 67

Event Sysmessage  Trying to find %Name

Event Sysmessage  Wait some seconds

ignoreitem reset

Set #Lobjectid %LogsCont

repeat

{

Event macro 17 0

wait 15

}

until #Contid = %LogsCont

repeat

{

Finditem ZLK C_ , %LogsCont

If #findcol = %Color && #Findstack >= %Ostatok

{

set #sysmsgcol 52

Event Sysmessage #Findstack %Name Log founded

Exevent drag #Findid %LogsAmmount

wait 5

Exevent dropc #backpackid

If %begin

Goto startcraft

return

}

If #findcol = %Color && #Findstack < %Ostatok

{

If %Start = %Stop

{

Display There is No more %name Logs...

Halt

}

Set %Start %Start + 1

set #sysmsgcol 50

Event Sysmessage No %Name Founded

goto begin

}

If #Findcol <> %Color || #Findcol = 0

ignoreitem #Findid

}

until #Findcnt = 0

If %Start = %Stop && #Findstack < %Ostatok

{

Display There is No more %name Logs...

Halt

}

Set %Start %Start + 1

set #sysmsgcol 50

Event Sysmessage No %Name Founded.

goto begin

return











sub startcolors



If %Start = 1 2

Set %Color 973

Set %Name Aspen



If %Start = 2 2

Set %Color 1233

Set %Name Maple



If %Start = 3 2

Set %Color 437

Set %Name Cedar



If %Start = 4 2

Set %Color 153

Set %Name Noblefire



If %Start = 5 2

Set %Color 38

Set %Name Cherry



return



sub backpack

event macro 9 7

wait 30

event macro 8 7

wait 30

return

[Prey]

Dread Runner
Откачиваем у бота стамину, и жмем кнопку атаки.
Расстояние должно быть не меньше 4 шагов.
Скрипт бегает от бота по 2 точкам. В свое время убивал так люксоров.
Предварительно впишите тайпы монстров которых надо убивать.

Set %Hotkey Esc

set %dist 10









set %d 0

set %Danger #False

set %mobik QB_GB_HI_WH_K_U_J_ID_ED_DF_SD_JD_AD_SE_FD_DF_XE

ignoreitem #Charid



KeyLoop:

onhotkey %Hotkey

gosub find

Goto KeyLoop



sub find

msg $

repeat

{

set %d %d + 1

finditem %mobik G_ , %d

if #findcnt >= 1

{

set %mob #findid

gosub Attack

}

}

until %d > %dist

set %d 0

return



sub Attack

msg $

set #ltargetid %mob

event macro 27 0

gosub Ubegaem

return









Sub Ubegaem

finditem %mob G_ , 14

if #findcnt = 0

If #finddist < 4

{

event exmsg #Charid 3 30 Slishkom Blizko

goto KeyLoop

}

if #findcnt <> 0

{

set %cX #charposX

set %cY #charposY

set %mX #findX

set %mY #findY

gosub movetomob

}

if #findcnt = 0

goto KeyLoop

return



sub movetomob

repeat

{

finditem %mob G_ , 14

if #findcnt = 0

goto KeyLoop

if #finddist > 9

move #findX #findY 0 1

}

until #finddist <= 9

event exmsg %mob 3 64 Targeting

gosub kill

return



sub kill

Kill:

finditem %mob G_ , 14

set %Danger #False

set %rX #findX

set %rY #findY

event exmsg #Charid 3 85 Target Locked 1

if #finddist > 2

{

if %danger

set %dagner #False

}

destroy1:

finditem %mob G_ , 14

if #findcnt = 0

goto KeyLoop

if #finddist > 11

goto KeyLoop

If #CharposX = %cX && #CharposY = %cY && #finddist <= 2

set %Danger #True

onhotkey Esc

{

event exmsg #Charid 3 25 Canceled

set %dagner #False

msg $

wait 10

set %d 0

Goto KeyLoop

}

if #FindX = %rX && #FindY = %rY && #CharposX <> %cX && #finddist <= 1

{

if %Danger

{

gosub move2

gosub kill2

}

gosub move1

Goto Kill

}

if #FindX = %rX && #FindY = %rY && #CharposY <> %cY && #finddist <= 1

{

if %Danger

{

gosub move2

gosub kill2

}

gosub move1

Goto Kill

}

if #FindX <> %rX && #CharposX <> %cX && #finddist <= 1

{

if %Danger

{

gosub move2

gosub kill2

}

gosub move1

Goto Kill

}

if #FindX <> %rX && #CharposY <> %cY && #finddist <= 1

{

if %Danger

{

gosub move2

gosub kill2

}

gosub move1

Goto Kill

}

if #FindY <> %rY && #CharposY <> %cY && #finddist <= 1

{

if %Danger

{

gosub move2

gosub kill2

}

gosub move1

Goto Kill

}

if #FindY <> %rY && #CharposX <> %cX && #finddist <= 1

{

if %Danger

{

gosub move2

gosub kill2

}

gosub move1

Goto Kill

}

if #FindX <> %rX && #CharposX = %cX && #CharposY = %cY && #finddist <= 1

{

gosub move2

gosub kill2

}

if #FindY <> %rY && #CharposX = %cX && #CharposY = %cY && #finddist <= 1

{

gosub move2

gosub kill2

}

if #CharposX = %cX && #CharposY = %cY && #finddist <= 1

{

gosub move2

gosub kill2

}

goto destroy1

return



sub kill2

Kill2:

finditem %mob G_ , 14

set %Danger #False

set %rX #findX

set %rY #findY

event exmsg #Charid 3 85 Target Locked 2

if #finddist > 2

{

if %danger

set %danger #False

}

destroy2:

finditem %mob G_ , 14

if #findcnt = 0

goto KeyLoop

if #finddist > 11

goto KeyLoop

If #CharposX = %cX && #CharposY = %cY && #finddist <= 2

set %Danger #True

onhotkey Esc

{

msg $

event exmsg #Charid 3 25 Canceled

wait 15

set %dagner #False

set %d 0

Goto KeyLoop

}

if #FindX = %rX && #FindY = %rY && #CharposX <> %mX && #finddist <= 1

{

if %Danger

{

gosub move1

gosub kill

}

gosub move2

Goto Kill2

}

if #FindX = %rX && #FindY = %rY && #CharposY <> %mY && #finddist <= 1

{

if %Danger

{

gosub move1

gosub kill

}

gosub move2

Goto Kill2

}

if #FindX <> %rX && #CharposX <> %mX && #finddist <= 1

{

if %Danger

{

gosub move1

gosub kill

}

gosub move2

Goto Kill2

}

if #FindX <> %rX && #CharposY <> %mY && #finddist <= 1

{

if %Danger

{

gosub move1

gosub kill

}

gosub move2

Goto Kill2

}

if #FindY <> %rY && #CharposY <> %mY && #finddist <= 1

{

if %Danger

{

gosub move1

gosub kill

}

gosub move2

Goto Kill2

}

if #FindY <> %rY && #CharposX <> %mX && #finddist <= 1

{

if %Danger

{

gosub move1

gosub kill

}

gosub move2

Goto Kill2

}

if #FindX <> %rX && #CharposX = %mX && #CharposY = %mY && #finddist <= 1

{

gosub move1

gosub kill

}

if #FindY <> %rY && #CharposX = %mX && #CharposY = %mY && #finddist <= 1

{

gosub move1

gosub kill

}

if #CharposX = %mX && #CharposY = %mY && #finddist <= 1

{

gosub move1

gosub kill

}

goto destroy2

return



sub move1

repeat

{

event pathfind %cX %cY

onhotkey Esc

{

event exmsg #Charid 3 25 Canceled

set %dagner #False

set %d 0

msg $

wait 15

Goto Keyloop

}

until #charposx = %cX && #charposy = %cY

finditem %mob G_ , 14

set %rX #findX

set %rY #findY

return





sub move2

repeat

{

event pathfind %mX %mY

onhotkey Esc

{

event exmsg #Charid 3 25 Canceled

set %dagner #False

set %d 0

msg $

wait 15

Goto Keyloop

}

until #charposx = %mX && #charposy = %mY

finditem %mob G_ , 14

set %rX #findX

set %rY #findY

return