Yoko

All sides of Injection
It is currently 2025-11-05 00:52:32

All times are UTC+02:00




Post new topic  Reply to topic  [ 8 posts ] 
Author Message
 Post subject: hm
PostPosted: 2008-09-29 11:49:18 
Offline
User avatar

Joined: 2008-09-26 17:06:16
Posts: 117
sto nado zdelati dlia avo stobi skrip nacel s naciala a ne ostanavlivalsia


Top
   
 Post subject: Re: hm
PostPosted: 2008-09-30 15:59:35 
Offline

Joined: 2004-08-26 16:47:05
Posts: 51
vertijok wrote:
sto nado zdelati dlia avo stobi skrip nacel s naciala a ne ostanavlivalsia

sub script()
while 1==1
тут скрипт
wait(100)
wend
end sub


Top
   
 Post subject: Re: hm
PostPosted: 2008-09-30 16:07:20 
Offline
User avatar

Joined: 2008-09-26 17:06:16
Posts: 117
kuda nado vsavliati etot kusok


sub script()
while 1==1
тут скрипт
wait(100)
wend
end sub


Code:
sub Vertijok()
uo.print('!!Viberi runu damoi!! ')
uo.exec('addobject runeHome')
while uo.targeting()
wait(100)
wend
######################################################################################
uo.print('!!Viberi sunduk s regami!! ')
uo.exec('addobject Sunduk')
while uo.targeting()
wait(15000)
wend
######################################################################################
uo.print('!!Viberi runu v saxtu!! ')
uo.exec('addobject runeCave')
while uo.targeting()
wait(100)
wend
######################################################################################
GoToMine()
repeat
while gotoxy(2558,496,0)
gotoxy(2560,492,0)
GetOre()
GoToHome()
GoToMine()
gotoxy(2564,486,0) 
gotoxy(2570,486,0)
GetOre()
GoToHome()
GoToMine()
gotoxy(2576,479,0)
GetOre()
GoToHome()
GoToMine()
repeat
end sub
######################################################################################
sub GoToHome()
gotoxy(2566,481,0)
gotoxy(2558,505,0)
gotoxy(2552,505,0)
gotoxy(2552,501,0) 
gotoxy(2525,501,0)
gotoxy(2525,515,0) 
gotoxy(2507,515,0)
gotoxy(2507,542,0)
uo.say('bank')
regi()
wait(3000)
uo.waittargetobject('runeHome') ; äîìîé
wait(500)
uo.cast('Recall')
wait(3000)
loot()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
end sub
######################################################################################
sub GoToMine()
med()
uo.waittargetobject('runeCave') ; V saxtu
wait(500)
uo.cast('Recall')
goto reccal
endif
gotoxy(2558,497,0)
end sub
######################################################################################
sub Start()
If    UO.GetGlobal('MiningCheck')=='on' Then
   UO.SetGlobal('MiningCheck','off')
   UO.Exec('Exec Terminate')
Else
   UO.Exec('Exec Select')
   UO.SetGlobal('MiningCheck','on')
