gosub settings gosub menu gosub setup if %userail <> yes gosub gohome if %straighthome = #true { set %nn 1 set %oo 1 set %n 1 set %o 1 } loop: gosub chop gosub findtool gosub maketool gosub chop gosub check goto loop sub settings set %delay 20 ;sets first delay for log menu set %delay2 10 ;sets second delay for log menu ;12/25/04 ;Jebbits On The Fly Lumber Rail set %ver 2.2 set %###### Lumber0.txt set %cmd cmd.exe key p alT menu HideEUO if txt notin %###### && euo notin %###### { display msg It looks like you did not give an extention to your ###### name. Please use the ending .txt or .euo. } ;******** INITIAL SETTINGS***************** set %straighthome #false set %fullpath #false set %extrasecures #false set %multi #false set %alwaysclick #false set %opendoor #false set %turnoffsaw #false set %axecut #false ;set this to #true of you have a shard that makes boards with an axe instead of tools set %bank #false set %recall #false set %hideme #false set %menu #true SET %CHANGE Boards set %logweight 2 set %boardweight 1 set %stop 999999 set %object qwl ;Runebook ID set %home 2 set %axes lsf_bsf_nsf_zrf_rmh_lph_uoh_fsf set %movetime 5s ; set this to increass or decreass movement wait set %doorid ZPC_BQC_NQC_TQC_VQC_FJC_HJC_HQC_JQC_XMC_ZMC_WBD_YBD_FNC_HNC_LAM_NNC ;***********Other Settings****************** set %a 0 set %n 0 set %o 0 set %b 0 SET %s 0 set %try 0 set %watt 10 set %txt44 0 set %sss 0 set %first 0 set %set1 0 set %set2 0 set %oak 0 set %Yew 0 set %Blood 0 set %Ash 0 set %Heart 0 set %Frost 0 set %scnt 0 set %logs zlk set %bnk 0 set %mrail 0 set %Msecure 0 set %rec 0 set %path 0 set %axe 0 set %start 0 set %colorr Red for %i 1 9 { set %tag . %i off } set %maxw #maxweight - 15 set %boards tlk_yws_xws_bwr_nws_fxs set %secureid 0 set %jin #jindex set *511 pause set %saw agg_egg SET %cx #charposx SET %cy #charposy set %counterstarted 0 set %home %home + 1 set %all %boards , _ , %logs set %maxweight #maxweight - 41 return sub menu if %ending <> 1 gosub secondmenu menu Font BGColor InactiveCaptionText menu font size 10 Menu Text txt 220 40 Initializing Menu Font Color red Menu Text txt1 220 60 Verison %ver Osi/FS 9/19/04 - 2/6/05 menu hideeuo wait 70 Menu Font Color Black menu delete txt menu delete txt1 Menu Text txt 220 40 Initializing. Menu Text txt1 220 60 Opening Paperdoll Event macro 8 1 paperwait: if #contname <> paperdoll_gump goto paperwait contpos 650 0 menu delete txt menu delete txt1 Menu Text txt 220 40 Initializing.. Menu Text txt1 220 60 Opening Status wait %watt event macro 8 2 statuswait: if #contname <> status_gump goto statuswait set %osx #contposx + 395 set %osy #contposy + 160 click %osx %osy menu delete txt menu delete txt1 Menu Text txt 220 40 Initializing... Menu Text txt1 220 60 Opening Backpack wait %watt event macro 8 7 packwait: if #contname <> container_gump && #contsize <> 230_240 goto packwait contpos 615 330 set %backpackid #contid set %bb C_ , %backpackid menu delete txt menu delete txt1 Menu Text txt 220 40 Initializing.... Menu Text txt1 220 60 Finding Axe finditem %axes C_ , #charid wait %watt if #findkind = -1 finditem %axes c_ , %Backpackid wait 5 if #findkind = -1 { menu font color red menu delete txt1 Menu Text txt1 220 60 Error....Can't find axe in pack...Halted halt } menu delete txt menu delete txt1 Menu Text txt 220 40 Initializing..... Menu Text txt1 220 60 Finding Saw finditem %saw C_ , %backpackid if #findid = x && %axecut <> #true && %turnoffsaw = #false { menu font color red menu delete txt1 Menu Text txt1 220 60 Error....Can't find saw in pack...Halted halt } gosub relocate menu delete txt menu delete txt1 Menu Text txt 220 40 Initializing......... Menu Text txt1 220 60 Arming Axe gosub axearm wait %watt if %recall = #false { goto menu } menu delete txt menu delete txt1 Menu Text txt 220 40 Initializing...... Menu Text txt1 220 60 Setting up recall set %runefind #findid finditem %object c_ , %backpackid runewait: if %runefind = #findid && #findid <> x goto runewait if #findid = x { menu font color red menu delete txt1 Menu Text txt1 220 60 Error....Can't find recall rune in pack...Halted halt } menu: menu HIDE CLICK 128 192 R set %first 0 set %set1 0 set %set2 0 gosub remember return sub relocate if %done <> yes { menu delete txt menu delete txt1 Menu Text txt 220 40 Initializing....... Menu Text txt1 220 60 Locating Secure Container } if %done = yes click 152 196 r finditem jif_kif_iif_HIF_bud G_1 wait %watt if #findid = x && %bank = #false { menu font color red menu delete txt1 Menu Text txt1 220 60 Error....Can't find Secure...Halted halt } if %bank = #true msg bank $ set #LOBJECTID #findid event macro 17 0 waitsecure: if #contsize <> 180_240 goto waitsecure contpos 98 95 set %secureid #findid if %done <> yes { menu delete txt menu delete txt1 Menu Text txt 220 40 Initializing........ Menu Text txt1 220 60 Locating Storage Box } set %runef #findid finditem cud_hkf c_ boxweight: if %runef = #findid && #findid <> x goto boxweight if #findid = x { menu font color red menu delete txt1 Menu Text txt1 220 60 Error....Can't find wood box in secure...Halted halt } wait 20 set #LOBJECTID #findid set %orebagid #findid set #lobjectid %secureid wait 10 return ;**********RUNEBOOK SET UP**************************** ;****************MAIN MENU********************** sub setup display yesno Do you have a rail made, and do you wish to use it if #dispres = yes { set %userail yes goto skipp } display yesno Do you wish to make a perm rail? if #dispres = yes set %setrail yes if %setrail = yes { if EXEC notin #opts { display ok In order to save the rail ###### you must have $"Disable Execute" un-checked. + Enable this option$from the Easyuo menu:$$Tools>Options>Permissions>Disable Execute$$Halting... halt } display yesno Are you using win 98/95/ME if #dispres = yes set %cmd command.com if #dispres = yes set %_98 1 EXECUTE %cmd /c if exist %###### del %###### } hh: gosub menus menu delete txt44 if #menubutton = no { if %setrail <> yes menu hide set %done yes if %setrail = yes gosub saverail set %jin #jindex deletejournal return } if #menubutton = Cancel { set %txt44 %txt44 - 2 set %n %n - 1 set %o %o - 1 set %reset 1 goto hh } if #menubutton = yes && %userail <> Yes { GOSUB FINDtool set #lobjectid %helditem event macro 17 0 set %first %first + 1 target 3s if %opendoor = #true gosub door waiting: if #targcurs = 1 goto waiting set %set1 #cursorx set %set2 #cursory set %st1 #ltargetx set %st2 #ltargety set %st3 #ltargetz gosub remember if #weight > %maxw gosub cut goto hh } skipp: return ;***************Axe Arming************************************ sub axearm finditem %axes c_ , #charid if #findkind = 0 { set %helditem #findid return } if #findkind = -1 { finditem %axes c_ , #Backpackid if #findkind = -1 { if %bank = #true finditem %axes c_ else finditem %axes c_ , %Secureid if #findkind = -1 && %cutting = 99 && %extrasecures = #false pause gosub findtool } if #findtype = fsf set #lhandid #findid else set #rhandid #findid dropp: if #findtype = fsf event macro 24 1 else event macro 24 2 finditem %helditem c_ , #charid if findkind = -1 goto dropp finditem %axes c_ , #charid WAIT 5 set %helditem #findid } return ;******Check for broken Axe*********** sub findtool set %scnt #scnt + 2 if %cutting = 99 || %recallloop = 1 goto out finditem %helditem axwait: if #findid <> %helditem && %scnt > #scnt && #findid <> x goto axwait if #findid <> X goto out else finditem %axes c_ , %backpackid wait 5 if #findid = X && %cutting <> 99 { If %recall = #true { gosub recall } gosub gohome gosub house gosub checktool GOSUB goback } set %helditem #findid out: return ;**************Finding Another Axe From Secure******************** sub checktool finditem %axes c_ , #charid if #findid <> x return finditem %axes c_ , %backpackid if #findid <> x { gosub axearm return } set %amount 0 getmore: finditem %axes c_ wait 1s if #findkind = -1 && %extrasecures = #false { display msg Can't find any more axes. replace and hit play pause set %nn 2 } if #findkind = -1 && %extrasecures = #true { ignoreitem %secureid gosub relocate goto getmore } if #findkind = 0 { gosub axearm } return ;***********Sub Chop***************** sub chop WALKAGAIN: if %nn < %home 2 gosub loc GOTO WALKAGAIN if %cx = #charposx && %cy = #charposy { GOTO WALKAGAIN } set #ltargetkind 2 RETURN: GOSUB SEARCHGROUND if %nn < %home return if %health = #true && #hits < #maxhits - 10 gosub health set %armit 0 hangout: set %armit %armit + 1 finditem %helditem if #findkind = -1 || %armit > 5 gosub axearm set #lobjectid %helditem event macro 17 0 target if #targcurs <> 1 goto hangout set %weighthold #weight set %jincheck #jindex if %x <> 1 || %userail = yes || %alwaysclick = #true { click %digx . %n %digy . %o d click %digx . %n %digy . %o d } set %x 1 wait 10 set #ltargety %digyy . %o set #ltargetx %digxx . %n set #ltargetz %digzz . %n set #ltargetkind 3 event macro 22 gosub check if %mark = 99 { set %MARK 0 gosub loc } GOTO RETURN return ;**************Weight and Journal Check Subroutine**************** sub check set %timeout #scnt2 + 54 toppp: if %jincheck < #jindex set %jincheck %jincheck + 1 scanjournal %jincheck if #weight = %weighthold && %timeout > #scnt2 && not_enough notin #journal && nothing notin #journal && put_some_logs notin #journal && hack notin #journal && chop_some notin #journal goto toppp if %scnt < #scnt ( if #jindex = %journalcheck set %x 1 set %scnt #scnt + 13 set %journalcheck #jindex } set %checkit #jindex FOR %i %jin %checkit { SCANJOURNAL %I if you_can't in #journal set %x 1 if Your_backpack_is_full in #journal gosub full If you_destroyed || broke in #journal gosub findtool if can't_place in #journal gosub place if not_enough in #journal || cannot_see in #journal || far_away in #journal || can't_reach in #journal || can't_use in #journal || nothing in #journal gosub allelse } SET %JIN %CHECKIT + 1 finditem %axes C_ , #charid if #findkind = -1 gosub axearm if #findkind = -1 goto runhome set %counter %counter + 1 scanjournal if #weight > %maxw { DELETEJOURNAL finditem %LOGS c_ , %backpackid if finditem <> x { gosub cut gosub recheck return } runhome: if %recall = #true gosub recall GOSUB GOHOME gosub house gosub goback RETURN } if %counter > 19 { set %counter 0 gosub findtool } return sub full deletejournal gosub cut gosub recheck return sub place deletejournal set %checkweight #weight gosub cut if %checkweight = #weight && #weight <= #maxweight goto runhome return sub allelse SET %MARK 99 DELETEJOURNAL RETURN ;***********HOUSE SUBROUTINE************ sub house set %cutting 99 if %straighthome <> #true { if %NNN >= %FIRST { set %nn 1 set %oo 1 set %o 1 set %n 1 } } if %straighthome = #true { set %nn 1 set %oo 1 set %o 1 set %n 1 } ;***********WALKING TO SECURE************* set %scnt #scnt movingtime: if #scnt - %scnt > 4 { set %scnt #scnt event macro 5 1 event macro 5 1 } move %cx %cy 0 1s event pathfind %cx %cy #charposz if #charposx <> %cx || #charposy <> %cy goto movingtime set %x + 1 set %counter 0 ;***************************HIDING******************** if %hideme event macro 13 21 wait 5 ;****************FIND AND OPEN CHEST************* set %scnt #scnt + 4 opensecure: ;Find chest if %bank = #true goto skip FINDITEM %SECUREID IF #FINDKIND = -1 && %scnt > #scnt { GOTO OPENSECURE } ;Open chest set #LOBJECTID %secureid set #findmod 0_0 set #NEXTCPOSX 27 set #NEXTCPOSY 49 event macro 17 0 skip: if %bank = #true msg Bank $ wait 10 set %scnt #scnt + 5 WaitSecureToOpen: if %scnt < #scnt goto opensecure finditem %orebagid C_ if #findid <> %orebagid goto WaitSecureToOpen IGNOREITEM RESET finditem %axes c_ , #charid if #findid = x { gosub checktool gosub axearm } gosub more ;---------------------------------------------Log routine------------------------------------------------- finditem %logs C_ , %backpackid wait 20 if #findkind = 0 && %axecut = #false && %turnoffsaw = #false gosub cut ignoreitem reset 1 ignoreitem reset ore: scanjournal #jindex if hold_more in #journal && %extrasecures = #true { ignoreitem %secureid gosub relocate } finditem %boards c_ , %backpackid if %Menu = #true { gosub count gosub menuu } gosub finish finditem %all c_ , %backpackid if #findkind = -1 && #lLiftedKind <> 1 { goto endit } if #findkind = 0 { IF #lLiftedKind <> 1 event drag #findid wait 15 msg $ wait 5 finditem %orebagid C_ if #findid = x goto opensecure set #findmod 20_10 set %scnt #scnt + 10 oredrop: if %scnt < #scnt goto ore click #findx #findy p wait 10 if #lliftedkind = 1 goto oredrop goto ore } endit: set %cutting 1 return ;----------------------------------------HEAL---------------------------------------- sub health if #hits >= #maxhits - 10 return set *511 resume loopit: wait 10 if #hits < #maxhits - 10 goto loopit set *511 pause return ;********************** sub axecut set %loop 0 retryy: set %loop %loop + 1 if %loop >= 11 { display mgs Failed 10 times to cut logs. Unable to use axe to make boards. This usually means you are on a server that uses tool to make boards. You might want to try setting "%axechop" to "#false" at the beginning of the script, and make sure you have a saw in your pack, and restarting. halt } finditem %helditem C_ , #charid wait 15 set #lobjectid #findid event macro 17 0 finditem %logs C_ , %backpackid if #findid = x return event property #findid set #ltargetid #findid set #ltargetkind 1 wait 20 event macro 22 0 goto retryy return sub cut if %turnoffsaw = #true goto bottom if %axecut = #true { gosub axecut goto bottom } retry: finditem %saw C_ , %backpackid wait 15 if #findkind = -1 { GOSUB DRAGIT if %done = yes { if %recall = #true && %cutting <> 99 { GOSUB recall } if %cutting <> 99 { gosub gohome } gosub house gosub goback goto bottom } goto bottom } openagain: set #lobjectid #findid event macro 17 0 set %scnt #scnt + 10 gump: finditem %logs C_ , %backpackid wait %delay if #findid = x { set %mody 411 + #contposy set %modx 15 + #contposx CLICK %modx %mody R goto finish } event property #findid if #scnt > %scnt goto retry if #contname <> generic_gump || #CONTSIZE <> 530_437 goto retry wait %delay if ash notin #property && oak notin #property && yew notin #property && heartwood notin #property && frostwood notin #property && bloodwood notin #property && #findcol <> 0 { ignoreitem #findid goto gump } set %modx 27 + #contposx set %mody 90 + #contposy click %modx %mody x1 wait %delay if oak in #property { set %pixx 495 + #contposx set %pixy 91 + #contposy savepix %pixx %pixy 1 set %mody 372 + #contposy set %modx 27 + #contposx 11: if #scnt > %scnt goto click1 click %modx %mody x1 wait %delay cmpPix 1 t 1 goto 11 click1: set %mody 90 + #contposy set %modx 234 + #contposx click %modx %mody x1 wait %delay2 set %again 1 } if ash in #property { set %pixx 495 + #contposx set %pixy 91 + #contposy savepix %pixx %pixy 1 set %mody 372 + #contposy set %modx 27 + #contposx 12: if #scnt > %scnt goto click2 click %modx %mody x1 wait %delay cmpPix 1 t 1 goto 12 click2: set %mody 110 + #contposy set %modx 234 + #contposx click %modx %mody x1 wait %delay2 set %again 1 } if yew in #property { set %pixx 495 + #contposx set %pixy 91 + #contposy savepix %pixx %pixy 1 set %mody 372 + #contposy set %modx 27 + #contposx 13: if #scnt > %scnt goto click3 click %modx %mody x1 wait %delay cmpPix 1 t 1 goto 13 click3: set %mody 130 + #contposy set %modx 234 + #contposx click %modx %mody x1 wait %delay2 set %again 1 } if heartwood in #property { set %pixx 495 + #contposx set %pixy 91 + #contposy savepix %pixx %pixy 1 set %mody 372 + #contposy set %modx 27 + #contposx 14: if #scnt > %scnt goto click4 click %modx %mody x1 wait %delay cmpPix 1 t 1 goto 14 click4: set %mody 150 + #contposy set %modx 234 + #contposx click %modx %mody x1 wait %delay2 set %again 1 } if bloodwood in #property { set %pixx 495 + #contposx set %pixy 91 + #contposy savepix %pixx %pixy 1 set %mody 372 + #contposy set %modx 27 + #contposx 15: if #scnt > %scnt goto click5 click %modx %mody x1 wait %delay cmpPix 1 t 1 goto 15 click5: set %mody 170 + #contposy set %modx 234 + #contposx click %modx %mody x1 wait %delay2 set %again 1 } if frostwood in #property { set %pixx 495 + #contposx set %pixy 91 + #contposy savepix %pixx %pixy 1 set %mody 372 + #contposy set %modx 27 + #contposx 16: if #scnt > %scnt goto click6 click %modx %mody x1 wait %delay cmpPix 1 t 1 goto 16 click6: set %mody 190 + #contposy set %modx 234 + #contposx click %modx %mody x1 wait %delay2 set %again 1 } if ash notin #property && oak notin #property && yew notin #property && heartwood notin #property && bloodwood notin #property && frostwood notin #property { ignoreitem #findid 1 set %pixx 495 + #contposx set %pixy 91 + #contposy savepix %pixx %pixy 1 set %mody 372 + #contposy set %modx 27 + #contposx 17: if #scnt > %scnt goto click7 click %modx %mody x1 wait %delay cmpPix 1 t 1 goto 17 click7: set %mody 70 + #contposy set %modx 234 + #contposx click %modx %mody x1 wait %delay2 set %again 1 } set %mody 71 + #contposy set %modx 233 + #contposx click %modx %mody x1 WAIT %delay2 set %scnt #scnt + 10 hang: if #scnt > %scnt return if #CONTSIZE <> 530_437 goto hang ignoreitem #findid finditem btl c_ , %backpackid if #findkind = 0 { display msg The script has found Barrel Staves in your back pack. This is usually a result of being on a server that uses an axe to make logs instead of tool. To correct this go to the top of the script and change "%axecut" to "#true". halt } if %again = 1 { wait 30 set %again 0 goto retry } gosub finish return sub finish finish: if #CONTSIZE <> 530_437 goto bottom set %mody 414 + #contposy set %modx 24 + #contposx click %modx %mody x1 if #CONTSIZE = 530_437 goto finish bottom: return sub more if %axecut = #true || %turnoffsaw = #true return finditem %saw c_ , %backpackid wait 10 if #findkind = 0 return sawfindit: finditem %saw C_ wait 10 if #findkind = -1 && %extrasecures = #false pause if #findkind = -1 && %extrasecures = #true { gosub relocate goto sawfindit } set #lobjectid #findid event drag #lobjectid wait 10 click 794 218 p return ;-------------------------------Program loc below here------------------------------- sub loc if #weight > #maxweight gosub cut if %userail = yes && %preset <> 1 { set %n 0 set %o 0 set %nn 0 set %oo 0 set %preset 1 call %###### set %first %first - 1 if %findfile <> 1 display The ###### can not be located. Make sure the ###### is in the same location as This ######. Or that it is in the ###### that you slected under tools/options. if %findfile <> 1 halt } gosub finish MSG $ IF %nn => %FIRST + 1 && %multi = #false { if %recall = #true gosub recall gosub gohome gosub house } IF %nn => %FIRST + 1 && %multi = #true { if %recall = #true gosub recall gosub gohome gosub nextrail set %first %first - 1 gosub house } if %nn < %first + 1 { set %n %n + 1 set %o %o + 1 set %nn %nn + 1 set %oo %oo + 1 SET %MARK 0 set %x + 1 if %opendoor = #true gosub door set %movex %walk . %n set %movey %wallk . %o if %fullpath = #true gosub straighthome %movex %movey move %movex %movey 0 %movetime set %scnt #scnt + 10 check3: if %movex <> #charposx && %movey <> #charposy { event pathfind %movex %movey wait 1s scanjournal #jindex move %movex %movey 0 3s if %scnt > #scnt && can't_get notin #journal goto check3 } } goSUB SEARCHGROUND return sub saverail1 set %tempn %n set %tempo %o set %n 0 set %o 0 set %numb 0 loopraill: execute %cmd /c echo set % , walk . %n %walk . %n >> %###### execute %cmd /c echo set % , wallk . %n %wallk . %n >> %###### execute %cmd /c echo set % , digx . %n %digx . %n >> %###### execute %cmd /c echo set % , digy . %n %digy . %n >> %###### if %n = %tempo { execute %cmd /c echo set % , findfile 1 >> %###### execute %cmd /c echo set % , first %tempo >> %###### execute %cmd /c echo Exit >> %###### return } set %n %n + 1 set %o %o + 1 goto loopraill return sub saverail if %_98 = 1 { gosub saverail1 goto second1 } menu clear menu font color Red menu font size 10 menu text 10 5 txt Wait.. Saving rail.. Screen should flash set %tempn %n set %tempo %o set %n 0 set %o 0 set %numb 0 set %hhh 0 looprail: set %hhh %hhh + 1 set %array . %hhh set , #spc , % , walk . %n , #spc , %walk . %n set %hhh %hhh + 1 set %array . %hhh set , #spc , % , wallk . %o , #spc , %wallk . %o set %hhh %hhh + 1 set %array . %hhh set , #spc , % , digx . %n , #spc , %digx . %n set %hhh %hhh + 1 set %array . %hhh set , #spc , % , digy . %o , #spc , %digy . %n if %n = %tempo { set %hhh %hhh + 1 set %array . %hhh set , #spc , % , findfile , #spc , 1 set %hhh %hhh + 1 set %array . %hhh set , #spc , % , first , #spc , %tempo set %hhh %hhh + 1 set %array . %hhh Exit menu hide set %araysave %hhh gosub saveitall array 1 %araysave %###### second1: return ;================================== ; Script Name: Sub WriteFastDOSArray ; Author: Roadkill ; Version: 1.2 ; Client Tested with: 4.0.2a patch21 ; EUO version tested with: build 0082 ; Shard OSI / FS: OSI ; Revision Date: 11May04 ; Public Release: 12May04 ; Global Variables Used: none ; Purpose: write the values from an array into multiline ###### ; using single DOS write for speed instead of slow loop. ;================================== sub saveitall set !lpc #lpc set #lpc 1000 set !doslengthlimit 2000 ;get comspec for OS str left #osver 1 set !filecmd cmd.exe if %_98 = 1 { set !filecmd command.com set !doslengthlimit 500 } ;test for allow exec if exec notin #opts { display OK You MUST have "allow Execute" enabled to write a ######,$ + and right now you DON'T! Fix it...you have 10 seconds. wait 10s } set !writestring %1 , %2 set !writestring % . !writestring set !wstart %2 + 1 set !crlf #spc , >> , #spc , %4 , #spc , && , #spc , echo , #spc for !z !wstart %3 { set !element %1 , !z set !element % . !element str len !element set !elementlen #strres str len !writestring set !writestringlen #strres if !writestringlen + !elementlen > !doslengthlimit { execute !filecmd /c echo !writestring >> %4 wait 5 set !writestring #smc , ---bufferdump--- } set !writestring !writestring , !crlf , !element } execute !filecmd /c echo !writestring >> %4 wait 5 set #lpc !lpc return } set %n %n + 1 set %o %o + 1 goto looprail return sub remember set %n %n + 1 set %o %o + 1 set %digx . %n %set1 set %digy . %o %set2 set %digxx . %n %st1 set %digyy . %o %st2 set %digzz . %o %st3 set %walk . %n #charposx set %wallk . %o #charposy set %nn %n set %oo %o return sub gohome set %charposx %walk1 set %charposy %wallk1 MSG $ IF #WEIGHT >= #MAXWEIGHT GOSUB CUT if #weight >= #maxweight gosub dragit if %straighthome = #true { SET %NNN %NN gosub straighthome %charposx %charposy goto bott } if %recall = #false SET %NNN %NN moveagain: set %nn %nn - 1 set %oo %oo - 1 if %fullpath = #true gosub straighthome %walk . %nn %wallk . %oo move %walk . %nn %wallk . %oo 0 5s walkcheck: if %walk . %nn <> #charposx && %wallk . %nn <> #charposy { finditem %doorname g_3 if #findid <> x && %opendoor = #true gosub door event pathfind %walk . %nn %wallk . %nn wait 1s move %walk . %nn %wallk . %nn 0 3s goto walkcheck } if %opendoor = #true gosub door IF %NN <> 1 goto moveagain set %nn 1 set %oo 1 set %n 1 set %o 1 bott: return sub goback set %charposx %walk . %nnn set %charposy %wallk . %nnn if %straighthome = #true { SET %NN %NNN SET %N %NNN SET %O %NNN SET %NN %NNN SET %O %NNN SET %MARK 0 gosub straighthome %charposx %charposy goto bottt: } if %opendoor = #true gosub door MSG $ moveon: IF %NNN >= %FIRST { RETURN } IF %NNN = %NN RETURN SET %N %N + 1 SET %O %O + 1 set %nn %nn + 1 set %oo %oo + 1 if %fullpath = #true gosub straighthome %walk . %nn %wallk . %oo move %walk . %nn %wallk . %oo 0 5s set %scnt #scnt + 10 walkcheck2 if %walk . %nn <> #charposx && %wallk . %nn <> #charposy { finditem %doorname g_3 if #findid <> x && %opendoor = #true gosub door event pathfind %walk . %nn %wallk . %nn wait 1s scanjournal #jindex move %walk . %nn %wallk . %nn 0 3s if %scnt > #scnt && can't_get notin #journal goto walkcheck2 } goto moveon bottt: return sub recheck if #weight >= #maxweight gosub dragit if #weight > %maxweight { if %recall = #true gosub recall GOSUB GOHOME gosub house gosub goback } return sub dragit drop: if #weight <= #MAXWEIGHT goto dhe finditem %LOGS c_ , #backpackid if #findkind = -1 finditem %all c_ , #backpackid if #findkind = 0 { IF #LLIFTEDKIND = 1 && #CLIXRES = 640 gosub drop 316 246 IF #LLIFTEDKIND = 1 && #CLIXRES = 800 gosub drop 390 300 Event Drag #Findid gosub amount wait 5 msg %logamount $ wait 20 if #contsize = 168_74 || #contname = stack_gump { set %contx #contposx + 20 set %conty #contposy + 20 click %contx %conty r goto drop } cli: if #CLIXRES = 640 gosub drop 307 251 else gosub drop 390 310 } if #findkind = -1 goto dhe GOTO drop dhe: return sub drop set %clickx %1 set %clicky %2 set %x %clickx set %y %clicky set %add 0 set %sign 1 set %wt #weight click %x %y p reclick: wait 3 set %add %add + 1 set %sign %sign * -1 set %x %clickx + ( ( %add * %sign ) + 6 ) set %y %clicky + ( ( %add * %sign ) - 6 ) click %x %y if %add > 18 || #Lliftedkind = 0 { if %wt = #weight { event drag #findid wait 20 msg %logamount $ wait 10 if #contsize = 168_74 || #contname = stack_gump { set %contx #contposx + 20 set %conty #contposy + 20 click %contx %conty r } goto reclick } if %wt <> #weight goto over } goto reclick over: return sub amount if #findtype = tlk { set %logamount ( ( ( #weight - #maxweight ) * %boardweight ) + 10 ) goto amountend } set %logamount #weight - #maxweight set %divide ( ( %logamount / 2 ) * 2 ) if %divide = %logamount set %logamount ( ( %logamount / %logweight ) + 2 ) else set %logamount ( ( ( %logamount + 1 ) / %logweight ) + 2 ) amountend: return sub Recall if #weight > #maxweight gosub dragit set %recallloop 1 if %recall = #false { set %recallloop 0 return } wait 20 SET %NNN %NN set %nn 2 set %oo 2 set %n 2 set %o 2 set %cxx #charposx set %cyy #charposy lookagain: finditem %object c_ , %backpackid if #findid <> x { set #ltargetid #findid event macro 15 31 wait 2s scanjournal #jindex if fiz in #journal goto lookagain set #ltargetkind 1 event macro 22 0 wait 2s set #SCNT 0 wait: if #SCNT > 10 goto lookagain wait 30 if %cxx = #charposx { if %cyy = #charposy { goto wait } } gosub axearm set %recallloop 0 return sub count IF %TURNOFFSAW = #TRUE { set %change Logs FINDITEM ZLK C_ , %BACKPACKID IF #FINDITEM <> X SET %B %B + #FINDSTACK goto ere } finditem %boards c_ , %backpackid event property #findid if #findkind = 0 { if oak notin #property && ash notin #property && yew notin #property && heartwood notin #property && bloodwood notin #property && frostwood notin #property set %b %b + #FINDSTACK if oak in #property set %oak %oak + #findstack if ash in #property set %Ash %Ash + #findstack if yew in #property set %Yew %Yew + #findstack if heartwood in #property set %Heart %Heart + #findstack if bloodwood in #property set %Blood %Blood + #findstack if frostwood in #property set %Frost %Frost + #FINDSTACK } ere: return sub menuu menu clear menu window size 100 140 menu window color BLACK menu font bgcolor BLACK menu window title Bod counter menu font align center menu font style menu font color red menu font size 11 menu text stat 18 0 Total Boards menu font align center menu font style menu font color green menu font size 11 menu text stat 5 25 %CHANGE menu text stat 5 40 Oak menu text stat 5 55 Ash menu text stat 5 70 yew menu text stat 5 85 Heart menu text stat 5 100 Blood menu text stat 5 115 Frost menu font align center count: menu font style B menu font color RED menu font size 11 menu Delete stat1 menu text stat1 70 25 %b menu text stat1 70 40 %oak menu text stat1 70 55 %Ash menu text stat1 70 70 %Yew menu text stat1 70 85 %Heart menu text stat1 70 100 %Blood menu text stat1 70 115 %Frost menu font size 11 menu font style B menu font color RED set #menubutton N/A menu show 0 400 if %b > %stop pause return sub door finditem %doorid g_3 set #lobjectid #findid set #ltargetid #findid event macro 17 0 wait 30 return ;--------- EasyUO Menu Designer Code Begin --------- sub Menus scanjournal #jindex set #menubutton n/a menu Clear Menu Font Color red set %txt44 %txt44 + 1 set %txtmod %txt44 - 1 if %txt44 = 1 Menu Text txt44 5 0 Hit Next, walk 1-10 paces, press the esc$ key, This set your "off the porch spot" if %txt44 >= 2 Menu Text txt44 10 0 Hit Next, walk within 10 paces Click on$ tree location %txtmod or DONE if finished if %reset = 1 { menu delete txt44 Menu Text txt44 8 0 Location has been removed$Click next and try again set %reset 0 } if %nn > 1 { set %aa %oo - 1 set %12y %wallk . %aa - #charposy if %12y < 0 set %12y #charposy - %wallk . %aa set %12x %walk . %aa - #charposx if %12y < 0 set %12x #charposx - %walk . %aa if %12x > 10 || %12y > 10 { Menu Font Color red menu delete txt44 Menu Text txt44 8 0 Walked to far, stay within 11 steps from$ last saved spot, Walk straight lines } } menu Window Title Jebbits Lumberjacking menu Window Color InactiveCaptionText menu Window Size 250 65 menu Font Transparent #true menu Font Align Right menu Font Name MS Sans Serif menu Font Size 8 menu Font Style menu Font Color WindowText menu Font BGColor Teal menu Button yes 4 36 75 25 Next Tree menu Button cancel 88 36 75 25 Reset Spot menu Button no 172 36 75 25 Done menu Show 254 387 wait 10 menuwait: if #menubutton = n/a goto menuwait return ;--------- EasyUO Menu Designer Code End --------- sub nextrail set %first reset set %a %a + 1 resetit: set %###### lumber , %a , .txt call %###### if %first = reset { set %a 0 goto resetit } set %delete %first + 1 set %wallk . %delete n/a set %walk . %delete n/a return sub secondmenu menu clear set %ending 1 set #menubutton n/a menu Font Color ActiveCaption menu Shape EUOShape1 412 0 5 45 3 7 1 Black 7 Gray menu Shape EUOShape2 412 0 21 13 4 7 1 Black 7 ScrollBar menu Shape EUOShape3 432 0 5 13 3 7 1 Black 7 Red menu Shape EUOShape5 444 12 33 57 3 7 1 Black 7 Maroon menu Shape EUOShape4 444 0 33 21 2 7 1 Black 7 InfoBk menu Shape EUOShape6 448 4 25 13 2 7 1 Black 7 InfoBk menu Shape EUOShape7 452 8 17 5 2 7 1 Black 7 InfoBk rotate: menu Window Title Jebbits Lumberjacking menu Window Color InactiveCaptionText menu Window Size 490 415 menu Font Transparent #true menu Font Align Right menu Font Name Wide Latin menu Font Size 11 menu Font Style menu Font Color Green menu Font Transparent #false menu Font Align Center menu Font BGColor InactiveCaptionText menu Text 108 125 v Easy Set Up Menu menu Font Name Arial menu font color red menu Font Size 8 menu Text 50 100 15 Uses Roadkill's WriteFastDOSArray For Fast Rail Saves menu Font Name MS Sans Serif menu Font Size 10 menu Font Color Maroon menu Font Align Left menu Text EUOLabel2 24 24 Bank menu Text EUOLabel3 24 64 Using Multiple rails menu Text EUOLabel4 24 120 Using Multiple Secures menu Text EUOLabel5 24 188 Recalling menu Font Size 8 menu Font Color ActiveCaption menu Text EUOLabel6 0 44 Turn this setting on to use from the bank menu Text EUOLabel7 0 84 To use this feature save several different rail files with the same starting location. The files need to be menu Text EUOLabel8 0 100 Named Lumber0.txt, Lumber1.txt, Lumber2.txt...in that order for the script to locate and use them. menu Text EUOLabel9 0 140 If you are using this from your house you have the ability to use multiple secures. In order to do this you menu Text EUOLabel10 0 156 Will need to ensure they are all within one tile of you stacked or unstacked, and have at least one saw menu Text EUOLabel11 0 172 and one axe alonge with a standard red wood box in each. menu Text EUOLabel12 0 208 This feature saves time by not having to walk back every time you get full. If you use this feature you menu Text EUOLabel13 0 224 will need one marked rune laying in your pack that is marked next to your house or bank spot. menu Text EUOLabel15 0 264 This feature takes advantage of Roadkills Pathfinding program. Although the script already has the menu Text EUOLabel16 0 280 ability to pathfind short distances when this feature is turned on it will allow pathfinding over much larger menu Text EUOLabel17 0 296 areas without needing to be directly on the screen. Better reliability but a touch slower. menu Text EUOLabel34 0 335 Find the quickest way home. This will not move around buildings and structures. It is ment to only walk menu Text EUOLabel34 0 347 straight back to the house and back to the rail spot you were at instead of back tracking through the rail. menu Font Size 10 menu Font Color Maroon menu Text EUOLabel14 24 244 Pathfinding menu Text EUOLabel33 24 315 Home Path menu Font Size 8 menu Font Color Olive menu Text EUOLabel18 8 378 Default ###### Name For menu Shape EUOShape8 0 360 513 5 3 7 1 Black 7 Teal menu Text EUOLabel19 32 365 Saved Files menu Text EUOLabel20 128 365 For Free Shards That Use menu Text EUOLabel21 144 378 Axes To Cut Wood menu Text EUOLabel22 264 365 Disable Cutting Logs menu Font Color WindowText menu Font BGColor %colorr if %setting = 1 || %dsd <> 1 menu Button 1 0 20 23 25 %tag1 if %setting = 2 || %dsd <> 1 menu Button 2 0 60 23 25 %tag2 if %setting = 3 || %dsd <> 1 menu Button 3 0 116 23 25 %tag3 if %setting = 4 || %dsd <> 1 menu Button 4 0 184 23 25 %tag4 if %setting = 5 || %dsd <> 1 menu Button 5 0 240 23 25 %tag5 if %setting = 9 || %dsd <> 1 menu Button 9 0 310 23 25 %tag9 menu Font BGColor white if %hmf <> 1 menu Edit railname 0 394 121 lumber0.txt set %hmf 1 menu Font Color Red menu Font BGColor %colorr menu Font Color WindowText if %setting = 6 || %dsd <> 1 menu Button 6 148 398 75 17 Use Axe %tag6 menu Font Color Green menu Font Color WindowText if %setting = 7 || %dsd <> 1 menu Button 7 272 398 75 17 Disable %tag7 menu Font Size 12 menu Font Color WindowText menu Font BGColor Green if %setting = 8 || %dsd <> 1 menu Button 8 412 374 75 37 START menu Show 40 40 set %dsd 1 set %setting 0 buttonwait: if #menubutton = n/a goto buttonwait set %setting #menubutton set #menubutton n/a for %i 1 9 { if %setting = %i { if %tag . %i = off set %colorr green else set %colorr red if %tag . %i = off set %tag . %i On else set %tag . %i Off goto rotate } if %setting = 8 goto leavemenu } goto rotate leavemenu: menu get railname menu Window Size 490 85 if %tag1 = on set %bank #true if %tag2 = on set %multi #true if %tag3 = on set %extrasecures #true if %tag4 = on set %recall #true if %tag5 = on set %fullpath #true if %tag6 = on set %axecut #true if %tag7 = on set %turnoffsaw #true if %tag9 = on set %straighthome #true set %###### #menures return ;################################################### ;# Bad Maniac's Automagic long distance Pathfinding Subs ;# ------------------------------------------------------------------------------ ;# Replacement to EasyUO's internal MOVE command ;################################################### ; %1 is the target X ; %2 is the target Y ; %3 is the tolerance [optional, 0 is default] ; %4 is the timeout in seconds (without the 's') [optional, default is 10 seconds] SUB straighthome IF %1 = #CHARPOSX && %2 = #CHARPOSY RETURN #TRUE IF %0 < 3 || %3 = N/A SET %3 0 IF %0 < 4 || %4 = N/A SET %4 10 NAMESPACE PUSH NAMESPACE LOCAL BMPathFind , #RANDOM , #RANDOM SET !bmp_x %1 SET !bmp_y %2 SET !bmp_tolerance %3 SET !bmp_segmenttimeout %4 SET !bmp_timeout #SCNT + %4 SET !bmp_initsegment #FALSE SET !bmp_oldlpc #LPC IF #LPC < 100 SET #LPC 100 IF !bmp_tileinit = N/A { TILE INIT SET !bmp_tileinit #TRUE } ;Set the destination to the actual target minus the tolerance radius if greater than 0 (works, with a few % error) IF !bmp_tolerance > 0 { gosub ScaledLine !bmp_x !bmp_y #CHARPOSX #CHARPOSY !bmp_tolerance gosub XYReadout #RESULT bmp_x bmp_y } bmp_initsegment: SET !bmp_currx !bmp_x SET !bmp_curry !bmp_y IF #CHARPOSX = !bmp_x && #CHARPOSY = !bmp_y { SET !bmp_return #TRUE GOTO bmp_end } IF #SCNT > !bmp_timeout { SET !bmp_return #FALSE GOTO bmp_end } gosub Distance #CHARPOSX #CHARPOSY !bmp_x !bmp_y IF #RESULT <= 11 SET !bmp_final #TRUE ELSE { IF ! !bmp_initsegment { SET !bmp_segmenttimeout !bmp_segmenttimeout / ( #RESULT / 11 ) IF !bmp_segmenttimeout < 2 SET !bmp_segmenttimeout 2 SET !bmp_initsegment #TRUE } gosub ScaledLine #CHARPOSX #CHARPOSY !bmp_x !bmp_y 11 gosub XYReadout #RESULT bmp_currx bmp_curry SET !bmp_final #FALSE } SET !bmp_xmajor #FALSE IF ( ABS ( #CHARPOSX - !bmp_currx ) ) > ( ABS ( #CHARPOSY - !bmp_curry ) ) SET !bmp_xmajor #TRUE SET !bmp_delta 11 SET !bmp_jitter 1 SET !bmp_jittercnt 1 SET !time #SCNT + !bmp_segmenttimeout bmp_checktile: TILE CNT !bmp_currx !bmp_curry SET !bmp_imp #FALSE SET !bmp_impz 9999 FOR !ti 1 #TILECNT { IF #SCNT > !time GOTO bmp_initsegment TILE GET !bmp_currx !bmp_curry !ti IF !ti = 1 || #TILEZ = #CHARPOSZ SET !bmp_currz #TILEZ IF Impassable IN #TILEFLAGS { SET !bmp_imp #TRUE SET !bmp_impz #TILEZ } IF Surface IN #TILEFLAGS && !bmp_imp = #TRUE && #TILEZ > !bmp_impz { SET !bmp_imp #FALSE SET !bmp_currz #TILEZ SET !ti #TILECNT } } IF !bmp_imp { IF !bmp_jittercnt > 25 SET !bmp_jitter !bmp_jitter + 1 SET !rnd_x ( #RANDOM % ( !bmp_jitter * 2 + 1 ) ) - !bmp_jitter SET !rnd_y ( #RANDOM % ( !bmp_jitter * 2 + 1 ) ) - !bmp_jitter SET !bmp_currx !bmp_currx + !rnd_x SET !bmp_curry !bmp_curry + !rnd_y ;If this is the final segment of the path, change the target coordinates to match the jittered ones. IF !bmp_final { SET !bmp_x !bmp_currx SET !bmp_y !bmp_curry } SET !bmp_jittercnt !bmp_jittercnt + 1 GOTO bmp_checktile } SET !bmp_jstart #JINDEX + 1 EVENT PATHFIND !bmp_currx !bmp_curry !bmp_currz SET !time #SCNT + !bmp_segmenttimeout SET !bmp_jend #JINDEX + 1 bmp_distancewait: FOR !i !bmp_jstart !bmp_jend { SCANJOURNAL !i IF Can't_get_there IN #JOURNAL { SET !bmp_delta !bmp_delta - 1 IF !bmp_delta > 1 { gosub ScaledLine #CHARPOSX #CHARPOSY !bmp_currx !bmp_curry !bmp_delta gosub XYReadout #RESULT bmp_currx bmp_curry GOTO bmp_checktile } GOTO bmp_avoidobstacle } } SET !bmp_jend #JINDEX + 1 IF ( #CHARPOSX <> !bmp_currx || #CHARPOSY <> !bmp_curry ) && #SCNT < !time GOTO bmp_distancewait GOTO bmp_initsegment bmp_avoidobstacle: SET !bmp_delta 11 SET !random #RANDOM % 3 SET !avoid 8 + ( #RANDOM % 8 ) IF #CHARPOSX <> !bmp_lavoidx { SET !bmp_lavoidmaxy #CHARPOSY SET !bmp_lavoidminy #CHARPOSY } IF #CHARPOSY <> !bmp_lavoidy { SET !bmp_lavoidmaxx #CHARPOSX SET !bmp_lavoidminx #CHARPOSX } IF !bmp_xmajor { SET !bmp_lavoidx #CHARPOSX SET !bmp_currx #CHARPOSX IF #CHARPOSY > !bmp_y && !random > 0 { SET !bmp_lavoidminy !bmp_lavoidminy - !avoid SET !bmp_curry !bmp_lavoidminy } ELSE { SET !bmp_lavoidmaxy !bmp_lavoidmaxy + !avoid SET !bmp_curry !bmp_lavoidmaxy } } IF ! !bmp_xmajor { SET !bmp_lavoidy #CHARPOSY SET !bmp_curry #CHARPOSY IF #CHARPOSX > !bmp_x && !random > 0 { SET !bmp_lavoidminx !bmp_lavoidminx - !avoid SET !bmp_currx !bmp_lavoidminx } ELSE { SET !bmp_lavoidmaxx !bmp_lavoidmaxx + !avoid SET !bmp_currx !bmp_lavoidmaxx } } gosub BMPathfind !bmp_currx !bmp_curry 0 !bmp_segmenttimeout GOTO bmp_initsegment bmp_end: SET #LPC !bmp_oldlpc SET #RESULT %bmp_return NAMESPACE CLEAR NAMESPACE POP RETURN #RESULT RETURN #FALSE ;%1 = X1 ;%2 = Y1 ;%3 = X2 ; %4 = Y2 ; %5 = Distance along the line from X1,Y1 to X2,Y2 to calculate the new point SUB ScaledLine SET !sl_startx %1 SET !sl_starty %2 SET !sl_goalx %3 SET !sl_goaly %4 SET !sl_dx ( !sl_goalx - !sl_startx ) * 256 SET !sl_dy ( !sl_goaly - !sl_starty ) * 256 SET !sl_sd %5 SET gosub Distance !sl_startx !sl_starty !sl_goalx !sl_goaly SET #RESULT #RESULT * 256 SET !sl_ts #RESULT / !sl_sd IF #RESULT <= !sl_sd { SET #RESULT !sl_goalx , _ , !sl_goaly RETURN #RESULT } SET !sl_resultx !sl_startx + ( !sl_dx / !sl_ts ) SET !sl_resulty !sl_starty + ( !sl_dy / !sl_ts ) SET #RESULT !sl_resultx , _ , !sl_resulty RETURN #RESULT ; %1 is X1 ; %2 is Y1 ; %3 is X2 ; %4 is Y2 ; Returns the approximate distance (3.5% error) SUB Distance SET !dist_x ABS ( %3 - %1 ) SET !dist_y ABS ( %4 - %2 ) SET #RESULT !dist_x IF !dist_y > !dist_x SET #RESULT !dist_y RETURN #RESULT ;%1 = the X_Y formatted value to parse ;%2 = the % variable name to otput the X component to, WITHOUT % ;%3 = the % variable name to otput the Y component to, WITHOUT % SUB XYReadout SET !local1 %1 STR POS !local1 _ STR DEL !local1 #STRRES 999 SET ! . %2 #STRRES SET !local1 %1 STR POS !local1 _ STR DEL !local1 1 #STRRES SET ! . %3 #STRRES RETURN SUB SEARCHGROUND FINDMORE: FINDITEM ZLK_tlk g_2 IF #FINDID = X RETURN IF #LLIFTEDKIND <> 1 EVENT DRAG #FINDID WAIT 10 MSG $ WAIT 10 IF #LLIFTEDKIND = 1 { CLICK 787 223 P CLICK 787 223 P } GOTO FINDMORE RETURN
Toggle shoutbox Chat
|
Lumberjacking
#1
Posted 08 March 2006 - 14:02
#2
Posted 08 March 2006 - 14:55
#3
Posted 08 March 2006 - 15:11
#4
Posted 08 March 2006 - 15:24
set %axes lsf_bsf_nsf_zrf_rmh_lph_uoh_fsfВпиши свой топор
#5
Posted 08 March 2006 - 17:19
#6
Posted 08 March 2006 - 18:00
#LOBJECTID
#LOBJECTTYPE
драг топор
#LLIFTEDID
#LLIFTEDTYPE
#7
Posted 08 March 2006 - 22:32
set %ljtool FSF_ASF; set your ljtool here start: GOSUB LJING 224 1350 3286 GOSUB LJING 224 1344 3299 GOSUB LJING 228 1359 3289 GOSUB LJING 228 1350 3280 GOSUB LJING 228 1344 3296 GOSUB LJING 2281341 3286 GOSUB LJING 228 1332 3291 GOSUB LJING 228 1329 3277 GOSUB LJING 232 1338 3280 GOSUB LJING 232 1344 3294 GOSUB LJING 232 1347 3277 GOSUB LJING 232 1350 3296 GOSUB LJING 232 1353 3294 GOSUB LJING 232 1365 3277 GOSUB LJING 232 1368 3277 GOSUB LJING 232 1368 3277 GOSUB LJING 232 1371 3286 GOSUB LJING 236 1371 3286 GOSUB LJING 236 1362 3280 GOSUB LJING 236 1356 3294 GOSUB LJING 240 1341 3302 GOSUB LJING 240 1344 3277 GOSUB LJING 240 1347 3299 GOSUB LJING 240 1359 3291 GOSUB LJING 240 1362 3302 GOSUB LJING 240 1365 3291 GOSUB LJING 240 1368 3277 GOSUB LJING 240 1371 3294 GOSUB LJING 240 1377 3286 GOSUB LJING 240 1383 3302 GOSUB LJING 240 1386 3299 GOSUB LJING 244 1386 3294 GOSUB LJING 244 1383 3280 GOSUB LJING 244 1380 3283 GOSUB LJING 244 1377 3291 GOSUB LJING 244 1371 3286 GOSUB LJING 244 1359 3277 GOSUB LJING 244 1356 3280 GOSUB LJING 244 1353 3291 GOSUB LJING 244 1344 3280 GOSUB LJING 244 1341 3302 GOSUB LJING 248 1341 3294 GOSUB LJING 248 1344 3280 GOSUB LJING 248 1347 3289 GOSUB LJING 248 1350 3294 GOSUB LJING 248 1353 3294 GOSUB LJING 248 1356 3277 GOSUB LJING 248 1359 3280 GOSUB LJING 248 1362 3299 GOSUB LJING 248 1365 3302 GOSUB LJING 248 1368 3277 GOSUB LJING 248 1380 3280 GOSUB LJING 248 1386 3294 GOSUB LJING 248 1389 3283 GOSUB LJING 248 1392 3296 GOSUB LJING 248 1401 3280 GOSUB LJING 248 1404 3286 GOSUB LJING 252 1404 3280 GOSUB LJING 252 1401 3277 GOSUB LJING 252 1392 3277 GOSUB LJING 252 1389 3291 GOSUB LJING 252 1380 3280 GOSUB LJING 252 1377 3291 GOSUB LJING 252 1374 3289 GOSUB LJING 252 1368 3283 GOSUB LJING 252 1365 3296 GOSUB LJING 252 1359 3294 GOSUB LJING 252 1353 3302 GOSUB LJING 252 1350 3296 GOSUB LJING 252 1341 3291 GOSUB LJING 256 1347 3277 GOSUB LJING 256 1350 3286 GOSUB LJING 256 1362 3291 GOSUB LJING 256 1365 3302 GOSUB LJING 256 1371 3299 GOSUB LJING 256 1380 3277 GOSUB LJING 256 1386 3283 GOSUB LJING 256 1392 3302 GOSUB LJING 256 1395 3296 GOSUB LJING 256 1398 3277 GOSUB LJING 256 1401 3299 GOSUB LJING 256 1407 3286 GOSUB LJING 256 1410 3302 GOSUB LJING 260 1410 3294 GOSUB LJING 260 1407 3283 GOSUB LJING 260 1404 3280 GOSUB LJING 260 1401 3280 GOSUB LJING 260 1395 3294 GOSUB LJING 260 1389 3291 GOSUB LJING 264 1392 3289 GOSUB LJING 264 1389 3283 GOSUB LJING 264 1386 3277 GOSUB LJING 260 1386 3291 GOSUB LJING 264 1383 3296 GOSUB LJING 264 1380 3299 GOSUB LJING 264 1377 3280 GOSUB LJING 260 1374 3299 GOSUB LJING 264 1374 3289 GOSUB LJING 260 1371 3289 GOSUB LJING 264 1371 3277 GOSUB LJING 260 1368 3294 GOSUB LJING 264 1368 3283 GOSUB LJING 264 1365 3286 GOSUB LJING 264 1362 3299 GOSUB LJING 264 1356 3299 GOSUB LJING 264 1353 3302 GOSUB LJING 264 1350 3280 GOSUB LJING 264 1347 3294 GOSUB LJING 264 1344 3286 GOSUB LJING 264 1338 3286 GOSUB LJING 268 1338 3291 GOSUB LJING 268 1341 3277 GOSUB LJING 268 1344 3280 GOSUB LJING 268 1368 3291 GOSUB LJING 272 1374 3286 GOSUB LJING 272 1371 3289 GOSUB LJING 272 1368 3286 GOSUB LJING 272 1365 3291 GOSUB LJING 272 1359 3302 GOSUB LJING 272 1350 3289 GOSUB LJING 276 1347 3277 GOSUB LJING 276 1350 3289 GOSUB LJING 276 1353 3291 GOSUB LJING 276 1359 3302 GOSUB LJING 276 1362 3299 GOSUB LJING 276 1365 3289 goto start sub ljing move %1 %2 1 finditem %ljtool set #lobjectid #findid event macro 17 0 target 10s set #ltargetx %1 set #ltargety %2 set #ltargetkind 3 set #ltargettile %3 event macro 22 0 wait 7 set %overtime #scnt + 25 gosub bp10 return gosub bp10 sub bp10 if #weight > 999 gosub hz450 sub scan scan: scanjournal %cnt if #hits < 185 msg .arm $ if #hits < 180 msg .camp $ if #hits < 175 wait 250 if wisp in #journal execute c:alert.mp3 if 30_seconds_till_disconnect... in #journal display ANTI MACROOOO if 29_seconds_till_disconnect... in #journal execute c:1.mp3 if THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg return if It_appears_immune_to_your_blow in #sysmsg return if YOu_can't_reach_this in #sysmsg return if #scnt >= %overtime return goto scan sub hz450 move 2912 512 gosub moveItems sub moveItems { set !dragTimeout 4;1/10 s set !dragTimer #scnt2 set !items ZLK if %0 < 10 set !items ZLK set !from TAENLMD set !to SIKFKMD finditem !items C_ , !from for #findindex 1 #findcnt { if #findkind = 0 { set !amt 1 if #findstack > 1 set !amt #findstack while #scnt2 < !dragTimer wait 0 exevent drag #findid !amt exevent dropc !to set !dragTimer #scnt2 + !dragTimeout } } namespace clear } returnscript neplohoj,ubivaet elementalej.edinstvennoe neudobstvo propisivatj derevja.avtor ne izvesten,no 3 4eloveka mne skazali 4to eto oni napisali etot script
#8
Posted 08 March 2006 - 22:35
#9
Posted 09 March 2006 - 15:56
Удобный на мой взгляд скрипт....script neplohoj,ubivaet elementalej.edinstvennoe neudobstvo propisivatj derevja.avtor ne izvesten,no 3 4eloveka mne skazali 4to eto oni napisali etot script
#10
Posted 21 March 2006 - 23:56
#11
Posted 12 May 2006 - 15:37
mogu vilozit' utelitu , v txt formate , kotoraja sohranjajet koordinati
derevjev, a posle kopiruje te jego tuda i naslazdajete rubkoj :]
railer pohodu nazivajetsa
P.S po povodu napisanija etogo scp - eto na easyuo uze davno vilozeno , i te kto tebe skazali , 4to mol oni napisali , skoreje oni skopirovali jego s etogo sajta :]
Ja sam jego kupil za 700k , vmeste s utelitoj , prijedu domoj - vilozu na forume. GL
#12
Posted 12 May 2006 - 23:02
initevents set %tree 0 start: event macro 13 3 wait 10 targloop: if #targcurs = 1 goto targloop set #lobjectid #ltargetid if %ltargetx = #ltargetx && %ltargety = #ltargety { event sysmessage error. try again goto start } execute cmd.exe /c echo >>ljroute2.txt GOSUB LJING #ltargetx #ltargety #ltargetz #ltargettile set %ltargetx #ltargetx set %ltargety #ltargety set %tree %tree + 1 event sysmessage Done with Tree Nr. %tree wait 10 goto start
toka glavnoje ne zabit' postavit' EXECUTE PROGRAM v tools easyuo
#13
Posted 12 May 2006 - 23:57
set %ljtool FSF_ASF; set your ljtool here start: GOSUB LJING 1180 666 3296 GOSUB LJING 1180 663 3302 GOSUB LJING 1180 657 3297 GOSUB LJING 1180 654 3288 GOSUB LJING 1180 651 3280 GOSUB LJING 1180 648 3280 GOSUB LJING 1180 633 3277 GOSUB LJING 1180 630 3280 GOSUB LJING 1180 627 3296 GOSUB LJING 1176 636 3302 GOSUB LJING 1176 639 3283 GOSUB LJING 1172 636 3293 GOSUB LJING 1172 639 3283 GOSUB LJING 1172 642 3277 GOSUB LJING 1176 645 3286 GOSUB LJING 1172 648 3286 GOSUB LJING 1176 648 3293 GOSUB LJING 1172 651 3288 GOSUB LJING 1176 651 3277 GOSUB LJING 1172 654 3283 GOSUB LJING 1172 657 3289 GOSUB LJING 1176 657 3283 GOSUB LJING 1176 660 3283 GOSUB LJING 1172 663 3288 GOSUB LJING 1176 666 3302 GOSUB LJING 1176 669 3277 GOSUB LJING 1172 672 3277 GOSUB LJING 1168 672 3302 GOSUB LJING 1164 675 3286 GOSUB LJING 1164 672 3283 GOSUB LJING 1164 666 3290 GOSUB LJING 1168 666 3299 GOSUB LJING 1164 660 3296 GOSUB LJING 1168 657 3296 GOSUB LJING 1164 651 3296 GOSUB LJING 1168 645 3296 GOSUB LJING 1164 645 3286 GOSUB LJING 1168 642 3293 GOSUB LJING 1164 642 3286 GOSUB LJING 1168 639 3293 GOSUB LJING 1160 648 3286 GOSUB LJING 1156 648 3290 GOSUB LJING 1156 654 3293 GOSUB LJING 1160 654 3290 GOSUB LJING 1156 660 3288 GOSUB LJING 1156 663 3280 GOSUB LJING 1156 666 3280 GOSUB LJING 1160 669 3280 GOSUB LJING 1156 672 3280 GOSUB LJING 1160 672 3277 GOSUB LJING 1156 678 3288 GOSUB LJING 1160 678 3302 GOSUB LJING 1156 681 3288 GOSUB LJING 1160 681 3299 GOSUB LJING 1156 684 3302 GOSUB LJING 1160 684 3302 GOSUB LJING 1156 690 3277 GOSUB LJING 1160 693 3286 GOSUB LJING 1160 696 3299 GOSUB LJING 1156 699 3286 GOSUB LJING 1160 699 3293 GOSUB LJING 1156 705 3299 GOSUB LJING 1160 705 3296 GOSUB LJING 1156 714 3286 GOSUB LJING 1156 717 3283 GOSUB LJING 1160 720 3296 GOSUB LJING 1156 720 3286 GOSUB LJING 1160 723 3283 GOSUB LJING 1160 726 3290 GOSUB LJING 1156 729 3296 GOSUB LJING 1160 732 3302 GOSUB LJING 1156 735 3302 GOSUB LJING 1160 735 3283 GOSUB LJING 1156 738 3302 GOSUB LJING 1156 741 3293 GOSUB LJING 1160 741 3286 GOSUB LJING 1156 744 3302 GOSUB LJING 1156 750 3289 GOSUB LJING 1160 747 3286 GOSUB LJING 1160 750 3286 GOSUB LJING 1160 753 3283 GOSUB LJING 1156 746 3286 GOSUB LJING 1160 759 3280 GOSUB LJING 1164 762 3293 GOSUB LJING 1164 759 3280 GOSUB LJING 1168 762 3302 GOSUB LJING 1168 759 3280 GOSUB LJING 1172 759 3302 GOSUB LJING 1176 759 3288 GOSUB LJING 1180 762 3293 GOSUB LJING 1184 762 3290 GOSUB LJING 1184 759 3293 GOSUB LJING 1188 759 3293 GOSUB LJING 1188 762 3277 GOSUB LJING 1192 762 3302 GOSUB LJING 1196 759 3299 GOSUB LJING 1204 756 3288 GOSUB LJING 1200 753 3293 GOSUB LJING 1196 753 3290 GOSUB LJING 1192 756 3290 GOSUB LJING 1192 753 3302 GOSUB LJING 1188 756 3299 GOSUB LJING 1184 753 3302 GOSUB LJING 1184 756 3291 GOSUB LJING 1184 747 3302 GOSUB LJING 1180 756 3296 GOSUB LJING 1176 756 3302 GOSUB LJING 1176 753 3286 GOSUB LJING 1172 753 3280 GOSUB LJING 1168 756 3302 GOSUB LJING 1168 753 3288 GOSUB LJING 1164 750 3290 GOSUB LJING 1168 750 3277 GOSUB LJING 1176 750 3302 GOSUB LJING 1180 750 3296 GOSUB LJING 1180 747 3277 GOSUB LJING 1184 747 3302 GOSUB LJING 1188 750 3280 GOSUB LJING 1188 747 3280 GOSUB LJING 1192 750 3296 GOSUB LJING 1192 747 3293 GOSUB LJING 1196 750 3296 GOSUB LJING 1196 747 3291 GOSUB LJING 1200 750 3280 GOSUB LJING 1200 747 3283 GOSUB LJING 1204 750 3296 GOSUB LJING 1204 747 3280 GOSUB LJING 1204 741 3293 GOSUB LJING 1200 744 3290 GOSUB LJING 1196 741 3299 GOSUB LJING 1192 744 3277 GOSUB LJING 1188 741 3299 GOSUB LJING 1184 741 3299 GOSUB LJING 1180 741 3286 GOSUB LJING 1176 744 3283 GOSUB LJING 1176 741 3280 GOSUB LJING 1172 744 3280 GOSUB LJING 1172 741 3302 GOSUB LJING 1168 744 3296 GOSUB LJING 1164 744 3294 GOSUB LJING 1164 741 3293 GOSUB LJING 1168 738 3294 GOSUB LJING 1168 735 3284 GOSUB LJING 1172 738 3280 GOSUB LJING 1172 735 3280 GOSUB LJING 1176 738 3290 GOSUB LJING 1184 738 3299 GOSUB LJING 1184 735 3300 GOSUB LJING 1188 738 3283 GOSUB LJING 1188 735 3280 GOSUB LJING 1192 735 3277 GOSUB LJING 1192 738 3288 GOSUB LJING 1196 735 3288 GOSUB LJING 1200 738 3296 GOSUB LJING 1204 738 3277 GOSUB LJING 1204 726 3277 GOSUB LJING 1200 726 3293 GOSUB LJING 1196 729 3290 GOSUB LJING 1192 726 3289 GOSUB LJING 1188 729 3288 GOSUB LJING 1188 726 3290 GOSUB LJING 1184 726 3293 GOSUB LJING 1180 729 3299 GOSUB LJING 1172 729 3290 GOSUB LJING 1172 726 3293 GOSUB LJING 1164 729 3280 GOSUB LJING 1164 726 3293 GOSUB LJING 1164 723 3280 GOSUB LJING 1168 723 3283 GOSUB LJING 1168 720 3283 GOSUB LJING 1172 723 3280 GOSUB LJING 1176 720 3299 GOSUB LJING 1180 720 3293 GOSUB LJING 1184 723 3278 GOSUB LJING 1184 720 3280 GOSUB LJING 1188 720 3290 GOSUB LJING 1192 723 3299 GOSUB LJING 1196 720 3283 GOSUB LJING 1200 723 3284 GOSUB LJING 1204 723 3296 goto start sub ljing move %1 %2 1 finditem %ljtool set #lobjectid #findid event macro 17 0 target 10s set #ltargetx %1 set #ltargety %2 set #ltargetkind 3 set #ltargettile %3 event macro 22 0 wait 7 set %overtime #scnt + 25 gosub bp10 return gosub bp10 sub bp10 if #weight > 500 gosub hz450 sub scan scan: scanjournal %cnt if #hits < 110 msg .arm $ if wisp in #journal execute c:1.mp3 if 30_seconds_till_disconnect... in #journal display ANTI MACROOOO if 29_seconds_till_disconnect... in #journal execute c:1.mp3 if THERE_IS_NOTHING_HERE_TO_CHOP in #sysmsg return if It_appears_immune_to_your_blow in #sysmsg return if YOu_can't_reach_this in #sysmsg return if #scnt >= %overtime return goto scan sub hz450 move 1196 694 gosub moveItems sub moveItems { set !dragTimeout 4;1/10 s if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight >if #weight > set !dragTimer #scnt2 set !items ZLK if %0 < 10 set !items ZLK set !from RUCTKMD set !to GEFLLMD finditem !items C_ , !from for #findindex 1 #findcnt { if #findkind = 0 { set !amt 1 if #findstack > 1 set !amt #findstack while #scnt2 < !dragTimer wait 0 exevent drag #findid !amt exevent dropc !to set !dragTimer #scnt2 + !dragTimeout } } namespace clear } returnofftop: respect. :bounce:
А любовь стоит того, чтобы ждать.
#14
Posted 14 May 2006 - 15:12
#15
Posted 14 May 2006 - 17:06
#16
Posted 29 May 2006 - 02:48
#17
Posted 29 May 2006 - 02:51
Советую рубить тебе на EasyUO, этот скрипт ищи а разделе скрипты.
И не надо прикидываться тупым и ленивым. Если ту посмотреть хотябы 10 минут с минимальными знаниями англ. яхыка то все станет ясно.
#18
Posted 29 May 2006 - 05:50
#19
Posted 29 May 2006 - 13:37
#20
Posted 29 May 2006 - 14:45
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users