Yoko

All sides of Injection
It is currently 2026-01-02 16:58:42

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 9 posts ] 
  Print view Previous topic | Next topic 
Author Message
ДРВ
PostPosted: 2006-05-13 13:28:57 
Offline

Joined: 2006-04-14 10:51:44
Posts: 121
Code:
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:
VAR scrol='0x1F44'# Òèï ñâèòêà
Top
   
Reply with quote  
Scripts Writer
 Post subject:
PostPosted: 2006-05-13 13:38:20 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
ну и в чём выражается твоя ошибка? =\
Top
   
Reply with quote  
ДРВ
 Post subject:
PostPosted: 2006-05-13 13:44:46 
Offline

Joined: 2006-04-14 10:51:44
Posts: 121
You Must Die wrote:
ну и в чём выражается твоя ошибка? =\

Line 510: Variable already defined - SCROL
Top
   
Reply with quote  
Qwart
 Post subject:
PostPosted: 2006-05-13 13:57:39 
Offline

Joined: 2005-04-08 11:11:51
Posts: 15
Может у тебя где-нидь ниже по скрипту ещё раз встречается
переменная scrol?
Из-за того, что их несколько возникает ошибка.[/code]
Top
   
Reply with quote  
ДРВ
 Post subject:
PostPosted: 2006-05-13 14:04:52 
Offline

Joined: 2006-04-14 10:51:44
Posts: 121
Qwart wrote:
Может у тебя где-нидь ниже по скрипту ещё раз встречается
переменная scrol?
Из-за того, что их несколько возникает ошибка.[/code]
ну у меня 3 похожих скрипта........
Top
   
Reply with quote  
Kynep
PostPosted: 2006-05-13 14:15:57 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
ДРВ wrote:
Code:
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:
VAR scrol='0x1F44'# Òèï ñâèòêà


У тебя IF THEN не закрыт:
Code:
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 не забудь ) :roll:


Last edited by Kynep on 2006-05-13 14:20:49, edited 1 time in total.

Top
   
Reply with quote  
Qwart
 Post subject:
PostPosted: 2006-05-13 14:16:41 
Offline

Joined: 2005-04-08 11:11:51
Posts: 15
ДРВ wrote:
Qwart wrote:
Может у тебя где-нидь ниже по скрипту ещё раз встречается
переменная scrol?
Из-за того, что их несколько возникает ошибка.[/code]
ну у меня 3 похожих скрипта........


ну тогда делай var scrol, var scrol1, var scrol2.. и в скриптах тогда меняй
Uo.findtype(scrol), Uo.findtype(scrol1), Uo.findtype(scrol2)
Top
   
Reply with quote  
Cant StoP
PostPosted: 2006-05-14 09:25:42 
Offline

Joined: 2006-04-17 13:45:02
Posts: 4
[quote="Cooper"][/quote]

Истину глаголишь :)
Top
   
Reply with quote  
Volk
 Post subject:
PostPosted: 2006-08-19 18:46:47 
Offline

Joined: 2004-08-13 09:49:54
Posts: 1
А у меня та же проблема, только таких же переменных нету нигде в скрипте, раньше работал, НО, после того, как поменял другую процедуру, эта перестала работать =(
Code:
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

_________________
Live yourself no mether what they say
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 9 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 6 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited