olneon

Roan Mustang
Кто знает расположение транспорта или координаты?

Скрипт универсальный т.е., можно и копать с +40 сетом и без; можно летать на дом через рунебук или можно бегать пешком итд.

Менять надо только начало скрипта:

set %maxWeight 000 ; Max ves
set %box XXXXXX ; ID jawika
set %xCoord 0000 ; X koordinati oklo jawika
set %yCoord 0000 ; Y koordinati oklo jawika
set %dropMarganece #false ; #true - Sbrasivaet rudu , #false - Ne sbrasivaet
set %dropTin #true
set %dropBronze #true
set %dropLead #true
set %dropCorrundum #true
set %dropGold #false
set %dropTourmaline #true
set %dropSilver #false
set %dropMarble #false
set %dropZink #false
set %dropGypsum #false
set %dropSandstone #false
set %dropCopper #false
set %dropIron #false
set %dropTitan #false
set %dropStone #false
set %dropPlaster #false
set %skillItemChange #false ; #true - Menaet Skill items, #false - Ne menaet
set %recall #true ; #true - Letit s RuneBook, #false - Bezit pewkom
; Do Not Set These Items If %skillItemChange #false
set %skillRobe ZSNNKMD ; Skill Roba (ID)
set %skillCloak LZJNKMD ; Skill Cloack (ID)
set %skillMask IGKNKMD ; Skill Mask (ID)
set %simpleRobe SMWLKMD ; Robe (ID)
set %simpleCloak CRWLKMD ; Cloack (ID)
set %simpleMask CCAMKMD ; Helm (TYPE/ID)
; End Of Changable Clothes List
; Do Not Set These Numbers If %recall #false
set %runebookID FCNDMMD ; RuneBook ID
set %runeNumberToHome 1 ; Nomer RuneBook v Dom
set %runeNumberToCave 2 ; Nomer RuneBook v Les
set %amountRecalls 10 ; Skolko recallov vzjatj, kogda ix netu
; End Of Set Up Part

set %dropDelay 45 ; Skolko zhadtj mezhdu kidanii rudi na zemlju
set %lootDelay 45 ; Skolko zhdatj mezdhu loota predmetov
set %dropDelay 45 ; Skolko zhdatj mezhdu kidanii rudi v korobke
set %equipDelay 8 ; Skolko zhdatj mezhdu proverki odevanii skill veshej

координаты получаем с помощью лайлера с форума:

initevents
set %Tile 0
start:
finditem NPF
set #lobjectid #findid
event macro 17 0
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 >>mineroute.txt GOSUB LJING #ltargetx #ltargety #ltargettile
set %ltargetx #ltargetx
set %ltargety #ltargety
set %tile %tile + 1
event sysmessage Done with Tile Nr. %tile
wait 10
goto start

и вставим их между:

