Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Pablo : (15 March 2024 - 21:12) Sell regs from pandora box.
@  Pablo : (15 March 2024 - 21:11) Sell paralyze and poison necklaces 100k 1 piece.
@  fr33 : (11 March 2024 - 16:38) blee gm zb atdai bank
@  GM SOLAR : (10 March 2024 - 17:24) ОпЯТь лаГГи ! ! !
@  Pablo : (06 March 2024 - 17:48) Labākais hot ko esmu jebkad paņēmis :D
@  Senseless : (05 March 2024 - 09:42) Opatj ataki na server powli :(
@  Pablo : (03 March 2024 - 19:19) Riebiigais
@  Ganjakur : (03 March 2024 - 15:10) kāds niks mp?
@  Pablo : (02 March 2024 - 21:31) Var kāds iedot 40 kk priekš 11 lvl ?
@  Senseless : (02 March 2024 - 18:12) bratva estj u kogo script na ckerika na lamber ?
@  GM SOLAR : (02 March 2024 - 16:44) ALL GO NA CTF ! ! ! ! !
@  Ganjakur : (01 March 2024 - 17:32) labi
@  Pablo : (29 February 2024 - 12:08) Eu džeki, tie kuri vairāk nespēlē ultimu, varat droši man uzdāvināt savus itemus, vai pat savus acc. droši rakstam man privāti. Es vismaz uzturēšu šo serveri pie dzīvības :D
@  fr33 : (29 February 2024 - 09:45) yes
@  EmmaSb : (28 February 2024 - 21:00) Easyuo still working ?
@  Artemy Shan : (18 February 2024 - 20:42) Еще один фикс поставил. Смотрим, тестируем.
@  jurasiks : (18 February 2024 - 20:04) da pipec tu, zdelal on
@  Senseless : (17 February 2024 - 19:17) Lagi powli opatj
@  Artemy Shan : (17 February 2024 - 12:36) Мне удалось повторить действия, которые делал этот пиздюк, чтобы нагружать процессор сервера на 100% и вроде как я поправил это.
@  Artemy Shan : (13 February 2024 - 02:44) Сменился айпи для входа в игру. Теперь заходим через: loginserver=login.oldp.net,2593 или loginserver=91.121.232.151,2593

Photo

Mining Help

help

  • Please log in to reply
No replies to this topic

#1 harkotik

harkotik

    Newbie

  • Members
  • 7 posts

Posted 01 August 2017 - 19:28

ljudi dobrie pomagite sutj problemi tokava on neskidiviaet rudu v mewok v bank letit no ne skidivaet piwet Jou can not pick that up 
pomagite 
 
 
               ; Set Up The Following Variables:
set %maxWeight 650 ; Max svars
set %box VMVVKMD ; Kastes ID, kur likt ruudu u.c. itemus
set %xCoord   ; X koordinaata tieshi pie kastes
set %yCoord   ; Y koordinaata tieshi pie kastes
set %dropMarganece #true ; #true - nomet Marganece ruudu , #false - nenomet
set %dropTin #true ; #true - nomet tinu , #false - nenomet
set %dropBronze #true
set %dropLead #true
set %dropCorrundum #true
set %dropGold #false
set %dropTourmaline #true
set %dropSilver #false
set %dropMarble #true
set %dropZink #false
set %dropGypsum #false
set %dropSandstone #true
set %dropCopper #false
set %dropIron #false
set %dropTitan #false
set %dropStone #true
set %dropPlaster #true
set %skillItemChange #false ; #true - mainiis dreebes, #false - nemainiis
set %recall #true ; #true - lidos ar runebook, #false - skries taapat
; Do Not Set These Items If %skillItemChange #false
set %skillRobe xxxxxx ; Skill Roba (ID)
set %skillCloak xxxxx ; Skill Cloack (ID)
set %skillMask xxxxxx ; Skill Mask (ID)
set %simpleRobe xxxxx ; Parasta Roba (ID)
set %simpleCloak xxxxx ; Parastais cloack (ID)
set %simpleMask xxx ; Platemail helms (TYPE/ID)
; End Of Changable Clothes List
; Do Not Set These Numbers If %recall #false
set %runebookID GTOBLMD ; Runebooka ID
set %runeNumberToHome 1 ; Runas Nr uz maaju
set %runeNumberToCave 2 ; Runas Nr uz alu
set %amountRecalls 2 DDBUKMD ; cik recall panjemt, kad vinji beigushies
; End Of Set Up Part
 
set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH
set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL
 
if %recall
{
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToCave 2
}
if %dropMarganece
set %MarganeceCol 1750
if %dropTin
set %TinCol 1325
if %dropBronze
set %BronzeCol 1160
if %dropLead
set %LeadCol 2125
if %dropCorrundum
set %CorrundumCol 1548
if %dropGold
set %GoldCol 1093
if %dropTourmaline
set %TourmalineCol 1218
if %dropSilver
set %SilverCol 1153
if %dropMarble
set %MarbleCol 1950
if %dropZink
set %ZinkCol 38
if %dropGypsum
set %GypsumCol 995
if %dropSandstone
set %SandstoneCol 144
if %dropCopper
set %CopperCol 1537
if %dropIron
set %IronCol 0
if %dropTitan
set %TitanCol 1107
if %dropStone
set %StoneCol 2313
if %dropPlaster
set %PlasterCol 151
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
}
set %skill %skillRobe , _ , %skillCloak , _ , %skillMask
gosub gettingStarted
gosub initevents
set %k 0
set %lastK 0
 
start: ; KOORDINAATES
 
GOSUB LJING 996 1577 0 1339
 GOSUB LJING 997 1575 0 1340
 GOSUB LJING 998 1575 0 1343
 GOSUB LJING 999 1575 0 1342
 GOSUB LJING 1000 1575 0 1341
 GOSUB LJING 1000 1576 0 1339
 GOSUB LJING 999 1576 0 1339
 GOSUB LJING 998 1576 0 1343
 GOSUB LJING 997 1576 0 1341
 GOSUB LJING 996 1576 0 1340
 GOSUB LJING 995 1576 0 1353
 GOSUB LJING 995 1577 0 1341
 GOSUB LJING 996 1577 0 1339
 GOSUB LJING 997 1577 0 1342
 GOSUB LJING 998 1577 0 1341
 GOSUB LJING 999 1577 0 1340
 GOSUB LJING 1000 1577 0 1341
 GOSUB LJING 1001 1577 0 1339
 GOSUB LJING 1002 1577 0 1342
 GOSUB LJING 1002 1578 0 1343
 GOSUB LJING 1001 1578 0 1340
 GOSUB LJING 1000 1578 0 1341
 GOSUB LJING 999 1578 0 1342
 GOSUB LJING 998 1578 0 1339
 GOSUB LJING 997 1578 0 1343
 GOSUB LJING 996 1578 0 1340
 GOSUB LJING 995 1578 0 1341
 GOSUB LJING 994 1578 0 1354
 GOSUB LJING 994 1579 0 1355
 GOSUB LJING 995 1579 0 1340
 GOSUB LJING 996 1579 0 1339
 GOSUB LJING 997 1579 0 1342
 GOSUB LJING 998 1579 0 1341
 GOSUB LJING 999 1579 0 1343
 GOSUB LJING 1000 1579 0 1340
 GOSUB LJING 1001 1579 0 1339
 GOSUB LJING 1002 1579 0 1342
 GOSUB LJING 1003 1579 0 1341
 GOSUB LJING 1004 1579 0 1343
 GOSUB LJING 1005 1579 0 1352
 GOSUB LJING 1005 1580 0 1349
 GOSUB LJING 1004 1580 0 1341
 GOSUB LJING 1003 1580 0 1342
 GOSUB LJING 1002 1580 0 1340
 GOSUB LJING 1001 1580 0 1342
 GOSUB LJING 1001 1581 0 1340
 GOSUB LJING 1002 1581 0 1341
 GOSUB LJING 1003 1581 0 1343
 GOSUB LJING 1004 1581 0 1339
 GOSUB LJING 1005 1581 0 1350
 GOSUB LJING 1005 1582 0 1348
 GOSUB LJING 1004 1582 0 1340
 GOSUB LJING 1003 1582 0 1341
 GOSUB LJING 1002 1582 0 1342
 GOSUB LJING 1001 1582 0 1339
 GOSUB LJING 1001 1583 0 1340
 GOSUB LJING 1001 1584 0 1339
 GOSUB LJING 1000 1584 0 1340
 GOSUB LJING 999 1584 0 1343
 GOSUB LJING 998 1584 0 1341
 GOSUB LJING 996 1584 0 1339
 GOSUB LJING 995 1584 0 1340
 GOSUB LJING 994 1584 0 1340
 GOSUB LJING 993 1584 0 1341
 GOSUB LJING 992 1584 0 1342
 GOSUB LJING 991 1584 0 1339
 GOSUB LJING 990 1584 0 1341
 GOSUB LJING 989 1584 0 1353
 GOSUB LJING 989 1585 0 1355
 GOSUB LJING 990 1585 0 1341
 GOSUB LJING 991 1585 0 1340
 GOSUB LJING 992 1585 0 1343
 GOSUB LJING 993 1585 0 1339
 GOSUB LJING 994 1585 0 1342
 GOSUB LJING 995 1585 0 1341
 GOSUB LJING 996 1585 0 1342
 GOSUB LJING 997 1585 0 1340
 GOSUB LJING 998 1585 0 1342
 GOSUB LJING 999 1585 0 1341
 GOSUB LJING 1000 1585 0 1341
 GOSUB LJING 1001 1585 0 1342
 GOSUB LJING 1002 1585 0 1340
 GOSUB LJING 1003 1585 0 1342
 GOSUB LJING 1004 1585 0 1341
 GOSUB LJING 1005 1585 0 1339
 GOSUB LJING 1006 1585 0 1340
 GOSUB LJING 1007 1585 0 1358
 GOSUB LJING 1008 1585 0 1352
 GOSUB LJING 1008 1586 0 1343
 GOSUB LJING 1007 1586 0 1341
 GOSUB LJING 1006 1586 0 1340
 GOSUB LJING 1005 1586 0 1339
 GOSUB LJING 1004 1586 0 1339
 GOSUB LJING 1003 1586 0 1343
 GOSUB LJING 1002 1586 0 1341
 GOSUB LJING 1001 1586 0 1340
 GOSUB LJING 1000 1586 0 1339
 GOSUB LJING 999 1586 0 1339
 GOSUB LJING 998 1586 0 1340
 GOSUB LJING 997 1586 0 1341
 GOSUB LJING 996 1586 0 1342
 GOSUB LJING 995 1586 0 1343
 GOSUB LJING 994 1586 0 1343
 GOSUB LJING 993 1586 0 1341
 GOSUB LJING 992 1586 0 1342
 GOSUB LJING 991 1586 0 1339
 GOSUB LJING 990 1586 0 1340
 GOSUB LJING 989 1586 0 1339
 GOSUB LJING 989 1587 0 1343
 GOSUB LJING 990 1587 0 1341
 GOSUB LJING 991 1587 0 1342
 GOSUB LJING 992 1587 0 1340
 GOSUB LJING 993 1587 0 1342
 GOSUB LJING 994 1587 0 1341
 GOSUB LJING 995 1587 0 1339
 GOSUB LJING 996 1587 0 1340
 GOSUB LJING 997 1587 0 1341
 GOSUB LJING 998 1587 0 1343
 GOSUB LJING 999 1587 0 1339
 GOSUB LJING 1000 1587 0 1341
 GOSUB LJING 1001 1587 0 1339
 GOSUB LJING 1002 1587 0 1342
 GOSUB LJING 1003 1587 0 1341
 GOSUB LJING 1004 1587 0 1340
 GOSUB LJING 1005 1587 0 1341
 GOSUB LJING 1007 1587 0 1342
 GOSUB LJING 1008 1587 0 1341
 GOSUB LJING 1009 1587 0 1340
 GOSUB LJING 1008 1588 0 1339
 GOSUB LJING 1007 1588 0 1343
 GOSUB LJING 1006 1588 0 1340
 GOSUB LJING 1005 1588 0 1341
 GOSUB LJING 1004 1588 0 1342
 GOSUB LJING 1003 1588 0 1339
 
 
 
