raibonja

kr4 man tada fignja kad vinam paliek max weight vins pienak pie kastes un neko navar tur iemest tikai gold coin tur paarbiida pa backpacku..





initevents
; Set Up The Following Variables:
set %maxWeight 620 ; Max svars
set %box PARLLMD ; Kastes ID, kur likt ruudu u.c. itemus
set %xCoord 3142 ; X koordinaata tieshi pie kastes
set %yCoord 378 ; Y koordinaata tieshi pie kastes
set %dropMarganece #true ; #true - nomet Marganece ruudu , #false - nenomet
set %skillItemChange #false ; #false - mainiis dreebes, #false - nemainiis
set %recall #false ; #false - lidos ar runebook, #false - skries taapat
; Do Not Set These Items If %skillItemChange #false


set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG
set %loot DCI_TVJ_FWL_GWJ_EWJ_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG

if %recall
{
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToCave 2
}

start:

GOSUB LJING 3158 392 0
GOSUB LJING 3171 383 0
GOSUB LJING 3195 372 0
GOSUB LJING 3200 368 0
GOSUB LJING 3218 334 0
GOSUB LJING 3219 330 0
GOSUB LJING 3224 332 0
GOSUB LJING 3247 302 0
GOSUB LJING 3269 302 0
GOSUB LJING 3273 293 0
GOSUB LJING 3265 290 0
GOSUB LJING 3270 306 0
GOSUB LJING 3279 304 0
GOSUB LJING 3279 332 0
GOSUB LJING 3265 332 0
GOSUB LJING 3247 384 0
GOSUB LJING 3236 390 0
GOSUB LJING 3241 393 0
GOSUB LJING 3237 380 0
GOSUB LJING 3233 375 0
GOSUB LJING 3214 406 0
GOSUB LJING 3204 382 0
GOSUB LJING 3200 397 0
GOSUB LJING 3171 408 0
GOSUB LJING 3172 410 0
GOSUB LJING 3182 452 0
GOSUB LJING 3184 455 0
GOSUB LJING 3172 460 0
GOSUB LJING 3160 463 0
GOSUB LJING 3159 459 0
GOSUB LJING 3157 456 0
GOSUB LJING 3158 437 0
GOSUB LJING 3116 442 0
GOSUB LJING 3116 431 0
GOSUB LJING 3108 416 0
GOSUB LJING 3101 410 0
GOSUB LJING 3106 397 0
GOSUB LJING 3097 387 0
GOSUB LJING 3094 424 0
GOSUB LJING 3093 424 0
GOSUB LJING 3088 435 0
GOSUB LJING 3088 450 0
GOSUB LJING 3081 455 0
GOSUB LJING 3099 466 0
GOSUB LJING 3109 480 0
GOSUB LJING 3095 514 0
GOSUB LJING 3093 523 0
GOSUB LJING 3102 526 0
GOSUB LJING 3111 524 0
GOSUB LJING 3120 529 0
GOSUB LJING 3110 537 0
GOSUB LJING 3088 542 0
GOSUB LJING 3070 548 0
GOSUB LJING 3062 511 0
GOSUB LJING 3081 454 0
GOSUB LJING 3081 455 0
GOSUB LJING 3088 450 0
GOSUB LJING 3122 394 0




goto start

sub ljing
gosub ghost
gosub checkHP
gosub checkWeight
move %1 %2 1 30s
finditem NPF_QPF C_
if #findcnt = 0
{
display ok Pickaxe wasn't found!
halt
}
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
if #result = drop
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if #result = mine
return
}
}
return

sub scan
scan:
scanjournal
gosub checkHP
if hungry in #sysmsg
gosub eat
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #sysmsg )
+ || ( 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 ) )
return
gosub checkHP
if #scnt >= %overtime
return
goto scan
return

sub port
msg .arm$
wait 20
gosub checkHP
finditem ED G
if #findcnt <> 0
{
msg .arm$
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
finditem ED G
set #ltargetid #findid
event macro 27 0
wait 10
gosub follow&kill
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
}
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
click 261 215 ;Recharge runebook
wait 20
gosub openRunebook
click %x1 %y1
wait 5s
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
return

sub moveItems
ignoreitem reset 1
gosub runToBox
finditem %box G_3
wait 20
if #findcnt = 0
{
event Sysmessage Box Not Found!
halt
}
drop:
finditem %item c_ , #backpackid
if #findkind = -1
return
exevent Drag #Findid #findstack
exevent Dropc %box
wait 20
goto drop
return

sub back
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
click 261 215
wait 20
gosub openRunebook
click %x2 %y2
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 follow&kill
msg .arm$
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
gosub loot
return

sub checkHP
if #hits < #maxhits
{
msg .arm$
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
if #findcnt > 1
{
set #lobjectid #findid
event macro 17 0
wait 5
}
finditem GND C
if #findcnt > 1
{
set #lobjectid #findid
event macro 17 0
wait 5
event macro 17 0
}
wait 10
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
{
if #weight >= %maxweight
return drop
if #weight < %maxweight
return mine
}
if #findcol = 1750
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 20
}
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
_loot:
finditem %loot C_ , #contID
if #findcnt = 0
{
ignoreitem #contID 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 20
goto _loot
}
return

Kaads var ielikt blacksmithing skriptu vienk. baigi gruuti vinu ka4aat.

P.S. es mekleju searcha un neatradu

varat luudzu pateikt ko dot volcano ko smooth un ko monay fish, manu staminu vai ko luudzu pasakiet.. es vienk aizmirsu

kads var ludzu iedot tadu scriptu lai vins cert meza kaidlingus un nes uz maju un sit monstrus ka paradas kad cert plzz