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

Palidzat Ar Mining Skriptu


  • Please log in to reply
3 replies to this topic

#1 frankijs

frankijs

    Novice

  • Members
  • 30 posts
  • Gender:Male

Posted 05 August 2012 - 18:54

Ludzu palidzat ! Skripts stradaa kaa vaidzetu tikai viena problema , KAD VINS AIZIET NOMEST UZ KASTI INGUS , VINS PALIEK STAVOT ZEM HIDINGA PIE KASTES UN VAIRS NEROK !!! Ludzu izpalidzat , kas var buut ???


; Set Up The Following Variables:
set %maxWeight 600 ; Max ves
set %box GVRWJMD ; ID korobki, gde sbrasivatj rudu
set %foodCont BFCUKMD ; ID korobki, gde stoit zapasi moloko i bekona
set %xCoord 2433 ; X koordinata okolo boxa
set %yCoord 177 ; Y koordinata okolo boxa
set %dropMarganece #true ; #true - sbrasivajet Marganece rudu , #false - net
set %skillItemChange #false ; #true - menjajet skill shmotki, #false - net
set %recall #false ; #true - letajet s runebook, #false - begut peshkom
; Do Not Set These Items If %skillItemChange #false
set %skillRobe KIOSJMD ; Skill Roba (ID)
set %skillCloak TCNSJMD ; Skill Cloack (ID)
set %skillMask YSNSJMD ; Skill Mask (ID)
set %simpleRobe UTRVLMD ; Prostaja Roba (ID)
set %simpleCloak VARVLMD ; Prostoj cloack (ID)
set %simpleMask OSH ; Platemail helm (TYPE/ID)
; End Of Changable Clothes List
; Do Not Set These Numbers If %recall #false
set %runebookID NDWXJMD ; ID runebooka
set %runeNumberToHome 7 ; Nr runi na dom
set %runeNumberToCave 10 ; Nr runi na kopalku
set %amountRecalls 10 ; Skolko recallov vzjatj, kogda ix netu
; Delays (Zaderzhki) [ 20 = 1 second ]:
set %dropDelay 45 ; Skolko zhadtj mezhdu kidanii rudi na zemlju
set %lootDelay 45 ; Skolko zhdatj mezdhu loota predmetov
set %dropDelay 45 ; Skolko zhdatj mezhdu kidanii rudi v korobke
set %equipDelay 8 ; Skolko zhdatj mezhdu proverki odevanii skill veshej
; 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
}
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: ; KOORDINATI

