Yoko

All sides of Injection
It is currently 2018-12-18 14:01:28

All times are UTC+02:00




Post new topic  Reply to topic  [ 28 posts ]  Go to page 1 2 Next
Author Message
PostPosted: 2007-08-31 18:49:23 
Offline

Joined: 2007-08-31 18:08:55
Posts: 11
Парни напишите скрипт с Блэйд Спиритом, я искал тут но они все неработающие или не те которые нужны . На ДрВ сложно прокачивать вар скиллы ,одному надо кастовать другому блэйду и тот чтоб бил.
Вот вобщем мне и нужен скрипт ,чтоб левачёк костовал блэйду по ластатусу и пока главный чел бьёт ,левачёк мидитировал и ждал как отхидиться другой, а главному челу чтоб сразу атакавал блэйду и когда убьёт его отхиливался бинтами,и брал клевер и щит в руки :lol:
Заранее благодарен ! :roll:


Top
   
 Post subject:
PostPosted: 2007-08-31 19:41:24 
Offline
User avatar

Joined: 2006-11-14 16:19:03
Posts: 256
Проверь токо )
если что пиши !
Code:
####KASTUJUSIJ
sub e1()
var ter
UO.Exec("set finddistance 15")
#UO.DeleteJournal()
repeat
#if UO.InJournal("Smog GO") then
repeat
wait(500)
UO.WaitTargetTile('0','2038','1261','0')#Koordinati kuda kastuetsya spirit, 2-oe(X) i 3-e(Y) chislo
wait(500)
UO.Cast("Blade Spirits") 
wait(10000)
UO.FindType('0x023E','-1',1)
until UO.FindCount('finditem')>0
UO.Exec("warmode 0")
int()
UO.Exec('terminate int')
repeat
wait(3000)
UO.FindType('0x023E','-1',1)
until UO.FindCount('finditem')<1
repeat
wait(3000)
#UO.FindType('0x0190','-1',1)
#ter=UO.GetSerial('finditem')
uo.getstatus('0x0042F2AA') #ID togo kto ubivaet spirita.
until uo.GetHP('0x0042F2AA')>254 #ID togo kto ubivaet spirita.
#else
#wait(1000)
#end if
until UO.Dead()
end sub


sub e2()####KTO UBIVAET
UO.Exec("set finddistance 15")
repeat
UO.FindType('0x023E','0000x0',1)
If UO.FindCount('finditem')>0 then
UO.Attack('finditem')
repeat
wait(5000)
UO.FindType('0x023E','0000x0',1)
until UO.FindCount('finditem')<1
else
While uo.GetHP('self')<uo.GetMaxHP('self')

UO.SetArm('CWeapon')
stirka()
UO.Exec("bandageself")
wait (1000)
UO.Arm('CWeapon')
wait(5000)
# if UO.Armor < 50 then
#UO.WaitTargetSelf()
#UO.Cast("Protection")
#wait(5000)
#else
#wait(100)
#end if
wend
end if
wait(1000)
until UO.DEAD()
end sub

sub stirka()
if UO.Count('0x0E21')<1 then
UO.FindType('0x0E20','0x0000','backpack')
UO.WaitTargetType('0x1008')
UO.UseObject('finditem')
wait(1000)
endif
end sub

sub int()
repeat
UO.DeleteJournal()
repeat
UO.UseSkill('Meditation')
wait (2100)
until UO.InJournal("You must") or UO.InJournal("You are at")
if UO.InJournal("You must") then
repeat
wait (100)
until UO.InJournal("You are at peace.")
end if
end sub



#==============================================================
#  Gong(counter) - playing wav-file 'counter'-times
#  http://www.djetta.ru/cow.wav
#--------------------------------------------------------------
sub Gong(times) ; play wav-file
   VAR i
   for i=1 to times
      UO.Exec("playwav C:\UO\inject\SOUND\mp3.wav")
      wait(1200) ; time to play sample at once
   next
end sub


#==============================================================
#  Alarm() - when char lose some HP, U are informed :)
#--------------------------------------------------------------
sub Alarm()
   VAR CharHP=10
   while 1==1
      wait(1000)
      if UO.Life<CharHP then
         gong(1)
      endif       
   wend
end sub

_________________
Короли махаона


Top
   
 Post subject:
PostPosted: 2007-08-31 20:25:02 
Offline

