Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Toggle shoutbox Chat

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

@ fr33	:	(17 April 2024 - 11:16) gm pashol v mu igrac
@ 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
@ 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
@ 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% и вроде как я поправил это.

Мининг Newbie Island

Started by cleaver, Dec 08 2009 22:20

Please log in to reply

29 replies to this topic

#21 Legioner

Newbie

Members
21 posts

Gender:Male

Posted 15 December 2009 - 06:36

Вот каждый день захожу и умиляюсь.. какие вы все жадины говядины!

Для тех кто еще не догнал как исправить скрипт под себя. Я попытаюсь суть хуйнуть.. хуйнуть суть =D

1) Запускать скрипт следует в пещере, а не у банка. (иначе чар бежит к первой координате мест копания и упирается в реку.)
2) в двух строчках
set %box NKRALMD

finditem %box G_3

меняем значения выделенные болдом, это CONTID i CONTTYPE вашего контейнера.
Как ето сделать?
Берешь коробку или мешок, кладешь его в банк и открываешь. Потом заходишь в Изю и смотришь ети два значения в столбике со зачениями в разделе ContainerInfo.
3) Для тех кто не знает как сделать так чтоб чар скидывал шлак.
Меняем Set %DropMarganec на True.
в перечисление цветов руды указываем остальные виды, которые не нужны.

Грубо говоря, вместо этого
if #findcol = 1325 || #findcol = 1218 || #findcol = 1160
+ || #findcol = 2125 || #findcol = 1548

Вставляем вот это:

if #findcol = 1325 || #findcol = 1218 || #findcol = 1160
+ || #findcol = 2125 || #findcol = 1548 || #findcol = 1750
+ || #findcol = 0 || #findcol = 1537

Так скрипт будет скидывать все кроме силвера, голда и титаниума.

Да здравствуют распиздяи и фулл Титан по 1к на ньюби острове!

#22 Arsenikum

Ex Server Staff

Members
1138 posts

Gender:Male
Location:Riga

Posted 15 December 2009 - 08:26

Nas4et 2 punkta Krasavec bolshoe spasibo

Ветеран Oldparadise XL

#23 emo4ka

Advanced Player

Members
324 posts

Gender:Male
Location:Saint-Petersburg

Posted 17 December 2009 - 11:15

А мне не помогло пишет бокс нот фаунд.

#24 emo4ka

Advanced Player

Members
324 posts

Gender:Male
Location:Saint-Petersburg

Posted 17 December 2009 - 17:39

Подходит он значит к банку и пишет бокс нот фаунд. потом я отвожу чара в копалку и врубаю скрипт заного он идёт к банку и скидывает всё потом бежит копает накопал нужный вес приходит и опять бокс нот фаунд и скинет он только тогда когда я его опять отведу в копалку и там врублю скрипт, вот сам скрипт. Помогите плиз.

; Set Up The Following Variables:
set %maxWeight 350 ; Максимальный вес
set %box WJOHKMD ; Сумка с рудой в банке
set %xCoord 5908 ; Координаты возле банка Х
set %yCoord 2851 ; Y координата возле банка
set %dropMarganece #False ; #true - скидывает марганец
set %skillItemChange #False ; #true - переодевает скилл шмотки, #false - не переодевает
set %recall #false ; #true - летает по рунбуку, #false - бежит пешком
; Это не меняй, если не переодеваешь скилл шмотки %skillItemChange #false
set %skillRobe PXXBKMD ; Skill Roba (ID)
set %skillCloak BFKNKMD ; Skill Cloack (ID)
set %skillMask YZSQLMD ; Skill Mask (ID)
set %simpleRobe VTIPKMD ; Parasta Roba (ID)
set %simpleCloak XJWWKMD ; Parastais cloack (ID)
set %simpleMask OSH ; ring helm (ID)
; End Of Changable Clothes List
; Не меняй если %recall #false
set %runebookID BSJJLMD ; Рунбук ID
set %runeNumberToHome 4 ; Номер руны в дом
set %runeNumberToCave 4 ; Номер руны в пещеру
set %amountRecalls 10 ; Сколько рекаллов взять

set %repairwep #true ; false = не будем ремонтировать оружее
set %weapon PFPBMMD ; Оружие (ID)
set %ings RMK ; Инготы (Type, обязательно должны быть в сумке в банке, но только те которыми чинить!)
set %repairTool XXHTKMD ; repair tool (ID)

