Yoko

All sides of Injection
It is currently 2025-12-22 03:39:39

All times are UTC+02:00




Post new topic  Reply to topic  [ 10 posts ] 
Author Message
 Post subject:
PostPosted: 2006-04-15 22:05:00 
Offline

Joined: 2005-01-11 12:13:58
Posts: 28
а скрипт на ресание чаров есть???сколько видел ниодин не работает хз почму...вроде все что нуно поменять меняю а всеравно не ресает. :cry:


Top
   
 Post subject:
PostPosted: 2006-04-15 22:55:06 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
MAZDAY wrote:
а скрипт на ресание чаров есть???сколько видел ниодин не работает хз почму...вроде все что нуно поменять меняю а всеравно не ресает. :cry:

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

Разделяю.


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


Top
   
 Post subject:
PostPosted: 2006-04-15 22:58:13 
Offline

Joined: 2005-01-11 12:13:58
Posts: 28
Поиск дружественных чаров в округе и рес соответственно если физл то рес еще раз...кстати забыл сказать что с бинта :roll:
за сегодня перепробывал массу таких скриптов и ниодин почмуто не работал :cry: (толи лыжи не те, толи я слишком умный :wink: )


Top
   
 Post subject:
PostPosted: 2006-04-15 23:34:12 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
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


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


Last edited by Destruction on 2006-04-16 01:01:10, edited 2 times in total.

Top
   
 Post subject:
PostPosted: 2006-04-15 23:34:51 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
MAZDAY wrote:
за сегодня перепробывал массу таких скриптов и ниодин почмуто не работал :cry: (толи лыжи не те, толи я слишком умный :wink: )


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


Top
   
 Post subject:
PostPosted: 2006-04-15 23:35:36 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Edred wrote:
MAZDAY wrote:
за сегодня перепробывал массу таких скриптов и ниодин почмуто не работал :cry: (толи лыжи не те, толи я слишком умный :wink: )


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

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


Top
   
 Post subject:
PostPosted: 2006-04-16 00:22:35 
Offline

Joined: 2005-01-11 12:13:58
Posts: 28
скрипт дестера у меня пишет ошибку в 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


Last edited by MAZDAY on 2006-04-16 00:24:17, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2006-04-16 00:23:56 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
Что именно не работает?


Top
   
 Post subject:
PostPosted: 2006-04-16 00:28:30 
Offline

Joined: 2005-01-11 12:13:58
Posts: 28
всмысле что не работает???не ресает ни один скрипт ни второй в первом ошгибка а второй вообще ничего не пишет и не делает
только месаги видны--на что вы хотите использовать таргет?--
--Таргет кенсилинг--
--цель уже полностью вылечена--


Top
   
 Post subject:
PostPosted: 2006-04-16 01:01:43 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
MAZDAY wrote:
скрипт дестера у меня пишет ошибку в 636 строке:Variable undefined - I а там слово
Code:
repeat
только и всё.


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

Пробуй.


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

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 2 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:  
Powered by phpBB® Forum Software © phpBB Limited