GOSUB LJING 2409 185 1345
GOSUB LJING 2409 184 1339
GOSUB LJING 2409 183 1340
GOSUB LJING 2410 183 1342
GOSUB LJING 2410 184 1341
GOSUB LJING 2410 185 1346
GOSUB LJING 2411 185 1343
GOSUB LJING 2411 184 1339
GOSUB LJING 2409 182 1341
GOSUB LJING 2410 182 1343
GOSUB LJING 2409 181 1342
GOSUB LJING 2410 181 1341
GOSUB LJING 2409 180 1339
GOSUB LJING 2410 180 1341
GOSUB LJING 2410 179 1342
GOSUB LJING 2411 180 1340
GOSUB LJING 2411 179 1341
GOSUB LJING 2411 178 1342
GOSUB LJING 2411 177 1340
GOSUB LJING 2411 176 1340
GOSUB LJING 2412 176 1342
GOSUB LJING 2412 177 1343
GOSUB LJING 2412 178 1339
GOSUB LJING 2412 179 1343
GOSUB LJING 2412 180 1342
GOSUB LJING 2412 181 1343
GOSUB LJING 2413 182 1342
GOSUB LJING 2413 181 1341
GOSUB LJING 2413 180 1341
GOSUB LJING 2413 179 1343
GOSUB LJING 2414 179 1339
GOSUB LJING 2414 180 1339
GOSUB LJING 2414 181 1342
GOSUB LJING 2414 182 1341
GOSUB LJING 2414 183 1340
GOSUB LJING 2415 183 1340
GOSUB LJING 2415 182 1342
GOSUB LJING 2416 183 1345
GOSUB LJING 2416 182 1341
GOSUB LJING 2415 181 1341
GOSUB LJING 2416 181 1342
GOSUB LJING 2417 183 1346
GOSUB LJING 2417 182 1342
GOSUB LJING 2417 181 1340
GOSUB LJING 2418 183 1344
GOSUB LJING 2418 182 1343
GOSUB LJING 2418 181 1339
GOSUB LJING 2418 180 1341
GOSUB LJING 2415 179 1340
GOSUB LJING 2416 179 1339
GOSUB LJING 2417 179 1339
GOSUB LJING 2418 179 1342
GOSUB LJING 2418 178 1340
GOSUB LJING 2417 178 1343
GOSUB LJING 2416 178 1342
GOSUB LJING 2415 178 1339
GOSUB LJING 2418 177 1339
GOSUB LJING 2417 177 1341
GOSUB LJING 2416 177 1343
GOSUB LJING 2418 176 1340
GOSUB LJING 2417 176 1342
GOSUB LJING 2416 176 1342
GOSUB LJING 2415 177 1340
GOSUB LJING 2418 175 1341
GOSUB LJING 2417 175 1340
GOSUB LJING 2416 175 1342
GOSUB LJING 2415 176 1341
GOSUB LJING 2418 174 1339
GOSUB LJING 2417 174 1343
GOSUB LJING 2416 174 1342
GOSUB LJING 2415 175 1342
GOSUB LJING 2418 173 1339
GOSUB LJING 2417 173 1339
GOSUB LJING 2416 173 1343
GOSUB LJING 2415 174 1343
GOSUB LJING 2418 172 1339
GOSUB LJING 2417 172 1340
GOSUB LJING 2416 172 1341
GOSUB LJING 2415 173 1339
GOSUB LJING 2418 171 1343
GOSUB LJING 2417 171 1341
GOSUB LJING 2416 171 1342
GOSUB LJING 2415 172 1341
GOSUB LJING 2418 170 1342
GOSUB LJING 2417 170 1343
GOSUB LJING 2416 170 1339
GOSUB LJING 2415 171 1340
GOSUB LJING 2419 173 1341
GOSUB LJING 2419 174 1340
GOSUB LJING 2419 175 1340
GOSUB LJING 2420 175 1342
GOSUB LJING 2420 174 1339
GOSUB LJING 2420 173 1339
GOSUB LJING 2421 172 1340
GOSUB LJING 2421 173 1341
GOSUB LJING 2421 174 1340
GOSUB LJING 2421 175 1341
GOSUB LJING 2422 180 1346
GOSUB LJING 2423 180 1347
GOSUB LJING 2424 180 1347
GOSUB LJING 2422 179 1340
GOSUB LJING 2423 179 1343
GOSUB LJING 2422 178 1342
GOSUB LJING 2423 178 1340
GOSUB LJING 2422 177 1342
GOSUB LJING 2423 177 1341
GOSUB LJING 2423 176 1343
GOSUB LJING 2422 176 1343
GOSUB LJING 2423 175 1341
GOSUB LJING 2422 175 1342
GOSUB LJING 2423 174 1340
GOSUB LJING 2422 174 1341
GOSUB LJING 2423 173 1341
GOSUB LJING 2422 173 1342
GOSUB LJING 2423 172 1343
GOSUB LJING 2422 172 1340
GOSUB LJING 2423 171 1340
GOSUB LJING 2422 171 1339
GOSUB LJING 2423 170 1340
GOSUB LJING 2422 170 1341
GOSUB LJING 2423 169 1340
GOSUB LJING 2422 169 1342
GOSUB LJING 2431 167 1342
GOSUB LJING 2422 172 1340

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
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropMarganece
{
gosub dropMarganece
return
}
}
if %afk <> true || %else <> IJG
gosub ghost 1
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 20
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
return

sub moveItems
ignoreitem reset 1
ignoreitem %simpleRobe , _ , %simpleCloak 1
ignoreitem %skill 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 >= 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
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
wait %equipDelay
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait %equipDelay
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait %equipDelay
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 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
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait %dropDelay
}
ignoreitem #findid 1
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 %lootDelay
}
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 10
finditem WTL C_ , %box
exevent drag #findid %amountRecalls
exevent dropc #backpackid
wait 30
}
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

Attached Files



#2 R1m1

R1m1

    Novice

  • Members
  • 29 posts

Posted 06 August 2012 - 22:38

kur paredzēts nosviest resursu ? bankā vai mājā?

#3 frankijs

frankijs

    Novice

  • Members
  • 30 posts
  • Gender:Male

Posted 08 August 2012 - 11:04

Pie majas kaste stav !!! vins nometas un paliek stavot pie kastes !

#4 newbiegaming

newbiegaming
  • Members
  • 3 posts

Posted 26 December 2017 - 04:33

Varu iedot citu scr mans skype Daniels Laurs ar Supermena logo






0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users