EndIf
end sub
##############################
### Êîïàåì ðóäó âîçëå ñåáÿ ###
##############################
Sub GetOre()
var mx, my, mz, i, j, CheckTime, CheckLag=0
###
var Wait_1 = "You put"
var Wait_2 = "heavy"
var Wait_3 = "Ýòî ñëèøêîì äàëåêî"
var Wait_4 = "Òóò íå îñòàëîñü ðóäû."
var Wait_5 = "Ðàçäîëáèâ íåñêîëüêî êàìíåé"
var Wait_6 = "Äî òóäà Âàì íå äîòÿíóòüñÿ"
var Wait_7 = "in rock"
var Wait_8 = "You have found some"
###
var Fizzle_1 = "Òóò íå îñòàëîñü ðóäû."
var Fizzle_2 = "location"
var Fizzle_3 = "Äî òóäà Âàì íå äîòÿíóòüñÿ"
var Fizzle_4 = "in rock"
###
mx = UO.GetX('self')
my = UO.GetY('self')
mz = UO.GetZ('self')
For i = mx-2 TO mx+2
   For j = my-2 TO my+2
      ToHide()
      UO.Print("Get Coordinate: "+str(mx-i)+" "+str(my-j))
         REPEAT
            CheckLag = CheckLag+1
               
                  
               EndIf
            ToHide()
               If UO.Waiting() Then
                  UO.CancelTarget()
               EndIf
            UO.WaitTargeTtile('1341',str(i),str(j),str(mz))
            UO.UseObject('Shovel')
            CheckTime = UO.Timer()
            UO.DeleteJournal()
               REPEAT
                  Wait(300)
               Until UO.InJournal(Wait_1) or UO.InJournal(Wait_2) or UO.InJournal(Wait_3) or UO.InJournal(Wait_4) or UO.InJournal(Wait_5) or UO.InJournal(Wait_6) or UO.InJournal(Wait_7) or UO.InJournal(Wait_8) or (CheckTime+150)<UO.Timer() or UO.Dead()
               If UO.InJournal(Wait_8) Then
                  GrabOre()
               EndIf
               If CheckLag==10 Then
                  CheckLag = 0
                  Wait(9000)
               EndIf
         Until UO.InJournal(Fizzle_1) or UO.InJournal(Fizzle_2) or UO.InJournal(Fizzle_3) or UO.InJournal(Fizzle_4) or UO.Dead()
   Next
Next
end sub


Top
   
 Post subject: Re: hm
PostPosted: 2008-09-30 16:36:25 
Offline

Joined: 2004-08-26 16:47:05
Posts: 51
vertijok wrote:
kuda nado vsavliati etot kusok


sub script()
while 1==1
тут скрипт
wait(100)
wend
end sub


Code:
sub Vertijok()
uo.print('!!Viberi runu damoi!! ')
uo.exec('addobject runeHome')
while uo.targeting()
wait(100)
wend
######################################################################################
uo.print('!!Viberi sunduk s regami!! ')
uo.exec('addobject Sunduk')
while uo.targeting()
wait(15000)
wend
######################################################################################
uo.print('!!Viberi runu v saxtu!! ')
uo.exec('addobject runeCave')
while uo.targeting()
wait(100)
wend
######################################################################################
GoToMine()
repeat
while gotoxy(2558,496,0)
gotoxy(2560,492,0)
GetOre()
GoToHome()
GoToMine()
gotoxy(2564,486,0) 
gotoxy(2570,486,0)
GetOre()
GoToHome()
GoToMine()
gotoxy(2576,479,0)
GetOre()
GoToHome()
GoToMine()
repeat
end sub
######################################################################################
sub GoToHome()
gotoxy(2566,481,0)
gotoxy(2558,505,0)
gotoxy(2552,505,0)
gotoxy(2552,501,0) 
gotoxy(2525,501,0)
gotoxy(2525,515,0) 
gotoxy(2507,515,0)
gotoxy(2507,542,0)
uo.say('bank')
regi()
wait(3000)
uo.waittargetobject('runeHome') ; äîìîé
wait(500)
uo.cast('Recall')
wait(3000)
loot()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
end sub
######################################################################################
sub GoToMine()
med()
uo.waittargetobject('runeCave') ; V saxtu
wait(500)
uo.cast('Recall')
goto reccal
endif
gotoxy(2558,497,0)
end sub
######################################################################################
sub Start()
If    UO.GetGlobal('MiningCheck')=='on' Then
   UO.SetGlobal('MiningCheck','off')
   UO.Exec('Exec Terminate')
Else
   UO.Exec('Exec Select')
   UO.SetGlobal('MiningCheck','on')
