помогите исправить скрипт!

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
ДРВ
Posts: 121
Joined: 2006-04-14 10:51:44

помогите исправить скрипт!

Post by ДРВ »

Code: Select all

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
просто сделайте чтоб со скролов кастовал!очень надо!
Top
ДРВ
Posts: 121
Joined: 2006-04-14 10:51:44

Post by ДРВ »

ПОМОГИТЕ ПОЖАЛУЙСТА!
Top
ДРВ
Posts: 121
Joined: 2006-04-14 10:51:44

Post by ДРВ »

АУУУУУУУУУУУУУ"!
Top
DerMeister =)
Expert!
Posts: 1032
Joined: 2006-02-25 21:48:38

Post by DerMeister =) »

Замени UO.Cast('спелл') на uo.usetype(' тип скроллов для етого спелла')
DerMeister сейчас на нейрале!
Top
ДРВ
Posts: 121
Joined: 2006-04-14 10:51:44

Post by ДРВ »

Der wrote:Замени UO.Cast('спелл') на uo.usetype(' тип скроллов для етого спелла')
можешь заменить?:( просто я не шарю вообще!
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 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
Пропиши типы скролов, если есть они-то кастует с них, если нету то выдаёт месагу, скролов нет и кастует со спелбуки.
Top
ДРВ
Posts: 121
Joined: 2006-04-14 10:51:44

Post by ДРВ »

You Must Die wrote:

Code: Select all

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
Пропиши типы скролов, если есть они-то кастует с них, если нету то выдаёт месагу, скролов нет и кастует со спелбуки.
а где типы прописать?:( я сразу извиняюсь,просто нихера не понимаю... :(
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

8 и 9 строка, по русски там написал.
Top
ДРВ
Posts: 121
Joined: 2006-04-14 10:51:44

Post by ДРВ »

You Must Die wrote:8 и 9 строка, по русски там написал.
нЕ КАСТУЕТ СО СКРОЛОВ! :(
Top
DerMeister =)
Expert!
Posts: 1032
Joined: 2006-02-25 21:48:38

Post by DerMeister =) »

ДРВ wrote:
You Must Die wrote:8 и 9 строка, по русски там написал.
нЕ КАСТУЕТ СО СКРОЛОВ! :(
И чё дальше? :lol:
Что именно не работает?
DerMeister сейчас на нейрале!
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Post by Kynep »

Der wrote:
ДРВ wrote:
You Must Die wrote:8 и 9 строка, по русски там написал.
нЕ КАСТУЕТ СО СКРОЛОВ! :(
И чё дальше? :lol:
Что именно не работает?
Знатоки млин...

Code: Select all

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

Code: Select all

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

Code: Select all

uo.FindType(stone,'-1','backpack') 
    if uo.FindCount() > 0 then
Теперь все работает )))
Top
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

Из "знатаков" тут от писывался только твой друг;)
И на хрена тут поиск если дальше используется тип?;)))

Code: Select all

...
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: Select all

...
if uo.Count(stone) then 
      UO.WaitTargetTile( mT, STR(mX-2), STR(mY), STR(mZ))  
      uo.UseType(stone) 
      wait(100) 
else
...
Top
Post Reply

Return to “Scripting Ore”