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: | Напишите Скрипт |
Парни напишите скрипт с Блэйд Спиритом, я искал тут но они все неработающие или не те которые нужны . На ДрВ сложно прокачивать вар скиллы ,одному надо кастовать другому блэйду и тот чтоб бил. Вот вобщем мне и нужен скрипт ,чтоб левачёк костовал блэйду по ластатусу и пока главный чел бьёт ,левачёк мидитировал и ждал как отхидиться другой, а главному челу чтоб сразу атакавал блэйду и когда убьёт его отхиливался бинтами,и брал клевер и щит в руки Заранее благодарен ! |
Author: | 666||TORCHKI [ 2007-08-31 19:41:24 ] |
Post subject: | |
Проверь токо ) если что пиши ! Code: ####KASTUJUSIJ |
Author: | Perun [ 2007-08-31 20:25:02 ] |
Post subject: | |
Левачёк кастует спирита это хорошо но дело в том что он его не одного кастуе а ещё троих в придачу ,не потскажешь как изменить ? Но спасибо и на этом, стало по легче |
Author: | Perun [ 2007-08-31 21:00:48 ] |
Post subject: | |
и беда с тем кто убивает ,он хилеться во время боя тем и обламывает себе отхилл и умирает. Хотелось бы чтоб он хиллелся после ,когда спирит исчезнет. |
Author: | 666||TORCHKI [ 2007-09-01 21:01:22 ] |
Post subject: | |
Я посмотрю, вроде бы где-то нормальный, майсу качал зимой. |
Author: | Perun [ 2007-09-04 15:08:00 ] |
Post subject: | |
да,посматри пожалуста а то докачать не могу никак |
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% автору СПАСИБО !!!! |
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' ; айди умывальницы бенты должны быть кровавыми (проверь тип и поменяй при необходимости), и галка должна стоять в инжекте TWI что бы искалось на земле. Кстати иногда можно стирать прямо из пака. |
Author: | brrr [ 2018-02-01 16:30:38 ] |
Post subject: | Re: Напишите Скрипт |
Mirage wrote: в куске Code: VAR Banka='0x401C4D33' ; айди умывальницы бенты должны быть кровавыми (проверь тип и поменяй при необходимости), и галка должна стоять в инжекте 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' |
Author: | brrr [ 2018-02-01 18:14:05 ] |
Post subject: | Re: Напишите Скрипт |
вроде работает - всюду мойку напихал ))) мож где и зря но работает )) Гора родила мышь )) Code: var msgReady = 'I am Ready' |
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/ |