Новый скрипт на меджери

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Kosmozone
Posts: 20
Joined: 2004-05-04 12:07:16
Contact:

Новый скрипт на меджери

Post by Kosmozone »

ИДея такая, если мана 100
каст спел пойзон
пока мана не будет допустим 5....
чтоб до 5 маны он кастовал пойзон подряд
кому не сложно сделайте плиз
[LD] Lamer's Death
Psimorph
Posts: 118
Joined: 2004-04-06 12:27:32
Contact:

Re: Новый скрипт на меджери

Post by Psimorph »

Kosmozone wrote:ИДея такая, если мана 100
каст спел пойзон
пока мана не будет допустим 5....
чтоб до 5 маны он кастовал пойзон подряд
кому не сложно сделайте плиз

Code: Select all

#каст пойзона на последний таргет.
sub Pois()
	VAR ManaNeed=5 ;  сколько надо маны сам ставь, по идее 9
	UO.Set('lasttarget','laststatus')
	If NOT UO.Poisoned('lasttarget') Then
	
		If UO.Mana>=ManaNeed Then
			UO.Cast('Poison','laststatus')
		Else
			UO.Print("Malo manki!")
		Endif
	Else
		UO.Print("4ar uge otravlen")
	Endif
end sub

Kosmozone
Posts: 20
Joined: 2004-05-04 12:07:16
Contact:

Post by Kosmozone »

не... не работает....
мне нужен для прокачки магии :)
что со 100 кастовал кастовал кастовал пока маны не будет допустим 5
если маны 5 юз скил медитация
[LD] Lamer's Death
Psimorph
Posts: 118
Joined: 2004-04-06 12:27:32
Contact:

Post by Psimorph »

Kosmozone wrote:не... не работает....
мне нужен для прокачки магии :)
что со 100 кастовал кастовал кастовал пока маны не будет допустим 5
если маны 5 юз скил медитация

Ты бы если хоть чуть чуть понимал скрипт, не ответил бы таким тупым постом. Советую почитать хелп, просмотреть все команды используемые в этом скрипте, понять что они делают, и потом уже просить что то другое.
Kosmozone
Posts: 20
Joined: 2004-05-04 12:07:16
Contact:

Post by Kosmozone »

Psimorph wrote:
Kosmozone wrote:не... не работает....
мне нужен для прокачки магии :)
что со 100 кастовал кастовал кастовал пока маны не будет допустим 5
если маны 5 юз скил медитация

Ты бы если хоть чуть чуть понимал скрипт, не ответил бы таким тупым постом. Советую почитать хелп, просмотреть все команды используемые в этом скрипте, понять что они делают, и потом уже просить что то другое.
по-моему не я не понимаю скрипт, а ты не понимаешь идею, твой скрипт я потестил, он не для меня, все команды у тебя элементарные.... имхо
[LD] Lamer's Death
Psimorph
Posts: 118
Joined: 2004-04-06 12:27:32
Contact:

Post by Psimorph »

добавь туда while NOT Uo.Dead()
и if UO.Mana<ManaNeed then
UO.Skill('meditation')
wait(5000)
endif

и тд.. добавь проверку на медитациЮ, тоесть отмедитировал он или нет, и всё будет ок. я ж гаварю, нужно самому просто малёха его модифицировать и всё ок
user
Posts: 19
Joined: 2004-04-16 00:56:28
Contact:

Post by user »

Что вы за бред гоните?

Code: Select all

VAR Fish='0x097B'
VAR TAR='0x009C15FF'

Sub Main()
VAR x = 0,y = 0,z = 0
	While NOT UO.Dead()
		If UO.Mana == UO.Int Then
			Repeat
				UO.DeleteJournal()
				UO.WaitTargetObject(TAR)
				UO.Cast('Poison')
				x = UO.Mana
				Repeat
					Wait(100)
				Until UO.InJournal("fizzle") OR x > UO.Mana
			Until UO.Mana < 9
		Else
			Repeat
				UO.UseSkill('Medit')
				Wait(1000)
			Until UO.Mana == UO.Int
		EndIf
		y = UO.SkillVal('Magery',2)/10
		z = UO.SkillVal('Meditation',2)/10
		UO.Print('Your skill Magery is '+str(y)+' And Meditation '+str(z)+'')
		UO.UseType(Fish)
		Wait(100)
		UO.UseType(Fish)
		Wait(100)
		UO.UseType(Fish)
	Wend
End Sub
Можно проще но мне нужен был такой!
Post Reply