Hesabına erişemeyen eski üyeler Discord üzerinden yardım alabilir.
//***********************************
// Coder   		: Basic <Berkay>
// Idea    		: Kaan
// Date    		: 13.08.2009
// Time    		: 04:03
// Heading		: İpotek Sistemi
// Time Estimated	: 2 Hour 3 minute
// Cigarette		: 3,Marlbora Light
// Special Thanks	: Slothere (as always:) 
//***********************************


[comment Kurulum]
Aşşadakileri sphere/speech içinde bulunan JOBBANKER.scp içine koyun. Sonra bankere ipotek yazın.

on=*ipotek*
src.targetf f_ipotekle
src.sysmessage @07a1 Ipotekleyeceginiz esyayi seciniz...

on=*cikart*
src.openbagipotek 
src.targetf f_ipotekcikart
src.sysmessage @07a1 Ipotekden cikartacaginiz esyayi seciniz...

[comment Basic]
Evet bu sistem 2010 yılı temmuz ayına kadar yazdığım son sistemdir. Küçük şeyler yazabilirim.
Tarafımdan hiçbir bug bulunamamıştır. Herkes gönlünce bu sistemi kullanabilir.

Ustam Gökberk AKALIN(Slothere)'a herşey için teşekkür ediyorum.

NOT: STRCMPI * * gelmediği sürece iğrenç bir koddur... :))

[function isweapon]
if strmatch(*weapon*,'<type>')
return 1
else
return 0
endif

[function isweaponipotek]
if strmatch(*weapon*,'<tag.type>')
return 1
else
return 0
endif

[function openbagipotek]
if !(<findlayer(layer_bankbox).findid(i_bag_ipotek)>)
serv.newitem i_bag_ipotek
new.cont <src.findlayer(layer_bankbox)>
new.attr attr_move_never
else
bankself
findlayer(layer_bankbox).findid(i_bag_ipotek).dclick
endif


[typedef t_ipotekli]
on=@click
message @0456,1,1 [Ipotekli]

on=@dclick
return 1

on=@equip
return 1

[itemdef i_Bag_ipotek]
id i_bag
name Basic Ipotek Cantasi

on=@create
attr attr_move_never
color 07a2

[function f_ipotekle]
if !(<argo.isitem>)
src.sysmessage @08a Hata: Sadece esyalari ipotekleyebilirsiniz...
elif (<argo.attr>&attr_newbie)
src.sysmessage @08a Hata: Newbie olmayan esyalari ipotekleyebilirsiniz...
elif (<argo.type> == t_ipotekli)
src.sysmessage @08a Hata: Ipotekli esyalari secemezsiniz...
elif !(<argo.value>)
src.sysmessage @08a Hata: Bu esyayi ipotekleyemezsiniz...
elif !(<argo.value> > 10000) && !(<argo.isweapon>) && !(<argo.morey> > 0)            /////EVLERDE SORUN YASIYOSANIZ ==>!(<argo.value> > 10000) && ((!(<argo.isweapon>) && !(<argo.morey> > 0)) || (!(<argo.baseid> == i_Deed) && strcmpi('i_multi','<argo.more1>')))
src.sysmessage @08a Hata: Degeri 10k'nin altinda olan esyalari ipotekleyemezsiniz...
elif (<argo.baseid> == i_deed_animal) || !strcmpi('pet','<baseid>')
src.sysmessage @08a Hata: Kucultulmus hayvanlari ipotekleyemezsiniz...

elif (<argo.isweapon>) && (<argo.morey> > 0)
local.value <eval <argo.morey>*1000>
argo.tag.attr <argo.attr>
argo.attr attr_move_never
argo.tag.type <argo.type>
argo.type t_ipotekli

	if !(<src.findlayer(layer_bankbox).findid(i_bag_ipotek)>)
		serv.newitem i_bag_ipotek
		new.cont <src.findlayer(layer_bankbox)>
		new.attr attr_move_never
		argo.cont <new>
	else
		local.baguid <src.findlayer(layer_bankbox).findid(i_bag_ipotek).uid>
		argo.cont <local.baguid>
	endif

src.gold +=<eval <local.value>/2>
src.sysmessage @07a1 <argo.name>'i ipoteklediniz. Degerinin yarisi olan <eval <local.value>/2> bankaniza aktarildi.
src.sysmessage @07a1 Ipotekten cikartmak icin bankere "cikart" yazip esyayi seciniz.

////////////////////BURASI EVLERDE SORUN YASAYANLAR ICINDIR\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//elif (<argo.baseid> == i_deed) && !strcmpi('i_multi','<argo.more1>')
//local.value <serv.itemdef.i_multi<strsub 6 99 <argo.baseid>>.value>
//argo.tag.type <argo.type>
//argo.tag.attr <argo.attr>
//argo.attr attr_move_never
//argo.type t_ipotekli
	//if !(<src.findlayer(layer_bankbox).findid(i_bag_ipotek)>)
	//	serv.newitem i_bag_ipotek
	//	new.cont <src.findlayer(layer_bankbox)>
	//	new.attr attr_move_never
	//	argo.cont <new>
	//else
	//	local.baguid <src.findlayer(layer_bankbox).findid(i_bag_ipotek).uid>
	//	argo.cont <local.baguid>
	//endif
//src.gold +=<eval <local.value>/2>
//src.sysmessage @07a1 <argo.name>'i ipotekleyediniz. Degerinin yarisi olan <eval <local.value>/2> bankaniza aktarildi.
//src.sysmessage @07a1 Ipotekten cikartmak icin "cikart" yazip esyayi seciniz.
//////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