; Do Not Set These Variables If %tracking #false
; End Of Set Up Part

set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG
set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL

msg вы что тут делаете? $
wait 30
msg это моя шахта! $
wait 30
msg идите отсюда =) $

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
}

start:
GOSUB LJING 5490 2925 1351
GOSUB LJING 5490 2924 1354
GOSUB LJING 5490 2923 1356
GOSUB LJING 5490 2922 1355
GOSUB LJING 5490 2921 1354
GOSUB LJING 5491 2919 1386
GOSUB LJING 5491 2920 1343
GOSUB LJING 5491 2921 1343
GOSUB LJING 5491 2922 1343
GOSUB LJING 5491 2923 1343
GOSUB LJING 5491 2924 1343
GOSUB LJING 5491 2925 1343
GOSUB LJING 5491 2926 1351
GOSUB LJING 5492 2926 1343
GOSUB LJING 5492 2925 1343
GOSUB LJING 5492 2924 1343
GOSUB LJING 5492 2923 1343
GOSUB LJING 5492 2922 1343
GOSUB LJING 5492 2921 1342
GOSUB LJING 5492 2920 1343
GOSUB LJING 5492 2919 1342
GOSUB LJING 5493 2918 1357
GOSUB LJING 5493 2919 1343
GOSUB LJING 5493 2920 1343
GOSUB LJING 5493 2921 1343
GOSUB LJING 5493 2922 1343
GOSUB LJING 5493 2923 1343
GOSUB LJING 5493 2924 1343
GOSUB LJING 5493 2925 1343
GOSUB LJING 5493 2926 1343
GOSUB LJING 5493 2927 1343
GOSUB LJING 5493 2928 1351
GOSUB LJING 5494 2928 1343
GOSUB LJING 5494 2927 1343
GOSUB LJING 5494 2926 1343
GOSUB LJING 5494 2925 1343
GOSUB LJING 5494 2924 1343
GOSUB LJING 5494 2923 1343
GOSUB LJING 5494 2922 1343
GOSUB LJING 5494 2921 1343
GOSUB LJING 5494 2920 1343
GOSUB LJING 5494 2919 1343
GOSUB LJING 5494 2918 1357
GOSUB LJING 5495 2918 1359
GOSUB LJING 5495 2919 1343
GOSUB LJING 5495 2920 1343
GOSUB LJING 5495 2921 1343
GOSUB LJING 5495 2922 1343
GOSUB LJING 5495 2923 1343
GOSUB LJING 5495 2924 1343
GOSUB LJING 5495 2925 1343
GOSUB LJING 5495 2926 1343
GOSUB LJING 5495 2927 1343
GOSUB LJING 5495 2928 1343
GOSUB LJING 5496 2928 1343
GOSUB LJING 5496 2927 1343
GOSUB LJING 5496 2926 1343
GOSUB LJING 5496 2925 1343
GOSUB LJING 5496 2924 1343
GOSUB LJING 5496 2923 1343
GOSUB LJING 5496 2922 1343
GOSUB LJING 5496 2921 1343
GOSUB LJING 5496 2920 1343
GOSUB LJING 5496 2919 1343
GOSUB LJING 5496 2918 1358
GOSUB LJING 5497 2918 1357
GOSUB LJING 5497 2919 1343
GOSUB LJING 5497 2920 1343
GOSUB LJING 5497 2921 1343
GOSUB LJING 5497 2922 1343
GOSUB LJING 5497 2923 1343
GOSUB LJING 5497 2924 1343
GOSUB LJING 5497 2925 1343
GOSUB LJING 5497 2926 1343
GOSUB LJING 5497 2927 1343
GOSUB LJING 5497 2928 1343
GOSUB LJING 5497 2929 1343
GOSUB LJING 5498 2929 1343
GOSUB LJING 5498 2928 1343
GOSUB LJING 5498 2927 1343
GOSUB LJING 5498 2926 1343
GOSUB LJING 5498 2925 1343
GOSUB LJING 5498 2924 1343
GOSUB LJING 5498 2923 1343
GOSUB LJING 5498 2922 1343
GOSUB LJING 5498 2921 1343
GOSUB LJING 5498 2920 1343
GOSUB LJING 5498 2919 1343
GOSUB LJING 5498 2918 1359
GOSUB LJING 5499 2918 1343
GOSUB LJING 5499 2919 1343
GOSUB LJING 5500 2918 1343
GOSUB LJING 5500 2919 1343
GOSUB LJING 5500 2917 1343
GOSUB LJING 5500 2916 1354
GOSUB LJING 5501 2916 1343
GOSUB LJING 5501 2917 1342
GOSUB LJING 5501 2918 1343
GOSUB LJING 5501 2919 1343
GOSUB LJING 5502 2918 1343
GOSUB LJING 5502 2917 1343
GOSUB LJING 5502 2919 1343
GOSUB LJING 5503 2917 1343
GOSUB LJING 5503 2918 1343
GOSUB LJING 5503 2919 1343

