Yoko
http://forum.yoko.com.ua/

Гляньте Ка - Умельци
http://forum.yoko.com.ua/viewtopic.php?f=1&t=3259		 Page 1 of 1
Author:  Vija [ XAOC ] [ 2005-03-01 01:58:47 ]
Post subject:  Гляньте Ка - Умельци
Sub main()
UO.usetype(0x1515,0x0A93)
UO.DeleteJournal()
start:
While Uo.Life < 80
uo.exec("warmode 0")
UO.Say(".bs")
wait(7000)
Wend
While not UO.Hidden()
uo.exec("warmode 0")
UO.Useskill("Hiding")
Wait(9000)
Wend
if UO.InJournal("hmm") then
Wait( 1000 )
obkast()
end if
goto start


end sub

sub obkast()
var charserial
var Char1 = "0x000770F4"
var Char2 = "0x000B67AF"
var Char3 = "0x00029F7A"
var Char4 = "0x0009F3CF" #
var Char5 = "0x00010BB1" #
var Char6 = "0x003D59FF" #
var Char7 = "0x000FB5CC" #
var Char8 = "0x0006FC55" #
var Char9 = "0x000ABDF0" #
var Char10 = "0x0001A4A2" #
var Char11 = "0x002F8701" #
var Char12 = "0x12345678" #


begin:

If UO.Mana < 100 then
uo.exec("warmode 0")
UO.Exec("useskill 'Meditation'")
wait (50000)
goto begin
End if

#MR
If UO.Count(0x0F86)<2 then
UO.Waittargetground(0x0F86)
UO.Exec("grab 2")
Wait(1000)
End if

# NS
If UO.Count(0x0f88)<1 then
UO.Waittargetground(0x0f88)
UO.Exec("grab 1")
Wait(1000)
End if

# GA
If UO.Count(0x0f84)<1 then
UO.Waittargetground(0x0f84)
UO.Exec("grab 1")
Wait(1000)
End if

# MR
If UO.Count(0x0F86)<4 then
UO.Waittargetground(0x0F86)
UO.Exec("grab 4")
Wait(1000)
End if
# BM
If UO.Count(0x0F7B)<1 then
UO.Waittargetground(0x0F7B)
UO.Exec("grab 1")
Wait(1000)
End if
# NS
If UO.Count(0x0f88)<2 then
UO.Waittargetground(0x0f88)
UO.Exec("grab 2")
Wait(1000)
End if
# GA
If UO.Count(0x0f84)<2 then
UO.Waittargetground(0x0f84)
UO.Exec("grab 2")
Wait(1000)
End if
# GS
If UO.Count(0x0f85)<1 then
UO.Waittargetground(0x0f85)
UO.Exec("grab 1")
Wait(1000)
End if
# SA
If UO.Count(0x0f8c)<1 then
UO.Waittargetground(0x0f8c)
UO.Exec("grab 1")
Wait(1000)
End if

charserial=uo.JournalSerial(uo.InJournal("hmm")-1)
IF charserial==char1 or charserial==char2 or charserial==char3 or charserial==char4 or charserial==char5 or charserial==char6 or charserial==char7 or charserial==char8 or charserial==char9 or charserial==char10 or charserial==char11 or charserial==char12 THEN
IF UO.int < 350 Then
uo.usetype(0x1718,0x0128)
wait(500)
UO.Exec("cast Cunning self")
wait(3000)
uo.usetype(0x1718,0x09B5)
wait(500)
UO.Exec("cast Bless self")
wait(3000)
End if
UO.Exec("waittargetobject "+charserial+"; cast Cunning")
wait(3000)
UO.Exec("waittargetobject "+charserial+"; cast Bless")
wait(3000)
UO.Exec("waittargetobject "+charserial+"; cast Strength")
wait(3000)
UO.Exec("waittargetobject "+charserial+"; cast Agility")
wait(3000)
UO.Exec("waittargetobject "+charserial+"; cast Protection")
wait(3000)
Else
While not UO.InJournal("???")
UO.Playwav("C:\sound108.wav")
Wait(1500)
Wend
Uo.Exec("terminate all")
End if

UO.DeleteJournal()
uo.exec("msg Vse ok ?")
uo.useskill("Medit")
wait (10000)
if UO.InJournal("hmm") then
goto begin
else
Meditate()
end if

main()
end sub


sub Meditate()
uo.exec("warmode 0")
UO.Exec("useskill 'Meditation'")
while uo.mana < 250
Wait( 1000 )
if UO.InJournal("You lose your concentration") then
UO.DeleteJournal()
Meditate()
end if
wend
end sub


\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
почему он тормозит ?
Author:  JIupus [ 2005-03-01 14:29:41 ]
Post subject: 
а в чем это выражается?
могу только предположить, что где-то в wait стоит шибко большое время
Author:  Yoko [ 2005-03-02 23:17:15 ]
Post subject: 
перед
goto start
нужно поставить хотя бы
wait(50)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/