Yoko

All sides of Injection
It is currently 2024-04-19 02:02:12

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 4
  [ 70 posts ]  Go to page 1 2 3 4 Next
  Print view Previous topic | Next topic 
Author Message
Lesnik
PostPosted: 2006-04-20 08:04:33 
Offline

Joined: 2006-04-18 14:34:42
Posts: 34
Location: Березники
Умные люди ... Нужен кусок скрипта, который будет определять, что на экране появился другой чар ... и затем выполнять что то дальше ... Что то дальше я знаю ... Незнаю как определить появление чара! ...
Просьба помочь ...

_________________
My Game is Ultima online on DRW!
Top
   
Reply with quote  
Lesnik
 Post subject:
PostPosted: 2006-04-20 08:24:37 
Offline

Joined: 2006-04-18 14:34:42
Posts: 34
Location: Березники
Просьба учесть еще то что сижу по gprs так что лагаю, и шард DRW. Заранее спасибо.

_________________
My Game is Ultima online on DRW!
Top
   
Reply with quote  
flake
 Post subject:
PostPosted: 2006-04-20 08:32:55 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
Возвращает 1 если обнаружит чара.
Code:
Sub Scan()
#################
var i
 Dim scan[2]
  scan[1] = '0x0190'   ; мужик
  scan[2] = '0x0191'   ; баба          
  uo.set( 'finddistance', '14' )
    for i = 1 to 2
       uo.findtype( scan[i], '-1', 'ground' )
           if uo.findcount() then
             return 1         
           endif
    next 
  return 0
endsub


З.Ы.
Это же надо таким извращенцем быть, чтобы в УО через gprs играть :)
Top
   
Reply with quote  
Lesnik
 Post subject:
PostPosted: 2006-04-20 10:03:30 
Offline

Joined: 2006-04-18 14:34:42
Posts: 34
Location: Березники
условие в моем скрипте как прописать?

if [условие] then [следующее действие]

условие?

1 скрипт чему возвращает переменной i?

_________________
My Game is Ultima online on DRW!
Top
   
Reply with quote  
Lesnik
 Post subject:
PostPosted: 2006-04-20 10:29:48 
Offline

Joined: 2006-04-18 14:34:42
Posts: 34
Location: Березники
кстати а не получиться так что скрипт будет находить и моего чара и выполнять следующее действие? мне нужно только других чаров.

_________________
My Game is Ultima online on DRW!
Top
   
Reply with quote  
flake
 Post subject:
PostPosted: 2006-04-20 13:10:43 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
пропиши гденить в начале основного скрипта
Code:
uo.ignore('self')

А теперь чтобы проверять наличине чаров:
Code:
 if Scan() == 1 then
    ; тут твои действия
 endif
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-04-20 13:13:30 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Code:
Sub Scan() 
################# 
var i 
Dim scan[2] 
   scan[1] = '0x0190'   ; ìóæèê 
   scan[2] = '0x0191'   ; áàáà          
   uo.set( 'finddistance', '14' )
   uo.ignore("self", "on")
   for i = 1 to 2 
            uo.findtype( scan[i], '-1', 'ground' ) 
                 if uo.findcount() then
         uo.ignore("self", "off") 
                   return 1         
                 endif 
       next
   uo.ignore("self", "off") 
     return 0 
end sub

В случаи 1 можно воспользоватсяуказателем finditem
Top
   
Reply with quote  
Lesnik
 Post subject:
PostPosted: 2006-04-20 15:35:56 
Offline

Joined: 2006-04-18 14:34:42
Posts: 34
Location: Березники
этот скрипт не работает ... у меня был вариант с элементарным расхайдом, т.е. как токо меня расхайдили .... улетаю по рунке в дом и то под присмотром ни разу не умер ... с вашим скриптом уже 2 раза умер ... просьба предложить другие варианты .....

Суть: стою в хайде копаю .... при появлении любого чара ... улетаю по рунке ... весь скрипт писать ненадо ... нужен токо кусок отвечающий за поиск появившего чара!

Заранее спасибо! ...

P.S. желательно чтобы в момент появления чара я уже кастовал рекол ...

_________________
My Game is Ultima online on DRW!
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-04-20 15:55:57 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Как убивают то? если чары в полиморфе то не уувидишь...
если с большой дистанции бъют то увеличь файнд дистенс...
а вообще можно превязаться к инджорналу
Top
   
Reply with quote  
Lesnik
 Post subject:
PostPosted: 2006-04-20 16:13:41 
Offline

Joined: 2006-04-18 14:34:42
Posts: 34
Location: Березники
в том то все и дело .... что убивать могут как угодно ... но перед тем как убить они же появляются на экране ... вот мне и нужет скрипт при котором при появлении кого бы то ни было мой чар срывался по рунке ...

_________________
My Game is Ultima online on DRW!
Top
   
Reply with quote  
Lesnik
 Post subject:
PostPosted: 2006-04-20 16:20:24 
Offline

Joined: 2006-04-18 14:34:42
Posts: 34
Location: Березники
сейчас стоит элементарная привязка нa if UO.InJournal('revealed') then .... улетаю, хотел сделать на You see ... почему то не работает ... видимо эти слова не входят в инжурнал ... хотя в журнале пишуться ...

_________________
My Game is Ultima online on DRW!
Top
   
Reply with quote  
SLAK
 Post subject:
PostPosted: 2006-04-20 16:49:06 
Offline

Joined: 2005-08-19 16:12:23
Posts: 182
Lesnik wrote:
сейчас стоит элементарная привязка нa if UO.InJournal('revealed') then .... улетаю, хотел сделать на You see ... почему то не работает ... видимо эти слова не входят в инжурнал ... хотя в журнале пишуться ...

