Jump to content

Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  shadows : (Yesterday, 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 весна, гормоны :D
@  sonyplayer : (01 April 2020 - 14:49) @Katehok2017 обратись к врачу.
@  SR-BREAKER : (01 April 2020 - 13:00) Katehok vot u tebya bombit krch :D
@  Katehok2017 : (01 April 2020 - 10:17) Super ! 0 Emocij !!!! :( Vsem poheru !!!! spasibo . Zdala rezanansa !

  • 534884 Total Posts
  • 22027 Total Members
  • halfer2020 Newest Member
  • 23459 Most Online