Yoko

All sides of Injection
It is currently 2025-11-02 11:56:27

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 5 posts ] 
  Print view Previous topic | Next topic 
Author Message
sund
PostPosted: 2005-10-10 12:37:34 
Offline

Joined: 2005-09-21 21:33:08
Posts: 8
вот есть скрипт , знаю что почти ничего не представляет, летает по рункам указанным и обкапывает, но хотелось бы в него еще добавить антипк или антиплеер чтоб инвиз на себя и рекол домой по рунбуке ( рунка 7) шард цитадель - рунбуки отличаются от дрв

вот скрипт :








sub minround()
uo.exec("recall 0x404fb401 24") ; øàõòà
wait(5000)
VAR Kirka = '0x0E85' ; Òèï Êèðêè
VAR MaxVes = 650 ; Ìàêñèìàëüíûé âåñ, ïîäûìàåìûé ÷àðîì ìèíóñ 10-15 ñòîóíîâ
VAR TileNum = '1339' ; Òàéë ïîëà ïåùåðû (íàèáîëåå ðàñïðîñòðàíåííûé òèï)
VAR x, y, t, k
VAR MaxTime = 100 ; èçìåðÿåòñÿ â 1/10 ñåê.
VAR ms1 = "There is no ore here to mine"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "You are too far away"
VAR ms6 = "Try mining in rock"
VAR ms7 = "You can't see that"
for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Ïðÿ÷åìñÿ...")
UO.UseSkill("Hiding")
wait(4000)
wend
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.CancelTarget()
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next

uo.deletejournal()
uo.playwav("c:\alarm.wav")
uo.cast("Invisibility", "self")
wait(2000)
IF UO.InJournal( 'izzle') THEN
goto cast
ENDIF
# UO.UseType("Invisibility", "self")
# wait(1000)
uo.exec("recall 0x404fb401 26") ; äîìîé ( â ðóíáóêå ñëîò 7 )
wait (5000)



for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Ïðÿ÷åìñÿ...")
UO.UseSkill("Hiding")
wait(4000)
wend
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.CancelTarget()
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next

uo.deletejournal()
uo.playwav("c:\alarm.wav")
uo.cast("Invisibility", "self")
wait(2000)
IF UO.InJournal( 'izzle') THEN
goto cast
ENDIF
# UO.UseType("Invisibility", "self")
# wait(1000)
uo.exec("recall 0x404fb401 34") ; äîìîé ( â ðóíáóêå ñëîò 7 )
wait (5000)


for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Ïðÿ÷åìñÿ...")
UO.UseSkill("Hiding")
wait(4000)
wend
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.CancelTarget()
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next


uo.deletejournal()
uo.playwav("c:\alarm.wav")
uo.cast("Invisibility", "self")
wait(2000)
IF UO.InJournal( 'izzle') THEN
goto cast
ENDIF
# UO.UseType("Invisibility", "self")
# wait(1000)
uo.exec("recall 0x404fb401 36") ; äîìîé ( â ðóíáóêå ñëîò 7 )
wait (5000)



for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Ïðÿ÷åìñÿ...")
UO.UseSkill("Hiding")
wait(4000)
wend
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.CancelTarget()
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next
uo.deletejournal()
uo.playwav("c:\alarm.wav")
uo.cast("Invisibility", "self")
wait(2000)
IF UO.InJournal( 'izzle') THEN
goto cast
ENDIF
# UO.UseType("Invisibility", "self")
# wait(1000)
uo.exec("recall 0x404fb401 38") ; äîìîé ( â ðóíáóêå ñëîò 7 )
wait (5000)

for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Ïðÿ÷åìñÿ...")
UO.UseSkill("Hiding")
wait(4000)
wend
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.CancelTarget()
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next

uo.deletejournal()
uo.playwav("c:\alarm.wav")
uo.cast("Invisibility", "self")
wait(2000)
IF UO.InJournal( 'izzle') THEN
goto cast
ENDIF
# UO.UseType("Invisibility", "self")
# wait(1000)
uo.exec("recall 0x404fb401 40") ; äîìîé ( â ðóíáóêå ñëîò 7 )
wait (5000)

for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Ïðÿ÷åìñÿ...")
UO.UseSkill("Hiding")
wait(4000)
wend
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.CancelTarget()
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next

