Помогите со скриптом на дессанет

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
durDom
Posts: 47
Joined: 2008-11-03 21:51:26
Location: Ekb

Помогите со скриптом на дессанет

Post by durDom »

нужен скрипт чтоб дессанет кастовался автоматом
ну и если не трудно чтоб со скролов и регов (если нет скролов)
зарание спасибо :)
One World One Dream
duzik
Posts: 45
Joined: 2005-08-17 15:58:05

Post by duzik »

Code: Select all

sub dessanct()
var scroll=

uo.waittargetobject('laststatus')
uo.fintype(scroll)
if uo.findcount() then
uo.useobject('finditem')
else
uo.cast('Weaken')
end if
end sub
Everix
Posts: 40
Joined: 2008-02-08 18:38:55

Post by Everix »

Code: Select all

Sub AutoWeaken()
	if uo.getglobal('AutoWeaken')<>'on' then
		uo.setglobal('AutoWeaken','on')
		uo.print('Auto Weaken cast is on')
	else
		uo.setglobal('AutoWeaken','off')
		uo.print('Auto Weaken cast is off')
	end if
end sub

sub Weaken()
	var loop=1,scroll=TYPE
	while loop==2
		if uo.getglobal('AutoWeaken')=='on' then
			repeat
				uo.deletejournal()
				uo.waittargetobject('laststatus') 
				uo.findtype(scroll) 
				if uo.findcount() then 
					uo.useobject('finditem') 
				else 
					uo.cast('Weaken') 
				end if
				if uo.injournal('An anti-magic field disturbs the spells.') then
					uo.setglobal('Weaken','off')
					uo.print('Auto Weaken cast is off')
				end if
				Casted()
			until uo.getglobal('AutoWeaken')<>'on'
		end if
		wait(100)
	wend
end sub

sub Casted()
	var PrevMana=uo.mana,n
		if uo.getglobal('AutoWeaken')=='on' then
			repeat
				wait(100)
			until uo.mana<PrevMana or uo.injournal('The spell fizzles') or uo.injournal('Target is not in line of sight') or uo.injournal('You can`t see the target') or uo.getglobal('AutoWeaken')<>'on'
		end if
end sub
durDom
Posts: 47
Joined: 2008-11-03 21:51:26
Location: Ekb

Post by durDom »

Code: Select all

sub gh()
VAR ManaNeed=11
VAR ManaNeedScroll=5
If UO.Life<UO.Str Then
UO.FindType('0x1F49',-1,'my')
If UO.FindCount()>0 Then
If UO.Mana>=ManaNeedScroll Then
UO.WaitTargetSelf()
UO.UseObject('finditem')
UO.Print("Greater Heal: "+STR(UO.Count("0x1F49")))
Else
UO.Print("Unsufficient mana")
Endif
Else
If UO.Mana>=ManaNeed Then
UO.Cast('Greater Heal','self')
UO.Print("SpellBook")
Else
UO.Print("Unsufficient mana")
Endif
Endif
Else
UO.Print("Your hit points is full")
Endif
end sub
этот скрипт написан не мной, но он качественный
хотелось бы чтоб был такой же не десанет и чтоб он автоматом перекаст делал
выше написанные скрипты не работают на шарде ):
Type=0x1F47 тайп скрола :)
One World One Dream
Post Reply