11 ответов в теме

[Ponijs]

initevents
; Set Up The Following Variables:
set %maxWeight 600 ; Max svars
set %box PKCELMD ; Kastes ID, kur likt ruudu u.c. itemus
set %xCoord 1518 ; X koordinaata tieshi pie kastes
set %yCoord 648 ; Y koordinaata tieshi pie kastes
set %dropMarganece #false ; #true - nomet Marganece ruudu , #false - nenomet
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 ISXELMD ; Skill Roba (ID)
set %skillCloak ERWELMD ; Skill Cloack (ID)
set %skillMask OLXELMD ; Skill Mask (ID)
set %simpleRobe WVJMLMD ; Parasta Roba (ID)
set %simpleCloak ODUWKMD ; Parastais cloack (ID)
set %simpleMask GOJRJMD ; Platemail helms (ID)
; End Of Changable Clothes List
; Do Not Set These Numbers If %recall #false
set %runebookID SGHOKMD ; Runebooka ID
set %runeNumberToHome 1 ; Runas Nr uz maaju
set %runeNumberToCave 14 ; Runas Nr uz alu
; End Of Set Up Part

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 4587 3282 1343
GOSUB LJING 4588 3285 1343
GOSUB LJING 4589 3284 1343
GOSUB LJING 4589 3285 1343
GOSUB LJING 4590 3285 1343
GOSUB LJING 4591 3282 1343
GOSUB LJING 4591 3284 1343
GOSUB LJING 4591 3285 1343
GOSUB LJING 4587 3285 1355
GOSUB LJING 4589 3286 1343
GOSUB LJING 4588 3286 1343
GOSUB LJING 4586 3288 1347
GOSUB LJING 4587 3288 1343
GOSUB LJING 4588 3287 1343
GOSUB LJING 4586 3290 1343
GOSUB LJING 4588 3288 1343
GOSUB LJING 4587 3290 1343
GOSUB LJING 4588 3291 1343
GOSUB LJING 4588 3290 1343
GOSUB LJING 4586 3294 1340
GOSUB LJING 4587 3294 1340
GOSUB LJING 4588 3293 1340
GOSUB LJING 4588 3291 1343
GOSUB LJING 4589 3292 1340
GOSUB LJING 4589 3294 1340
GOSUB LJING 4587 3294 1340
GOSUB LJING 4592 3290 1340
GOSUB LJING 4589 3292 1340
GOSUB LJING 4591 3292 1340
GOSUB LJING 4592 3292 1340
GOSUB LJING 4593 3290 1343
GOSUB LJING 4594 3291 1340
GOSUB LJING 4601 3819 1343
GOSUB LJING 4585 3281 1355
GOSUB LJING 4587 3281 1343
GOSUB LJING 4586 3282 1343
GOSUB LJING 4588 3280 1343
GOSUB LJING 4590 3278 1352
GOSUB LJING 4590 3279 1343
GOSUB LJING 4589 3280 1343
GOSUB LJING 4588 3283 1343
GOSUB LJING 4589 3285 1343
GOSUB LJING 4591 3284 1343
GOSUB LJING 4593 3283 1343
GOSUB LJING 4592 3281 1343
GOSUB LJING 4591 3281 7390
GOSUB LJING 4591 3284 1343
GOSUB LJING 4587 3286 1343
GOSUB LJING 4587 3288 1343
GOSUB LJING 4588 3288 1343
GOSUB LJING 4588 3290 1343
GOSUB LJING 4589 3290 1343
GOSUB LJING 4590 3290 1343
GOSUB LJING 4590 3291 1340
GOSUB LJING 4592 3292 1340
GOSUB LJING 4592 3293 1347
GOSUB LJING 4595 3290 1340
GOSUB LJING 4596 3291 1340
GOSUB LJING 4594 3293 1340
GOSUB LJING 4596 3294 1340
GOSUB LJING 4597 3294 1344
GOSUB LJING 4592 3293 1347
GOSUB LJING 4590 3293 1344
GOSUB LJING 4586 3293 1343
GOSUB LJING 4589 3297 1340
GOSUB LJING 4588 3297 1340
GOSUB LJING 4586 3296 1340
GOSUB LJING 4585 3294 1355
GOSUB LJING 4588 3299 1340
GOSUB LJING 4586 3297 1340
GOSUB LJING 4596 3300 1340
GOSUB LJING 4591 3296 1340
GOSUB LJING 4592 3299 1340
GOSUB LJING 4593 3299 1340
GOSUB LJING 4594 3298 1340
GOSUB LJING 4595 3292 1343
GOSUB LJING 4594 3294 1343
GOSUB LJING 4592 3290 1340
GOSUB LJING 4591 3291 1340


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_
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



Kkas atkal nepašī.Izpaīdziet lūdzu...

[ExTjUtY]

a tu varetu pateikt kas toeshi??tad ari pateiktu kas par vainu!

[Ponijs]

Nelido ar runebook.

[ExTjUtY]

gosub Instalyze runeNumberToCave 2
izlabo 2 uz 14

[Ponijs]

oki, thx.

[EnFlame]

gosub Instalyze runeNumberToCave 2
izlabo 2 uz 14

nu tas nekādā gadījumā nevar palīdzēt
principā kļūdu neredzu, pārbaudi ID runebooka vai arī tev EasyUO čakarējes vai kompis )

[Ponijs]

Okej.plds chal. Klau, a nazini, kas par lietu, ka dazhreiz ar scrp rok ljoti aatri, ruudu peec ruudas, bet dazhreiz leenaam...izrok vienu gaida, izrok...utt

[EnFlame]

nez, varbūt skill mazs

[Inquis]

[quote name='Ponijs' date='Aug 7 2008, 07:13 PM' post='198298']



njem manu !

P.s Iznjemu araa, dabuji tachu !!

[Ponijs]

Tavu skriptu?

[...Sermulis...]

Tur tu vairs neraksi...

[Zagots]

Tur tu vairs neraksi...

Aha...
Koordinātas jau varēji izdzēst pirms liki iekšā skriptu