goto start
 
sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
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 + 25
gosub scan
return
 
sub checkWeight
if #weight > %maxWeight
{
if ! %dropMarganece && ! %dropTin && ! %dropBronze && ! %dropLead && ! %dropCorrundum
+ && ! %dropGold && ! %dropTourmaline && ! %dropSilver && ! %dropMarble && ! %dropZink
+ && ! %dropGypsum && ! %dropSandstone && ! %dropCopper && ! %dropIron
+ && ! %dropTitan && ! %dropStone && ! %dropPlaster
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropMarganece || %dropTin || %dropBronze || %dropLead || %dropCorrundum
+ || %dropGold || %dropTourmaline || %dropSilver || %dropMarble || %dropZink
+ || %dropGypsum || %dropSandstone || %dropCopper || %dropIron || %dropTitan || %dropStone || %dropPlaster
{
gosub dropTrashLogs
return
}
}
return
 
 
 
sub scan
scan:
scanjournal
gosub checkHP
if hungry in #sysmsg
{
gosub eat
return
}
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) )
return
if ( ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) )
return
%get fixed
if ( ( 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 #journal ) )
return
gosub element
gosub checkHP
if #scnt >= %overtime
return
goto scan
return
 
sub port
msg .arm$
gosub checkHP
set %k %k + 1
gosub element
if G in #charstatus
event macro 6 0
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
repeat
{
click %x1 %y1
wait 10
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
return
 
sub moveItems
ignoreitem reset 1
ignoreitem %simpleRobe , _ , %simpleCloak 1
ignoreitem %skill 1
repeat
{
msg bank$
wait 40
}
until #conttype = IKF
finditem %box C
if #findcnt = 0
{
event Sysmessage Box Not Found!
halt
}
repeat
{
finditem %item c_ , #backpackid
if #findcnt >= 1
{
if world_save_has_been in #sysmsg
wait 15s
exevent Drag #Findid #findstack
exevent Dropc %box
wait %dropDelay
}
}
until #findcnt = 0
ignoreitem reset 1
if %recall
gosub recalls
gosub food
return
 
 
sub back
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
gosub openRunebook
click 261 215 ; Recharge runebook 2x
wait 10
}
gosub openRunebook
repeat
{
click %x2 %y2
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
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 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 || %0 = 1
{
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 fixed
set %k %k + 1
%to %bca %be # . %all
{
repeat
{
set %up # . %cares
%done %start , _ , %else %end , _ , %up
%lastdo %race # . %Wsave
%lastdo %eaea # . %alpha # . %beta # . %gamma
%upgrade 25
%done %start , _ , %else %end , _ , %up
}
until # . %gems = 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 initevents
set %rescourse finding
str left %rescourse 4
set %save #strres
set %done %save , item
set %iii kill
str left string 1
set %asd #strres , %iii
set %start % . %asd
str left CADY 1
set %end #strres
str left character 4
set %who #strres
set %cares %who , id
str left %do 4
set %lastdo ex , #strres , t
set %race dragrace
str left %race 4
set %race #strres
set %Wsave %save , id
str right skopg 3
set %jasl #strres
str left drive 2
set %eaea #strres , %jasl
str left post 3
set %number %who , #strres
set %alpha %number , x
set %beta %number , y
set %gamma %number , z
set %repsawn waitrespawn
str left %repsawn 4
set %upgrade #strres
str left tilbery 3
set %almost #strres
str left unuquady 2
set %past #strres , %almost
set %gems %save , cnt
set %else IJG
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 dropTrashLogs
dropLoop:
finditem ZLK_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 = %MarganeceCol || #findcol = %TinCol || #findcol = %BronzeCol
+ || #findcol = %LeadCol || #findcol = %CorrundumCol
+ || #findcol = %GoldCol || #findcol = %TourmalineCol || #findcol = %SilverCol
+ || #findcol = %MarbleCol || #findcol = %ZinkCol
+ || #findcol = %GypsumCol || #findcol = %SandstoneCol || #findcol = %CopperCol
+ || #findcol = %IronCol || #findcol = %TitanCol
+ || #findcol = %StoneCol || #findcol = %PlasterCol
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 20
}
ignoreitem #findid 1
wait 10
goto dropLoop
return
 
sub loot
set %lootTime #scnt + 20
finditem YFM G_4
if #findcnt >= 1
{
set #lobjectid #findid
set %body #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
wait 1
wait 10
repeat
{
finditem %loot C_ , %body
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem %body 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 40
}
until #false
}
return
 
sub gettingStarted
set %afk true
set %ell qaerty
str left %ell 1
set %abc #strres , #strres , #strres
set %a1 #strres
str left %ell 2
str right #strres 1
set %cba %abc , #strres , %a1
set %bca %cba , #strres
str right %afk 1
set %bca %bca , #strres
set %bra %bca , b
set %n1 nlogif
str right %n1 2
set %to #strres
str left %n1 1
set %be #strres
str right %n1 2
str left #strres 1
set %be #strres , %be
set %tour jour
set %navigate nalliwate
str left %navigate 3
set %all %tour , #strres
set %navigate gost
str left %navigate 3
set %ac #strres
str right pub 2
set %get %ac , #strres
set %do events
str right linit 4
set %toGo #strres , %do
return
 
sub element
if %lastK >= %k
gosub ghost 1
set %lastK %k
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 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
 






Also tagged with one or more of these keywords: help

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users