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

помогите исправить скрипт!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7605		 Page 1 of 1
Author:  ДРВ [ 2006-05-07 11:30:02 ]
Post subject:  помогите исправить скрипт!
Code:
sub WS_X_WS() 
; ----------------------------------------------------- 
var LTimer, MyMana 
var mX = UO.GetX('laststatus') 
var mY = UO.GetY('laststatus') 
var mZ = UO.GetZ('laststatus') 
var mT = '400' 
; -- Wall of Stone # 1 -------------------------------- 
if UO.GetX('laststatus') > UO.GetX('self') then 
UO.WaitTargetTile( mT, STR(mX-2), STR(mY), STR(mZ)) 
UO.Cast('Wall of Stone') 
else 
UO.WaitTargetTile( mT, STR(mX+2), STR(mY), STR(mZ)) 
UO.Cast('Wall of Stone') 
endif 
LTimer = UO.Timer() 
MyMana = UO.Mana 
repeat 
wait(1000) 
until UO.Mana < MyMana || UO.Timer() > LTimer+30 
; -- Wall of Stone # 2 -------------------------------- 
if UO.GetY('laststatus') > UO.GetY('self') then 
UO.WaitTargetTile( mT, STR(mX), STR(mY-2), STR(mZ)) 
UO.Cast('Wall of Stone') 
else 
UO.WaitTargetTile( mT, STR(mX), STR(mY+2), STR(mZ)) 
UO.Cast('Wall of Stone') 
endif 
LTimer = UO.Timer() 
MyMana = UO.Mana 
repeat 
wait(1000) 
until UO.Mana < MyMana || UO.Timer() > LTimer+30 
; -- Fire Field --------------------------------------- 
if UO.GetY('laststatus') > UO.GetY('self') then 
UO.WaitTargetTile( mT, STR(mX), STR(mY-2), STR(mZ)) 
UO.Cast('Fire Field') 
else 
UO.WaitTargetTile( mT, STR(mX), STR(mY+2), STR(mZ)) 
UO.Cast('Fire Field') 
endif 
end sub

просто сделайте чтоб со скролов кастовал!очень надо!
Author:  ДРВ [ 2006-05-07 13:18:18 ]
Post subject: 
ПОМОГИТЕ ПОЖАЛУЙСТА!
Author:  ДРВ [ 2006-05-07 13:47:36 ]
Post subject: 
АУУУУУУУУУУУУУ"!
Author:  DerMeister =) [ 2006-05-07 13:50:27 ]
Post subject: 
Замени UO.Cast('спелл') на uo.usetype(' тип скроллов для етого спелла')
Author:  ДРВ [ 2006-05-07 14:03:54 ]
Post subject: 
Der wrote:
Замени UO.Cast('спелл') на uo.usetype(' тип скроллов для етого спелла')
можешь заменить?:( просто я не шарю вообще!
Author:  Scripts Writer [ 2006-05-07 15:05:46 ]
Post subject: 
Code:
sub WS_X_WS() 
  ; ----------------------------------------------------- 
  var LTimer, MyMana 
  var mX = UO.GetX('laststatus') 
  var mY = UO.GetY('laststatus') 
  var mZ = UO.GetZ('laststatus') 
  var mT = '400'
  var stone=' тип скрола Wall of stone '
  var fire=' тип скрола Fire Field ' 
  ; -- Wall of Stone # 1 -------------------------------- 
  if UO.GetX('laststatus') > UO.GetX('self') then 
    uo.FindType(stone,'-1','backpack')
    if uo.Count() > 0 then
      UO.WaitTargetTile( mT, STR(mX-2), STR(mY), STR(mZ))  
      uo.UseType(stone) 
      wait(100)
    else
      uo.Print('There are no scrolls! Spell !')
      UO.WaitTargetTile( mT, STR(mX-2), STR(mY), STR(mZ))     
      uo.Cast('Wall of Stone')
    end if
  else 
    uo.FindType(stone,'-1','backpack')
    if uo.Count() > 0 then
      UO.WaitTargetTile( mT, STR(mX+2), STR(mY), STR(mZ)) 
      uo.UseType(stone) 
      wait(100)
    else
      uo.Print('There are no scrolls! Spell !')
      UO.WaitTargetTile( mT, STR(mX+2), STR(mY), STR(mZ)) 
      uo.Cast('Wall of Stone')
    end if
  endif 
  LTimer = UO.Timer() 
  MyMana = UO.Mana 
  repeat 
    wait(1000) 
  until UO.Mana < MyMana || UO.Timer() > LTimer+30 
  ; -- Wall of Stone # 2 -------------------------------- 
  if UO.GetY('laststatus') > UO.GetY('self') then 
    uo.FindType(stone,'-1','backpack')
    if uo.Count() > 0 then
      UO.WaitTargetTile( mT, STR(mX), STR(mY-2), STR(mZ)) 
      uo.UseType(stone) 
      wait(100)
    else
      uo.Print('There are no scrolls! Spell !')  
      UO.WaitTargetTile( mT, STR(mX), STR(mY-2), STR(mZ))    
      UO.Cast('Wall of Stone') 
    end if
  else 
    uo.FindType(stone,'-1','backpack')
    if uo.Count() > 0 then
      UO.WaitTargetTile( mT, STR(mX), STR(mY+2), STR(mZ)) 
      uo.UseType(stone) 
      wait(100)
    else
      uo.Print('There are no scrolls! Spell !')  
      UO.WaitTargetTile( mT, STR(mX), STR(mY+2), STR(mZ)) 
      UO.Cast('Wall of Stone') 
    endif 
  end if
  LTimer = UO.Timer() 
  MyMana = UO.Mana 
  repeat 
    wait(1000) 
  until UO.Mana < MyMana || UO.Timer() > LTimer+30 
  ; -- Fire Field --------------------------------------- 
  if UO.GetY('laststatus') > UO.GetY('self') then 
    uo.FindType(fire,'-1','backpack')
    if uo.Count() > 0 then
      UO.WaitTargetTile( mT, STR(mX), STR(mY-2), STR(mZ)) 
      uo.UseType(fire)
      wait(100)
    else
      uo.Print('There are NO fire field scrolls! Spell !')
      UO.WaitTargetTile( mT, STR(mX), STR(mY-2), STR(mZ))     
      UO.Cast('Fire Field') 
    end if
  else 
    uo.FindType(fire,'-1','backpack')
    if uo.Count() > 0 then
      UO.WaitTargetTile( mT, STR(mX), STR(mY+2), STR(mZ)) 
      uo.UseType(fire)
      wait(100)
    else
      uo.Print('There are NO fire field scrolls! Spell !')
      UO.WaitTargetTile( mT, STR(mX), STR(mY+2), STR(mZ)) 
      UO.Cast('Fire Field') 
    end if
  endif 
end sub


Пропиши типы скролов, если есть они-то кастует с них, если нету то выдаёт месагу, скролов нет и кастует со спелбуки.
Author:  ДРВ [ 2006-05-07 15:41:07 ]
Post subject: 
You Must Die wrote:
Code:
sub WS_X_WS() 
  ; ----------------------------------------------------- 
  var LTimer, MyMana 
  var mX = UO.GetX('laststatus') 
  var mY = UO.GetY('laststatus') 
  var mZ = UO.GetZ('laststatus') 
  var mT = '400'
  var stone=' тип скрола Wall of stone '
  var fire=' тип скрола Fire Field ' 
  ; -- Wall of Stone # 1 -------------------------------- 
  if UO.GetX('laststatus') > UO.GetX('self') then 
    uo.FindType(stone,'-1','backpack')
    if uo.Count() > 0 then
      UO.WaitTargetTile( mT, STR(mX-2), STR(mY), STR(mZ))  
      uo.UseType(stone) 
      wait(100)
    else
      uo.Print('There are no scrolls! Spell !')
      UO.WaitTargetTile( mT, STR(mX-2), STR(mY), STR(mZ))     
      uo.Cast('Wall of Stone')
    end if
  else 
    uo.FindType(stone,'-1','backpack')
    if uo.Count() > 0 then
      UO.WaitTargetTile( mT, STR(mX+2), STR(mY), STR(mZ)) 
      uo.UseType(stone) 
      wait(100)
    else
      uo.Print('There are no scrolls! Spell !')
      UO.WaitTargetTile( mT, STR(mX+2), STR(mY), STR(mZ)) 
      uo.Cast('Wall of Stone')
    end if
  endif 
  LTimer = UO.Timer() 
  MyMana = UO.Mana 
  repeat 
    wait(1000) 
  until UO.Mana < MyMana || UO.Timer() > LTimer+30 
  ; -- Wall of Stone # 2 -------------------------------- 
  if UO.GetY('laststatus') > UO.GetY('self') then 
    uo.FindType(stone,'-1','backpack')
    if uo.Count() > 0 then
      UO.WaitTargetTile( mT, STR(mX), STR(mY-2), STR(mZ)) 
      uo.UseType(stone) 
      wait(100)
    else
      uo.Print('There are no scrolls! Spell !')  
      UO.WaitTargetTile( mT, STR(mX), STR(mY-2), STR(mZ))    
      UO.Cast('Wall of Stone') 
    end if
  else 
    uo.FindType(stone,'-1','backpack')
    if uo.Count() > 0 then
      UO.WaitTargetTile( mT, STR(mX), STR(mY+2), STR(mZ)) 
      uo.UseType(stone) 
      wait(100)
    else
      uo.Print('There are no scrolls! Spell !')  
      UO.WaitTargetTile( mT, STR(mX), STR(mY+2), STR(mZ)) 
      UO.Cast('Wall of Stone') 
    endif 
  end if
  LTimer = UO.Timer() 
  MyMana = UO.Mana 
  repeat 
    wait(1000) 
  until UO.Mana < MyMana || UO.Timer() > LTimer+30 
  ; -- Fire Field --------------------------------------- 
  if UO.GetY('laststatus') > UO.GetY('self') then 
    uo.FindType(fire,'-1','backpack')
    if uo.Count() > 0 then
      UO.WaitTargetTile( mT, STR(mX), STR(mY-2), STR(mZ)) 
      uo.UseType(fire)
      wait(100)
    else
      uo.Print('There are NO fire field scrolls! Spell !')
      UO.WaitTargetTile( mT, STR(mX), STR(mY-2), STR(mZ))     
      UO.Cast('Fire Field') 
    end if
  else 
    uo.FindType(fire,'-1','backpack')
    if uo.Count() > 0 then
      UO.WaitTargetTile( mT, STR(mX), STR(mY+2), STR(mZ)) 
      uo.UseType(fire)
      wait(100)
    else
      uo.Print('There are NO fire field scrolls! Spell !')
      UO.WaitTargetTile( mT, STR(mX), STR(mY+2), STR(mZ)) 
      UO.Cast('Fire Field') 
    end if
  endif 
end sub


Пропиши типы скролов, если есть они-то кастует с них, если нету то выдаёт месагу, скролов нет и кастует со спелбуки.
а где типы прописать?:( я сразу извиняюсь,просто нихера не понимаю... :(
Author:  Scripts Writer [ 2006-05-07 15:58:18 ]
Post subject: 
8 и 9 строка, по русски там написал.
Author:  ДРВ [ 2006-05-08 16:39:24 ]
Post subject: 
You Must Die wrote:
8 и 9 строка, по русски там написал.
нЕ КАСТУЕТ СО СКРОЛОВ! :(
Author:  DerMeister =) [ 2006-05-08 16:52:13 ]
Post subject: 
ДРВ wrote:
You Must Die wrote:
8 и 9 строка, по русски там написал.
нЕ КАСТУЕТ СО СКРОЛОВ! :(


И чё дальше? :lol:
Что именно не работает?
Author:  Kynep [ 2006-05-08 16:57:04 ]
Post subject: 
Der wrote:
ДРВ wrote:
You Must Die wrote:
8 и 9 строка, по русски там написал.
нЕ КАСТУЕТ СО СКРОЛОВ! :(


И чё дальше? :lol:
Что именно не работает?


Знатоки млин...
Code:
uo.FindType(stone,'-1','backpack') 
    if uo.Count() > 0 then

Во первых UO.Count без параметра написанна, а надо хотя бы
Code:
uo.FindType(stone,'-1','backpack') 
    if uo.Count(stone) > 0 then

НО тогда нахера тут поиск!?!?!?
Исправляем:
Code:
uo.FindType(stone,'-1','backpack') 
    if uo.FindCount() > 0 then

Теперь все работает )))
Author:  Grin [ 2006-05-08 17:29:18 ]
Post subject: 
Из "знатаков" тут от писывался только твой друг;)
И на хрена тут поиск если дальше используется тип?;)))
Code:
...
uo.FindType(stone,'-1','backpack') 
if uo.Count() > 0 then 
      UO.WaitTargetTile( mT, STR(mX-2), STR(mY), STR(mZ))  
      uo.UseType(stone) 
      wait(100) 
else
...


"Знатоки" блин;)))
Code:
...
if uo.Count(stone) then 
      UO.WaitTargetTile( mT, STR(mX-2), STR(mY), STR(mZ))  
      uo.UseType(stone) 
      wait(100) 
else
...
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/