нужен скрипт - ресание чаров

MAZDAY · Post by **MAZDAY** » 2006-04-15 22:05:00

а скрипт на ресание чаров есть???сколько видел ниодин не работает хз почму...вроде все что нуно поменять меняю а всеравно не ресает. :cry:

Destruction · Post by **Destruction** » 2006-04-15 22:55:06

MAZDAY wrote:а скрипт на ресание чаров есть???сколько видел ниодин не работает хз почму...вроде все что нуно поменять меняю а всеравно не ресает.

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

Разделяю.

Опиши конкретно, ЧТО И КАК должен делать скрипт. Прямо по пунктам.

MAZDAY · Post by **MAZDAY** » 2006-04-15 22:58:13

Поиск дружественных чаров в округе и рес соответственно если физл то рес еще раз...кстати забыл сказать что с бинта :roll:

за сегодня перепробывал массу таких скриптов и ниодин почмуто не работал :cry:

(толи лыжи не те, толи я слишком умный :wink:

)

Destruction · Post by **Destruction** » 2006-04-15 23:34:12

Code: Select all

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

Скрипт не тестил - должен работать по принципу: разок запустил - оно и летает.

Edred · Post by **Edred** » 2006-04-15 23:34:51

MAZDAY wrote:за сегодня перепробывал массу таких скриптов и ниодин почмуто не работал (толи лыжи не те, толи я слишком умный )

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

Destruction · Post by **Destruction** » 2006-04-15 23:35:36

Edred wrote:
MAZDAY wrote:за сегодня перепробывал массу таких скриптов и ниодин почмуто не работал (толи лыжи не те, толи я слишком умный )

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

Мой тоже не работает - "Function not found - DELJOURNAL" :-D

MAZDAY · Post by **MAZDAY** » 2006-04-16 00:22:35

скрипт дестера у меня пишет ошибку в 636 строке:Variable undefined - I а там слово

Code: Select all

repeat

только и все

Code: Select all

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

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

flake · Post by **flake** » 2006-04-16 00:23:56

Что именно не работает?

MAZDAY · Post by **MAZDAY** » 2006-04-16 00:28:30

всмысле что не работает???не ресает ни один скрипт ни второй в первом ошгибка а второй вообще ничего не пишет и не делает
только месаги видны--на что вы хотите использовать таргет?--
--Таргет кенсилинг--
--цель уже полностью вылечена--

Destruction · Post by **Destruction** » 2006-04-16 01:01:43

MAZDAY wrote:скрипт дестера у меня пишет ошибку в 636 строке:Variable undefined - I а там слово
Code: Select all
repeat
только и всё.

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

Пробуй.