Yoko :: tournament on drw

Yoko http://forum.yoko.com.ua/

tournament on drw http://forum.yoko.com.ua/viewtopic.php?f=20&t=7200	Page 1 of 1

Author:	CONDOMchick [ 2006-03-30 18:04:29 ]
Post subject:	tournament on drw
Ну пока скрипты писать ещё не умею но научился тырить и состовлять. ыыы. по скольку когда я просил для пвп никто не дал я сам составлю всё и дам для нубов типа меня. а это такое с описанием для туров. Ногами не пинать (описание сам писал для нубаёв)

Author:	Scripts Writer [ 2006-03-30 18:28:43 ]
Post subject:
продолжай в том же духе...

Author:	CONDOMchick [ 2006-03-31 18:19:26 ]
Post subject:
updated чуток))

Author:	CONDOMchick [ 2006-05-01 01:18:23 ]
Post subject:
ну вот я всё исправил и добавил коечто. а когда пытаюсь выложить чёта не то с кодировкой получается в словах..

Author:	Kynep [ 2006-05-01 06:33:19 ]
Post subject:
CONDOMchick wrote: ну вот я всё исправил и добавил коечто. а когда пытаюсь выложить чёта не то с кодировкой получается в словах.. Если копируешь из редактора инжы то так оно и будет, ручками исправь...

Author:	CONDOMchick [ 2006-05-01 08:32:08 ]
Post subject:
Cooper wrote: CONDOMchick wrote: ну вот я всё исправил и добавил коечто. а когда пытаюсь выложить чёта не то с кодировкой получается в словах.. Если копируешь из редактора инжы то так оно и будет, ручками исправь... спасибо..

Author:	BigMouseI [ 2006-05-01 11:03:50 ]
Post subject:
А лучше открой файл со скриптом и копируй оттуда!

Author:

CONDOMchick [ 2006-05-01 17:38:32 ]

Post subject:

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

Code:

   if UO.Print("Scroll")

Code:

### 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

Author:	BigMouseI [ 2006-05-01 17:41:39 ]
Post subject:
CONDOMchick wrote: ненаю чё за ошибка ... в этой строке... Code: if UO.Print("Scroll") Как ты себе это преставляешь? Если УО Выводит на эксран Scroll

Author:

BigMouseI [ 2006-05-01 17:42:21 ]

Post subject:

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

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

Code:

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

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

Author:	Scripts Writer [ 2006-05-01 18:31:18 ]
Post subject:
все мы учимся, и не только критиковать надо учиться. Всё равно молодцом!

Author:	CONDOMchick [ 2006-05-01 18:34:04 ]
Post subject:
BigMouseI wrote: CONDOMchick wrote: ненаю чё за ошибка ... в этой строке... Code: if UO.Print("Scroll") Как ты себе это преставляешь? Если УО Выводит на эксран Scroll надпись?

Author:

Scripts Writer [ 2006-05-01 18:39:20 ]

Post subject:

Code:

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

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

Author:	BigMouseI [ 2006-05-02 13:00:39 ]
Post subject:
CONDOMchick wrote: BigMouseI wrote: CONDOMchick wrote: ненаю чё за ошибка ... в этой строке... Code: if UO.Print("Scroll") Как ты себе это преставляешь? Если УО Выводит на эксран Scroll надпись? Нельзя конструкцию такую

Author:	Edred [ 2006-05-02 17:52:24 ]
Post subject:
BigMouseI wrote: CONDOMchick wrote: BigMouseI wrote: CONDOMchick wrote: ненаю чё за ошибка ... в этой строке... Code: if UO.Print("Scroll") Как ты себе это преставляешь? Если УО Выводит на эксран Scroll надпись? Нельзя конструкцию такую Да если очень хочется - то можно. Только толку-то от такой конструкции. Ведь отсутствие возвращаемого значения - это false, то есть все что внутри Ифа - не будет исполняться никогда.

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/