Page 1 of 1
tournament on drw
Posted: 2006-03-30 18:04:29
by CONDOMchick
Ну пока скрипты писать ещё не умею но научился тырить и состовлять.
ыыы.
по скольку когда я просил для пвп никто не дал я сам составлю всё и дам для нубов типа меня.
а это такое с описанием для туров.
Ногами не пинать
(описание сам писал для нубаёв)
Posted: 2006-03-30 18:28:43
by Scripts Writer
продолжай в том же духе...
Posted: 2006-03-31 18:19:26
by CONDOMchick
updated чуток))
Posted: 2006-05-01 01:18:23
by CONDOMchick
ну вот я всё исправил и добавил коечто.
а когда пытаюсь выложить чёта не то с кодировкой получается в словах..
Posted: 2006-05-01 06:33:19
by Kynep
CONDOMchick wrote:ну вот я всё исправил и добавил коечто.
а когда пытаюсь выложить чёта не то с кодировкой получается в словах..
Если копируешь из редактора инжы то так оно и будет, ручками исправь...
Posted: 2006-05-01 08:32:08
by CONDOMchick
Cooper wrote:CONDOMchick wrote:ну вот я всё исправил и добавил коечто.
а когда пытаюсь выложить чёта не то с кодировкой получается в словах..
Если копируешь из редактора инжы то так оно и будет, ручками исправь...
спасибо..
Posted: 2006-05-01 11:03:50
by BigMouseI
А лучше открой файл со скриптом и копируй оттуда!
Posted: 2006-05-01 17:38:32
by CONDOMchick
ненаю чё за ошибка ...
в этой строке...
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
Posted: 2006-05-01 17:41:39
by BigMouseI
CONDOMchick wrote:ненаю чё за ошибка ...
в этой строке...
Как ты себе это преставляешь? Если УО Выводит на эксран Scroll
Posted: 2006-05-01 17:42:21
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
П.С. ты даж тырить плохо научился
Posted: 2006-05-01 18:31:18
by Scripts Writer
все мы учимся, и не только критиковать надо учиться. Всё равно молодцом!
Posted: 2006-05-01 18:34:04
by CONDOMchick
BigMouseI wrote:CONDOMchick wrote:ненаю чё за ошибка ...
в этой строке...
Как ты себе это преставляешь? Если УО Выводит на эксран Scroll
надпись?
Posted: 2006-05-01 18:39:20
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
тут на самом деле намудрено. Разберись
Posted: 2006-05-02 13:00:39
by BigMouseI
CONDOMchick wrote:BigMouseI wrote:CONDOMchick wrote:ненаю чё за ошибка ...
в этой строке...
Как ты себе это преставляешь? Если УО Выводит на эксран Scroll
надпись?
Нельзя конструкцию такую
Posted: 2006-05-02 17:52:24
by Edred
BigMouseI wrote:CONDOMchick wrote:BigMouseI wrote:CONDOMchick wrote:ненаю чё за ошибка ...
в этой строке...
Как ты себе это преставляешь? Если УО Выводит на эксран Scroll
надпись?
Нельзя конструкцию такую
Да если очень хочется - то можно. Только толку-то от такой конструкции. Ведь отсутствие возвращаемого значения - это false, то есть все что внутри Ифа - не будет исполняться никогда.