uo.deletejournal()
uo.playwav("c:\alarm.wav")
uo.cast("Invisibility", "self")
wait(2000)
IF UO.InJournal( 'izzle') THEN
goto cast
ENDIF
# UO.UseType("Invisibility", "self")
# wait(1000)
uo.exec("recall 0x404fb401 32") ; äîìîé ( â ðóíáóêå ñëîò 7 )
wait (5000)
; ïåðåêëàäêà ðóäû â ñóíäóê
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont='0x402fe46f';--------àéäè ñóíäóêà êóäà êèäàòü ðóäó
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 bs()
VAR MyTrash = '0x405d3a9e' ; óÅÒÉÁÌ ÍÕÓÏÒËÉ (ID of trash)
VAR ingots = '0x1bef' ; ôÉÐ ÌÏÇÏ× (logs type)
VAR molotok = '0x13e3' ; ôÉÐ ÉÎÓÔÒÕÍÅÎÔÁ (carpentry tools type)
VAR dagger = '0x0f51' ; ôÉÐ ÕÄÏÞËÉ (fishing pole type)
VAR Kolvo = 500 ; âÒÁÔØ ÌÏÇÏ× (Count of logs for a one grab)
VAR j, k
While TRUE
UO.FindType( ingots, -1, 1 ) ; éÝÅÍ ÌÏÇÉ ÎÁ ÐÏÌÕ
UO.Grab( Str( Kolvo ), 'finditem' ) ; ëÌÁÄÅÍ ÌÏÇÉ × ÐÁË
wait( 1000 )
If UO.FindCount() == 0 Then
UO.Print("ingots not found, script terminated")
return
Endif
While UO.Count( ingots ) > 2
; ðÏËÁ × ÐÁËÅ ÅÓÔØ ÌÏÇÉ
UO.Print('I have ' + Str( UO.Count( ingots ) ) + ' ingots' )
UO.DeleteJournal()
uo.automenu(Armor,Plate Mail)
uo.automenu(Plate Mail,Platemail gorget)
UO.UseType( molotok )
UO.UseType( ingots )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
; Wait(1)
if UO.Count( dagger ) > 0 then
UO.FindType( dagger )
UO.MoveItem( 'finditem', 0, MyTrash )
wait( 100 )
UO.Print( 'dagger trashed' )

UO.UseType('0x09ec') #### åñòü ìåä
end if
Wend
Wend
end sub





по yokohelp пытался настроить waitmenu но ничего так и не вышло опять же шард цитадель принцип нада сначала молоток заюзать потом курсор появляется таргет на инги, опосля нада указать в менюшке (я хотел бы platemail gorget)
менюшка идет так:
1 blacksmithing iron armor
2 plate mail
3 platemail gorget и прочие...
Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2005-10-10 15:01:30 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
Code:
sub minround() 
var jor, ser, noto
uo.exec("recall 0x404fb401 24") ; ø?õ?? 
wait(5000) 
VAR Kirka = '0x0E85' ; ??? ????? 
VAR MaxVes = 650 ; ????????ü??é ?å?, ??ä???å??é ÷???? ???ó? 10-15 ???ó??? 
VAR TileNum = '1339' ; ??é? ???? ?å?å?? (??????åå ???????????å???é ???) 
VAR x, y, t, k 
VAR MaxTime = 100 ; ???å??å??? ? 1/10 ?å?. 
VAR ms1 = "There is no ore here to mine" 
VAR ms2 = "You can't use" 
VAR ms3 = "You put the" 
VAR ms4 = "You loosen some rocks" 
VAR ms5 = "You are too far away" 
VAR ms6 = "Try mining in rock" 
VAR ms7 = "You can't see that" 
for y=-2 to 2 
for x=-2 to 2 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("???֌???...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
k = 0 
repeat 
UO.DeleteJournal() 
t = UO.Timer() 
k = k + 1 
UO.CancelTarget() 
wait(300) 
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
UO.UseType( Kirka ) 
repeat 
wait(300) 
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer()) 
If UO.Weight > MaxVes Then 
UO.Print(" Overweight!" ) 
return 
Endif 
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) 
next 
next 

