Yoko

All sides of Injection
It is currently 2024-03-29 08:59:43

All times are UTC+02:00




Post new topic  Reply to topic  [ 2 posts ] 
Author Message
 Post subject: Pomagite Pozhalusta..
PostPosted: 2008-01-09 11:56:44 
Offline

Joined: 2008-01-09 11:48:55
Posts: 1
Igraju na odnom sharde..
Tak kapaju s scriptom.. No, problema takaja chto nemogu nastroitj ego chtobi on razgruzilsja doma.. ID sunduka propisan.. Vobshem kogda on naberaet polnij ves, on prilitaet damoij, otkrivaet sunduk.. i Vso.. razgruzhatsa on nehochet..
Vobshem vot script.. esli mozhetje pomagite ktoto...

var Chest='0x400475D8'
sub maning()
var mx, my, mz, i, j, jor, ser, noto, ya,k, name, GoL = '0x00079FF4', cave = 1
Uo.exec("set norbcheck 1"); äė˙ šåźīėą
uo.exec("set norbcalc 1"); ņīęå

uo.print('!!Āūįåšč Ėīļąņó!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend

uo.print('!!Āūįåšč Šóķįóź!! ')
uo.exec('addobject Runebook')
while uo.targeting()
wait(100)
wend

na4alo:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-2 to mx+2
for j = my -2 to my+2
UO.Print("Źīļąåģ ā źīīšäčķąņąõ: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("nothing") and not UO.InJournal("You cannot") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("elsewhere")
if UO.Dead() then
pwav()
UO.TextPrint('Źšūńą!!!==='+name+ 'Öāåņ=' +str(noto))
Pause()
end if
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Deletejournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Shovel")
k = 0
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("nothing") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("You cannot") and not UO.InJournal("elsewhere") and k < 10
wait (1000)
if uo.injournal("Elemental") or uo.dead() then
pwav()
killelem()
endif
k = k + 1
for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
name = UO.GetName(ser)
ya = UO.GetSerial('self')
if ser <> ya and noto <> 0 and ser <> GoL then
UO.TextOpen()
UO.TextPrint('Ńšóėčė :) --- '+name+ ' Öāåņ=' +str(noto))
if uo.waiting() then
uo.canceltarget()
endif
Save()
pwavw()
RechargeBook()
loot()
cave = cave + 1
if cave > 6 then
cave = 1
end if
Mana()
;wait(30000) ; āšåģ˙ ā ńåźóķäąõ ļšč īęčäąķčč ļīźą óéäåņ ĻŹ
goto reccal
endif
next
wend
if UO.InJournal("but fail") AND k < 2 then
wait(8000)
UO.DeleteJournal()
endif
if uo.weight > 225 then ; Ģąźńčģąėüķūé āåń ļšč źīņīšīģ äīģīé ń šóäīé
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 15") ; äīģīé ( ā šóķįóźå ńėīņ 5 )
wait(10000)
RechargeBook()
loot()
cave = cave + 1
if cave > 6 then
cave = 1
end if
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif

if cave == 1 then
uo.exec("recall Runebook 3") ; ā ųąõņó ( ā šóķįóźå ńėīņ 1 )
end if

if cave == 2 then
uo.exec("recall Runebook 6") ; ā ųąõņó ( ā šóķįóźå ńėīņ 2 )
end if

if cave == 3 then
uo.exec("recall Runebook 9") ; ā ųąõņó ( ā šóķįóźå ńėīņ 3 )
end if

if cave == 4 then
uo.exec("recall Runebook 12") ; ā ųąõņó ( ā šóķįóźå ńėīņ 4 )
end if

if cave == 5 then
uo.exec("recall Runebook 18") ; ā ųąõņó ( ā šóķįóźå ńėīņ 6 )
end if

if cave == 6 then
uo.exec("recall Runebook 21") ; ā ųąõņó ( ā šóķįóźå ńėīņ 7 )
end if

mx = UO.GetX("self")
my = UO.GetY("self")
wait(10000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
goto na4alo
end sub

sub loot() ; ļåšåźėąäźą šóäū ā ńóķäóź
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont= '0x400475D8' ; ĄÉÄČ ńóķäóźą äė˙ šóäū
DIM Ore[5]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
UO.SetReceivingContainer(UnloadCont)
wait(500)
For a=0 to 3
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
Else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
end sub

sub Save() ; Šåźīėė īņ ĻŹ ļšč čõ ļī˙āėåķčč (ā ļąźå šóķźą ā įåēīļąńķīå ģåńņī č šåćč)
var mx, my
var RuneBook='0x40033DA6'
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.DeleteJournal()
UO.Recall(RuneBook, 15)
wait(200)
UO.Usetype('0x0F0E','0x051D')
wait(6000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
end sub

sub pwav() ; ēāóź ļšč āūźąļūāąķčč ŻĖÅĢÅĶŅĄĖĄ
uo.playwav("C:\Trumpet1.wav")
endsub

sub pwavw(); ēāóź ļšč ļī˙āėåķčč ĻŹ
uo.playwav("C:\Alarm.wav")
endsub

sub Pause() ; Ļąóēą ńźščļņą åńėč āūźīļąėč Żėåģą (ļšīäīėęčņü ńźąēąā GO )
UO.DeleteJournal()
REPEAT
WAIT(3000)
UO.Print("!!!ŃŹŠČĻŅ ĶĄ ĻĄÓĒÅ!!!!")
UNTIL UO.InJournal('GO')
UO.Print("!!!ŃŹŠČĻŅ ĻŠĪÄĪĖĘÅĶ!!!!")
endif
end sub

#############################Ļš˙÷åģ īźķī ÓĪ##################################3
sub HideWindowUO()
UO.asmUOHideEx(); Ļš˙÷åģ īźķī ÓĪ ā ņšåé
end sub
########################################################

sub Mana()
while UO.Mana < UO.Int
UO.Useskill('Meditation')
wait(1000)
wend
end sub

sub killelem()
VAR Count,Elem

UO.UseType('0x13B3')
UO.DeleteJournal()
UO.Exec('warmode 1')

UO.FindType('0x000E',-1,'ground')
Elem=UO.GetSerial('finditem')
wait (300)
UO.Attack(Elem)

repeat
wait(1000)
If UO.Life<100 Then
UO.UseType('0x0F0E','0x0787')
Endif
until UO.IsNPC(Elem)==0
wait(3000)
UO.Exec('warmode 0')
wait(1000)

UO.Print("Sdoh Skotina!")

end sub

sub RechargeBook()
ToRecharge()
end sub


sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub

sub DropScrolls()
if uo.Waiting() then
uo.CancelTarget()
end if
var s,Exit
dim Scrolls[1]
Scrolls[0]=0x1F4C
uo.SetReceivingContainer('0x40048F48')
wait(500)
for s=0 to 0
Exit=0
repeat
uo.FindType(Scrolls[s])
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
wait(1500)
else
Exit=1
end if
until Exit==1
next
uo.UnSetReceivingContainer('0x40048F48')
end sub


sub ToRecharge()
uo.SetReceivingContainer('backpack')
uo.UseObject(Chest)
uo.FindType('0x1F4C','-1',Chest)
uo.Grab('2','finditem')
wait(500)
Checklag()
uo.Recall('Runebook', 1)
wait(500)
uo.Recall('Runebook', 1)
wait(200)
Checklag()
uo.UnsetReceivingContainer()
end sub


Top
   
 Post subject:
PostPosted: 2008-01-09 12:45:55 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
viewtopic.php?t=8535

Для начала..

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 2 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 17 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited