[plevel 1]

yemekzehirle



[function yemekzehirle]

if (<src.poisoning> <98.0)

src.sysmessage @049,,1 Beceriniz Yetmiyor !

return 1

elseif !(<src.restest 1 i_zehir_bottle>)

src.sysmessage @049,,1 Zehir Siseniz Yok !

return 1

elseif !(<src.findtype.t_food>)

src.sysmessage @049,,1 Cantanizda Yemek Yok !

return 1

else

targetf f_zehirle

src.sysmessage @049,,1 Neyi Zehirliceksiniz ?

endif



[function f_zehirle]

obj=<argo>

if !(<obj.type>=t_food)

src.sysmessage @049,,1 Bu Bir Yemek Degil !

return 1

else

ctag0.dispid=<obj.dispid>

obj.remove

serv.newitem i_zehirli_yemek

new.bounce

new.dispid <ctag0.dispid>

src.sysmessage @049,,1 <obj.name>'yi Zehirlediniz !

src.consume 1 i_zehir_bottle

endif



[itemdef i_zehirli_yemek]

id i_bread_loaf

name Yemek

type t_script



on=@create

color 00



on=@dclick

src.sysmessage @049,,1 Zehirlendiniz !

src.poison 500

remove

return 1



on=@click

message <name>

return 1



[itemdef i_zehir_bottle]

id i_bottle

name Yemek Zehirleyici

type t_script



on=@create

color 040

attr attr_magic



on=@dclick

src.sysmessage @049,,1 Bunu Bu Sekilde Kullanamassiniz.

return 1



on=@click

message <name> 

return 1

Değerlendirmeler

0

Total votes: 0