[ITEMDEF i_potion_Shrink]
ID=i_bottle_empty
NAME=Shrink Potion
TYPE=T_POTION
TDATA1=i_bottle_empty
RESOURCES=i_reag_batwing 2, i_bottle_EMPTY
SKILLMAKE=ALCHEMY 98.0
ON=@Create
MORE1=s_shrink
MORE2=100.0
COLOR=color_gray_lt
on=@dclick
target
src.SYSMESSAGE What do you want shrink?
return 1
on=@targon_char
if (<src.targ.npc>)
if (<src.targ.distance>>2)
src.sysmessage You can't reach that.
return 1
endif
if (<src.targ.body>=c_man)
src.sysmessage You cannot shrink <src.targ.name>.
return 1
elseif (<src.targ.body>=c_woman)
src.sysmessage You cannot shrink <src.targ.name>.
return 1
elseif (<src.targ.body>=c_elf_male)
src.sysmessage You cannot shrink <src.targ.name>.
return 1
elseif (<src.targ.body>=c_elf_female)
src.sysmessage You cannot shrink <src.targ.name>.
return 1
endif
IF (<src.targ.tag0.summon>>0)
src.SYSMESSAGE You can't shrink summoned pets.
return 1
endif
IF (<src.targ.flags>&statf_conjured)
src.SYSMESSAGE You can't shrink summoned pets.
return 1
endif
IF (<src.targ.str>*2)>1200
IF (<src.animallore>>119.9)
src.targ.SHRINK
if (<amount><2)
remove
fix
else
amount -= 1
fix
endif
RETURN 1
else
src.sysmessage You have not enough lore to shrink <src.targ.name>. [Needs : <eval <src.targ.str>*2> animal lore skill to shrink]
return 1
endif
else
IF (<src.animallore><(<src.targ.str>*2))
src.SYSMESSAGE You have not enough lore to shrink <src.targ.name>. [Needs : <eval <src.targ.str>*2> animal lore skill to shrink]
return 1
endif
IF !<src.targ.ismypet>
src.SYSMESSAGE This is not your pet.
RETURN 1
ENDIF
IF (<src.targ.hits><<src.targ.str>)
src.sysmessage <src.targ.name> must have full health.
return 1
endif
src.targ.SHRINK
if (<amount><2)
remove
fix
else
amount -= 1
fix
endif
RETURN 1
endif
else
src.sysmessage You cannot shrink <src.targ.name>.
return 1
endif
on=@targon_item
src.SYSMESSAGE Items cannot be shrunk this way.
return 1
on=@targon_ground
src.SYSMESSAGE You cannot shrink that.
return 1
