Yoko

Ну пока скрипты писать ещё не умею но научился тырить и состовлять.
ыыы.
по скольку когда я просил для пвп никто не дал я сам составлю всё и дам для нубов типа меня.
а это такое с описанием для туров.

Ногами не пинать (описание сам писал для нубаёв)

_________________
Dragon World. [since 2004]

продолжай в том же духе...

updated чуток))

_________________
Dragon World. [since 2004]

ну вот я всё исправил и добавил коечто.
а когда пытаюсь выложить чёта не то с кодировкой получается в словах..

_________________
Dragon World. [since 2004]

Если копируешь из редактора инжы то так оно и будет, ручками исправь...

спасибо..

_________________
Dragon World. [since 2004]

А лучше открой файл со скриптом и копируй оттуда!

ненаю чё за ошибка ...
в этой строке...

   if UO.Print("Scroll") 

### for Tournament on Dragon World v 1.2 © CONDOM'chick 
## Питьё Зелей ( Potions ) 
# Питьё ГХ ( Greater Heal potion ) 
sub GH()  
Var Type='0x0F0C' 
Var Color='0x09BB' 
UO.FindType(Type, Color, 2) 
UO.UseObject('finditem') 
end sub 
# Питьё Инвизки ( Invisibility ) 
sub Invise() 
Var Type='0x0F09' 
Var Color='0x0060' 
UO.FindType(Type, Color, 2) 
UO.UseObject('finditem') 
end sub 
# Питьё Противоядия ( Greater Cure ) 
sub GCure() 
Var Type='0x0F0E' 
Var Color='0x09A6' 
UO.FindType(Type, Color, 2) 
UO.UseObject('finditem') 
end sub 
# Питьё Манки ( Total Mana )
sub manka() 
Var Type='0x0F0E' 
Var Color='0x09DF' 
UO.FindType(Type, Color, 2) 
UO.UseObject('finditem') 
end sub 
## Лечение Бинтами ( Bandages ) 
sub Heal()       ;Хилинг 
   If UO.STR==UO.Life Then 
      UO.Print("Life is full") 
   Else 
      UO.SetArm("1") 
      UO.BandageSelf() 
      wait(1000) 
      UO.Arm("1") 
      UO.UnSetArm() 
   Endif 
end sub 
## Одевание. 
# Одноручное оружие + Щит 
sub Sword()    
Var Svord='0x13B9' ;Тип Оружия 
Var Sheld='0x1B76' ; Тип Щита 
UO.Equipt('Rhand',Svord) 
UO.Equipt('Lhand',Sheld) 
Endsub 
# Лук или Двуручное оружие 
sub Bow()      
Var bow='0x13B1' ; Тип Лука или Двуручного оружия. 
UO.Equipt('Lhand',bow) 
Endsub 
## Касты ( Spells ) 
# Каст ФСа ( FlameStrike )
sub FS()
   UO.Set('lasttarget','laststatus') 
   UO.FindType('0x1F5F',-1,'my') 
   if UO.Print("Scroll") 
      else 
         UO.Print("Low mana!!! Scroll!") 
      UO.GetQuantity('finditem')>0 then 
      if UO.Mana>=14 then 
         UO.WaitTargetObject('lasttarget') 
         UO.UseObject('finditem') 
     endif 
   else 
      if UO.Mana>=28 then 
         UO.Cast('Flame Strike','laststatus') 
         UO.Print("Spell") 
      else 
         UO.Print("Low mana!!! Spell!") 
      endif 
   endif 
end sub 
# Каст Пойзона ( Poison ) 
sub Poison() 
   VAR ManaNeed=9 
   VAR ScrollManaNeed=4 
   UO.Set('lasttarget','laststatus') 
   If NOT UO.Poisoned('lasttarget') Then 
      UO.FindType('0x1F40',-1,'my') 
      If UO.GetQuantity('finditem')>0 Then 
         If UO.Mana>=ScrollManaNeed Then 
            UO.WaitTargetObject('lasttarget') 
            UO.UseObject('finditem') 
            UO.Print("Scroll") 
         Else 
            UO.Print("Low mana!!! Scroll!") 
         Endif 
      Else 
         If UO.Mana>=ManaNeed Then 
            UO.Cast('Poison','laststatus') 
         Else 
            UO.Print("Low mana!!!") 
         Endif 
      Endif 
   Else 
      UO.Print("Character already poisoned!") 
   Endif 
end sub 
# Каст An Nox ( Cure ) 
sub cure() 
   UO.Exec("waittargetself") 
   wait(100) 
   UO.Cast("Cure") 
end sub 
# Каст Грейтер Хила ( Greater Heal ) 
sub InVasMani() 
   UO.Exec("waittargetself") 
   wait(100) 
   UO.Cast("Greater Heal") 
end sub
## Умения ( Skills )
# Хайд ( Hiding )
Sub Hiding()  
UO.WarMode(0) 
UO.UseSkill('Hiding') 
end sub 
# Медитация ( Meditation )
Sub Meditation() 
UO.WarMode(0) 
UO.UseSkill('Meditation') 
end sub 

_________________
Dragon World. [since 2004]

Как ты себе это преставляешь? Если УО Выводит на эксран Scroll

+ не забывай писать then

Должно быть так!

sub FS()
   UO.Set('lasttarget','laststatus')
   UO.FindType('0x1F5F',-1,'my')
   If UO.GetQuantity('finditem')>0 then
      if UO.Mana>=14 then
         UO.WaitTargetObject('lasttarget')
         UO.UseObject('finditem')
         UO.Print('Scroll')
      else
         UO.Print('Low mana!!! Scroll!')
      endif
   else
      if UO.Mana>=28 then
         UO.Cast('Flame Strike','laststatus')
         UO.Print("Spell")
      else
         UO.Print("Low mana!!! Spell!")
      endif
   endif
end sub 

П.С. ты даж тырить плохо научился

все мы учимся, и не только критиковать надо учиться. Всё равно молодцом!

надпись?

_________________
Dragon World. [since 2004]

sub FS() 
   UO.Set('lasttarget','laststatus') 
   UO.FindType('0x1F5F',-1,'my') 
   if UO.Print("Scroll") 
      else 
         UO.Print("Low mana!!! Scroll!") 
      UO.GetQuantity('finditem')>0 then 
      if UO.Mana>=14 then 
         UO.WaitTargetObject('lasttarget') 
         UO.UseObject('finditem') 
     endif 
   else 
      if UO.Mana>=28 then 
         UO.Cast('Flame Strike','laststatus') 
         UO.Print("Spell") 
      else 
         UO.Print("Low mana!!! Spell!") 
      endif 
   endif 
end sub 

тут на самом деле намудрено. Разберись

Нельзя конструкцию такую

Да если очень хочется - то можно. Только толку-то от такой конструкции. Ведь отсутствие возвращаемого значения - это false, то есть все что внутри Ифа - не будет исполняться никогда.