Yoko

All sides of Injection
It is currently 2025-10-24 20:14:33

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 2 of 2
  [ 31 posts ]  Go to page Previous 1 2
  Print view Previous topic | Next topic 
Author Message
Grin
 Post subject:
PostPosted: 2006-03-29 22:39:07 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
Ребят таких скриптеров как вы надо както разскрипчивать;) читать конечно весело, но людей жалко чесное слово%)
Code:
var anim=' ' ;тип животины 
var band=' ' ;тип бинтов 
var color=' ' ;цвет животны 

sub veterinar() 
 uo.Set('finddistance','3') 
 uo.FindType(anim,color,'ground') 
 while uo.isNPC('finditem')
   uo.WarMode(true) 
   uo.Attack('finditem')
   while uo.GetHP('finditem') > uo.GetMaxHP('finditem')/3 
     wait(500) 
   wend 
   uo.WarMode(false) 
   while uo.GetHP('finditem') <> uo.GetMaxHP('finditem') 
     uo.waittargetobject('finditem') 
     uo.UseType(band)
     wait(1000)
   wend 
  wend 
end sub
Top
   
Reply with quote  
Lasas
 Post subject:
PostPosted: 2006-03-30 08:01:53 
Offline

Joined: 2006-03-19 18:28:34
Posts: 32
Grin wrote:
Ребят таких скриптеров как вы надо както разскрипчивать;) читать конечно весело, но людей жалко чесное слово%)
Code:
var anim=' ' ;тип животины 
var band=' ' ;тип бинтов 
var color=' ' ;цвет животны 

sub veterinar() 
 uo.Set('finddistance','3') 
 uo.FindType(anim,color,'ground') 
 while uo.isNPC('finditem')
   uo.WarMode(true) 
   uo.Attack('finditem')
   while uo.GetHP('finditem') > uo.GetMaxHP('finditem')/3 
     wait(500) 
   wend 
   uo.WarMode(false) 
   while uo.GetHP('finditem') <> uo.GetMaxHP('finditem') 
     uo.waittargetobject('finditem') 
     uo.UseType(band)
     wait(1000)
   wend 
  wend 
end sub


спасибо большое, только можно добавить в скрипт чтобы после хила животного чар брал в руки то что у него было
Top
   
Reply with quote  
Scripts Writer
 Post subject:
PostPosted: 2006-03-30 10:01:08 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Lasas wrote:
Grin wrote:
Ребят таких скриптеров как вы надо както разскрипчивать;) читать конечно весело, но людей жалко чесное слово%)
Code:
var anim=' ' ;тип животины 
var band=' ' ;тип бинтов 
var color=' ' ;цвет животны 

sub veterinar() 
 uo.Set('finddistance','3') 
 uo.FindType(anim,color,'ground') 
 while uo.isNPC('finditem')
   uo.WarMode(true) 
   uo.Attack('finditem')
   while uo.GetHP('finditem') > uo.GetMaxHP('finditem')/3 
     wait(500) 
   wend 
   uo.WarMode(false) 
   while uo.GetHP('finditem') <> uo.GetMaxHP('finditem') 
     uo.waittargetobject('finditem') 
     uo.UseType(band)
     wait(1000)
   wend 
  wend 
end sub


спасибо большое, только можно добавить в скрипт чтобы после хила животного чар брал в руки то что у него было


замени на это:

Code:
var anim=' ' ;тип животины 
var band=' ' ;тип бинтов 
var color=' ' ;цвет животны 

sub veterinar() 
 uo.Set('finddistance','3') 
 uo.FindType(anim,color,'ground') 
 while uo.isNPC('finditem')
   uo.WarMode(true) 
   uo.Attack('finditem')
   while uo.GetHP('finditem') > uo.GetMaxHP('finditem')/3 
     wait(500) 
   wend 
   uo.WarMode(false) 
   while uo.GetHP('finditem') <> uo.GetMaxHP('finditem') 
     uo.waittargetobject('finditem') 
     uo.UseType(band)
     wait(1000)
   wend 
  sword()
  wend 
end sub

sub sword() 
Var Svord='0x13FA' ;Тип оружия, используемый вами 
Var Shield='0x1B76' ;Тип оружия, используемый вами 
;UO.Equipt('Lhand',Shield)
;wait(1000)
UO.Equipt('Rhand',Svord)
wait(100)
end sub
Top
   
Reply with quote  
Lasas
 Post subject:
PostPosted: 2006-03-30 13:29:31 
Offline

Joined: 2006-03-19 18:28:34
Posts: 32
спасибо большое вам :) :) :D только вот щит он в руки не берёт :( а так всё работает :)
Top
   
Reply with quote  
Kynep
 Post subject:
PostPosted: 2006-03-30 13:38:01 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
Lasas wrote:
спасибо большое вам :) :) :D только вот щит он в руки не берёт :( а так всё работает :)


А додумать тяжело???

Code:
;UO.Equipt('Lhand',Shield) 
;wait(1000)