Joined: 2007-08-31 18:08:55
Posts: 11
Левачёк кастует спирита это хорошо но дело в том что он его не одного кастуе а ещё троих в придачу ,не потскажешь как изменить ? Но спасибо и на этом, стало по легче :wink:


Top
   
 Post subject:
PostPosted: 2007-08-31 21:00:48 
Offline

Joined: 2007-08-31 18:08:55
Posts: 11
и беда с тем кто убивает ,он хилеться во время боя тем и обламывает себе отхилл и умирает. Хотелось бы чтоб он хиллелся после ,когда спирит исчезнет. :twisted:


Top
   
 Post subject:
PostPosted: 2007-09-01 21:01:22 
Offline
User avatar

Joined: 2006-11-14 16:19:03
Posts: 256
Я посмотрю, вроде бы где-то нормальный, майсу качал зимой.

_________________
Короли махаона


Last edited by 666||TORCHKI on 2011-02-23 11:38:45, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2007-09-04 15:08:00 
Offline

Joined: 2007-08-31 18:08:55
Posts: 11
да,посматри пожалуста а то докачать не могу никак :roll:


Top
   
 Post subject:
PostPosted: 2007-09-19 23:13:24 
Offline

Joined: 2007-08-31 18:08:55
Posts: 11
var vrag = '0x001DDB81' # айди того кто качает
var BladeSpirit = '0x023E'

var msgReady = 'I am Ready'
var msgBladeDied = 'Blade Died'
var msgHelp = 'Help me'
var msgNoMana = 'No mana... Meditation...'


sub main()

while NOT uo.dead()

if Uo.Mana < 40 then
FullMeditation()
endif
uo.Say(MsgReady)
wait(1000)
Uo.DeleteJournal()

while NOT Uo.InJournal(msgReady)
wait(500)
wend
uo.waittargettile("1400",str(uo.getx(vrag)),str(uo.gety(vrag)),str(uo.getz(vrag)))
uo.cast("Blade Spirits")
wait(6000)
BladeContr()

wend

end sub

Sub FullMeditation()
while UO.Mana<UO.Int
UO.UseSkill('Meditation')
repeat
wait(2000)
uo.Say(msgNoMana)
until UO.InJournal("You are") OR UO.InJournal("You lose")
UO.DeleteJournal()
wait(4000)
wend
uo.useskill("Spirit Speak")
wait(10000)
end sub

sub BladeContr()
var BladeFound = 1
uo.set( 'finddistance', '20' )
while BladeFound == 1
Uo.FindType( BladeSpirit ,-1,'ground')
if Uo.FindCount() then
BladeFound = 1
Else
BladeFound = 0
endif

If Uo.Injournal(msgHelp) then
uo.cast('Greater Heal',vrag)
wait(4000)
uo.DeleteJOurnal()
endif

wait(1000)
wend

Uo.Say(msgBladeDied)
wait(1000)
end sub

sub automedit()
wait(10000)
while not uo.dead()
if uo.warmode() <> 1 then
if uo.mana < 70 then
uo.useskill("Meditation")
wait(5000)
endif
endif
wait(1000)
wend
end sub


Top
   
 Post subject:
PostPosted: 2007-09-19 23:15:17 
Offline

Joined: 2007-08-31 18:08:55
Posts: 11
var msgReady = 'I am Ready'
var msgBladeDied = 'Blade Died'
var msgHelp = 'Help me'
var msgNoMana = 'No mana... Meditation...'
var key = 0

sub main()
VAR Banka='0x401C4D33' ; айди умывальницы
UO.waittargetobject(banka)
UO.usetype(0x0E21) # бенты
Wait(1000)
while NOT uo.Dead()
uo.DeleteJournal()
if Uo.GetHP('self') < Uo.Str then
uo.SetArm('MyArm')
wait(100)
uo.DisArm()
while Uo.GetHP('self') < Uo.Str
uo.bandageself()
uo.DeleteJournal()
while NOT uo.Injournal('You')
wait(1000)
wend
wend
endif
uo.Arm('MyArm')
Uo.DeleteJournal()
CheckLag()
while Uo.GetHP('self') == Uo.Str
uo.say(msgReady)
wait(3000)
wend
uo.deletejournal()
while NOT Uo.Injournal(msgBladeDied)
If Uo.GetHP('self') < 40 then
uo.say(msgHelp)
endif
wait(2000)
wend

Uo.DeleteJournal()
wend

end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(150)
until uo.InJournal('backpack')
end sub


Top
   
 Post subject:
PostPosted: 2007-09-19 23:16:20 
Offline

Joined: 2007-08-31 18:08:55
Posts: 11
Отличный скрипт! У кого не Гм боевые качайте.


Top
   
PostPosted: 2010-09-10 18:38:42 
Offline
User avatar

Joined: 2009-11-27 21:55:04
Posts: 4
скрипт работает на 100% 8) автору СПАСИБО !!!! :wink:


Top
   
 Post subject: Re:
PostPosted: 2018-02-01 12:18:04 
Offline

Joined: 2017-12-09 19:10:20
Posts: 21
Perun wrote:
var msgReady = 'I am Ready'
var msgBladeDied = 'Blade Died'
var msgHelp = 'Help me'
var msgNoMana = 'No mana... Meditation...'
var key = 0

sub main()
VAR Banka='0x401C4D33' ; айди умывальницы
UO.waittargetobject(banka)
UO.usetype(0x0E21) # бенты
Wait(1000)
while NOT uo.Dead()
uo.DeleteJournal()
if Uo.GetHP('self') < Uo.Str then
uo.SetArm('MyArm')
wait(100)
uo.DisArm()
while Uo.GetHP('self') < Uo.Str
uo.bandageself()
uo.DeleteJournal()
while NOT uo.Injournal('You')
wait(1000)
wend
wend
endif
uo.Arm('MyArm')
Uo.DeleteJournal()
CheckLag()
while Uo.GetHP('self') == Uo.Str
uo.say(msgReady)
wait(3000)
wend
uo.deletejournal()
while NOT Uo.Injournal(msgBladeDied)
If Uo.GetHP('self') < 40 then
uo.say(msgHelp)
endif
wait(2000)
wend

Uo.DeleteJournal()
wend

end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(150)
until uo.InJournal('backpack')
end sub


Фигу там стирка бинтов не пашет :?


Top
   
PostPosted: 2018-02-01 12:55:45 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2783
Location: Иваново
в куске
Code:
   VAR Banka='0x401C4D33' ; айди умывальницы 
   UO.waittargetobject(banka)
   UO.usetype('0x0E21') # бенты


бенты должны быть кровавыми (проверь тип и поменяй при необходимости), и галка должна стоять в инжекте TWI что бы искалось на земле. Кстати иногда можно стирать прямо из пака.

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2018-02-01 16:30:38 
Offline

Joined: 2017-12-09 19:10:20
Posts: 21
Mirage wrote:
в куске
Code:
   VAR Banka='0x401C4D33' ; айди умывальницы 
   UO.waittargetobject(banka)
   UO.usetype('0x0E21') # бенты


бенты должны быть кровавыми (проверь тип и поменяй при необходимости), и галка должна стоять в инжекте TWI что бы искалось на земле. Кстати иногда можно стирать прямо из пака.


У нас на ДеРеВе кровавые бинты в пак падают, сейчас попробую запустить с 3-мя кровавыми бинтами.

Пишет no bandages found


Top
   
PostPosted: 2018-02-01 16:57:27 
Offline

Joined: 2017-12-09 19:10:20
Posts: 21
Во что я наворотил, НО если при лечении заканчиваются бинты он стоит и тупит. Куда засунуть проверку на No bandages found? я замучался.

Code:
var msgReady = 'I am Ready' 
var msgBladeDied = 'Blade Died'
var msgHelp = 'Help me'
var msgNoMana = 'No mana... Meditation...'
var key = 0
sub main()

   clean_bandage()
   while NOT uo.Dead()
      uo.DeleteJournal() 
   Wait(2000)
      if Uo.GetHP('self') < Uo.Str then
         uo.SetArm('MyArm')
         wait(100)
         uo.DisArm()
         while Uo.GetHP('self') < Uo.Str
            uo.bandageself() 
                  if uo.injournal('no bandages found') then
                     clean_bandage()
                  endif
            uo.DeleteJournal()
            while NOT uo.Injournal('You')
               wait(1000)
            wend
         wend 
      endif
      uo.Arm('MyArm')
      Uo.DeleteJournal()
      CheckLag()
      while Uo.GetHP('self') == Uo.Str
         uo.say(msgReady)
         wait(3000)
      wend
      uo.deletejournal()
      while NOT Uo.Injournal(msgBladeDied)
         If Uo.GetHP('self') < 20 then
            uo.say(msgHelp)
         endif
         checkhp()
         wait(2000)
      wend
      Uo.DeleteJournal()
   wend