else
local.value <argo.value>
argo.tag.type <argo.type>
argo.type t_ipotekli
argo.tag.attr <argo.attr>
argo.attr attr_move_never

	if !(<src.findlayer(layer_bankbox).findid(i_bag_ipotek)>)
		serv.newitem i_bag_ipotek
		new.cont <src.findlayer(layer_bankbox)>
		new.attr attr_move_never
		argo.cont <new>
	else
		local.baguid <src.findlayer(layer_bankbox).findid(i_bag_ipotek).uid>
		argo.cont <local.baguid>
	endif

src.gold +=<eval <local.value>/2>
src.sysmessage @07a1 <argo.name>'i ipoteklediniz. Degerinin yarisi olan <eval <local.value>/2> bankaniza aktarildi.
src.sysmessage @07a1 Ipotekten cikartmak icin bankere "cikart" yazip esyayi seciniz.
endif
src.update
src.bankself

[function f_ipotekcikart]
if !(<argo.type> == t_ipotekli)
src.sysmessage @08a Hata: Sadece ipotekli esyalari ipotekten cikartabilirsiniz...
elif !(<argo.isitem>)
src.sysmessage @08a Hata: Sadece esyalari ipotekten cikarabilirsiniz...

elif (<argo.isweaponipotek>) && (<argo.morey> > 0)
local.value <eval <argo.morey>*1000>
	if (<src.gold> < <eval (<local.value>*3)/4>)
		src.sysmessage @08a Hata: Bu esyayi ipotekten cikartmak icin <eval (<local.value>*3)/4> altina ihtiyaciniz vardir.
	else
		argo.type <argo.tag.type>
		argo.attr <argo.tag.attr>
		argo.cont <src.findlayer(layer_Bankbox)>
		src.gold -=<eval (<local.value>*3)/4>
		src.sysmessage @07a1 Esyayi ipotekten cikartmak icin <eval (<local.value>*3)/4> altin harcadiniz.
		src.sysmessage @07a1 Esya ipotekten cikmistir ve bankaniza aktarilmistir. Tekrar ipotek sistemini kullanmaniz dilegiyle.
	endif

////////////////////BURASI EVLERDE SORUN YASAYANLAR ICINDIR\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//elif (<argo.baseid> == i_deed) && !strcmpi('i_multi','<argo.more1>')
//local.value <serv.itemdef.i_multi<strsub 6 99 <argo.baseid>>.value>
//	if (<src.gold> < <eval (<local.value>*3)/4>)
//		src.sysmessage @08a Hata: Bu esyayi ipotekten cikartmak icin <eval (<local.value>*3)/4> altina ihtiyaciniz vardir.
//	else
//		argo.type <argo.tag.type>
//		argo.attr <argo.tag.attr>
//		argo.cont <src.findlayer(layer_Bankbox)>
//		src.gold -=<eval (<local.value>*3)/4>
//		src.sysmessage @07a1 Esyayi ipotekten cikartmak icin <eval (<local.value>*3)/4> altin harcadiniz.
//		src.sysmessage @07a1 Esya ipotekten cikmistir ve bankaniza aktarilmistir. Tekrar ipotek sistemini kullanmaniz dilegiyle.
//	endif
//////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

else
local.value <eval <argo.value>>
	if (<src.gold> < <eval (<local.value>*3)/4>)
		src.sysmessage @08a Hata: Bu esyayi ipotekten cikartmak icin <eval (<local.value>*3)/4> altina ihtiyaciniz vardir.
	else
		argo.type <argo.tag.type>
		argo.attr <argo.tag.attr>
		argo.cont <src.findlayer(layer_Bankbox)>
		src.gold -=<eval (<local.value>*3)/4>
		src.sysmessage @07a1 Esyayi ipotekten cikartmak icin <eval (<local.value>*3)/4> altin harcadiniz.
		src.sysmessage @07a1 Esya ipotekten cikmistir ve bankaniza aktarilmistir. Tekrar ipotek sistemini kullanmaniz dilegiyle.
	endif
endif

[events e_ipotek_system]  ///Bu eventtekileri fixe verin yada loginde eventi playera verin farketmez...
on=@itemdropon_item
if (<argo.baseid> == i_bag_ipotek)
src.sysmessage @08a Hata: Bu cantaya siz birsey koyamazsiniz...
return 1
endif

on=@itemdropon_pack
if (<argo.baseid> == i_bag_ipotek)
src.sysmessage @08a Hata: Bu cantaya siz birsey koyamazsiniz...
return 1
endif

Bu foruma attığım son mesajdır hepiniz esen kalın.

Special thanks:

Ardıl :Radyo için
Mert,Hamit,Mehmet,Alper vs vs :Arkadaşlığınız için (daha çok var özür dilerim)
Emre Abi : Abiliğin için

Gökberk Akalın : Bana bu işi öğrettiğin için


Berkay Bayülker
Basic



[EOF]
eline sağlık Berkay. msnden arada yaz bari unutma bizi. :)
Sende bi gidemedin git artık istemiyorum seni..

Abi teşekkürmü ettin küfürmü ettin anlamadım :P
Bireşy değil canım dostum
kardeş ne ipotek edip ne alıyoruz bi açıklama yaparmısın
sistemin fikri benden yapması berkaydan:P
Güzel iş Berkay, görüşmek dileğiyle.Bu arada önemli değil :) Herkesin abisi olmam biliyorsun :)
Abi arıyorum :p

Gittiğin yerlerde bizi unutma. Seni özleyeceğiz :memnun
Master
59.2997
Başarılı, tebrikler.
Silindi
Master
59.2997
Güle güle basic seni hiç unutmıcam sende beni unutma :P

Üye Ol veya Giriş Yap

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