uo.deletejournal() 
uo.playwav("c:\alarm.wav") 
uo.cast("Invisibility", "self") 
wait(2000) 
IF UO.InJournal( 'izzle') THEN 
goto cast 
ENDIF 
# UO.UseType("Invisibility", "self") 
# wait(1000) 
uo.exec("recall 0x404fb401 26") ; ä???é ( ? ?ó??ó?å ???? 7 ) 
wait (5000) 



for y=-2 to 2 
for x=-2 to 2 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("???֌???...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
k = 0 
repeat 
UO.DeleteJournal() 
t = UO.Timer() 
k = k + 1 
UO.CancelTarget() 
wait(300) 
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
UO.UseType( Kirka ) 
repeat 
wait(300) 
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer()) 
If UO.Weight > MaxVes Then 
UO.Print(" Overweight!" ) 
return 
Endif 
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) 
next 
next 

uo.deletejournal() 
uo.playwav("c:\alarm.wav") 
uo.cast("Invisibility", "self") 
wait(2000) 
IF UO.InJournal( 'izzle') THEN 
goto cast 
ENDIF 
# UO.UseType("Invisibility", "self") 
# wait(1000) 
uo.exec("recall 0x404fb401 34") ; ä???é ( ? ?ó??ó?å ???? 7 ) 
wait (5000) 


for y=-2 to 2 
for x=-2 to 2 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("???֌???...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
k = 0 
repeat 
UO.DeleteJournal() 
t = UO.Timer() 
k = k + 1 
UO.CancelTarget() 
wait(300) 
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
UO.UseType( Kirka ) 
repeat 
wait(300) 
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer()) 
If UO.Weight > MaxVes Then 
UO.Print(" Overweight!" ) 
return 
Endif 
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) 
next 
next 


uo.deletejournal() 
uo.playwav("c:\alarm.wav") 
uo.cast("Invisibility", "self") 
wait(2000) 
IF UO.InJournal( 'izzle') THEN 
goto cast 
ENDIF 
# UO.UseType("Invisibility", "self") 
# wait(1000) 
uo.exec("recall 0x404fb401 36") ; ä???é ( ? ?ó??ó?å ???? 7 ) 
wait (5000) 



for y=-2 to 2 
for x=-2 to 2 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("???֌???...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
k = 0 
repeat 
UO.DeleteJournal() 
t = UO.Timer() 
k = k + 1 
UO.CancelTarget() 
wait(300) 
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
UO.UseType( Kirka ) 
repeat 
wait(300) 
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer()) 
If UO.Weight > MaxVes Then 
UO.Print(" Overweight!" ) 
return 
Endif 
for jor = 0 to 9    
ser = uo.journalserial(jor) 
noto = uo.getnotoriety(ser) 
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then 
if uo.waiting() then 
uo.canceltarget() 
endif 


until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) 
next 
next 
uo.deletejournal() 
uo.playwav("c:\alarm.wav") 
uo.cast("Invisibility", "self") 
wait(2000) 
IF UO.InJournal( 'izzle') THEN 
goto cast 
ENDIF 
# UO.UseType("Invisibility", "self") 
# wait(1000) 
uo.exec("recall 0x404fb401 38") ; ä???é ( ? ?ó??ó?å ???? 7 ) 
wait (5000) 

for y=-2 to 2 
for x=-2 to 2 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("???֌???...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
k = 0 
repeat 
UO.DeleteJournal() 
t = UO.Timer() 
k = k + 1 
UO.CancelTarget() 
wait(300) 
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
UO.UseType( Kirka ) 
repeat 
wait(300) 
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer()) 
If UO.Weight > MaxVes Then 
UO.Print(" Overweight!" ) 
return 
Endif 
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) 
next 
next 

uo.deletejournal() 
uo.playwav("c:\alarm.wav") 
uo.cast("Invisibility", "self") 
wait(2000) 
IF UO.InJournal( 'izzle') THEN 
goto cast 
ENDIF 
# UO.UseType("Invisibility", "self") 
# wait(1000) 
uo.exec("recall 0x404fb401 40") ; ä???é ( ? ?ó??ó?å ???? 7 ) 
wait (5000) 