EndIf
end sub
##############################
### Êîïàåì ðóäó âîçëå ñåáÿ ###
##############################
Sub GetOre()
var mx, my, mz, i, j, CheckTime, CheckLag=0
###
var Wait_1 = "You put"
var Wait_2 = "heavy"
var Wait_3 = "Ýòî ñëèøêîì äàëåêî"
var Wait_4 = "Òóò íå îñòàëîñü ðóäû."
var Wait_5 = "Ðàçäîëáèâ íåñêîëüêî êàìíåé"
var Wait_6 = "Äî òóäà Âàì íå äîòÿíóòüñÿ"
var Wait_7 = "in rock"
var Wait_8 = "You have found some"
###
var Fizzle_1 = "Òóò íå îñòàëîñü ðóäû."
var Fizzle_2 = "location"
var Fizzle_3 = "Äî òóäà Âàì íå äîòÿíóòüñÿ"
var Fizzle_4 = "in rock"
###
mx = UO.GetX('self')
my = UO.GetY('self')
mz = UO.GetZ('self')
For i = mx-2 TO mx+2
   For j = my-2 TO my+2
      ToHide()
      UO.Print("Get Coordinate: "+str(mx-i)+" "+str(my-j))
         REPEAT
            CheckLag = CheckLag+1
               
                  
               EndIf
            ToHide()
               If UO.Waiting() Then
                  UO.CancelTarget()
               EndIf
            UO.WaitTargeTtile('1341',str(i),str(j),str(mz))
            UO.UseObject('Shovel')
            CheckTime = UO.Timer()
            UO.DeleteJournal()
               REPEAT
                  Wait(300)
               Until UO.InJournal(Wait_1) or UO.InJournal(Wait_2) or UO.InJournal(Wait_3) or UO.InJournal(Wait_4) or UO.InJournal(Wait_5) or UO.InJournal(Wait_6) or UO.InJournal(Wait_7) or UO.InJournal(Wait_8) or (CheckTime+150)<UO.Timer() or UO.Dead()
               If UO.InJournal(Wait_8) Then
                  GrabOre()
               EndIf
               If CheckLag==10 Then
                  CheckLag = 0
                  Wait(9000)
               EndIf
         Until UO.InJournal(Fizzle_1) or UO.InJournal(Fizzle_2) or UO.InJournal(Fizzle_3) or UO.InJournal(Fizzle_4) or UO.Dead()
   Next
Next
end sub

В этом скрипте вообще ненадо делать что я написал...ищи ошибки....(скрипт Ветра помойму)


Top
   
 Post subject: Re: hm
PostPosted: 2008-09-30 17:53:05 
Offline
User avatar

Joined: 2008-09-26 17:06:16
Posts: 117
prablema v tom sto ia etot skript peredelal on kopaet normalino no esti odno no on prohodet vse kordinati kopki to skript ostanavlivaeta a mne nado stobi on dalise kopal
:D


Top
   
 Post subject: Re: hm
PostPosted: 2008-09-30 18:25:50 
Offline

Joined: 2004-08-26 16:47:05
Posts: 51
vertijok wrote:
prablema v tom sto ia etot skript peredelal on kopaet normalino no esti odno no on prohodet vse kordinati kopki to skript ostanavlivaeta a mne nado stobi on dalise kopal
:D

Была такаяже проблема...я не помню как я её исправил...помойму там цикла не хватало...


Top
   
 Post subject: Re: hm
PostPosted: 2008-09-30 18:38:21 
Offline
User avatar

Joined: 2008-09-26 17:06:16
Posts: 117
nu priama nekamu pomoci mne so skriptom ( stobi skript ne ostanavlivalsi posle tavo kak on prasol vse kordinati a kopal dalise.)


Last edited by vertijok on 2008-10-05 11:08:36, edited 1 time in total.

Top
   
 Post subject: Re: hm
PostPosted: 2008-09-30 18:52:07 
Offline
User avatar

Joined: 2008-09-26 17:06:16
Posts: 117
slis a ti mojesi zdelai resalku stobi esli evo ubiut o stobi on sor k resu i resalsia ress stoit v minoke i vstavi v skript


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

All times are UTC+02:00


Who is online

Users browsing this forum: Bing [Bot] and 4 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:  
Powered by phpBB® Forum Software © phpBB Limited