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

нужен скрипт - ресание чаров
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7377		 Page 1 of 1
Author:  MAZDAY [ 2006-04-15 22:05:00 ]
Post subject: 
а скрипт на ресание чаров есть???сколько видел ниодин не работает хз почму...вроде все что нуно поменять меняю а всеравно не ресает. :cry:
Author:  Destruction [ 2006-04-15 22:55:06 ]
Post subject: 
MAZDAY wrote:
а скрипт на ресание чаров есть???сколько видел ниодин не работает хз почму...вроде все что нуно поменять меняю а всеравно не ресает. :cry:

Новые топики создавать не учили?

Разделяю.


Опиши конкретно, ЧТО И КАК должен делать скрипт. Прямо по пунктам.
Author:  MAZDAY [ 2006-04-15 22:58:13 ]
Post subject: 
Поиск дружественных чаров в округе и рес соответственно если физл то рес еще раз...кстати забыл сказать что с бинта :roll:
за сегодня перепробывал массу таких скриптов и ниодин почмуто не работал :cry: (толи лыжи не те, толи я слишком умный :wink: )
Author:  Destruction [ 2006-04-15 23:34:12 ]
Post subject: 
Code:
sub AutoRess()
car i
var char_len = 2 ; сколько у нас друзей?..
var distance = 3 ; дальность поиска неживых друзей
var death_type = "0x0000" ; тип приведения
var bandage = "0x0000" ; тип бинта
var heal = "чар пропал из поля зрения|воскрешение не удалось|чар воскрес|чар вылечился" ; нужно предусмотреть ВСЕ варианты сообщений, иначе скрипт зациклиться.
DIM chars[val(str(char_len))]
chars[0] = "0x0000000" ; друг Вася
chars[1] = "0x0000001" ; друг Петя
repeat
for i=0 to char_len-1
while uo.getX(chars[i]) && uo.getDistance(chars[i]) < distance && uo.getGraphic(chars[i]) == death_type
uo.waittargetobject(chars[i])
uo.usetype(bandage)
deljournal(heal)
repeat
wait(75)
until uo.injournal(heal)
wend
next
wait(300)
until false
endsub


Скрипт не тестил - должен работать по принципу: разок запустил - оно и летает.
Author:  Edred [ 2006-04-15 23:34:51 ]
Post subject: 
MAZDAY wrote:
за сегодня перепробывал массу таких скриптов и ниодин почмуто не работал :cry: (толи лыжи не те, толи я слишком умный :wink: )


Я думаю, что второе. Понятие "не работал" охватывает очень широкий спектр вариантов, а телепаты, как известно, в отпуске.
Author:  Destruction [ 2006-04-15 23:35:36 ]
Post subject: 
Edred wrote:
MAZDAY wrote:
за сегодня перепробывал массу таких скриптов и ниодин почмуто не работал :cry: (толи лыжи не те, толи я слишком умный :wink: )


Я думаю, что второе. Понятие "не работал" охватывает очень широкий спектр вариантов, а телепаты, как известно, в отпуске.

Мой тоже не работает - "Function not found - DELJOURNAL" :-D
Author:  MAZDAY [ 2006-04-16 00:22:35 ]
Post subject: 
скрипт дестера у меня пишет ошибку в 636 строке:Variable undefined - I а там слово
Code:
repeat
только и все


Code:
а вот другой более мение мне понятный но тоже не работающий

sub resurct() 
var tBandage = '0x0E21' 
   if UO.Count(tBandage) < 20 then 
   UO.Print("HE4EM PECATb") 
         return 
   end if 
VAR i,k,CharX,CharY,MyX,MyY,Char 
DIM Player[8] 

Player[0]='0x000541E9' ;Unicorn 
Player[1]='0x0000675A' ;Joker Storm 
Player[2]='0x0010023D' ;BEPMYT(p) 
Player[3]='0x000FF1CB' ;MaTpOc(p) 
Player[4]='0x000F5BAF' ;Kulibin(p) 
Player[5]='0x001FF6A2' ;Hipirion (A) 
Player[6]='0x000B0F2A' ;GooD(p) 
Player[7]='0x001681C0' ;Marinka(p) 
#Player[8]='0x0009F5A8' ; 
#Player[9]='0x0005AC39' ;?ey (Aiaaeun) 
#Player[10]='0x00040AAC' ;Nea (Aiaaeun) 
#Player[11]='0x001F79B8' ; 
#Player[12]='0x0004F642' ; 
#Player[13]='0x000C91FF' ; 

   UO.FindType('0x0192',-1,'ground') 
   Char=0 
   If UO.FindCount()>0 Then 
      For k=1 to UO.FindCount() 
         UO.FindType('0x0192',-3,'ground') 
         For i=0 to 7 
            MyX=UO.GetX() 
            MyY=UO.GetY() 
            CharX=UO.GetX(Player[i]) 
            CharY=UO.GetY(Player[i]) 
            If Player[i]==UO.GetSerial('finditem')AND Uo.GetDistance("finditem")<=1 Then 
               Char=Player[i] 
            Else 
               UO.Ignore('finditem','on') 
            EndIf 
         Next 
      Next 
   EndIf 
   If Char<>0 Then 
      UO.SetArm('CWeapon') 
      UO.WaitTargetObject(Char) 
      UO.UseType('0x0E21') 
      UO.Print("?anno?aeo!!!") 
      wait(500) 
         UO.Exec("bandageself") 
      wait(500) 
      UO.Arm('CWeapon') 
   Else 
      UO.Print("A?iaa ana ?eau!!!") 
   EndIf 
   UO.IgnoreReset() 
end sub
Author:  flake [ 2006-04-16 00:23:56 ]
Post subject: 
Что именно не работает?
Author:  MAZDAY [ 2006-04-16 00:28:30 ]
Post subject: 
всмысле что не работает???не ресает ни один скрипт ни второй в первом ошгибка а второй вообще ничего не пишет и не делает
только месаги видны--на что вы хотите использовать таргет?--
--Таргет кенсилинг--
--цель уже полностью вылечена--
Author:  Destruction [ 2006-04-16 01:01:43 ]
Post subject: 
MAZDAY wrote:
скрипт дестера у меня пишет ошибку в 636 строке:Variable undefined - I а там слово
Code:
repeat
только и всё.


Сказал же - не тестил, такую ошибку мог бы и сам исправить.

Пробуй.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/