Toggle shoutbox Chat
|
Всякие полезности на Easyuo
#41
Posted 14 April 2011 - 19:27
#42
Posted 21 April 2011 - 13:55
Скрипт будет начинать работу с этого вида инготов.
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
#43
Posted 21 April 2011 - 14:47
Спасибо.
]::::::>PROD<::::::[=
#44
Posted 21 April 2011 - 15:43
#45
Posted 02 May 2011 - 13:46
Скрипт нужен для того чтоб брать необходимое количество скроллов на зарядку буки.
Может кому и пригодится.
Работает со скриптом на инжект.
Инжект:
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
#46
Posted 02 September 2011 - 04:13
#47
Posted 02 September 2011 - 10:08
A kak mne propisatj frakciju chaos ? Podskazhite pozhalujstoАтака Ближнего плайера.
С проверкой на Фракцию.
Магам этот скрипт тоже ставит таргет.;-----------------------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
#48
Posted 03 September 2011 - 10:44
Prey а ты можешь сделать что бы атака противоположной фракции при последующем нажатии вешала цель на след игрока противоположной фракции на подобии таргетнекст. типо таргет некст который игнорит себя и свою фракцию ?
Я немного доработал скрипт на атаку. Так что пробуй, теперь там такая функция есть.
Правда он не так быстро работает как хотелось бы.
Внимательней смотри настройки. Теперь там Тру и Фалс наоборот надо ставитью
Скиффа зачем копировать весь топик, если только шапку текста с настройками можно скопировать.
Там все подписано в скрипте, что и как. Главное сделать пробел перед кавычками в настройках.
К примеру:
Set #Distance 10 в таких случаях между текстом и скобками справа нужен пробел ;;;;;;;;;;;;;;;;;;;;
#49
Posted 07 September 2011 - 21:12
#50
Posted 22 September 2011 - 23:22
#51
Posted 23 September 2011 - 04:54
Rukami attack!Psc vashe leniviji stali uze!Moz datj isho scp katorij sam odevajitsa letajit v moon i ubivajit i lootajit vseh?Есть у каво скрипт нормальный длЯ атаки ЦТФ противоположной команды,скрипт который тут атакует всех подряд, что в муне , что на цтф
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#52
Posted 23 September 2011 - 06:57
#53
Posted 24 September 2011 - 11:55
Есть у каво скрипт нормальный длЯ атаки ЦТФ противоположной команды,скрипт который тут атакует всех подряд, что в муне , что на цтф
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ты настраивал эту часть скрипта ?
#54
Posted 24 September 2011 - 13:56
#55
Posted 25 September 2011 - 15:55
ну конечно под ордера настроил,он по всем таргетами прыгает. Тут до этого был скрипт я скачивал, хороший скрипт на цтф идеально работал его тоже Прей делал, комп завис сохранить не успел в тхт файле , а теперь найти немогу, были 2 скрипта разные скейчас тут один остался ;( (там еще написано было, запускайте перед цтф он запоминает своих и атакует только врагов)
Я случайно вставил атаку плейеров, в пост где была цтф атака. Мои извинения.
Отойду от выходных, выложу )
#56
Posted 12 November 2011 - 18:36
Теперь если к примеру есть 2 стопки 1 вида ингов, в 1 меньше 6, а в другой больше.
Скрипт не будет стопориться.
Обновлена атака плаеров. И сделаны фиксы на ошибки.
#57
Posted 07 January 2012 - 08:01
mozhno li EASYUO sdelat' po verh vseh okon ? 4to bi postojanno ne pereklju4atsa ALT+TAB ?
А ТЫ СДЕЛАЙ В ВИНДОВСЕ ВСПЛЫВАЮЩУЮ ПОЛОВСУ СТАРТ ПУСКА ПОСТАЯННО ВЕСЯЩЕЙ .
А ПОТОМ ВСЁ ДОЛХНО ПЕРЕКЛЮЧАТСЯ С ПОМОШЬЮ НАВЕДЕНИЯ КУРСОРА НА ОКОШКО ВНИЗУ И НАЖАТИЯ КНОПКИ. ЕСЛИ ЧТО НАПИШИТЕ ПРИШЛЮ СКРРЕНШОТ С ТБЬЯСНЕНИЕМ .
skype :freedolly
#58
Posted 07 January 2012 - 08:05
#59
Posted 26 November 2012 - 15:10
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
#60
Posted 26 November 2012 - 15:16
Откачиваем у бота стамину, и жмем кнопку атаки.
Расстояние должно быть не меньше 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
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users