for y=-2 to 2 
for x=-2 to 2 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("???֌???...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
k = 0 
repeat 
UO.DeleteJournal() 
t = UO.Timer() 
k = k + 1 
UO.CancelTarget() 
wait(300) 
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
UO.UseType( Kirka ) 
repeat 
wait(300) 
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer()) 
If UO.Weight > MaxVes Then 
UO.Print(" Overweight!" ) 
return 
Endif 
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) 
next 
next 

uo.deletejournal() 
uo.playwav("c:\alarm.wav") 
uo.cast("Invisibility", "self") 
wait(2000) 
IF UO.InJournal( 'izzle') THEN 
goto cast 
ENDIF 
# UO.UseType("Invisibility", "self") 
# wait(1000) 
uo.exec("recall 0x404fb401 32") ; ä???é ( ? ?ó??ó?å ???? 7 ) 
wait (5000) 
; ?å?å???ä?? ?óä? ? ?ó?äó? 
if uo.waiting() then 
uo.canceltarget() 
endif 
VAR a,Exit 
VAR UnloadCont='0x402fe46f';--------?éä? ?ó?äó?? ?óä? ??ä??ü ?óäó 
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 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
mx = UO.GetX("self") 
my = UO.GetY("self") 
UO.DeleteJournal() 
UO.FindType('0x1F14',-1,'my') 
wait(200) 
UO.Cast('Recall','finditem') 
wait(4000) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
end sub


может будет работать...


Code:
sub bs() 
VAR MyTrash = '0x405d3a9e' ; óÅ?É?? ?ÕÓ???É (ID of trash) 
VAR ingots = '0x1bef' ; ?É? ????× (logs type) 
VAR molotok = '0x13e3' ; ?É? É?Ó??Õ?Å??? (carpentry tools type) 
VAR dagger = '0x0f51' ; ?É? ÕÄ???É (fishing pole type) 
VAR Kolvo = 500 ; ????Ø ????× (Count of logs for a one grab) 
VAR j, k 
While TRUE 
UO.FindType( ingots, -1, 1 ) ; é?Å? ???É ?? ???Õ 
UO.Grab( Str( Kolvo ), 'finditem' ) ; ???ÄÅ? ???É × ??? 
wait( 1000 ) 
If UO.FindCount() == 0 Then 
UO.Print("ingots not found, script terminated") 
return 
Endif 
While UO.Count( ingots ) > 2 
; ???? × ???Å ÅÓ?Ø ???É 
UO.Print('I have ' + Str( UO.Count( ingots ) ) + ' ingots' ) 
UO.DeleteJournal() 
uo.automenu('Blacksmithing','Plate Mail') 
uo.automenu('Plate Mail','Platemail gorget') 
UO.UseType( ingots ) 
k = 0 
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 ) 
k = k + 1 
wait(500) 
wend 
; Wait(1) 
if UO.Count( dagger ) > 0 then 
UO.FindType( dagger ) 
UO.MoveItem( 'finditem', 0, MyTrash ) 
wait( 100 ) 
UO.Print( 'dagger trashed' ) 

UO.UseType('0x09ec') #### å??ü ?åä 
end if 
wend
wend
end sub


зделал что смог... может будет работать... если что стучи в асьу...
Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2005-10-10 15:02:45 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
если неработает то UO.UseType( ingots ) замени на
Code:
UO.UseType( molotok ) 
UO.UseType( ingots )


Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2005-10-10 15:08:23 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
или
Code:
UO.UseType( molotok ) 
UO.TargetType( ingots )


Top
   
Reply with quote  
sund
 Post subject:
PostPosted: 2005-10-10 15:37:32 
Offline

Joined: 2005-09-21 21:33:08
Posts: 8
c бсой тот же трабл что и был мне нужнее правильно выставить строчку waitmenu потому что то что я выложил доходит до менюшки и останавливается на выборе

подумал - лучше даггер но он тоже отличается
описываю как идет

blacksmithing
(iron) weapons
(iron) fencing weapons
(iron) dagger

#############################################
а с минингом поясни что добавил и как использовать потому что думаю надо донастроить
допустим на запись в журнале reveal - делал комбо инвиз на себя и рекол домой по рунбуке- номер 7
у нас тоже особая система что 1 руна под номером 20 идет
22 - 2ая
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 5 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users 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