Yoko

All sides of Injection
It is currently 2025-11-05 03:14:24

All times are UTC+02:00




Post new topic  Reply to topic  [ 12 posts ] 
Author Message
PostPosted: 2006-05-07 11:30:02 
Offline

Joined: 2006-04-14 10:51:44
Posts: 121
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

просто сделайте чтоб со скролов кастовал!очень надо!


Top
   
 Post subject:
PostPosted: 2006-05-07 13:18:18 
Offline

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


Top
   
 Post subject:
PostPosted: 2006-05-07 13:47:36 
Offline

Joined: 2006-04-14 10:51:44
Posts: 121
АУУУУУУУУУУУУУ"!


Top
   
 Post subject:
PostPosted: 2006-05-07 13:50:27 
Offline
Expert!
User avatar

Joined: 2006-02-25 21:48:38
Posts: 1032
Замени UO.Cast('спелл') на uo.usetype(' тип скроллов для етого спелла')

_________________
DerMeister сейчас на нейрале!


Top
   
 Post subject:
PostPosted: 2006-05-07 14:03:54 
Offline

Joined: 2006-04-14 10:51:44
Posts: 121
Der wrote:
Замени UO.Cast('спелл') на uo.usetype(' тип скроллов для етого спелла')
можешь заменить?:( просто я не шарю вообще!


Top
   
 Post subject:
PostPosted: 2006-05-07 15:05:46 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
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


Пропиши типы скролов, если есть они-то кастует с них, если нету то выдаёт месагу, скролов нет и кастует со спелбуки.


Top
   
 Post subject:
PostPosted: 2006-05-07 15:41:07 
Offline

Joined: 2006-04-14 10:51:44
Posts: 121
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


Пропиши типы скролов, если есть они-то кастует с них, если нету то выдаёт месагу, скролов нет и кастует со спелбуки.
а где типы прописать?:( я сразу извиняюсь,просто нихера не понимаю... :(


Top
   
 Post subject:
PostPosted: 2006-05-07 15:58:18 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
8 и 9 строка, по русски там написал.


Top
   
 Post subject:
PostPosted: 2006-05-08 16:39:24 
Offline

Joined: 2006-04-14 10:51:44
Posts: 121
You Must Die wrote:
8 и 9 строка, по русски там написал.
нЕ КАСТУЕТ СО СКРОЛОВ! :(


Top
   
 Post subject:
PostPosted: 2006-05-08 16:52:13 
Offline
Expert!
User avatar

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


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

_________________
DerMeister сейчас на нейрале!


Top
   
 Post subject:
PostPosted: 2006-05-08 16:57:04 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
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

Теперь все работает )))


Top
   
 Post subject:
PostPosted: 2006-05-08 17:29:18 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Из "знатаков" тут от писывался только твой друг;)
И на хрена тут поиск если дальше используется тип?;)))
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
...


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 12 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 4 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited