Ошибка в ПвПшном скрипте!

[ДРВ]

Code: Select all

sub WoS() 
VAR scrol='0x1F44'# Òèï ñâèòêà
if uo.waiting() then 
uo.canceltarget() 
endif
UO.FindType(scrol)
If UO.FindCount() > 0 then
UO.UseObject('finditem')
UO.Print("Scroll") 
else
if uo.mana > 30 then 
UO.Exec("cast 'Wall of Stone'") 
UO.Print("Cast") 
else 
UO.Print("Ìàíà êîí÷èëàñü!!") 
endif 

показывает ошибку в

Code: Select all

VAR scrol='0x1F44'# Òèï ñâèòêà

[Scripts Writer]

ну и в чём выражается твоя ошибка? =\

[ДРВ]

ну и в чём выражается твоя ошибка? =\

Line 510: Variable already defined - SCROL

[Qwart]

Может у тебя где-нидь ниже по скрипту ещё раз встречается
переменная scrol?
Из-за того, что их несколько возникает ошибка.[/code]

[ДРВ]

Может у тебя где-нидь ниже по скрипту ещё раз встречается
переменная scrol?
Из-за того, что их несколько возникает ошибка.[/code]

ну у меня 3 похожих скрипта........

[Kynep]

Code: Select all

sub WoS() 
VAR scrol='0x1F44'# Òèï ñâèòêà
if uo.waiting() then 
uo.canceltarget() 
endif
UO.FindType(scrol)
If UO.FindCount() > 0 then
UO.UseObject('finditem')
UO.Print("Scroll") 
else
if uo.mana > 30 then 
UO.Exec("cast 'Wall of Stone'") 
UO.Print("Cast") 
else 
UO.Print("Ìàíà êîí÷èëàñü!!") 
endif 

показывает ошибку в

Code: Select all

VAR scrol='0x1F44'# Òèï ñâèòêà

У тебя IF THEN не закрыт:

Code: Select all

If UO.FindCount() > 0 then 
UO.UseObject('finditem') 
UO.Print("Scroll") 
else 
if uo.mana > 30 then 
UO.Exec("cast 'Wall of Stone'") 
UO.Print("Cast") 
else 
UO.Print("Ìàíà êîí÷èëàñü!!") 
endif 
endif 
end sub

во первых, а во вторых end sub не забудь )

[Qwart]

Может у тебя где-нидь ниже по скрипту ещё раз встречается
переменная scrol?
Из-за того, что их несколько возникает ошибка.[/code]

ну у меня 3 похожих скрипта........

ну тогда делай var scrol, var scrol1, var scrol2.. и в скриптах тогда меняй
Uo.findtype(scrol), Uo.findtype(scrol1), Uo.findtype(scrol2)

[Cant StoP]

[quote="Cooper"][/quote]

Истину глаголишь

[Volk]

А у меня та же проблема, только таких же переменных нету нигде в скрипте, раньше работал, НО, после того, как поменял другую процедуру, эта перестала работать =(

Code: Select all

sub findnearest()
Dim Targ[10]
Dim TEn[10]
var n,i,SerialEnemy,nearest,nearestn
UO.Exec('set finddistance 15')
UO.Ignore('self')
n=2

UO.FindType( '0x0032', '-1', 'ground' )
i=UO.FindCount()
Targ[1]=UO.GetDistance(UO.GetSerial('finditem'))
TEn[1] = UO.GetSerial('finditem')
while n<i          
         UO.FindType('0x0032', '-1', 'ground' )
                If UO.FindCount() > 0 Then
                
            
            
            SerialEnemy = UO.GetSerial('finditem')
            
            TEn[n] = SerialEnemy
            UO.Ignore('finditem')
               
            Targ[n]=UO.GetDistance(SerialEnemy)
            UO.Say(str(Targ[n]))
            else 
            UO.IgnoreReset()
            end if
n=n+1
wend
UO.IgnoreReset()
n=1
nearestn=1
while n<i and n < 9
if Targ[n]<Targ[n+1] then
nearest=Targ[n]
nearestn=n
endif
n=n+1
wend
return TEn[nearestn]
endif