Прямая связь с администрацией по скайпу: gods.dragon
We've noticed that you've been inactive for over 10 minute(s). We've stopped running the Shoutbox due to your inactivity. If you are back again, please click the I'm Back button below.
(24 November 2020 - 13:58)menaju hitpoints newby braslet na serezhki!!
Guest
(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
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 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