set %maxWeight 000 ; Max vesset %box XXXXXX ; ID jawikaset %xCoord 0000 ; X koordinati oklo jawikaset %yCoord 0000 ; Y koordinati oklo jawikaset %dropMarganece #false ; #true - Sbrasivaet rudu , #false - Ne sbrasivaetset %dropTin #true set %dropBronze #trueset %dropLead #trueset %dropCorrundum #trueset %dropGold #falseset %dropTourmaline #trueset %dropSilver #falseset %dropMarble #falseset %dropZink #falseset %dropGypsum #falseset %dropSandstone #falseset %dropCopper #falseset %dropIron #falseset %dropTitan #falseset %dropStone #falseset %dropPlaster #falseset %skillItemChange #false ; #true - Menaet Skill items, #false - Ne menaetset %recall #true ; #true - Letit s RuneBook, #false - Bezit pewkom ; Do Not Set These Items If %skillItemChange #falseset %skillRobe ZSNNKMD ; Skill Roba (ID)set %skillCloak LZJNKMD ; Skill Cloack (ID)set %skillMask IGKNKMD ; Skill Mask (ID)set %simpleRobe SMWLKMD ; Robe (ID)set %simpleCloak CRWLKMD ; Cloack (ID)set %simpleMask CCAMKMD ; Helm (TYPE/ID) ; End Of Changable Clothes List ; Do Not Set These Numbers If %recall #falseset %runebookID FCNDMMD ; RuneBook IDset %runeNumberToHome 1 ; Nomer RuneBook v Domset %runeNumberToCave 2 ; Nomer RuneBook v Lesset %amountRecalls 10 ; Skolko recallov vzjatj, kogda ix netu ; End Of Set Up Part set %dropDelay 45            ; Skolko zhadtj mezhdu kidanii rudi na zemljuset %lootDelay 45            ; Skolko zhdatj mezdhu loota predmetovset %dropDelay 45            ; Skolko zhdatj mezhdu kidanii rudi v korobkeset %equipDelay 8            ; Skolko zhdatj mezhdu proverki odevanii skill veshejset %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH_RMKset %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWLif %recall{gosub Instalyze runeNumberToHome 1gosub Instalyze runeNumberToCave 2}if %dropMarganeceset %MarganeceCol 1750if %dropTinset %TinCol 1325if %dropBronzeset %BronzeCol 1160if %dropLeadset %LeadCol 2125if %dropCorrundumset %CorrundumCol 1548if %dropGoldset %GoldCol 1093if %dropTourmalineset %TourmalineCol 1218if %dropSilverset %SilverCol 1153if %dropMarbleset %MarbleCol 1950if %dropZinkset %ZinkCol 38if %dropGypsumset %GypsumCol 995if %dropSandstoneset %SandstoneCol 144if %dropCopperset %CopperCol 1537if %dropIronset %IronCol 0if %dropTitanset %TitanCol 1107if %dropStoneset %StoneCol 2313if %dropPlasterset %PlasterCol 151event sysmessage Setting Paperdoll in right position..event macro 8 1wait 30event macro 8 1wait 30contpos 780 -26finditem QRM_FJM_GKM C_ , #backpackidif #findcnt <> 0{set #lobjectid #findidevent macro 17 0wait 30}set %skill %skillRobe , _ , %skillCloak , _ , %skillMaskgosub gettingStartedgosub initeventsset %k 0set %lastK 0start: ; Koordinatigoto startsub ljingset %k %k + 1gosub ghostgosub checkHPgosub elementgosub checkWeightmove %1 %2 1finditem NPF_QPF Cif #findcnt = 0{display ok Pickaxe wasn't found!pause}set #lobjectid #findidevent macro 17 0target 7sset #ltargetx %1set #ltargety %2set #ltargetkind 3set #ltargettile %3event macro 22 0wait 10set %overtime #scnt + 45gosub scanreturnsub checkWeightif #weight > %maxWeight{if ! %dropMarganece && ! %dropTin && ! %dropBronze && ! %dropLead && ! %dropCorrundum+ && ! %dropGold && ! %dropTourmaline && ! %dropSilver && ! %dropMarble && ! %dropZink+ && ! %dropGypsum && ! %dropSandstone && ! %dropCopper && ! %dropIron+ && ! %dropTitan && ! %dropStone && ! %dropPlaster{if %recallgosub portif ! %recallgosub moveItems}if %dropMarganece || %dropTin || %dropBronze || %dropLead || %dropCorrundum+ || %dropGold || %dropTourmaline || %dropSilver || %dropMarble || %dropZink+ || %dropGypsum || %dropSandstone || %dropCopper || %dropIron || %dropTitan || %dropStone || %dropPlaster{gosub dropTrashLogsreturn}}returnsub scanscan:scanjournalgosub checkHPif hungry in #sysmsg{gosub eatreturn}if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) )returnif ( ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) )return%get fixedif ( ( Try_mining_elsewhere in #sysmsg ) || ( You_have_no_line_of_sight_to_that_location in #sysmsg )+ || ( You_can't_use_the in #journal ) || ( You_cannot_mine_so_close_to_yourself in #journal ) )returngosub elementgosub checkHPif #scnt >= %overtimereturngoto scanreturnsub portgosub checkHPset %k %k + 1gosub elementif G in #charstatusevent macro 6 0event macro 6 0set %oldPosX #charposxset %oldPosY #charposygosub openRunebookrepeat{click %x1 %y1wait 10}until #contname <> generic_gump && #contsize <> 577_426event macro 13 21while #charposx = %oldPosX && #charposy = %oldPosYwait 10gosub moveItemsgosub backreturnsub moveItemsignoreitem reset 1ignoreitem %simpleRobe , _ , %simpleCloak 1ignoreitem %skill 1gosub runToBoxgosub Plavkaevent macro 13 21finditem %box G_3wait 10if #findcnt = 0{event Sysmessage Box Not Found!halt}repeat{finditem %item c_ , #backpackidif #findcnt >= 1{if world_save_has_been in #sysmsgwait 15sexevent Drag #Findid #findstackexevent Dropc %boxwait %dropDelay}}until #findcnt = 0ignoreitem reset 1if %recallgosub recallsgosub foodreturnsub backgosub checkHPset %oldPosX #charposxset %oldPosY #charposyfor %i 1 2{gosub openRunebookclick 261 215 ; Recharge runebook 2xwait 10}gosub openRunebookrepeat{click %x2 %y2wait 20}until #contname <> generic_gump && #contsize <> 577_426event macro 13 21if %skillItemChangegosub changeClothesTo %skillMask %skillRobe %skillCloakwhile #charposx = %oldPosX && #charposy = %oldPosYwait 10returnsub runToBoxrepeat{move %xCoord %yCoord 0 3swait 10}until #charposx = %xCoord && #charposy = %yCoordreturnsub follow&killmsg .arm$set %charX #charposxset %charY #charposyset %charz #charposzrepeat{finditem #enemyidevent pathfind #FINDX #FINDY #FINDZ 1 3swait 1sgosub ghost}until #findcnt = 0wait 20gosub lootset %time #scnt + 20repeat{event pathfind %charX %charY %charz 1 3swait 1sgosub ghostif #scnt > %timereturn}until #charposx = %charX && #charposy = %charYreturnsub checkHPif #hits < #maxhits{msg .arm$soundif %skillItemChangegosub changeClothesTo %simpleMask %simpleRobe %simpleCloakgosub follow&killif %skillItemChangegosub changeClothesTo %skillMask %skillRobe %skillCloak}returnsub openRunebookfinditem %runebookID C_ , #backpackidif #findcnt = 0{event sysmessage Runebook not found!halt}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 0finditem %1 C_ , #backpackid}until #findcnt = 0repeat{finditem %2 C_ , #backpackidset #lobjectID #findidevent macro 17 0finditem %2 C_ , #backpackid}until #findcnt = 0repeat{Finditem %3 C_ , #backpackidset #lobjectID #findidevent macro 17 0finditem %3 C_ , #backpackid}until #findcnt = 0returnsub 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 eatfinditem ZBM Cset #lobjectid #findidevent macro 17 0wait 10finditem GND Cset #lobjectid #findidevent macro 17 0wait 10event macro 17 0wait 2sreturnsub 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 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 dropTrashLogsdropLoop:finditem ZLK_DWJ C_ , #backpackidif #findcnt = 0{wait 30if #weight >= %maxweight{if %recallgosub portif ! %recallgosub moveItemsreturn}if #weight < %maxweightreturn}if #findcol = %MarganeceCol || #findcol = %TinCol || #findcol = %BronzeCol+ || #findcol = %LeadCol || #findcol = %CorrundumCol+ || #findcol = %GoldCol || #findcol = %TourmalineCol || #findcol = %SilverCol+ || #findcol = %MarbleCol || #findcol = %ZinkCol+ || #findcol = %GypsumCol || #findcol = %SandstoneCol || #findcol = %CopperCol+ || #findcol = %IronCol || #findcol = %TitanCol+ || #findcol = %StoneCol || #findcol = %PlasterCol{exevent drag #findid #findstackexevent dropg #charposx #charposy #charposzwait %dropDelay}ignoreitem #findid 1wait 30goto dropLoopreturnsub 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 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 elementif %lastK >= %kgosub ghost 1set %lastK %kfinditem ED Gif #findcnt <> 0{msg .arm$set %charX #charposxset %charY #charposyset %charz #charposzsoundif %skillItemChangegosub changeClothesTo %simpleMask %simpleRobe %simpleCloakfinditem ED Gset %element #findidmsg .arm$set #ltargetid %elementevent macro 27 0repeat{finditem %elementevent pathfind #FINDX #FINDY #FINDZ 1 3swait 1sgosub ghost}until #findcnt = 0wait 20gosub lootif %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 Plavkarepeat{finditem DWJ_TVj_GWJ_EWJ C_ , #backpackidif #findcnt <> 0{set #lobjectid #findidevent macro 17 0wait 10}}until #findcnt = 0returnsub recallsfinditem WTL C_ , #backpackidif #findstack <= 2 || #findcnt = 0{set #lobjectid %boxevent macro 17 0while #contid <> %boxwait 1wait 20finditem WTL C_ , %boxexevent drag #findid %amountRecallsexevent dropc #backpackidwait 20}return

