Напишите Скрипт

Perun · Post by **Perun** » 2007-08-31 18:49:23

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

Заранее благодарен !

666||TORCHKI · Post by **666||TORCHKI** » 2007-08-31 19:41:24

Проверь токо )
если что пиши !

Code: Select all

####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

Perun · Post by **Perun** » 2007-08-31 20:25:02

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

Perun · Post by **Perun** » 2007-08-31 21:00:48

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

666||TORCHKI · Post by **666||TORCHKI** » 2007-09-01 21:01:22

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

Perun · Post by **Perun** » 2007-09-04 15:08:00

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

Perun · Post by **Perun** » 2007-09-19 23:13:24

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

Perun · Post by **Perun** » 2007-09-19 23:15:17

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

Perun · Post by **Perun** » 2007-09-19 23:16:20

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

Maksimka · Post by **Maksimka** » 2010-09-10 18:38:42

скрипт работает на 100%

автору СПАСИБО !!!!

brrr · Post by **brrr** » 2018-02-01 12:18:04

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

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

Mirage · Post by **Mirage** » 2018-02-01 12:55:45

в куске

Code: Select all

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

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

brrr · Post by **brrr** » 2018-02-01 16:30:38

Mirage wrote:в куске
Code: Select all
	VAR Banka='0x401C4D33' ; айди умывальницы 
	UO.waittargetobject(banka) 
	UO.usetype('0x0E21') # бенты
бенты должны быть кровавыми (проверь тип и поменяй при необходимости), и галка должна стоять в инжекте TWI что бы искалось на земле. Кстати иногда можно стирать прямо из пака.

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

Пишет no bandages found

brrr · Post by **brrr** » 2018-02-01 16:57:27

Во что я наворотил, НО если при лечении заканчиваются бинты он стоит и тупит. Куда засунуть проверку на No bandages found? я замучался.

Code: Select all

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

brrr · Post by **brrr** » 2018-02-01 18:14:05

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

Code: Select all

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

Mirage · Post by **Mirage** » 2018-02-01 20:24:19

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

brrr · Post by **brrr** » 2018-02-02 11:06:23

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

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

Incorrect User · Post by **Incorrect User** » 2018-02-02 15:30:14

0x1008 это что?

brrr · Post by **brrr** » 2018-02-02 15:43:14

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

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

Incorrect User · Post by **Incorrect User** » 2018-02-02 15:44:09

Она на земле?

Yoko

Напишите Скрипт

Напишите Скрипт

Re: Напишите Скрипт

Re:

Re: Напишите Скрипт

Re: Напишите Скрипт

Re: Напишите Скрипт

Re: Напишите Скрипт

Re: Напишите Скрипт

Re: Напишите Скрипт

Re: Напишите Скрипт

Re: Напишите Скрипт

Re: Напишите Скрипт