Code:
   IF Uo.InJournal(" ",1) and str(Uo.IsNPC(Uo.JournalSerial(0)))=="1" then


Top
   
Reply with quote  
Lesnik
 Post subject:
PostPosted: 2006-04-20 17:03:59 
Offline

Joined: 2006-04-18 14:34:42
Posts: 34
Location: Березники
SLAK если не трудно поясни написанное ... что есть что ...

_________________
My Game is Ultima online on DRW!
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-04-20 17:10:58 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Да и мне тоже интересно что за второй парамтер в InJournale...
Top
   
Reply with quote  
flake
 Post subject:
PostPosted: 2006-04-20 17:46:42 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
Code:
#################
; Модуль сканирования.
Sub Scan()
#################
  var i, j, Rser
  var time = uo.time()
   var a1 = 'man'
   var a2 = 'woman'
   var a3 = 'ophidian warrior'
   var a4 = 'deamon'
   var a5 = 'dragon'
   var a6 = 'Quas'  
     Dim scan[5]
     scan[1] = '0x0190'   ; мужик
     scan[2] = '0x0191'   ; баба
     scan[3] = '0x0056'   ; орфидиан
     scan[4] = '0x0009'   ; демон
     scan[5] = '0x000C'   ; дракон
    j = 0    
      for i = 1 to 5
        uo.findtype( scan[i], '-1', 'ground' )
          if uo.findcount() then         
               Rser = uo.getserial( 'finditem' )
               uo.textprint( time, 'Нападение! Id: ' , Rser, 'Имя: ' , uo.getname(Rser))
               j = 1                   
          endif
      next     
    if j == 1 or \
      uo.injournal( a1 ) or \
      uo.injournal( a2 ) or \
      uo.injournal( a3 ) or \
      uo.injournal( a4 ) or \
      uo.injournal( a5 ) or \
      uo.injournal( a6 )    \
    then
      uo.playwav('alarm.wav')   
      uo.print( 'Alarm!!!' )    
      return 1
    else
      return 0
    endif   
endsub
Top
   
Reply with quote  
SLAK
 Post subject:
PostPosted: 2006-04-20 18:31:05 
Offline

Joined: 2005-08-19 16:12:23
Posts: 182
Украл данное творение с чьегото скрипта(Дон Спила кажись). Что значит второй параметр самому интересно, но всегда работало.
Условие ищет в журнале пробел(А он наверно во всех ситемных месагах есть) и проверяет породило ли это сообщение живое существо, сюда только добавь игнорить свои месаги и всё тип-топ будит. Я использую подобную конструкцию в гвардилках обычно.
ЗЫ: Нада включить ТВИ иначе непашет :wink:
Top
   
Reply with quote  
SLAK
 Post subject:
PostPosted: 2006-04-20 18:47:38 
Offline

Joined: 2005-08-19 16:12:23
Posts: 182
Нашёл тот топик, Автор Дон Спил, но он отозвал скрипт(стёр). Нашёл скрипт(выложу только интересующую нас функцию) у себя на компе(by Don SpiL):
Code:
sub Control() 
VAR Enemy,msg,Name_Of_Killer 
uo.setglobal("stop","no") 
While 1==1 
   IF Uo.InJournal(" ",1) and str(Uo.IsNPC(Uo.JournalSerial(0)))=="1" then # 
      msg=UO.Journal(0) 
      Enemy=Uo.JournalSerial(0) 
      Name_Of_Killer=Uo.GetName(Enemy) 
   IF Uo.GetNotoriety(Enemy)==6 or Uo.GetNotoriety(Enemy)==5 or Uo.GetNotoriety(Enemy)==4 or Uo.InJournal("elemental") 

or Uo.InJournal('reaper') or uo.injournal("is attacking you") then 
      IF Name_Of_Killer<>Masta and Name_Of_Killer<>"Freeman" and Name_Of_Killer<>"Koldun" and 

Name_Of_Killer<>"Zhoporvatel" and Name_Of_Killer<>"fG" and Name_Of_Killer<>"Flatra" then 
                 Uo.deletejournal() 
                  rectohome(Name_Of_Killer)#Сваливаем домой 
                  else 
                  uo.say(Name_Of_Killer) 
                  uo.say("Privet ot"+" "+Masta) 
                  Uo.deletejournal() 
                  wait(200) 
      end IF 
   end IF 
            If msg==(Masta+":"+" "+"stop makr") then 
      uo.exec("terminate all") 
            end if 
         Uo.deletejournal() 
        wait(200) 
      end IF 
   wait(200) 
   wend 
end sub
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2006-04-20 18:53:36 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Меня просто поражает манера написания скрипта:
Code:
str(Uo.IsNPC(Uo.JournalSerial(0)))=="1" then#

Code:
Uo.IsNPC(Uo.JournalSerial(0)) then


Code:
IF Uo.GetNotoriety(Enemy)==6 or Uo.GetNotoriety(Enemy)==5 or Uo.GetNotoriety(Enemy)==4

Code:
IF Uo.GetNotoriety(Enemy) > 3
Top
   
Reply with quote  
SLAK
 Post subject:
PostPosted: 2006-04-20 18:57:25 
Offline

Joined: 2005-08-19 16:12:23
Posts: 182
Аффтар скрипта не я, ГетНоториети я как и ты пишу :wink:
И ваще щас более интересно, что значит второй параметр в uo.InJournal(str,1)
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2006-04-20 21:01:16 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
SLAK wrote:
Аффтар скрипта не я, ГетНоториети я как и ты пишу :wink:
И ваще щас более интересно, что значит второй параметр в uo.InJournal(str,1)

Нету второго параметра, а его подстановка не несёт никакой пользы.
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 4
  [ 70 posts ]  Go to page 1 2 3 4 Next

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 46 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