Page 1 of 1

mozet kto prosmotret ?

Posted: 2008-01-15 19:13:10
by kapatuct

Code: Select all

sub MArrow() 
var mana 
mana=uo.mana 
if uo.InJournal('Target is not in line of sight') then 
uo.DeleteJournal() 
uo.setglobal ('ccast', '0') 
else 
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then 
if uo.mana>=6 then 
if not uo.getglobal ('ccast') == '1' then 
uo.setglobal ('ccast', '1') 
uo.cast ('Magic Arrow','laststatus') 
wait(100) 
if uo.InJournal('Target is not in line of sight') then 
uo.DeleteJournal() 
uo.setglobal ('ccast', '0') 
uo.Exec('terminate MArrow') 
end if 
While uo.mana>=mana 
wait(5) 
wend 
uo.setglobal ('ccast', '0') 
else 
UO.Exec("concolor 0x001c") 
uo.print ('Already casting') 
UO.Exec("concolor 0x0000") 
end if 
else 
UO.Exec("concolor 0x001c") 
uo.print('##################') 
uo.print('######NO MANA######') 
uo.print('##################') 
UO.Exec("concolor 0x0000") 
end if 
else 
UO.Exec("concolor 0x001c") 
uo.print('##################') 
uo.print('#####NO REGS#######') 
uo.print('##################') 
UO.Exec("concolor 0x0000") 
end if 
end if 
end sub 




kak zdelat chtob castila i bez reagentov . ja igraju v servere gde nenado reagentow.

Posted: 2008-01-17 20:38:16
by CuHTpoH
для начала стоит НЕ использовать # и ; в скрипте так как это комментирующие символы :)))))