Yoko
http://forum.yoko.com.ua/

Напишите Скрипт
http://forum.yoko.com.ua/viewtopic.php?f=17&t=12392
Page 1 of 2

Author:  Perun [ 2007-08-31 18:49:23 ]
Post subject:  Напишите Скрипт

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

Author:  666||TORCHKI [ 2007-08-31 19:41:24 ]
Post subject: 

Проверь токо )
если что пиши !
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

Author:  Perun [ 2007-08-31 20:25:02 ]
Post subject: 

Левачёк кастует спирита это хорошо но дело в том что он его не одного кастуе а ещё троих в придачу ,не потскажешь как изменить ? Но спасибо и на этом, стало по легче :wink:

Author:  Perun [ 2007-08-31 21:00:48 ]
Post subject: 

и беда с тем кто убивает ,он хилеться во время боя тем и обламывает себе отхилл и умирает. Хотелось бы чтоб он хиллелся после ,когда спирит исчезнет. :twisted:

Author:  666||TORCHKI [ 2007-09-01 21:01:22 ]
Post subject: 

Я посмотрю, вроде бы где-то нормальный, майсу качал зимой.

Author:  Perun [ 2007-09-04 15:08:00 ]
Post subject: 

да,посматри пожалуста а то докачать не могу никак :roll:

Author:  Perun [ 2007-09-19 23:13:24 ]
Post subject: 

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

Author:  Perun [ 2007-09-19 23:15:17 ]
Post subject: 

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

Author:  Perun [ 2007-09-19 23:16:20 ]
Post subject: 

Отличный скрипт! У кого не Гм боевые качайте.

Author:  Maksimka [ 2010-09-10 18:38:42 ]
Post subject:  Re: Напишите Скрипт

скрипт работает на 100% 8) автору СПАСИБО !!!! :wink:

Author:  brrr [ 2018-02-01 12:18:04 ]
Post subject:  Re:

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


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

Author:  Mirage [ 2018-02-01 12:55:45 ]
Post subject:  Re: Напишите Скрипт

в куске
Code:
   VAR Banka='0x401C4D33' ; айди умывальницы 
   UO.waittargetobject(banka)
   UO.usetype('0x0E21') # бенты


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

Author:  brrr [ 2018-02-01 16:30:38 ]
Post subject:  Re: Напишите Скрипт

Mirage wrote:
в куске
Code:
   VAR Banka='0x401C4D33' ; айди умывальницы 
   UO.waittargetobject(banka)
   UO.usetype('0x0E21') # бенты


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


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

Пишет no bandages found

Author:  brrr [ 2018-02-01 16:57:27 ]
Post subject:  Re: Напишите Скрипт

Во что я наворотил, НО если при лечении заканчиваются бинты он стоит и тупит. Куда засунуть проверку на 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

Author:  brrr [ 2018-02-01 18:14:05 ]
Post subject:  Re: Напишите Скрипт

вроде работает - всюду мойку напихал ))) мож где и зря но работает )) Гора родила мышь ))
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

Author:  Mirage [ 2018-02-01 20:24:19 ]
Post subject:  Re: Напишите Скрипт

так оно и в начале работало. Просто ты чистые бинты стирал - я же написал. 0x0E21 - чистые бинты

Author:  brrr [ 2018-02-02 11:06:23 ]
Post subject:  Re: Напишите Скрипт

Mirage wrote:
так оно и в начале работало. Просто ты чистые бинты стирал - я же написал. 0x0E21 - чистые бинты

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

Author:  Incorrect User [ 2018-02-02 15:30:14 ]
Post subject:  Re: Напишите Скрипт

0x1008 это что?

Author:  brrr [ 2018-02-02 15:43:14 ]
Post subject:  Re: Напишите Скрипт

Incorrect User wrote:
0x1008 это что?

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

Author:  Incorrect User [ 2018-02-02 15:44:09 ]
Post subject:  Re: Напишите Скрипт

Она на земле?

Page 1 of 2 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/