Toggle shoutbox Chat
|
Mining 4ewer
#1
Posted 08 November 2008 - 17:24
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 *
#2
Posted 08 November 2008 - 17:39
#3
Posted 08 November 2008 - 17:51
wait 5 ??
Nu neko no scp nejedzu,bet varbut ta deres..
#4
Posted 08 November 2008 - 17:53
#5
Posted 08 November 2008 - 18:30
#6
Posted 08 November 2008 - 18:35
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....es ņeponil jūs varat parakt ar scp?! kā, tak ķjip ir noņemts ka var zem kājām rakt!
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#7
Posted 09 November 2008 - 15:44
#8
Posted 09 November 2008 - 17:26
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?
#9
Posted 09 November 2008 - 19:35
#10
Posted 10 November 2008 - 19:57
Gandriiz no kresla nokritu! Ja tev butu kaut 100 IQ, tad sataisitu ari tadu kas zem kaiminu vasjas kajam rok.tev ir scp kurš nerok sev zem kājām?
Esmu atpakaļ.. vismaz uz kādu laiku
#11
Posted 10 November 2008 - 20:26
+1! P.S!zem cita kajam var rakt!Gandriiz no kresla nokritu! Ja tev butu kaut 100 IQ, tad sataisitu ari tadu kas zem kaiminu vasjas kajam rok.
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#12
Posted 10 November 2008 - 20:41
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.
#13
Posted 10 November 2008 - 21:00
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!
#14
Posted 11 November 2008 - 22:44
#15
Posted 12 November 2008 - 00:01
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#16
Posted 12 November 2008 - 13:03
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 ?
#17
Posted 12 November 2008 - 14:27
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#18
Posted 12 November 2008 - 14:30
#19
Posted 12 November 2008 - 14:33
; 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
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#20
Posted 13 November 2008 - 10:27
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users