goto start

sub ljing
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
move %1 %2 1 40s
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 + 40
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 ( ( 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 #journal ) )
+ || ( You_can't_use_that in #journal ) || ( That_is_too_far in #journal )
return
gosub checkHP
if #scnt >= %overtime
return
goto scan
return

sub port
msg .arm$
gosub checkHP
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
goto start
return

sub moveItems
ignoreitem reset 1
gosub runToBox
msg Fuh, dobezhal! Korobka - otvoris! $
wait 1s
msg BANK BANK BANK $
finditem %box IUD
wait 10
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 25
}
}
until #findcnt = 0
msg Nu vot, vse vilozhil $
wait 35
if %repairwep
{
msg Tak, nado bi pochinitsa, malo li atakujut... $
gosub repairWeapon
}
if %recall
gosub recalls
move 5906 2851 ;Координаты по дороге от банка к скале, смотри чтобы не застрял
wait 1
move 5906 2867 ;Координаты по дороге от банка к скале, смотри чтобы не застрял
wait 1
move 5882 2867
wait 1
move 5882 2892
wait 1
move 5832 2892
wait 1
move 5812 2911
wait 1
move 5542 2911
wait 1
move 5535 2918
wait 1
move 5500 2918
wait 1
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
move 5517 2916 ;Координаты по дороге к банку, смотри чтобы не застрял
wait 1
move 5800 2916 ;Координаты по дороге к банку, смотри чтобы не застрял
wait 1
move 5834 2893 ;Координаты по дороге к банку, смотри чтобы не застрял
wait 1
move 5881 2893
wait 1
move 5881 2869
wait 1
move 5899 2851
wait 1
move 5906 2851
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
}
if hungry in #sysmsg
{
gosub eat
return
}
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
wait 20
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %2 C_ , #backpackid
wait 20
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
finditem %3 C_ , #backpackid
wait 20
}
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 15s
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 5s
if #weight >= %maxweight
{
if %recall
gosub port
if ! %recall
gosub moveItems
return
}
if #weight < %maxweight
return
}
if #findcol = 1325 || #findcol = 1218 || #findcol = 1160
+ || #findcol = 2125 || #findcol = 1548
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 50
}
ignoreitem #findid 1
goto dropLoop
return

sub loot
set %lootTime #scnt + 30
finditem YFM G_4
if #findcnt > 0
{
set #lobjectid #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
wait 2s
wait 20
if #conttype = YFM
set %corpse #contid
repeat
{
finditem %loot C_ , %corpse
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem %corpse 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 35
}
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
msg Uh, kak ja ego! Ubit, padla! $
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
finditem WTL C_ , %box
exevent drag #findid %amountRecalls
exevent dropc #backpackid
wait 20
}
return

