tournament on drw

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

tournament on drw

Post by CONDOMchick »

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

Ногами не пинать :roll: :D (описание сам писал для нубаёв)
Last edited by CONDOMchick on 2006-05-01 01:17:18, edited 5 times in total.
[size=150][i]Dragon World. [since 2004][/i][/size]
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

продолжай в том же духе...
Top
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

Post by CONDOMchick »

updated чуток))
[size=150][i]Dragon World. [since 2004][/i][/size]
Top
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

Post by CONDOMchick »

ну вот я всё исправил и добавил коечто.
а когда пытаюсь выложить чёта не то с кодировкой получается в словах.. :roll:
[size=150][i]Dragon World. [since 2004][/i][/size]
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Post by Kynep »

CONDOMchick wrote:ну вот я всё исправил и добавил коечто.
а когда пытаюсь выложить чёта не то с кодировкой получается в словах.. :roll:
Если копируешь из редактора инжы то так оно и будет, ручками исправь... :twisted:
Top
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

Post by CONDOMchick »

Cooper wrote:
CONDOMchick wrote:ну вот я всё исправил и добавил коечто.
а когда пытаюсь выложить чёта не то с кодировкой получается в словах.. :roll:
Если копируешь из редактора инжы то так оно и будет, ручками исправь... :twisted:

спасибо.. :twisted: :roll:
[size=150][i]Dragon World. [since 2004][/i][/size]
Top
BigMouseI
Posts: 93
Joined: 2006-04-15 09:00:35

Post by BigMouseI »

А лучше открой файл со скриптом и копируй оттуда!
Top
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

Post by CONDOMchick »

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

Code: Select all

   if UO.Print("Scroll")

Code: Select all

### 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
[size=150][i]Dragon World. [since 2004][/i][/size]
Top
BigMouseI
Posts: 93
Joined: 2006-04-15 09:00:35

Post by BigMouseI »

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

Code: Select all

   if UO.Print("Scroll")
Как ты себе это преставляешь? Если УО Выводит на эксран Scroll :D
Top
BigMouseI
Posts: 93
Joined: 2006-04-15 09:00:35

Post by BigMouseI »

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

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

Code: Select all

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
П.С. ты даж тырить плохо научился :D
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

все мы учимся, и не только критиковать надо учиться. Всё равно молодцом!
Top
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

Post by CONDOMchick »

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

Code: Select all

   if UO.Print("Scroll")
Как ты себе это преставляешь? Если УО Выводит на эксран Scroll :D
надпись?
[size=150][i]Dragon World. [since 2004][/i][/size]
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

Code: Select all

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
тут на самом деле намудрено. Разберись
Top
BigMouseI
Posts: 93
Joined: 2006-04-15 09:00:35

Post by BigMouseI »

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

Code: Select all

   if UO.Print("Scroll")
Как ты себе это преставляешь? Если УО Выводит на эксран Scroll :D
надпись?
Нельзя конструкцию такую
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

BigMouseI wrote:
CONDOMchick wrote:
BigMouseI wrote: Как ты себе это преставляешь? Если УО Выводит на эксран Scroll :D
надпись?
Нельзя конструкцию такую
Да если очень хочется - то можно. Только толку-то от такой конструкции. Ведь отсутствие возвращаемого значения - это false, то есть все что внутри Ифа - не будет исполняться никогда.
Top
Post Reply

Return to “Scripting Ore”