20 replies to this topic

[faceris]

man ir jautajums .. ja varat palidzeet ludzu kur nojnemt to atrumu lai atir nemet kaste pie majas ores jo tik atri nevar taksta cant pickup ..


initevents

set %ljtool METGLMD ; Pickakse ID
start:

xxxxxxxxxxxxx
xxxxxxxxxxxxx
xxxxxxxxxxxxx

goto start



sub ljing
move %1 %2 1
finditem %ljtool
set #lobjectid #findid
event macro 17 0
5?
target 10s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 7
set %overtime #scnt + 25
gosub ves
return

gosub ves
sub ves
if #weight > 700 ;Ves kotorova mozna derzat vas personaz
gosub home

sub scan
scan:
scanjournal %cnt
if #hits < #maxhits
msg .arm $
if #hits < #maxhits
gosub follow&kill
if THERE_IS_NOTHING_HERE_TO_MINE_FOR in #sysmsg
return
if It_appears_immune_to_your_blow in #sysmsg
return
if YOu_can't_reach_this in #sysmsg
return
if #scnt >= %overtime
return
goto scan

sub home
move 2430 175
move 2438 195
move 2425 212 ;koordinat do sunduka
gosub moveItems
sub moveItems
{
set !dragTimeout 4;1/10 s
set !dragTimer #scnt2
set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF
if %0 < 2
set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF
set !from #backpackid
set !to TTXLLMD ;Id jasika gde budit kidat rudu
finditem !items C_ , !from
for #findindex 1 #findcnt
{
if #findkind = 0
{
set !amt 1
if #findstack > 1
set !amt #findstack
while #scnt2 < !dragTimer
wait 0
exevent drag #findid !amt
exevent dropc !to
set !dragTimer #scnt2 + !dragTimeout
}
}
namespace clear

}


sub follow&kill
repeat
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
}
until #findcnt = 0
wait 2
msg .camp Heal $
return



rekur mans skripts izlabojiet luuduz butu pateiciigs *

[faceris]

EnFlame vari ludzu izlabot ? lai tik atri nemet kaste ? luuudzu *

[Timbaland]

while #scnt2 < !dragTimer
wait 5 ??

Nu neko no scp nejedzu,bet varbut ta deres..

[faceris]

nea nekas nemajnijas

[beLLick]

es ņeponil jūs varat parakt ar scp?! kā, tak ķjip ir noņemts ka var zem kājām rakt!

[ExTjUtY]

es ņeponil jūs varat parakt ar scp?! kā, tak ķjip ir noņemts ka var zem kājām rakt!

da!pareiz ka var parakt!!nu un kas ka nonemts ka zem sevis nevar rakt??tev tas maisa kautka??tev tak nav jarok zem sevis....

[faceris]

Da kaads var uzrakstiit ? kas pa H.. ka nonjemt to atrumu lai tik atir nemet soma ?

[beLLick]

da!pareiz ka var parakt!!nu un kas ka nonemts ka zem sevis nevar rakt??tev tas maisa kautka??tev tak nav jarok zem sevis....

tev ir scp kurš nerok sev zem kājām?

[faceris]

es nez ... nu ieliekat skriptu kas iet kaa vajag ... nu luudzu

[Ptolmay]

tev ir scp kurš nerok sev zem kājām?

Gandriiz no kresla nokritu! Ja tev butu kaut 100 IQ, tad sataisitu ari tadu kas zem kaiminu vasjas kajam rok.

[ExTjUtY]

Gandriiz no kresla nokritu! Ja tev butu kaut 100 IQ, tad sataisitu ari tadu kas zem kaiminu vasjas kajam rok.

+1! P.S!zem cita kajam var rakt!

[krans]

Kstati, lai skripts neraktu sev zem kajam, ir janomaina tikai 1 cipars... Visa vaina ir tama, ka vins staiga tiesi pa tam kordinatem, kuras ir dotas kapasanai. Bet visu var verst par labu, ja skripta tiek izlabots, ka pietiek ka apstajas blakus tai kordinatei, un vins sak rakt.

Ja pareizi atceros no tiem laikiem kad vel kautko skriptoju, vajadzigais skaitlis ir sis

''move %1 %2 1 ''
pamaini to uz 2 vai 3

Protams es varu kludiities.

[beLLick]

Gandriiz no kresla nokritu! Ja tev butu kaut 100 IQ, tad sataisitu ari tadu kas zem kaiminu vasjas kajam rok.

ultimai jau sen esmu atmetis ar roku! kur nu vēl vsp skriptot! gribēju tik atstāt draugam parakt charu!!! darīt itkā man nebūtu ko kkādus skriptus muķīt vai labot!

[faceris]

ew nu a kads zin man ne taa vaian interesa bet tas ka kastee parak atri met kads var pateikt ka to izmainit ?

[ExTjUtY]

set !dragTimeout 4;3/10 s

[faceris]

Pienjemsim vins liek kaste leni
man ir veel viens jautajusm kapec kad iet likt ores soam stav mantas kas vijnam naw bet vinjas radas un vinjsh vinjas megina celt un nevar pacelt .. kads var to paskaidrot ?

[ExTjUtY]

nez kapec taa tev nav vieglaak dabuut normalu skriptu!kurw normaali strada ar visu heal,bintem,paeeshanu un monstr loot??

[faceris]

bet sercha ierakstu Mining zini cik tur atrod kkadus ari sapistus neko nevar saprast

[ExTjUtY]

initevents
; Set Up The Following Variables:
set %maxWeight 650 ; Max svars
set %box FKCWKMD ; Kastes ID, kur likt ruudu u.c. itemus
set %xCoord 1137 ; X koordinaata tieshi pie kastes
set %yCoord 586 1 ; Y koordinaata tieshi pie kastes
set %dropMarganece #true ; #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 AMLGLMD ; Runebooka ID
set %runeNumberToHome 6 ; Runas Nr uz maaju
set %runeNumberToCave 2 ; 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 MINING 1122 572
GOSUB MINING 1087 577
GOSUB MINING 1070 595
GOSUB MINING 1058 593
GOSUB MINING 1054 585
GOSUB MINING 1048 596
GOSUB MINING 1034 614
GOSUB MINING 1043 614
GOSUB MINING 1050 614
GOSUB MINING 1131 610
GOSUB MINING 1148 603
GOSUB MINING 1147 633
GOSUB MINING 1126 637
GOSUB MINING 1124 629
GOSUB MINING 1030 641
GOSUB MINING 1028 646
GOSUB MINING 1015 647
GOSUB MINING 1016 652
GOSUB MINING 1015 663
GOSUB MINING 1013 663
GOSUB MINING 1011 642
GOSUB MINING 1012 637
GOSUB MINING 1006 631
GOSUB MINING 1035 665
GOSUB MINING 1043 669
GOSUB MINING 1049 689
GOSUB MINING 1066 679
GOSUB MINING 1068 673
GOSUB MINING 1070 665
GOSUB MINING 1082 673
GOSUB MINING 1110 670
GOSUB MINING 1111 654
GOSUB MINING 1127 648
GOSUB MINING 1126 637
GOSUB MINING 1147 633
GOSUB MINING 1060 576
GOSUB MINING 1039 574
GOSUB MINING 1075 561
GOSUB MINING 1087 577
GOSUB MINING 1122 572
GOSUB MINING 1125 581



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

[orgs]

Nu i Skrifteri