У меня проблема с дверями, помогите. Кто знает как правильно ставить двери умоляю... я уже 50 раз пытаюсь никак не могу ((((
Я бы даже отправил эту тему в ошибки - техподдерка, так-как это действительно ошибка скрипта двери ставятся отвратительно. 50 попыток и ни 1го раза не поставились правильно!
Надеюсь на помошь.

Нада чтобы писало за 10 минут до того как выбросит с олдп данжа!...
И скоратить время респавна на секунд 20 приблезительно

For Selling

Sell House




Imbues
Imbue (MS+19)
Imbue (Lightning)
Imbue (Explosion +1)
Imbue (Electric Fury)
Artefacts
Ornate Crown of the Harrower (50/50)
Arcane Shield (48/50)
Legacy of the Dread Lord +2 (50/50)
+7 Tracking Helm (49/50)
Books
Book of Fireball/Firebolt x4/x3
Book of Lightning x7
Book of Air Lord x1
Book of Blizzard x3
Book of Storm x2
Transports
Grey Mustang
Llama
Oclock
Roan Mustang
Orn
Zostrich
Redroan Mustang
Pamamino Mustang
Chocolate Mustang
Reagents
Dragon Bones x102 - Dragon Hearts x176 - Dragon Winds x134 - Dragon Bloods x108
Other
Ice Staff (50/50)
Frozen Bow MS+19 (50/50)
Treasure Map 5lvl
Terathan Hides
Obhidian Hides

Buying

Tunic Of Earth
Boots Of Earth
Mermaed bones
Arian Logs

Предлагаем свои цены!
Кидалы,школота - лесом.
Возможен обмен - пишем в скайпе

Skype - GameContacs