помогите пжст мининг и бс, поправьте

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
sund
Posts: 8
Joined: 2005-09-21 21:33:08

помогите пжст мининг и бс, поправьте

Post by sund »

вот есть скрипт , знаю что почти ничего не представляет, летает по рункам указанным и обкапывает, но хотелось бы в него еще добавить антипк или антиплеер чтоб инвиз на себя и рекол домой по рунбуке ( рунка 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
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Code: Select all

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: Select all

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
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

если неработает то UO.UseType( ingots ) замени на

Code: Select all

UO.UseType( molotok ) 
UO.UseType( ingots )
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

или

Code: Select all

UO.UseType( molotok ) 
UO.TargetType( ingots )
Top
sund
Posts: 8
Joined: 2005-09-21 21:33:08

Post by sund »

c бсой тот же трабл что и был мне нужнее правильно выставить строчку waitmenu потому что то что я выложил доходит до менюшки и останавливается на выборе

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

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

#############################################
а с минингом поясни что добавил и как использовать потому что думаю надо донастроить
допустим на запись в журнале reveal - делал комбо инвиз на себя и рекол домой по рунбуке- номер 7
у нас тоже особая система что 1 руна под номером 20 идет
22 - 2ая
Top
Post Reply

Return to “Scripting Ore”