Selamlar arkadaşlar,
Biliyorsunuz yarın kurban bayramı ve bunun için ufak bir sistem yazdım. Sistemin mantığı şu koyuncu Nuriden 35k altına bir kurbanlık koyun alıyorsunuz ve kurbanlık kesici Aliye kestirtiyorsunuz ama Ali koyunun hakkını helal etmeden koyunu kesmiyor :). Ali koyunu kestikten sonra çantanıza kırmızı et düşüyor ve bayram hediyesi alıyorsunuz.
Script ;
||////////////////////////////////||
|| ||
|| Script name: Kurbanlık sistemi ||
|| Written for: Ultima-Strike.com ||
|| ||
||////////////////////////////////||
[function say_koyun]
sayua 06d4,6,6,0 <args>
[chardef c_h_kurbanlik_satan]
DEFNAME=c_h_kurbanlik_satan
NAME=Nuri
ID=C_MAN
ON=@Create
flags 04
invul 1
str 100
dex 100
int 25
ITEMNEWBIE=i_boots_calf
color 0810
ITEMNEWBIE=i_doublet
color 0810
ITEMNEWBIE=i_shirt_fancy
color 0810
ITEMNEWBIE=i_skull_cap
color 01
ITEMNEWBIE=i_pants_short
color 0810
On=@click
message @0785 [ Koyuncu ]
message @0bb7 [<name>]
return 1
On=@Dclick
sdialog d_koyun_ver
dialogclose d_kurum_menu
return 1
endif
[dialog d_koyun_ver]
50,50
nomove
resizepic 18 0 5170 200 180
dtext 55 10 0250 <serv.servname>
dtext 65 39 0 Koyunumu Alicam
dtext 65 65 0 Koyun Almicam
button 40 40 55 56 1 0 1
button 40 67 55 56 1 0 2
[dialog d_koyun_ver button]
on=0
src.sysmessage @0785 Koyun Almadiniz.
on=1
if !(<src.restest 35000 i_gold>)
src.sysmessage @0846,1,1 Koyun Alabilmeniz Icin 35k Gereklidir.
else
src.consume 35000 i_gold
src.newitem i_koyun_budur
src.act.bounce
endif
on=2
src.sysmessage @0785 Koyun Almadiniz.
return 1
[itemdef i_koyun_budur]
id=i_pet_sheep_wooly
type=t_figurine
name=Kurbanlik Koyun
on=@click
message @0785 [ Kurbanlik Koyun ]
return 1
on=@create
color=0809
attr=04
on=@Dclick
src.sysmessage @0785 Kurum Yetkilisine Gidiniz.
Return 1
[chardef c_kurum]
DEFNAME=c_kurum
NAME=Ali
ID=C_MAN
TSPEECH=spk_kurum
ON=@Create
flags 04
invul 1
str 100
dex 100
int 25
ITEMNEWBIE=i_boots_calf
color 1153
ITEMNEWBIE=i_doublet
color 1153
ITEMNEWBIE=i_shirt_fancy
color 1153
ITEMNEWBIE=i_skull_cap
color 1
ITEMNEWBIE=i_pants_short
color 1153
ITEMNEWBIE=i_axe_war
color 080a
On=@click
message @0785 [ Kurbanlik Kesici ]
message @0bb7 [<name>]
return 1
On=@Dclick
say_trk Kurbanlik kestirmeniz için 3 kere 'helal olsun' demeniz lağzım.
dialogclose d_koyun_ver
return 1
endif
[itemdef i_et]
id=i_ribs_raw
type=t_meat_raw
name=Koyun Eti
on=@click
message @0785 [ Koyun Eti ]
src.sysmessage @0785 Hediyenizi Almak Icin Cift Tiklayiniz.
return 1
on=@create
color=080a
attr=04
on=@dclick
src.consume 1 i_et
src.newitem i_katana_vanq
src.sysmessage @0785 Hediyenizi Aldiniz.
src.act.bounce
src.act.equip
return 1
endif
return 1
[speech spk_kurum]
ON=*helal olsun*
if (<src.tag0.kurbanlik> = 2)
src.sysmessage @0785 Ya Allah Bismillah
src.newitem i_et
src.say_koyun * Koyun kestirtir *
src.sysmessage @0785 Koyununuzu Kestirdiniz Etleriniz Cantanizda.
src.act.bounce
src.act.attr 4
src.tag.kurbanlik 4
return 1
elseif (<src.tag0.kurbanlik> >= 3)
say=@1153,,1 Siz daha once kurbanlik kestirtiginizden dolayı ikinci kurbanlik kesmiyorum.
return 1
else
say=@1153,,1 Kurbanın hakkını helal ediyormusun ?
src.tag0.kurbanlik += 1
return 1
endif
[EOF]
Umarım beyenmişsinizdir.:utangac1
Bu konu Axons tarafından düzenlendi(2008-12-08 01:16, 15 yıl önce)
Tebrikler..