Точку с запятой убери и все будет норм :shock:
Top
   
Reply with quote  
Scripts Writer
 Post subject:
PostPosted: 2006-03-30 16:20:20 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
мля что не пост, так вопрос (( плохо пишу
Top
   
Reply with quote  
Grin
 Post subject:
PostPosted: 2006-03-30 16:42:42 
Offline
Expert!
User avatar

Joined: 2005-05-04 14:05:19
Posts: 2580
Location: Москва
мягко сказано!;)
просто ужастно!!!
Top
   
Reply with quote  
Lasas
 Post subject:
PostPosted: 2006-03-30 17:04:21 
Offline

Joined: 2006-03-19 18:28:34
Posts: 32
You Must Die wrote:
мля что не пост, так вопрос (( плохо пишу



просто ты сделал :) ты мне помог спасибо , но надо делать всё качественно!:)и так пасибо
Top
   
Reply with quote  
Alegarh
 Post subject:
PostPosted: 2006-07-23 18:20:09 
Offline
User avatar

Joined: 2005-02-22 10:55:22
Posts: 61
Location: Русский из Латвии.
У меня не заработал ваш скрипт и я зделал свой.

Code:
sub Veterinar()

while 1
   UO.usetype("0x1B76") # Щит
   uo.usetype("0x0EC4") # Оружие
   UO.Exec("attack 0x002EE4E2") #Жертва
   Repeat
      wait (500)
   if uo.injournal("destroyed")then
   UO.usetype("0x0EC4") # Оружие
   uo.deletejournal()
   endif
   Until (UO.GetHP("0x002EE4E2")  <100) #проверка ХП у жертвы
   repeat
   UO.Exec("warmode 0") 
      UO.DeleteJournal()
   Repeat
      UO.Usetype("0x0E21") #Bandages
      UO.Exec("waittargetobject 0x002EE4E2") #Лечим жертву 
      wait(3500)
   Until (UO.InJournal("Orn does not need you to heal or cure him."))
      UO.DeleteJournal()
wend
end sub

sub Healing()
   UO.SetArm('CWeapon')
   UO.Exec("bandageself")
   wait(500)
   
   UO.Arm('CWeapon')
end sub
Top
   
Reply with quote  
Scripts Writer
 Post subject:
PostPosted: 2006-07-24 13:06:58 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Все бы писали сами себе скрипты, и тогда бы обсуждали совсем другие вопросы...
Top
   
Reply with quote  
ZWERb
 Post subject:
PostPosted: 2006-07-26 11:21:48 
Offline
User avatar

Joined: 2006-03-08 11:59:41
Posts: 122
Мля я такую тему уже раз 5 видел!Ё ЮЗ СЕРЧ в следующий раз! А пока на тебе скрипт:
Code:
####################################################################
##############        D R W             ############################
####################################################################
###################  v 1.2b        #################################
####################################################################
#################   UNHOLY     #####################################
####################################################################


var BandCL ='0x0E21' ; Тип чистых бинтов
var BandBL ='0x0E20' ; Тип грязных бинтов
var Moy ='0x40011782' ; ID Мойки
var GEPTBA ='0x003096A5' ; ID Жертвы
var Mech = '0x0F52' ; Тип Мечя
var Wit ='0x1B7A' ; тип Щита
;Ну вот пожалуй и все! Приступим!

Sub Main()
while 1 > 0
UO.Equipt('Rhand',mech)
wait(500)
UO.Equipt('Lhand',Wit)
wait(500)
While uo.getHP(GEPTBA)> 100
if uo.life < 20 then
while uo.Life<uo.str
uo.warmode(0)
uo.bandageself()
wait(1000)
wend
UO.Equipt('Rhand',mech)
wait(500)
UO.Equipt('Lhand',Wit)
wait(500)
end if
uo.warmode(0)
CheckLag()
uo.attack(GEPTBA)
wait(1500)
wend
Bint()
wend
end sub 

Sub Bint()
while uo.GetHP(GEPTBA)<uo.GetMaxHP(GEPTBA)
uo.warmode(0)
UO.WaitTargetObject(GEPTBA)
UO.UseType(BandCL)
wait(3000)
wend
while uo.Life<uo.str
uo.warmode(0)
uo.bandageself()
wait(1000)
wend
UO.Equipt('Rhand',mech)
UO.Equipt('Lhand',Wit)
wait(500)
uo.warmode(0)
uo.useskill('Spirit Speak')
wait(1500)
UO.WaitTargetObject(Moy) 
UO.UseType(BandBL)
wait(1500)
end sub 

Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub

Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub


Ты на нем еще и не плохо боевые подкачаеш=-) 100% работает! Я НА НЕМ КАЧАЛСЯ!

_________________
СМЕРТЬ ФЛУДЕРАМ!
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 2 of 2
  [ 31 posts ]  Go to page Previous 1 2

» » »

All times are UTC+02:00

Who is online

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