Спасибо! А на mining есть у кого?
Toggle shoutbox Chat
|
Пропали Вещи На Мининг+10
#22
Posted 20 September 2017 - 19:44
; 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 LJING 1917 370 1359 GOSUB LJING 1917 371 1342 GOSUB LJING 1917 372 1341 GOSUB LJING 1917 373 1340 GOSUB LJING 1917 374 1339 GOSUB LJING 1917 375 1343 GOSUB LJING 1917 376 1346 GOSUB LJING 1916 376 1347 GOSUB LJING 1916 375 1343 GOSUB LJING 1916 374 1339 GOSUB LJING 1916 373 1340 GOSUB LJING 1916 372 1341 GOSUB LJING 1916 371 1342 GOSUB LJING 1916 370 1357 GOSUB LJING 1915 370 1358 GOSUB LJING 1915 371 1343 GOSUB LJING 1915 372 1342 GOSUB LJING 1915 373 1341 GOSUB LJING 1915 374 1340 GOSUB LJING 1915 375 1343 GOSUB LJING 1915 376 1345 GOSUB LJING 1914 376 1351 GOSUB LJING 1914 375 1339 GOSUB LJING 1914 374 1342 GOSUB LJING 1914 373 1343 GOSUB LJING 1914 372 1339 GOSUB LJING 1914 371 1340 GOSUB LJING 1914 370 1359 GOSUB LJING 1913 370 1358 GOSUB LJING 1913 371 1339 GOSUB LJING 1913 372 1343 GOSUB LJING 1913 373 1342 GOSUB LJING 1913 374 1341 GOSUB LJING 1912 374 1346 GOSUB LJING 1912 373 1339 GOSUB LJING 1912 372 1341 GOSUB LJING 1912 371 1343 GOSUB LJING 1912 370 1343 GOSUB LJING 1912 369 1363 GOSUB LJING 1911 369 1343 GOSUB LJING 1911 370 1342 GOSUB LJING 1911 371 1341 GOSUB LJING 1911 372 1340 GOSUB LJING 1911 373 1339 GOSUB LJING 1911 374 1345 GOSUB LJING 1910 374 1351 GOSUB LJING 1910 373 1343 GOSUB LJING 1910 372 1342 GOSUB LJING 1910 371 1341 GOSUB LJING 1910 370 1340 GOSUB LJING 1910 369 1339 GOSUB LJING 1910 368 1358 GOSUB LJING 1909 368 1343 GOSUB LJING 1909 369 1342 GOSUB LJING 1909 370 1341 GOSUB LJING 1909 371 1340 GOSUB LJING 1909 372 1339 GOSUB LJING 1909 373 1345 GOSUB LJING 1908 373 1346 GOSUB LJING 1908 372 1339 GOSUB LJING 1908 371 1340 GOSUB LJING 1908 370 1341 GOSUB LJING 1908 369 1341 GOSUB LJING 1908 368 1343 GOSUB LJING 1908 367 1358 GOSUB LJING 1906 371 1345 GOSUB LJING 1906 370 1340 GOSUB LJING 1906 369 1341 GOSUB LJING 1906 368 1342 GOSUB LJING 1906 367 1343 GOSUB LJING 1906 366 1339 GOSUB LJING 1906 365 1340 GOSUB LJING 1905 365 1343 GOSUB LJING 1905 366 1342 GOSUB LJING 1905 367 1341 GOSUB LJING 1905 368 1340 GOSUB LJING 1905 369 1339 GOSUB LJING 1905 370 1343 GOSUB LJING 1905 371 1346 GOSUB LJING 1904 371 1345 GOSUB LJING 1904 370 1339 GOSUB LJING 1904 369 1340 GOSUB LJING 1904 368 1341 GOSUB LJING 1904 367 1342 GOSUB LJING 1904 366 1341 GOSUB LJING 1904 365 1342 GOSUB LJING 1903 365 1342 GOSUB LJING 1903 366 1339 GOSUB LJING 1903 367 1340 GOSUB LJING 1903 368 1341 GOSUB LJING 1903 369 1342 GOSUB LJING 1903 370 1343 GOSUB LJING 1903 371 1347 GOSUB LJING 1902 371 1345 GOSUB LJING 1902 370 1342 GOSUB LJING 1902 369 1343 GOSUB LJING 1902 368 1339 GOSUB LJING 1902 367 1340 GOSUB LJING 1902 366 1341 GOSUB LJING 1902 365 1342 GOSUB LJING 1902 364 1343 GOSUB LJING 1901 364 1342 GOSUB LJING 1901 365 1339 GOSUB LJING 1901 366 1340 GOSUB LJING 1901 367 1341 GOSUB LJING 1901 368 1342 GOSUB LJING 1901 369 1343 GOSUB LJING 1901 370 1339 GOSUB LJING 1901 371 1346 GOSUB LJING 1900 371 1351 GOSUB LJING 1900 370 1340 GOSUB LJING 1900 369 1341 GOSUB LJING 1900 368 1342 GOSUB LJING 1900 367 1343 GOSUB LJING 1900 366 1339 GOSUB LJING 1900 365 1340 GOSUB LJING 1900 364 1340 GOSUB LJING 1899 364 1359 GOSUB LJING 1899 365 1341 GOSUB LJING 1899 366 1340 GOSUB LJING 1899 367 1339 GOSUB LJING 1899 368 1343 GOSUB LJING 1899 369 1342 GOSUB LJING 1899 370 1346 GOSUB LJING 1898 370 1345 GOSUB LJING 1898 369 1342 GOSUB LJING 1898 368 1342 GOSUB LJING 1898 367 1341 GOSUB LJING 1898 366 1341 GOSUB LJING 1898 365 1340 GOSUB LJING 1898 364 1357 GOSUB LJING 1897 364 1357 GOSUB LJING 1897 365 1343 GOSUB LJING 1897 366 1340 GOSUB LJING 1897 367 1339 GOSUB LJING 1897 368 1343 GOSUB LJING 1897 369 1341 GOSUB LJING 1897 370 1347 goto start sub LJING 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
#23
Posted 20 September 2017 - 19:47
Спасибо! А на mining есть у кого?
Скрипт с реконнэктом. Вводим пароль в строке set %password и в случае ЦЛ автоматом перезайдет в игру (работает на 50%)
И также в низу есть такой sub place Меняем координат (чтобы не выходил за приделы шахты, защита от любителей снять со скрипта или отвести хер пойми куда)
А также у вас не смогут стоять в шахте в элименте, если персонаж не сможет ударить (кого либо) он его игнорит и дальше капает =)
Пользуйтесь
#24
Posted 20 September 2017 - 19:52
Скрипт с реконнэктом. Вводим пароль в строке set %password и в случае ЦЛ автоматом перезайдет в игру (работает на 50%)
И также в низу есть такой sub place Меняем координат (чтобы не выходил за приделы шахты, защита от любителей снять со скрипта или отвести хер пойми куда)
Пользуйтесь
напиши свой скайп, хоть отблагодарю)
#25
Posted 20 September 2017 - 19:55
напиши свой скайп, хоть отблагодарю)
Аммм...напищи мне свой в ЛС, а то у меня рег с телефона был я хз как меня найти
1 user(s) are reading this topic
0 members, 1 guests, 0 anonymous users