sub repairWeapon
repeat {
put1:
repeat
{
finditem %weapon C_ , #charid
exevent drag #findid
exevent dropc #backpackid
wait 25
finditem %weapon C_ , #charid
}
until #findcnt = 0
finditem %weapon C_ , #backpackid
if #findcnt = 0
goto put1
take1:
set #lobjectid %box
event macro 17 0
wait 25
finditem %ings C_, %box
exevent drag #findid 5
exevent dropc #backpackid
wait 25
finditem %ings C_, #backpackid
if #findcnt = 0
goto take1

_repair:
set #lobjectid %repairTool
set #ltargetid %weapon
set #ltargetkind 1
set %lag #scnt + 10
event macro 17 0
wait 20
target
while #targcurs <> 1 && #scnt < %lag
wait 1
event macro 22 0
wait 20
finditem %ings C_, #backpackid

until You_fully_repaired || Your in #sysmsg
msg repaired sucessfully! $

take2:
set #lobjectid %box
event macro 17 0
wait 10
finditem %ings C_, #backpackid
exevent drag #findid #findstack
exevent dropc %box
wait 25
finditem %ings C_, #backpackid
if #findcnt > 0
{ goto take2 }
msg resursi polozhil nazad, snova v put! $
return

#25 EnFlame

Thief of Horses

Members
2041 posts

Gender:Male
Location:Беломорканал
Interests:A bit of this & a bit of that.

Posted 17 December 2009 - 17:47

.....

sub moveItems

ignoreitem reset 1

gosub runToBox

msg Fuh, dobezhal! Korobka - otvoris! $

wait 1s

repeat

{

msg BANK BANK BANK $

wait 30

}

until #conttype = IKF

finditem %box

wait 10

if #findcnt = 0

{

event Sysmessage Box Not Found!

halt

}

....

#26 emo4ka

Advanced Player

Members
324 posts

Gender:Male
Location:Saint-Petersburg

Posted 17 December 2009 - 19:30

Огромное спасибо!

#27 Inferno/06

Journeyman

Members
50 posts

Posted 24 February 2010 - 21:10

Привет. захотел покопать, взял ваш скрипт и вот проблема, копает/идет до банка/открывает банк. А вот в сумку руду не кидают. Вроде делал все что писали выше но вот все равно руду не складывает в пакетик. Причем пишет что все положил и стоит себе довольный на месте. В чем дело?

#28 karlan

Newbie

Members
16 posts

Location:Москва

Posted 24 February 2010 - 23:33

; Set Up The Following Variables:

set %maxWeight 500	   ; Максимальный вес

set %box DXCYJMD		 ; Сумка с рудой в банке

set %xCoord 5904		; Координаты возле банка Х

set %yCoord 2850		 ; Y координата возле банка

set %dropMarganece #false  - скидывает марганец

set %skillItemChange #False;  - переодевает скилл шмотки, #false - не переодевает

set %recall #false		 - летает по рунбуку, #false - бежит пешком

; Это не меняй, если не переодеваешь скилл шмотки %skillItemChange #false

set %skillRobe PXXBKMD   ; Skill Roba (ID)

set %skillCloak BFKNKMD ; Skill Cloack (ID)

set %skillMask YZSQLMD   ; Skill Mask (ID)

set %simpleRobe VTIPKMD ; Parasta Roba (ID)

set %simpleCloak XJWWKMD ; Parastais cloack (ID)

set %simpleMask OSH  ; ring helm (ID)

; End Of Changable Clothes List

; Не меняй если %recall #false

set %runebookID BSJJLMD ; Рунбук ID

set %runeNumberToHome 4 ; Номер руны в дом

set %runeNumberToCave 4 ; Номер руны в пещеру

set %amountRecalls 10	; Сколько рекаллов взять



set %repairwep #false	  ; false = не будем ремонтировать оружее

set %weapon BGJIKMD	  ; Оружие (ID)

set %ings RMK			; Инготы (Type, обязательно должны быть в сумке в банке, но только те которыми чинить!)

set %repairTool XXHTKMD  ; repair tool (ID)





; Do Not Set These Variables If %tracking #false

; End Of Set Up Part



set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG

set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL



msg   a $

wait 30

msg   b $

wait 30

msg   c $



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

}



start:



GOSUB LJING 5490 2925 1351 0

GOSUB LJING 5490 2924 1354 0

GOSUB LJING 5490 2923 1356 0

GOSUB LJING 5490 2922 1355 0

GOSUB LJING 5490 2921 1354 0

GOSUB LJING 5491 2926 1351 0

GOSUB LJING 5491 2925 1343 0

GOSUB LJING 5491 2924 1343 0

GOSUB LJING 5491 2923 1343 0

GOSUB LJING 5491 2921 1343 0

GOSUB LJING 5491 2920 1343 0

GOSUB LJING 5491 2919 1386 0

GOSUB LJING 5492 2918 1386 0

GOSUB LJING 5492 2919 1342 0

GOSUB LJING 5492 2920 1343 0

