/////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////
//////////                     Paylaşım
/////////- Tarih : 30.08.2008 -
////////                       Coder KoinoT
///////
//////    - Erk Akdemir - 
/////                          Groza Pvp
////
///       - [email protected]
// İçerik : Kelle Teslim




[chardef c_head] 
defname c_head
id c_man 
can mt_equip|mt_nonmover 
hiredaywage 52 
desires i_gold 

On=@Create 
str 9500
dex 25
int 25
color colors_skin 
speechcolor 0481 
food 990 
npc 1 

itemnewbie random_male_hair 
color 0481
itemnewbie random_facial_hair 
color 0481
itemnewbie i_robe
color 0455
itemnewbie i_lantern
color 0481

on=@spelleffect
src.skill fail
return 1

on=@gethit
src.skill fail
return 1

on=@hit
return 1

On=@Click
message @33 [Head Hunter]
message @07a1 <name>
return 1

On=@Dclick
if (<distance> < 3)
src.dialog d_head_hunter
else
src.sysmessage @33 Yeterince yakin degilsiniz.
endif
return 1

[dialog d_head_hunter]
100,50

resizepic 20 40 3500 430 195

text 50 45 90 0
text 50 80 1000 1
text 50 115 1000 2
text 50 150 1000 3
text 90 190 0 4
text 290 190 0 5

button 70 190 2714 2715 1 0 1
button 270 190 2714 2715 1 0 2

[dialog d_head_hunter text]
Merhaba Hunter <src.name>!
Son Kurban : <uid.013467.tag.whohead>
En iyi hunter : <uid.013467.tag.whofirst>
Toplam <eval <tag.headsal>> kafa teslim ettiniz.
Kafa Teslim Et
Cikis

[dialog d_head_hunter button]
on=0

on=1
src.newitem i_teslimat
src.act.equip
return 1

[itemdef i_teslimat]
name=teslimci
id=i_memory
type=t_eq_script
weight=0
layer=layer_special

On=@Create
attr attr_invis|attr_decay

on=@equip
target @50 Hangi kafayi teslim edeceksiniz.
return 1

on=@targon_char
src.sysmessage @1100 Bunu yapamazsiniz.
remove
return 1

On=@Targon_Ground
src.sysmessage @1100 Bunu yapamazsiniz.
remove
return 1

on=@targon_cancel
remove
return 1

On=@Targon_Item
if (<src.targ.link.uid> == <src.uid>)
src.sysmessage @1100 Kendi kafanizi sallandiramazsiniz.
remove
return 1
endif
if (<src.targ.baseid> == i_flesh_head) || (<src.targ.baseid> == i_flesh_head_2) && !(<src.targ.link> == 04fffffff)
	If (<src.targ.link.fame> == 0)
		src.sysmessage @1100 Bu kafanin hicbir degeri yok.
		remove
		return 1
	else
		if (<eval <src.tag.headsal>> > <eval <uid.013467.tag.whofirstsay>>)
			var.goldver <eval <src.targ.link.fame>*2>
			src.tag.headsal +=1
			try uid.013467.tag.whohead <src.targ.link.name>
			try uid.013467.tag.whofirst <src.name>
			try uid.013467.tag.whofirstsay <eval <src.tag.headsal>>
			src.newitem i_gold
			src.new.amount <var.goldver>
			src.new.bounce
			serv.allclients sysmessage @0481,,1 <src.targ.link.name> 'in kafasi , <src.name> tarafindan teslim edildi.
			src.sysmessage @0481 Teslimat tamamlandi. <eval <var.goldver>> gold kazandiniz.
			src.targ.remove
			remove
		else
			var.goldver <eval <src.targ.link.fame>*2>
			src.tag.headsal +=1
			try uid.013467.tag.whohead <src.targ.link.name>
			src.newitem i_gold
			src.new.amount <var.goldver>
			src.new.bounce
			serv.allclients sysmessage @0481,,1 <src.targ.link.name> 'in kafasi , <src.name> tarafindan teslim edildi.
			src.sysmessage @50 Teslimat tamamlandi. <eval <var.goldver>> gold kazandiniz.
			src.targ.remove
			remove
		endif
	endif
else
	src.sysmessage @1100 Bunu yapamazsiniz.
	remove
endif
return 1



[EOF]
Güzel paylaşım teşekkürler.. :)
(=
Güzel paylaşım listeleme ile daha da güzel hale getirilebilinir.Mesela en çok kelle sallayan 10 kişi fln listelenebilir.
biride şu liste işi nasıl yapılıyo söylese :D nameini tag mı alıyosun? var la kaç tne olduğunu arttırıyosun dialoga o tagı ve varı giriyosun ama sıralamayı nasıl yapıosun
Her sallandırdığın kelle için tag ile puan veriyorsun kendine..
Sonra bu puanın en çok sallandıran 10 kişiden büyük olduğunu kontrol ettiriyorsun..
Öyle ise yerine kişisinin adını yazdırıyorsun..


Bu konu HP-Nexiel tarafından düzenlendi(2008-09-04 08:40, 15 yıl önce)
Sıralama keşke o kadar kolay olsaydı x)
Yapmıştım zamanında.. :)
Sıralama 56b ' nin Özellikleri İle Çok Daha Kısa Hale Gelebilir . Bunun Üzerinde Çalışmayı Düşünüyordum Zaten Başlıcam ..

Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.