mozet kto prosmotret ?

Ask for help

Moderators: Murderator+, Murderator

Post Reply
kapatuct
Posts: 26
Joined: 2007-12-03 20:11:19

mozet kto prosmotret ?

Post 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.
CuHTpoH
Posts: 287
Joined: 2007-11-01 19:09:30
Location: Moscow
Contact:

Post by CuHTpoH »

для начала стоит НЕ использовать # и ; в скрипте так как это комментирующие символы :)))))
[url=http://coop.myftp.org/utils/codesweeper.htm]**Выставляем отступы в скриптах***[/url] ©Destruction
Feel the Power of Dark Side
Post Reply