GOSUB LJING 5492 2921 1342 0

GOSUB LJING 5492 2922 1343 0

GOSUB LJING 5492 2923 1343 0

GOSUB LJING 5492 2924 1343 0

GOSUB LJING 5492 2925 1343 0

GOSUB LJING 5492 2926 1343 0

GOSUB LJING 5492 2927 1351 0

GOSUB LJING 5493 2928 1351 0

GOSUB LJING 5493 2927 1343 0

GOSUB LJING 5493 2926 1343 0

GOSUB LJING 5493 2925 1343 0

GOSUB LJING 5493 2924 1343 0

GOSUB LJING 5493 2923 1343 0

GOSUB LJING 5493 2922 1343 0

GOSUB LJING 5493 2921 1343 0

GOSUB LJING 5493 2920 1343 0

GOSUB LJING 5493 2919 1343 0

GOSUB LJING 5493 2918 1357 0

GOSUB LJING 5494 2918 1357 0

GOSUB LJING 5494 2919 1343 0

GOSUB LJING 5494 2920 1343 0

GOSUB LJING 5494 2921 1343 0

GOSUB LJING 5494 2922 1343 0

GOSUB LJING 5494 2923 1343 0

GOSUB LJING 5494 2924 1343 0

GOSUB LJING 5494 2925 1343 0

GOSUB LJING 5494 2926 1343 0

GOSUB LJING 5494 2927 1343 0

GOSUB LJING 5494 2928 1343 0

GOSUB LJING 5494 2929 1351 0

GOSUB LJING 5495 2930 1351 0

GOSUB LJING 5495 2928 1343 0

GOSUB LJING 5495 2927 1343 0

GOSUB LJING 5495 2926 1343 0

GOSUB LJING 5495 2924 1343 0

GOSUB LJING 5495 2923 1343 0

GOSUB LJING 5495 2922 1343 0

GOSUB LJING 5495 2921 1343 0

GOSUB LJING 5495 2920 1343 0

GOSUB LJING 5495 2919 1343 0

GOSUB LJING 5495 2918 1359 0

GOSUB LJING 5496 2918 1358 0

GOSUB LJING 5496 2919 1343 0

GOSUB LJING 5496 2920 1343 0

GOSUB LJING 5496 2921 1343 0

GOSUB LJING 5496 2922 1343 0

GOSUB LJING 5496 2923 1343 0

GOSUB LJING 5496 2924 1343 0

GOSUB LJING 5496 2925 1343 0

GOSUB LJING 5496 2926 1343 0

GOSUB LJING 5496 2927 1343 0

GOSUB LJING 5496 2928 1343 0

GOSUB LJING 5496 2929 1343 0

GOSUB LJING 5496 2930 1345 0

GOSUB LJING 5497 2930 1347 0

GOSUB LJING 5497 2929 1343 0

GOSUB LJING 5497 2928 1343 0

GOSUB LJING 5497 2927 1343 0

GOSUB LJING 5497 2926 1343 0

GOSUB LJING 5497 2925 1343 0

GOSUB LJING 5497 2924 1343 0

GOSUB LJING 5497 2923 1343 0

GOSUB LJING 5497 2922 1343 0

GOSUB LJING 5497 2921 1343 0

GOSUB LJING 5497 2920 1343 0

GOSUB LJING 5497 2919 1343 0

GOSUB LJING 5497 2918 1357 0

GOSUB LJING 5498 2918 1359 0

GOSUB LJING 5498 2919 1343 0

GOSUB LJING 5498 2920 1343 0

GOSUB LJING 5498 2921 1343 0

GOSUB LJING 5498 2922 1343 0

GOSUB LJING 5498 2923 1343 0

GOSUB LJING 5498 2924 1343 0

GOSUB LJING 5498 2925 1343 0

GOSUB LJING 5498 2926 1343 0

GOSUB LJING 5498 2927 1343 0

GOSUB LJING 5498 2928 1343 0

GOSUB LJING 5498 2929 1343 0

GOSUB LJING 5498 2930 1343 0

GOSUB LJING 5498 2931 1351 0

GOSUB LJING 5499 2931 1345 0

GOSUB LJING 5500 2931 1361 0

GOSUB LJING 5500 2930 1343 0

GOSUB LJING 5501 2929 1343 0