end sub
sub CheckLag()
   uo.DeleteJournal()
   uo.Click('backpack')
   repeat
      wait(150)
   until uo.InJournal('backpack')
end sub
Sub checkhp()
   if uo.life<17 then
      uo.usetype(0x0F0E,0x09BB)
   endif
endsub
sub clean_bandage()
if UO.Count('0x0E21')<1 then
UO.FindType('0x0E20','0x0000','backpack')
UO.WaitTargetType('0x1008')
UO.UseObject('finditem')
wait(1000)
endif
end sub


Top
   
PostPosted: 2018-02-01 18:14:05 
Offline

Joined: 2017-12-09 19:10:20
Posts: 21
вроде работает - всюду мойку напихал ))) мож где и зря но работает )) Гора родила мышь ))
Code:
var msgReady = 'I am Ready' 
var msgBladeDied = 'Blade Died'
var msgHelp = 'Help me'
var msgNoMana = 'No mana... Meditation...'
var key = 0
sub main()

   clean_bandage()        <----------- РАЗ
   while NOT uo.Dead()
      uo.DeleteJournal() 
   Wait(2000)
      if Uo.GetHP('self') < Uo.Str then
         uo.SetArm('MyArm')
         wait(100)
         uo.DisArm()
         while Uo.GetHP('self') < Uo.Str
            uo.bandageself() 
            uo.DeleteJournal()
            while NOT uo.Injournal('You')
               wait(1000)
               clean_bandage()     <-------- ДВАЗ
            wend
            clean_bandage()      <------- ТРИЗ
         wend 
      endif
      uo.Arm('MyArm')
      Uo.DeleteJournal()
      CheckLag()
      while Uo.GetHP('self') == Uo.Str
         uo.say(msgReady)
         wait(3000)
      wend
      uo.deletejournal()
      while NOT Uo.Injournal(msgBladeDied)
         If Uo.GetHP('self') < 20 then
            uo.say(msgHelp)
         endif
         checkhp()
         wait(2000)
      wend
      Uo.DeleteJournal()
   wend
end sub
sub CheckLag()
   uo.DeleteJournal()
   uo.Click('backpack')
   repeat
      wait(150)
   until uo.InJournal('backpack')
end sub
Sub checkhp()
   if uo.life<17 then
      uo.usetype(0x0F0E,0x09BB)
   endif
endsub
sub clean_bandage()
if UO.Count('0x0E21')<1 then
UO.FindType('0x0E20','0x0000','backpack')
UO.WaitTargetType('0x1008')
UO.UseObject('finditem')
wait(1000)
endif
end sub


Top
   
PostPosted: 2018-02-01 20:24:19 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2783
Location: Иваново
так оно и в начале работало. Просто ты чистые бинты стирал - я же написал. 0x0E21 - чистые бинты

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2018-02-02 11:06:23 
Offline

Joined: 2017-12-09 19:10:20
Posts: 21
Mirage wrote:
так оно и в начале работало. Просто ты чистые бинты стирал - я же написал. 0x0E21 - чистые бинты

Я это понял что там не тот код 0x0E20, но это не работает. Видяху заснять если не веришь?


Top
   
PostPosted: 2018-02-02 15:30:14 
Offline

Joined: 2011-05-23 00:33:30
Posts: 949
0x1008 это что?

_________________
CodeSweeper


Top
   
PostPosted: 2018-02-02 15:43:14 
Offline

Joined: 2017-12-09 19:10:20
Posts: 21
Incorrect User wrote:
0x1008 это что?

ванночка, тазик, раковина "a wash basin"


Last edited by brrr on 2018-02-02 15:44:47, edited 1 time in total.

Top
   
PostPosted: 2018-02-02 15:44:09 
Offline

Joined: 2011-05-23 00:33:30
Posts: 949
Она на земле?

_________________
CodeSweeper


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 28 posts ]  Go to page 1 2 Next

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 1 guest


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