Обнаружен отключенный Javascript

У вас отключен Javascript, поэтому некоторые функции форума не будут работать. Чтобы расширить функционал, включите Javascript.

Свернуть/развернуть блок Chat

Прямая связь с администрацией по скайпу: gods.dragon

@ shadows	:	(Вчера, 20:16) приветствую ребят ктонебудъ может мне дреад боу подаритъ? я навичек
@ regi	:	(07 April 2020 - 15:37) Среди игроков есть дизайнеры ?
@ Egoons	:	(07 April 2020 - 13:15) Sell Hell Stallion novij iz salona 0 miles probeg 20kk Skype Riepausis
@ regi	:	(07 April 2020 - 09:56) kto sdelaet plzma war axe?
@ Restless	:	(06 April 2020 - 22:57) @shadows Прямая связь с администрацией по скайпу: gods.dragon
@ shadows	:	(06 April 2020 - 21:38) привет ребят у меня проблема не заходил долго а пасс не могу вспомнитъ либо акк заблокирован че мне делатъ???
@ NIL	:	(02 April 2020 - 18:01) Коронавирус головного мозга..
@ beatiful	:	(02 April 2020 - 17:50) daite jei mute uzhe
@ Katehok2017	:	(01 April 2020 - 21:51) oshibochka vishla
@ Katehok2017	:	(01 April 2020 - 21:51) prikol
@ Katehok2017	:	(01 April 2020 - 21:50) vishe vidish ja napisala s prava konvertik i krasnaja ceferka
@ Pankration31	:	(01 April 2020 - 21:50) Set Up The Following Variables: 4 set %maxWeight 840 ; Max svars set %box GEHCLMD ; id korobki set %xCoord 1523 ; X koordinaata rjadom boxa set %yCoord 2818 ; Y koordinaata rjadom boxa set %smelt #TRUE set %dropMarganece #true ; #true - sbrasiveat Marganece ruudu , #false - ne sbrasiveat set %skillItemChange #true ; #true - menjajet skill itemi, #false - net set %tracking #false ; #true - izpolzujet tracking, #false - net set %runebookID CKTXLMD ; Runebook ID set %runeNumberToHome 11 ; set %runeNumberToGZ 6 ; set %runeNumberToCave 10 set %amountRecalls 10 ; set %trackingWait 300s set %skillRobe JNGWKMD ; Skill Roba (ID) set %skillCloak TYQUJMD ; Skill Cloack (ID) set %skillMask OOGZJMD ; Skill Mask (ID) set %simpleRobe KUUPKMD ; Parasta Roba (ID) set %simpleCloak GWFULMD ; Parastais cloack (ID) set %simpleMask WAGYJMD ; Platemail helms (ID) ; End Of Changable Clothes List ; Do Not Set These Numbers If %recall #false set %recall #true ; #true - lidos ar runebook, #false - skries taapat set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_RMK_GEJ set %loot POF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_DCI_ZLK_GEJ_ZLL_SXL gosub Instalyze runeNumberToHome 1 gosub Instalyze runeNumberToCave 2 gosub Instalyze runeNumberToGZ 3 event sysmessage Setting Paperdoll in right position.. contpos 780 -26 finditem QRM_FJM C_ , #backpackid if #findcnt <> 0 { set #lobjectid #findid event macro 17 0 wait 30 } start: msg #dot $ GOSUB MINING 4812 3633 1343 GOSUB MINING 4812 3632 1357 GOSUB MINING 4811 3633 1343 GOSUB MINING 4811 3632 1357 GOSUB MINING 4810 3633 1343 GOSUB MINING 4810 3632 1358 GOSUB MINING 4808 3633 1359 GOSUB MINING 4807 3633 1353 GOSUB MINING 4809 3632 1353 GOSUB MINING 4809 3633 1343 GOSUB MINING 4808 3634 1343 GOSUB MINING 4807 3634 1356 GOSUB MINING 4808 3635 1343 GOSUB MINING 4807 3635 1355 GOSUB MINING 4809 3635 1343 GOSUB MINING 4809 3634 1343 GOSUB MINING 4810 3635 1343 GOSUB MINING 4810 3634 1343 GOSUB MINING 4811 3635 1343 GOSUB MINING 4811 3634 1343 GOSUB MINING 4812 3634 1343 GOSUB MINING 4812 3635 1340 GOSUB MINING 4813 3635 1339 GOSUB MINING 4813 3636 1339 GOSUB MINING 4812 3636 1343 GOSUB MINING 4812 3637 1343 GOSUB MINING 4811 3637 1340 GOSUB MINING 4811 3636 1343 GOSUB MINING 4810 3637 1343 GOSUB MINING 4810 3636 1343 GOSUB MINING 4809 3636 1343 GOSUB MINING 4809 3637 1343 GOSUB MINING 4808 3636 1343 GOSUB MINING 4808 3637 1343 GOSUB MINING 4807 3636 1343 GOSUB MINING 4807 3637 1343 GOSUB MINING 4806 3636 1353 GOSUB MINING 4806 3637 1362 GOSUB MINING 4808 3638 1343 GOSUB MINING 4807 3638 1354 GOSUB MINING 4808 3639 1343 GOSUB MINING 4807 3639 1343 GOSUB MINING 4806 3639 1353 GOSUB MINING 4809 3639 1343 GOSUB MINING 4809 3638 1343 GOSUB MINING 4810 3639 1343 GOSUB MINING 4810 3638 1343 GOSUB MINING 4811 3639 1343 GOSUB MINING 4811 3638 1343 GOSUB MINING 4812 3638 1343 GOSUB MINING 4812 3639 1344 GOSUB MINING 4811 3640 1350 GOSUB MINING 4810 3640 1343 GOSUB MINING 4810 3641 1343 GOSUB MINING 4811 3641 1349 GOSUB MINING 4809 3640 1340 GOSUB MINING 4809 3641 1343 GOSUB MINING 4808 3640 1343 GOSUB MINING 4808 3641 1343 GOSUB MINING 4807 3640 1343 GOSUB MINING 4807 3641 1339 GOSUB MINING 4806 3640 1343 GOSUB MINING 4806 3641 1343 GOSUB MINING 4805 3640 1386 GOSUB MINING 4805 3641 1351 GOSUB MINING 4807 3642 1343 GOSUB MINING 4807 3643 1356 GOSUB MINING 4808 3642 1343 GOSUB MINING 4808 3643 1343 GOSUB MINING 4809 3642 1343 GOSUB MINING 4809 3643 1343 GOSUB MINING 4810 3642 1343 GOSUB MINING 4810 3643 1343 GOSUB MINING 4811 3642 1350 GOSUB MINING 4811 3643 1348 GOSUB MINING 4811 3644 1344 GOSUB MINING 4810 3644 1343 GOSUB MINING 4809 3644 1343 GOSUB MINING 4808 3644 1343 GOSUB MINING 4807 3644 1362 GOSUB MINING 4808 3646 1356 GOSUB MINING 4809 3646 1343 GOSUB MINING 4810 3646 1343 GOSUB MINING 4810 3645 1350 GOSUB MINING 4809 3645 1343 GOSUB MINING 4808 3645 1355 GOSUB MINING 4808 3648 1355 GOSUB MINING 4809 3648 1343 GOSUB MINING 4810 3648 1343 GOSUB MINING 4811 3648 1344 GOSUB MINING 4811 3647 1348 GOSUB MINING 4810 3647 1343 GOSUB MINING 4809 3647 1343 GOSUB MINING 4808 3647 1354 GOSUB MINING 4809 3650 1343 GOSUB MINING 4810 3650 1343 GOSUB MINING 4811 3650 1343 GOSUB MINING 4811 3649 1358 GOSUB MINING 4810 3649 1343 GOSUB MINING 4809 3649 1343 GOSUB MINING 4811 3650 1343 GOSUB MINING 4812 3649 1357 GOSUB MINING 4812 3650 1343 GOSUB MINING 4813 3649 1352 GOSUB MINING 4813 3650 1343 GOSUB MINING 4814 3650 1363 GOSUB MINING 4814 3651 1343 GOSUB MINING 4814 3652 1343 GOSUB MINING 4813 3652 1343 GOSUB MINING 4813 3651 1343 GOSUB MINING 4812 3651 1343 GOSUB MINING 4812 3652 1343 GOSUB MINING 4811 3651 1343 GOSUB MINING 4811 3652 1343 GOSUB MINING 4810 3651 1343 GOSUB MINING 4810 3652 1343 GOSUB MINING 4809 3651 1343 GOSUB MINING 4809 3652 1343 GOSUB MINING 4808 3651 1343 GOSUB MINING 4808 3652 1343 GOSUB MINING 4807 3651 1355 GOSUB MINING 4807 3652 1356 GOSUB MINING 4807 3653 1351 GOSUB MINING 4808 3653 1343 GOSUB MINING 4809 3653 1343 GOSUB MINING 4809 3654 1343 GOSUB MINING 4808 3654 1356 GOSUB MINING 4808 3655 1351 GOSUB MINING 4809 3655 1361 GOSUB MINING 4810 3653 1343 GOSUB MINING 4810 3654 1343 GOSUB MINING 4811 3653 1343 GOSUB MINING 4811 3654 1343 GOSUB MINING 4812 3653 1343 GOSUB MINING 4812 3654 1343 GOSUB MINING 4813 3653 1343 GOSUB MINING 4813 3654 1343 GOSUB MINING 4814 3653 1350 GOSUB MINING 4814 3654 1344 GOSUB MINING 4813 3656 1349 GOSUB MINING 4813 3655 1350 GOSUB MINING 4812 3656 1343 GOSUB MINING 4812 3655 1343 GOSUB MINING 4811 3655 1343 GOSUB MINING 4811 3656 1343 GOSUB MINING 4810 3655 1356 GOSUB MINING 4810 3657 1356 GOSUB MINING 4811 3657 1343 GOSUB MINING 4811 3658 1343 GOSUB MINING 4810 3658 1355 GOSUB MINING 4812 3657 1343 GOSUB MINING 4812 3658 1343 GOSUB MINING 4813 3657 1350 GOSUB MINING 4813 3658 1344 GOSUB MINING 4812 3659 1361 GOSUB MINING 4811 3659 1343 GOSUB MINING 4811 3660 1343 GOSUB MINING 4810 3659 1343 GOSUB MINING 4809 3659 1353 GOSUB MINING 4810 3660 1343 GOSUB MINING 4809 3660 1354 GOSUB MINING 4809 3661 1351 GOSUB MINING 4810 3661 1343 GOSUB MINING 4811 3661 1343 GOSUB MINING 4812 3660 1363 GOSUB MINING 4812 3661 1343 GOSUB MINING 4813 3661 1343 GOSUB MINING 4813 3662 1343 GOSUB MINING 4812 3662 1343 GOSUB MINING 4811 3662 1343 GOSUB MINING 4810 3662 1362 GOSUB MINING 4811 3663 1356 GOSUB MINING 4811 3664 1354 GOSUB MINING 4812 3663 1343 GOSUB MINING 4812 3664 1343 GOSUB MINING 4813 3663 1343 GOSUB MINING 4813 3664 1343 GOSUB MINING 4813 3665 1346 GOSUB MINING 4812 3665 1347 GOSUB MINING 4811 3665 1351 GOSUB MINING 4814 3665 1344 GOSUB MINING 4814 3664 1343 GOSUB MINING 4814 3663 1343 GOSUB MINING 4814 3662 1343 GOSUB MINING 4815 3664 1346 GOSUB MINING 4815 3663 1343 GOSUB MINING 4815 3662 1343 GOSUB MINING 4814 3661 1343 GOSUB MINING 4815 3661 1343 GOSUB MINING 4816 3661 1343 GOSUB MINING 4814 3660 1343 GOSUB MINING 4815 3660 1343 GOSUB MINING 4814 3659 1355 GOSUB MINING 4815 3659 1343 GOSUB MINING 4814 3658 1386 GOSUB MINING 4815 3658 1352 GOSUB MINING 4814 3658 1386 goto start sub mining gosub ghost gosub checkHP gosub Market 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 7s set #ltargetx %1 set #ltargety %2 set #ltargetkind 3 set #ltargettile %3 event macro 22 0 wait 10 set %overtime #scnt + 150 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 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 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 10 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 ignoreitem %skill 1 event macro 12 0 move 2170 , 769 event macro 12 0 gosub runToBox event macro 13 21 if %smelt gosub smelt finditem %box G_3 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 45 } } until #findcnt = 0 ignoreitem reset 1 if %recall gosub recalls gosub food 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 10 return sub runToBox repeat { move %xCoord %yCoord 0 3s wait 10 } until #charposx = %xCoord && #charposy = %yCoord return sub smelt repeat { finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid if #findcnt >= 1 { set #lobjectid #findid event macro 17 0 wait 20 } } until #findcnt = 0 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 20 if #weight >= %maxweight { if %recall gosub port if ! %recall gosub moveItems return } if #weight < %maxweight return } if #findcol = 1750 \|\| #findcol = 1218 \|\| #findcol = 1325 \|\| #findcol = 1153 \|\| #findcol = 1548 \|\| #findcol = 1160 \|\| #findcol = 1093 \|\| #findcol = 144 \|\| #findcol = 2313 \|\| #findcol = 151 \|\| #findcol = 1107 \|\| #findcol = 1950 { exevent drag #findid #findstack exevent dropg #charposx #charposy #charposz wait 45 } 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 30 if #conttype = YFM set %corpse #contid set %lootOverTime #scnt + 50 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 } 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 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 recalls finditem WTL C_ , #backpackid if #findstack <= 2 \|\| #findcnt = 0 { set #lobjectid %box event macro 17 0 while #contid <> %box wait 1 wait 20 finditem WTL C_ , %box exevent drag #findid %amountRecalls exevent dropc #backpackid wait 20 } return Sub Market gosub NoMorePVP if %mdz return if #charposx < 1365 && #charposx > 1352 && #charposy > 1569 && #charposy < 1582 { wait 320s msg $.pvp$ set %spotnumber 16 set %mdz #true gosub spoter wait 1s set %lap 0 goto StartMoving } return sub NoMorePVP if #charposx < 1398 && #charposx > 1373 && #charposy > 1610 && #charposy < 1632 { Display ФАК!!!! halt } return
@ Katehok2017	:	(01 April 2020 - 21:50) net
@ Pankration31	:	(01 April 2020 - 21:50) sjuda pisatj ?
@ Katehok2017	:	(01 April 2020 - 21:48) alloooooo
@ Katehok2017	:	(01 April 2020 - 20:51) Karona Garmoni ))
@ opas	:	(01 April 2020 - 19:35) @sonyplayer весна, гормоны
@ sonyplayer	:	(01 April 2020 - 14:49) @Katehok2017 обратись к врачу.
@ SR-BREAKER	:	(01 April 2020 - 13:00) Katehok vot u tebya bombit krch
@ Katehok2017	:	(01 April 2020 - 10:17) Super ! 0 Emocij !!!! Vsem poheru !!!! spasibo . Zdala rezanansa !