GOSUB LJING 5502 2929 1346 0

GOSUB LJING 5503 2929 1347 0

GOSUB LJING 5503 2928 1343 0

GOSUB LJING 5503 2927 1343 0

GOSUB LJING 5503 2926 1343 0

GOSUB LJING 5503 2925 1343 0

GOSUB LJING 5503 2924 1343 0

GOSUB LJING 5503 2923 1343 0

GOSUB LJING 5503 2922 1343 0

GOSUB LJING 5503 2921 1343 0

GOSUB LJING 5503 2920 1343 0

GOSUB LJING 5503 2919 1343 0

GOSUB LJING 5503 2918 1343 0

GOSUB LJING 5503 2917 1343 0

GOSUB LJING 5503 2916 1343 0

GOSUB LJING 5503 2915 1358 0

GOSUB LJING 5504 2915 1357 0

GOSUB LJING 5504 2916 1343 0

GOSUB LJING 5504 2917 1343 0

GOSUB LJING 5504 2918 1343 0

GOSUB LJING 5504 2919 1343 0

GOSUB LJING 5504 2920 1343 0

GOSUB LJING 5504 2921 1343 0

GOSUB LJING 5504 2922 1343 0

GOSUB LJING 5504 2923 1343 0

GOSUB LJING 5504 2924 1343 0

GOSUB LJING 5504 2925 1343 0

GOSUB LJING 5504 2927 1343 0

GOSUB LJING 5504 2928 1343 0

GOSUB LJING 5505 2928 1346 0

GOSUB LJING 5505 2927 1343 0

GOSUB LJING 5505 2926 1343 0

GOSUB LJING 5505 2925 1343 0

GOSUB LJING 5505 2924 1343 0

GOSUB LJING 5505 2923 1343 0

GOSUB LJING 5505 2922 1343 0

GOSUB LJING 5505 2921 1343 0

GOSUB LJING 5505 2920 1343 0

GOSUB LJING 5505 2919 1343 0

GOSUB LJING 5505 2918 1342 0

GOSUB LJING 5505 2917 1343 0

GOSUB LJING 5505 2916 1343 0

GOSUB LJING 5506 2916 1363 0

GOSUB LJING 5506 2917 1343 0

GOSUB LJING 5506 2918 1343 0

GOSUB LJING 5506 2919 1343 0

GOSUB LJING 5506 2920 1343 0

GOSUB LJING 5506 2921 1343 0

GOSUB LJING 5506 2922 1343 0

GOSUB LJING 5506 2923 1343 0

GOSUB LJING 5506 2924 1343 0

GOSUB LJING 5506 2925 1343 0

GOSUB LJING 5506 2926 1343 0

GOSUB LJING 5506 2927 1343 0

GOSUB LJING 5506 2928 1361 0

GOSUB LJING 5507 2927 1345 0

GOSUB LJING 5507 2925 1343 0

GOSUB LJING 5507 2924 1343 0

GOSUB LJING 5507 2923 1343 0

GOSUB LJING 5507 2922 1343 0

GOSUB LJING 5507 2921 1343 0

GOSUB LJING 5507 2920 1343 0

GOSUB LJING 5507 2919 1343 0

GOSUB LJING 5507 2918 1343 0

GOSUB LJING 5507 2917 1363 0

GOSUB LJING 5508 2917 1353 0

GOSUB LJING 5508 2918 1343 0

GOSUB LJING 5508 2919 1343 0

GOSUB LJING 5508 2920 1343 0

GOSUB LJING 5508 2921 1343 0

GOSUB LJING 5508 2922 1343 0

GOSUB LJING 5508 2923 1343 0

GOSUB LJING 5508 2924 1343 0

GOSUB LJING 5508 2925 1343 0

GOSUB LJING 5508 2926 1343 0

GOSUB LJING 5509 2925 1343 0

GOSUB LJING 5510 2924 1343 0

GOSUB LJING 5510 2922 1343 0

GOSUB LJING 5510 2921 1343 0

GOSUB LJING 5510 2920 1343 0

GOSUB LJING 5510 2919 1343 0

GOSUB LJING 5510 2918 1343 0

GOSUB LJING 5510 2917 1343 0

GOSUB LJING 5510 2916 1343 0

GOSUB LJING 5510 2915 1353 0

