; Set Up The Following Variables: set %maxWeight 800 ; Max svars set %box IXOUJMD ; id korobki set %foodCont IXOUJMD ; kur staav rezerves piens un bekons set %xCoord 1923 ; X koordinaata rjadom boxa set %yCoord 376 ; Y koordinaata rjadom boxa set %dropMarganece #true ; #true - sbrasiveat Marganece ruudu , #false - ne sbrasiveat set %skillItemChange #false ; #true - menjajet skill itemi, #false - net set %tracking #false ; #true - izpolzujet tracking, #false - net set %runebookID RSWHKMD ; Runebook ID set %runeNumberToGZ 7 ; NR runi na GZ set %runeNumberToCave 8 ; Nr runi na mesto kapalki set %trackingWait 200s ; skoka zhdatj gz, kogda uvidit playera ; Do Not Set These Items If %skillItemChange #false set %skillRobe PBJKKMD ; Skill Roba (ID) set %skillCloak HQIKKMD ; Skill Cloack (ID) set %skillMask EYIKKMD ; Skill Mask (ID) set %simpleRobe JVBQLMD ; Parasta Roba (ID) set %simpleCloak HMMWJMD ; Parastais cloack (ID) set %simpleMask OSH ; Platemail helms (ID) ; End Of Changable Clothes List ; Do Not Set These Numbers If %recall #false set %runeNumberToHome 6 ; Runas Nr uz maaju set %recall #false ; #true - lidos ar runebook, #false - skries taapat set %amountRecalls 10 ; skoljko vzjat recall esli ih net set %password ; password set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_RMK set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG gosub Instalyze runeNumberToHome 1 gosub Instalyze runeNumberToCave 2 gosub Instalyze runeNumberToGZ 3 event sysmessage Setting Paperdoll in right position.. event macro 8 1 wait 30 event macro 8 1 wait 30 contpos 780 -26 finditem QRM_FJM_GKM C_ , #backpackid if #findcnt <> 0 { set #lobjectid #findid event macro 17 0 wait 30 } start: GOSUB MINING 0 0 0 ;koordinati suda GOSUB MINING 0 0 0 ;koordinati suda goto start sub MINING gosub ghost gosub checkHP gosub element gosub checkWeight if %tracking gosub tracking move %1 %2 1 finditem NPF_QPF C if #findcnt = 0 { display ok Pickaxe wasn't found! pause } set #lobjectid #findid event macro 17 0 target 2s set #ltargetx %1 set #ltargety %2 set #ltargetkind 3 set #ltargettile %3 event macro 22 0 wait 15 set %overtime #scnt + 8 gosub scan return sub checkWeight if #weight > %maxWeight { if ! %dropMarganece { if %recall gosub port if ! %recall gosub moveItems } if %dropMarganece { gosub dropMarganece return } } return sub scan scan: gosub element scanjournal gosub checkdisconnect gosub checkHP if hungry in #sysmsg { gosub eat return } if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) + || ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) + || ( 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 #sysmsg ) ) return gosub checkHP if #scnt >= %overtime return goto scan return sub port msg .arm$ gosub checkHP gosub element if G in #charstatus event macro 6 0 event macro 6 0 set %oldPosX #charposx set %oldPosY #charposy gosub openRunebook if %trackingAlarm click %x3 %y3 else click %x1 %y1 event macro 13 21 wait 5s while #charposx = %oldPosX && #charposy = %oldPosY wait 10s if %trackingAlarm { str ins #time : 3 str ins #strres : 6 set %Time #strres str ins #date #dot 3 str ins #strres #dot 6 execute cmd.exe /c echo >>TRACK.txt #charname saw someone #strres @ %Time wait %trackingWait click 170 67 r wait 10 gosub back gosub tracking return } gosub moveItems gosub back return sub moveItems ignoreitem reset 1 gosub runToBox event macro 13 21 finditem %box G_3 wait 10 if #findcnt = 0 { event Sysmessage Box Not Found! halt } repeat { finditem %item c_ , #backpackid if #findcnt <> 0 { exevent Drag #Findid #findstack exevent Dropc %box wait 15 } } until #findcnt = 0 ignoreitem reset 1 if %recall gosub recalls gosub food return repeat { finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid if #findcnt <> 0 { set #lobjectid #findid event macro 17 0 wait 10 } } until #findcnt = 0 return sub back set %trackingAlarm #false gosub checkHP set %oldPosX #charposx set %oldPosY #charposy for %i 1 2 { gosub openRunebook click 261 215 ; Recharge runebook 2x wait 20 } gosub openRunebook click %x2 %y2 event macro 13 21 wait 5s while #charposx = %oldPosX && #charposy = %oldPosY wait 5s return sub runToBox repeat { move %xCoord %yCoord 0 3s wait 5s } until #charposx = %xCoord && #charposy = %yCoord return sub follow&kill msg .arm$ set %charX #charposx set %charY #charposy set %charz #charposz repeat { finditem #enemyid event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s gosub ghost } until #findcnt = 0 wait 20 gosub loot 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 checkHP if #hits < #maxhits { msg .arm$ sound if %skillItemChange gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak gosub follow&kill if %skillItemChange gosub changeClothesTo %skillMask %skillRobe %skillCloak } return sub openRunebook finditem %runebookID C_ , #backpackid if #findcnt = 0 { event sysmessage Runebook not found! halt } set #lobjectid #findid event macro 17 0 while #contname <> generic_gump && #contsize <> 577_426 wait 1 return sub ghost if #charghost = YES { terminate uo halt } return sub changeClothesTo repeat { finditem %1 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %1 C_ , #backpackid } until #findcnt = 0 repeat { finditem %2 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %2 C_ , #backpackid } until #findcnt = 0 repeat { Finditem %3 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %3 C_ , #backpackid } until #findcnt = 0 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 2s 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 dropMarganece dropLoop: finditem DWJ C_ , #backpackid if #findcnt = 0 { wait 10 if #weight >= %maxweight { if %recall gosub port if ! %recall gosub moveItems return } if #weight < %maxweight return } if #findcol = 1750 || #findcol = 1218 || #findcol = 1325 || #findcol = 1095 || #findcol = 21 || #findcol = 553 || #findcol = 0 || #findcol = 1936 || #findcol = 1537 || #findcol = 1089 || #findcol = 1950 || #findcol = 144 || #findcol = 2313 || #findcol = 151 || #findcol = 1156 || #findcol = 306 || #findcol = 2197 || { exevent drag #findid #findstack exevent dropg #charposx #charposy #charposz wait 40 } ignoreitem #findid 1 goto dropLoop return sub loot finditem YFM G_4 if #findcnt > 0 { set #lobjectid #findid event macro 17 0 while #contkind <> ASEB && #contsize <> 144_212 wait 1 wait 20 if #conttype = YFM set %corpse #contid set %lootOverTime #scnt + 30 repeat { finditem %loot C_ , %corpse if #findcnt = 0 || #scnt > %lootOverTime { ignoreitem %corpse 2 return } exevent drag #findid #findstack exevent dropc #backpackid wait 45 } until #false } return sub element finditem ED G if #findcnt <> 0 { msg .arm$ set %charX #charposx set %charY #charposy set %charz #charposz sound if %skillItemChange gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak finditem ED G set %element #findid msg .arm$ set #ltargetid %element event macro 27 0 repeat { finditem %element event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s gosub ghost gosub place gosub checkpvp } until #findcnt = 0 wait 20 gosub loot 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 food finditem ZBM C_ , #backpackid if #findcnt = 0 { set #lobjectid %foodCont event macro 17 0 while #contid <> %foodCont wait 1 finditem ZBM C_ , %foodCont; 1 pitcher of milk exevent drag #findid 1 exevent dropc #backpackid wait 30 } finditem GND C_ , #backpackid if #findcnt = 0 { finditem GND C_ , %foodCont exevent drag #findid 4; 4 baocn slices exevent dropc #backpackid wait 30 finditem ZBM C_ , %foodCont; 1 pitcher of milk exevent drag #findid 1 exevent dropc #backpackid wait 30 } return sub tracking if #charstatus = G event macro 6 0 event macro 6 0 msg ,exec tracking$ wait 10 set %lagg #scnt + 20 repeat { if #contname = objpicker_gump { set %trackingAlarm #true gosub port return } if You_see_no_signs_of_players_to_track in #sysmsg return } until #scnt > %lagg return Sub CheckPvP scanjournal 1 If You_cannot_do_this_now in #journal : notin #journal { ignoreitem #findid 1 } return sub recalls finditem WTL C_ , #backpackid if #findstack <= 6 || #findcnt = 0 { set #lobjectid %box event macro 17 0 while #contid <> %box wait 1 wait 10 finditem WTL C_ , %box exevent drag #findid %amountRecalls 6 exevent dropc #backpackid wait 30 } return sub checkdisconnect if #contname = waiting_gump { click 402 336 wait 120s click 370 400 wait 25 msg %password msg $ gosub waitforgump CONTNAME MainMenu_gump click 617 456 gosub waitforgump CONTNAME normal_gump click 617 456 gosub waitforgump CONTNAME Login_gump click 617 456 } return sub WaitForGump set %gumptimeout #scnt _WaitForGump: if # . %1 <> %2 { wait 1 if %gumptimeout + 5 < #scnt return #false goto _WaitForGump } return #true sub place ;if #charposx > 1920 ;ignoreitem #findid 1 ;return Sub CheckPvP scanjournal 1 If You_cannot_do_this_now in #journal : notin #journal { ignoreitem #findid 1 } return
Toggle shoutbox
Chat
|
![Photo](https://forum.oldp.net/uploads/profile/photo-thumb-5037.jpg?_r=1568688741)
Easyuo Mining
#1
Posted 20 September 2017 - 19:47
#2
Posted 20 September 2017 - 19:56
Скрипт с реконнектом. Вводим пароль в строке set %password и в случае ЦЛ автоматом перезайдет в игру (работает на 50%).
И также внизу есть такой sub place Меняем координаты (чтобы не выходил за пределы шахты, защита от любителей снять со скрипта или отвести в неизвестность
А также у вас не смогут стоять в шахте в элементали, если персонаж не сможет ударить (кого либо) он его игнорит и дальше капает =)
#3
Posted 21 September 2017 - 07:35
Cho ta nedvigajet etat script... stoit na meste i odihajet
#4
Posted 21 September 2017 - 15:03
Cho ta nedvigajet etat script... stoit na meste i odihajet
чтото не так сделал наверное =)
Это исправь под себя =)
sub place ;if #charposx > 1920 ;ignoreitem #findid 1 ;return
#5
Posted 22 September 2017 - 07:42
Vrodje izpravil na svoji koordinati...
#6
Posted 22 September 2017 - 13:12
Vrodje izpravil na svoji koordinati...
Чтото ты делаешь не так, ребята кто юзают этот скрипт в скайпе отписались положительно =)
Значит дело в тебе...
#7
Posted 29 September 2017 - 08:36
А в чём может быть беда?
У меня проблема такая ..."You stop Mining"
И в Добавку не могу настроить трекинг....
Заранее благодарен )
#8
Posted 29 September 2017 - 09:19
А в чём может быть беда?
У меня проблема такая ..."You stop Mining"
И в Добавку не могу настроить трекинг....
Заранее благодарен )
Привет.
Стоп мининг из-за задержки (надо увеличить).
На трэкинг дополнение в инжекте должно быть! Буду дома добавлю дополнение сюда =)
#9
Posted 29 September 2017 - 14:43
sub tracking() uo.useskill('Tracking') UO.WaitMenu('Tracking','Players') end sub
#10
Posted 30 September 2017 - 21:25
А можно сделать чтобы он в банк складывал ? а не в сундук у дома...
Как?)
Всё остальное работает отлично )
#11
Posted 01 October 2017 - 09:32
sub tracking() uo.useskill('Tracking') UO.WaitMenu('Tracking','Players') end sub
A mozhna postavitj shtobi on iskal magof v Morfe (ljubom vidje)??? a to tut jestj umnjiki katorije nedajut kopatj...
#12
Posted 01 October 2017 - 10:39
A mozhna postavitj shtobi on iskal magof v Morfe (ljubom vidje)??? a to tut jestj umnjiki katorije nedajut kopatj...
Меняй место =)
#13
Posted 16 October 2017 - 22:05
zdarova pacani
umenia prablema "You stop Mining"
paxodu kapaet ochen bistro .
ia nimagu nichivo sdelat vso proboval
mojet ktonit pamojet ? budu ochen blagadaren
#14
Posted 17 October 2017 - 05:22
zdarova pacani
umenia prablema "You stop Mining"
paxodu kapaet ochen bistro .
ia nimagu nichivo sdelat vso proboval
mojet ktonit pamojet ? budu ochen blagadaren
увеличь задержку, прежде чем писать просмотри что другие писали, может там и есть твой ответ
#15
Posted 17 October 2017 - 08:55
zdarova pacani
umenia prablema "You stop Mining"
paxodu kapaet ochen bistro .
ia nimagu nichivo sdelat vso proboval
mojet ktonit pamojet ? budu ochen blagadaren
set %overtime #scnt + 8
меняй 8 на где то 60 или 80 точно не знаю( 20 = 1 cекунда)
#16
Posted 17 October 2017 - 11:05
set %overtime #scnt + 8
меняй 8 на где то 60 или 80 точно не знаю( 20 = 1 cекунда)
ia pamenal no shas kagda kapaet patom pishet
''You can't do that'' i stoit ne kapaet
#17
Posted 25 October 2017 - 11:47
Помогите этот скрипт скидывает айрон , как сделать что-бы не скидывал?!
#18
Posted 25 October 2017 - 19:10
Помогите этот скрипт скидывает айрон , как сделать что-бы не скидывал?!
Привет, вот тут стоит цвет руды айрона, удали отсюда цвет который хочешь оставить не будет сбрасывать =)
sub dropMarganece dropLoop: finditem DWJ C_ , #backpackid if #findcnt = 0 { wait 10 if #weight >= %maxweight { if %recall gosub port if ! %recall gosub moveItems return } if #weight < %maxweight return } if #findcol = 1750 || #findcol = 1218 || #findcol = 1325 || #findcol = 1095 || #findcol = 21 || #findcol = 553 || #findcol = 0 || #findcol = 1936 || #findcol = 1537 || #findcol = 1089 || #findcol = 1950 || #findcol = 144 || #findcol = 2313 || #findcol = 151 || #findcol = 1156 || #findcol = 306 || #findcol = 2197 || { exevent drag #findid #findstack exevent dropg #charposx #charposy #charposz wait 40 } ignoreitem #findid 1 goto dropLoop return
#19
Posted 09 January 2018 - 11:39
lizi ne edut ! litaet tok tuda ot tuda litit no ne podhodit k jashiku
ja ne dura no 4justvuju sebja neprijatno .
Shan radnoj a ti proverjal sam etot skript toljko v easy i toljko menjaja coordinati ... da net ?
spasibo .
#20
Posted 09 January 2018 - 14:58
lizi ne edut ! litaet tok tuda ot tuda litit no ne podhodit k jashiku
ja ne dura no 4justvuju sebja neprijatno .
Shan radnoj a ti proverjal sam etot skript toljko v easy i toljko menjaja coordinati ... da net ?
spasibo .
Значит не правильно настроила , ребята кто используют данный скрипт не жалуются на его работоспособность ! И даже материально отблагодарили =)
13 user(s) are reading this topic
0 members, 13 guests, 0 anonymous users