Privet vsem,mozhet ktota mozhet podelitsa s scriptami ? Mne nado Mining,i shtob on v splavljal v ingah srazu
2) Tinker shtob on s sunduka bral resursi,zdelal i postavil obratno gatovij resurs v sunduk,i tak po krugu!
bilbi ocenj blogadaren eslji ktota pamozhet
; Set Up The Following Variables:
set %maxWeight 900 ; Max svars
set %box DHVJLMD ; id korobki
set %xCoord 1775 ; X koordinaata rjadom boxa
set %yCoord 607 ; Y koordinaata rjadom boxa
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 WIFEKMD ; Runebook ID
set %runeNumberToGZ 1 ; NR runi na GZ
set %runeNumberToCave 2 ; Nr runi na mesto kapalki
set %trackingWait 120s ; skoka zhdatj gz, kogda uvidit playera
; Do Not Set These Items If %skillItemChange #false
set %skillRobe TVNJLMD ; Skill Roba (ID)
set %skillCloak KGNJLMD ; Skill Cloack (ID)
set %skillMask KMNJLMD ; Skill Mask (ID)
set %simpleRobe JHAJKMD ; Parasta Roba (ID)
set %simpleCloak PUEMKMD ; Parastais cloack (ID)
set %simpleMask TEQFKMD ; Platemail helms (ID)
; End Of Changable Clothes List
; Do Not Set These Numbers If %recall #false
set %runeNumberToHome 1 ; Runas Nr uz maaju
set %recall #true ; #true - lidos ar runebook, #false - skries taapat
set %amountRecalls 2 ; Koli4estvo rekalov katoraja nado vzat kogda ih netu
set %smelt #true ;smelters
set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_RMK
set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToCave 2
gosub Instalyze runeNumberToGZ 3
event sysmessage Setting Paperdoll in right position..
contpos 780 -26
finditem QRM_FJM C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 30
}
start:
GOSUB LJING 2558 494 1339
GOSUB LJING 2559 494 1342
GOSUB LJING 2560 494 1339
GOSUB LJING 2561 494 1340
GOSUB LJING 2562 494 1339
GOSUB LJING 2563 494 1344
GOSUB LJING 2558 492 1355
GOSUB LJING 2559 492 1339
GOSUB LJING 2560 492 1342
GOSUB LJING 2561 492 1339
GOSUB LJING 2562 492 1340
GOSUB LJING 2563 492 1339
GOSUB LJING 2564 492 1342
GOSUB LJING 2565 492 1344
GOSUB LJING 2565 491 1350
GOSUB LJING 2564 491 1339
GOSUB LJING 2563 491 1339
GOSUB LJING 2562 491 1339
GOSUB LJING 2561 491 1340
GOSUB LJING 2560 491 1339
GOSUB LJING 2559 491 1340
GOSUB LJING 2558 491 1356
GOSUB LJING 2558 490 1355
GOSUB LJING 2559 490 1342
GOSUB LJING 2560 490 1339
GOSUB LJING 2561 490 1339
GOSUB LJING 2562 490 1342
GOSUB LJING 2563 490 1340
GOSUB LJING 2564 490 1339
GOSUB LJING 2565 490 1339
GOSUB LJING 2566 490 1344
GOSUB LJING 2558 489 1354
GOSUB LJING 2559 489 1340
GOSUB LJING 2560 489 1339
GOSUB LJING 2561 489 1339
GOSUB LJING 2562 489 1339
GOSUB LJING 2563 489 1339
GOSUB LJING 2564 489 1339
GOSUB LJING 2565 489 1342
GOSUB LJING 2566 489 1339
GOSUB LJING 2567 489 1346
GOSUB LJING 2568 489 1345
GOSUB LJING 2569 489 1345
GOSUB LJING 2570 489 1347
GOSUB LJING 2571 489 1344
GOSUB LJING 2572 488 1344
GOSUB LJING 2571 488 1340
GOSUB LJING 2570 488 1339
GOSUB LJING 2569 488 1340
GOSUB LJING 2568 488 1339
GOSUB LJING 2567 488 1339
GOSUB LJING 2566 488 1339
GOSUB LJING 2565 488 1339
GOSUB LJING 2564 488 1339
GOSUB LJING 2563 488 1339
GOSUB LJING 2562 488 1342
GOSUB LJING 2561 488 1339
GOSUB LJING 2560 488 1340
GOSUB LJING 2559 488 1339
GOSUB LJING 2558 488 1353
GOSUB LJING 2559 487 1353
GOSUB LJING 2560 487 1339
GOSUB LJING 2561 487 1339
GOSUB LJING 2562 487 1339
GOSUB LJING 2563 487 1339
GOSUB LJING 2564 487 1342
GOSUB LJING 2565 487 1339
GOSUB LJING 2566 487 1339
GOSUB LJING 2567 487 1342
GOSUB LJING 2568 487 1339
GOSUB LJING 2569 487 1339
GOSUB LJING 2570 487 1340
GOSUB LJING 2571 487 1339
GOSUB LJING 2572 487 1339
GOSUB LJING 2573 487 1344
GOSUB LJING 2577 486 1344
GOSUB LJING 2576 486 1345
GOSUB LJING 2575 486 1345
GOSUB LJING 2574 486 1346
GOSUB LJING 2573 486 1339
GOSUB LJING 2572 486 1339
GOSUB LJING 2571 486 1339
GOSUB LJING 2570 486 1339
GOSUB LJING 2569 486 1342
GOSUB LJING 2568 486 1339
GOSUB LJING 2567 486 1339
GOSUB LJING 2566 486 1339
GOSUB LJING 2565 486 1339
GOSUB LJING 2564 486 1339
GOSUB LJING 2563 486 1339
GOSUB LJING 2562 486 1339
GOSUB LJING 2561 486 1339
GOSUB LJING 2560 486 1353
GOSUB LJING 2561 485 1353
GOSUB LJING 2562 485 1339
GOSUB LJING 2563 485 1342
GOSUB LJING 2564 485 1339
GOSUB LJING 2565 485 1340
GOSUB LJING 2566 485 1339
GOSUB LJING 2567 485 1340
GOSUB LJING 2568 485 1339
GOSUB LJING 2569 485 1340
GOSUB LJING 2570 485 1339
GOSUB LJING 2571 485 1339
GOSUB LJING 2572 485 1339
GOSUB LJING 2573 485 1339
GOSUB LJING 2574 485 1342
GOSUB LJING 2575 485 1342
GOSUB LJING 2576 485 1339
GOSUB LJING 2577 485 1339
GOSUB LJING 2578 485 1344
GOSUB LJING 2579 484 1344
GOSUB LJING 2578 484 1339
GOSUB LJING 2577 484 1339
GOSUB LJING 2580 483 1344
GOSUB LJING 2579 483 1339
GOSUB LJING 2578 483 1342
GOSUB LJING 2577 483 1339
GOSUB LJING 2576 483 1339
GOSUB LJING 2574 483 1342
GOSUB LJING 2574 484 1339
GOSUB LJING 2573 483 1339
GOSUB LJING 2573 484 1339
GOSUB LJING 2572 483 1342
GOSUB LJING 2572 484 1339
GOSUB LJING 2571 483 1339
GOSUB LJING 2571 484 1340
GOSUB LJING 2570 483 1339
GOSUB LJING 2570 484 1339
GOSUB LJING 2569 484 1339
GOSUB LJING 2568 483 1339
GOSUB LJING 2568 484 1339
GOSUB LJING 2567 483 1339
GOSUB LJING 2567 484 1339
GOSUB LJING 2566 483 1340
GOSUB LJING 2566 484 1339
GOSUB LJING 2565 483 1340
GOSUB LJING 2565 484 1339
GOSUB LJING 2564 483 1341
GOSUB LJING 2564 484 1339
GOSUB LJING 2563 483 1339
GOSUB LJING 2563 484 1339
GOSUB LJING 2562 483 1354
GOSUB LJING 2562 484 1355
GOSUB LJING 2562 482 1353
GOSUB LJING 2563 482 1339
GOSUB LJING 2564 482 1339
GOSUB LJING 2565 482 1340
GOSUB LJING 2566 482 1339
GOSUB LJING 2567 482 1339
GOSUB LJING 2568 482 1340
GOSUB LJING 2569 482 1339
GOSUB LJING 2570 482 1342
GOSUB LJING 2571 482 1339
GOSUB LJING 2572 482 1341
GOSUB LJING 2573 482 1339
GOSUB LJING 2574 482 1340
GOSUB LJING 2575 482 1339
GOSUB LJING 2576 482 1339
GOSUB LJING 2577 482 1339
GOSUB LJING 2578 482 1339
GOSUB LJING 2579 482 1339
GOSUB LJING 2580 482 1339
GOSUB LJING 2581 482 1344
GOSUB LJING 2581 481 1348
GOSUB LJING 2580 481 1339
GOSUB LJING 2579 481 1339
GOSUB LJING 2578 481 1339
GOSUB LJING 2577 481 1339
GOSUB LJING 2576 481 1342
GOSUB LJING 2575 481 1339
GOSUB LJING 2574 481 1339
GOSUB LJING 2573 481 1339
GOSUB LJING 2572 481 1339
GOSUB LJING 2571 481 1339
GOSUB LJING 2570 481 1339
GOSUB LJING 2569 481 1339
GOSUB LJING 2568 481 1339
GOSUB LJING 2567 481 1339
GOSUB LJING 2566 481 1342
GOSUB LJING 2565 481 1339
GOSUB LJING 2564 481 1339
GOSUB LJING 2563 481 1353
GOSUB LJING 2564 480 1353
goto start
sub ljing
gosub ghost
gosub checkHP
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 3s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 10
set %overtime #scnt + 70
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 #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
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 moveItems
ignoreitem reset 1
gosub runToBox
event macro 13 21
gosub smelt
gosub recalls
finditem %box G_
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
return
sub smelt
repeat
{
finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 10
}
}
until #findcnt = 0
return
sub back
set %trackingAlarm #false
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
gosub openRunebook
click 261 215 ; Recharge runebook 2x
wait 20
}
gosub openRunebook
click %x2 %y2
event macro 13 21
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 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 30
}
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
{
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
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 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 || #findcol = 1218 || #findcol = 1325
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 25
}
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
wait 20
if #conttype = YFM
set %corpse #contid
set %lootOverTime #scnt + 30
repeat
{
finditem %loot C_ , %corpse
if #findcnt = 0 || #scnt > %lootOverTime
{
ignoreitem %corpse 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 25
}
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 3s
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 openbank
Msg ,exec bank$
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