GOSUB LJING 5511 2915 1357 0

GOSUB LJING 5511 2916 1343 0

GOSUB LJING 5511 2917 1343 0

GOSUB LJING 5511 2918 1343 0

GOSUB LJING 5511 2919 1343 0

GOSUB LJING 5511 2920 1343 0

GOSUB LJING 5511 2921 1343 0

GOSUB LJING 5511 2922 1343 0

GOSUB LJING 5511 2923 1343 0

GOSUB LJING 5511 2924 1345 0

GOSUB LJING 5512 2924 1345 0

GOSUB LJING 5512 2923 1343 0

GOSUB LJING 5512 2922 1343 0

GOSUB LJING 5512 2921 1343 0

GOSUB LJING 5512 2920 1343 0

GOSUB LJING 5512 2919 1343 0

GOSUB LJING 5512 2918 1343 0

GOSUB LJING 5512 2917 1343 0

GOSUB LJING 5512 2916 1343 0

GOSUB LJING 5512 2915 1357 0

GOSUB LJING 5513 2915 1352 0

GOSUB LJING 5513 2916 1343 0

GOSUB LJING 5513 2917 1342 0

GOSUB LJING 5513 2918 1343 0

GOSUB LJING 5513 2919 1343 0

GOSUB LJING 5513 2920 1343 0

GOSUB LJING 5513 2921 1343 0

GOSUB LJING 5513 2922 1343 0

GOSUB LJING 5513 2923 1343 0

GOSUB LJING 5513 2924 1347 0

GOSUB LJING 5514 2924 1347 0

GOSUB LJING 5514 2923 1343 0

GOSUB LJING 5514 2922 1343 0

GOSUB LJING 5514 2921 1343 0

GOSUB LJING 5514 2920 1343 0

GOSUB LJING 5514 2919 1343 0

GOSUB LJING 5514 2918 1343 0

GOSUB LJING 5514 2917 1343 0

GOSUB LJING 5514 2916 1352 0

GOSUB LJING 5515 2916 1353 0

GOSUB LJING 5515 2917 1343 0

GOSUB LJING 5515 2918 1343 0

GOSUB LJING 5515 2919 1343 0

GOSUB LJING 5515 2920 1343 0

GOSUB LJING 5515 2921 1343 0

GOSUB LJING 5515 2922 1343 0

GOSUB LJING 5515 2923 1343 0

GOSUB LJING 5515 2924 1345 0

GOSUB LJING 5516 2924 1345 0

GOSUB LJING 5516 2923 1343 0

GOSUB LJING 5516 2922 1343 0

GOSUB LJING 5516 2921 1343 0

GOSUB LJING 5516 2920 1343 0

GOSUB LJING 5516 2919 1343 0

GOSUB LJING 5516 2918 1343 0

GOSUB LJING 5516 2917 1343 0

GOSUB LJING 5516 2916 1359 0

GOSUB LJING 5517 2915 1353 0

GOSUB LJING 5517 2916 1343 0

GOSUB LJING 5517 2917 1343 0

GOSUB LJING 5517 2918 1343 0

GOSUB LJING 5517 2919 1343 0

GOSUB LJING 5517 2920 1343 0

GOSUB LJING 5516 2923 1343 0







  

goto start



sub ljing

gosub ghost

gosub checkHP

gosub element

gosub checkWeight

move %1 %2 1 40s

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 + 40

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 ( ( 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 #journal ) )

+ || ( You_can't_use_that in #journal ) || ( That_is_too_far in #journal )

return

gosub checkHP

if #scnt >= %overtime

return

goto scan

return



sub port

msg .arm$

gosub checkHP

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

goto start

return



sub moveItems

ignoreitem reset 1

gosub runToBox

msg Bank $

wait 1s

msg BANK $

finditem %box ZTF

wait 10

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 25

}

}

until #findcnt = 0

msg :) $

wait 35

if %repairwep

{

msg T $

gosub repairWeapon

}

if %recall

gosub recalls

move 1354 1577	  ;Координаты по дороге от банка к скале, смотри чтобы не застрял

wait 1

move 1354 1511			  ;Координаты по дороге от банка к скале, смотри чтобы не застрял

wait 1

move 1279 1506

wait 1

move 1277 1292

wait 1

move 1260 1278

wait 1

move 1265 1250

wait 1

move 1233 1258

wait 1

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

move 1265 1250		  ;Координаты по дороге к банку, смотри чтобы не застрял

wait 1

move 1260 1278		  ;Координаты по дороге к банку, смотри чтобы не застрял

wait 1

move 1277 1292	 ;Координаты по дороге к банку, смотри чтобы не застрял

wait 1

move 1279 1506

wait 1

move 1354 1511

wait 1

move 1354 1577

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

}

if hungry in #sysmsg

{

gosub eat

return

}

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

wait 20

}

until #findcnt = 0

repeat

{

finditem %2 C_ , #backpackid

set #lobjectID #findid

event macro 17 0

finditem %2 C_ , #backpackid

wait 20

}

until #findcnt = 0

repeat

{

Finditem %3 C_ , #backpackid

set #lobjectID #findid

event macro 17 0

finditem %3 C_ , #backpackid

wait 20

}

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 15s

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 5s

  if #weight >= %maxweight

   {

   if %recall

   gosub port

   if ! %recall

   gosub moveItems

   return

   }

  if #weight < %maxweight

   return

}

if #findcol = 1325 || #findcol = 1218 || #findcol = 1160

+ || #findcol = 2125 || #findcol = 1548

{

exevent drag #findid #findstack

exevent dropg #charposx #charposy #charposz

wait 50

}

ignoreitem #findid 1

goto dropLoop

return



sub loot

set %lootTime #scnt + 30

finditem YFM G_4

if #findcnt > 0

{

set #lobjectid #findid

event macro 17 0

while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt

wait 2s

wait 20

if #conttype = YFM

set %corpse #contid

repeat

{

finditem %loot C_ , %corpse

if #findcnt = 0 || #scnt > %lootTime

{

ignoreitem %corpse 2

return

}

exevent drag #findid #findstack

exevent dropc #backpackid

wait 35

}

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

msg Uh, kak ja ego! Ubit, padla! $

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

finditem WTL C_ , %box

exevent drag #findid %amountRecalls

exevent dropc #backpackid

wait 20

}

return



sub repairWeapon

repeat {

put1:

repeat

{

  finditem %weapon C_ , #charid

  exevent drag #findid

  exevent dropc #backpackid

  wait 25

  finditem %weapon C_ , #charid

}

until #findcnt = 0

finditem %weapon C_ , #backpackid

if #findcnt = 0

goto put1

take1:

  set #lobjectid %box

  event macro 17 0

  wait 25

  finditem %ings C_, %box

  exevent drag #findid 5

  exevent dropc #backpackid

  wait 25

finditem %ings C_, #backpackid

if #findcnt = 0

goto take1



_repair:

  set #lobjectid %repairTool

  set #ltargetid %weapon

  set #ltargetkind 1

  set %lag #scnt + 10

  event macro 17 0

  wait 20

  target

  while #targcurs <> 1 && #scnt < %lag

  wait 1

  event macro 22 0

  wait 20

  finditem %ings C_, #backpackid



until You_fully_repaired || Your in #sysmsg

msg repaired sucessfully! $



take2:

  set #lobjectid %box

  event macro 17 0

  wait 10

  finditem %ings C_, #backpackid

  exevent drag #findid #findstack

  exevent dropc %box

  wait 25

finditem %ings C_, #backpackid

if #findcnt > 0

{ goto take2  }

msg resursi polozhil nazad, snova v put! $

return

вот на мининг на ньюбе острове. вам только поменяять 5 координат дороги к шахте и все. ну или я чуть позже выложу как буду снова там=)

#29 Inferno/06

Journeyman

Members
50 posts

Posted 25 February 2010 - 12:00

Блин все перепробовал, взял верхний скрипт, поменял координаты, но все равно он отказываться положить руду в сумку, я даже сумку сменил на сундук, все равно ему не нравится.

#30 Inferno/06

Journeyman

Members
50 posts

Posted 25 February 2010 - 16:47

Блин все перепробовал, взял верхний скрипт, поменял координаты, но все равно он отказываться положить руду в сумку, я даже сумку сменил на сундук, все равно ему не нравится.

Оказывается проблема была в плохой версий изи с 1.50 все великолепно работает!

Back to Скрипты

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Мининг Newbie Island

0 user(s) are reading this topic

Sign In