Lockpicking ile ilgili

[function gainpickingskill]
if (<src.lockpicking> < 30.0) && ((<skilllock[24]> == 0) && (<skilltotal> < 800.0))
	if (rand(2) == 1)
		src.lockpicking=<src.lockpicking>+6
		endif
	elseif (<src.lockpicking> > 29.9) && (<src.lockpicking> < 40.0)
		if (rand(2) == 1)
		src.lockpicking=<src.lockpicking>+4
	endif
	elseif (<src.lockpicking> > 39.9) && (<src.lockpicking> < 50.0)
		if (rand(2) == 1)
		src.lockpicking=<src.lockpicking>+3
	endif
	elseif (<src.lockpicking> > 49.9) && (<src.lockpicking> < 60.0)
		if (rand(2) == 1)
		src.lockpicking=<src.lockpicking>+2
	endif
	elseif (<src.lockpicking> > 59.9) && (<src.lockpicking> < 70.0)
		if (rand(4) == 1)
		src.lockpicking=<src.lockpicking>+1
	endif
	elseif (<src.lockpicking> > 69.9) && (<src.lockpicking> < 80.0)
		if (rand(6) == 1)
		src.lockpicking=<src.lockpicking>+1
	endif
	elseif (<src.lockpicking> > 79.9) && (<src.lockpicking> < 90.0)
		if (rand(8) == 1)
		src.lockpicking=<src.lockpicking>+1
	endif
	elseif (<src.lockpicking> > 89.9) && (<src.lockpicking> < 100.0)
		if (rand(10) == 1)
		src.lockpicking=<src.lockpicking>+1
	endif


[itemdef i_axonschest]
id 0e40
name metal chest
type t_container
DUPELIST=0e41

on=@create
type t_hazinekasa
color 0810
attr 010
morex 6 //calisma kasalari hep 6 olacak
on=@timer
if (<type>=t_hazinekasa)
else
type t_hazinekasa
color 0810
endif
timer 10
return 1



[typedef t_hazinekasa]
ON=@dclick
if (<type> = t_hazinekasa)
src.sysmessage @033 Bunu sadece Locksmith'ler acabilir.
return 1
else
return 0
endif

[ITEMDEF 014fb]
//DEFNAME2=LOCKPICK
DEFNAME=i_lockpick
TYPE=T_LOCKPICK
FLIP=1
RESOURCES=1 i_ingot_iron
VALUE=19
WEIGHT=1
CATEGORY=Items by Professions
SUBSECTION=Thief
DESCRIPTION=Lockpick
DUPELIST=014fc
SKILLMAKE=TINKERING 42.1,i_tinker_tools
RESOURCES2=2 i_ingot_iron
ON=@dclick 
target
src.sysmessage @033 Hangi kasayi acacaksiniz ?
return 1
on=@targon_item //eklenecek adam hide ise invis ise 
if (<src.targ.type>=t_hazinekasa)  //calisma kasasi
	if (<src.targ.distance>>2) && ( <src.targ.TOPOBJ.UID> != <SRC.UID> ) //distance check
	src.sysmessage @033 Kasaya cok uzaksiniz.
	return 1
	endif

 //Level ayarlari en büyük 5
if (<src.targ.morex>=5)
	if (<src.lockpicking><95.0)
	src.sysmessage @033 Bunu acacak kadar bilgiye sahip degilsiniz.
	return 1
	endif
elseif (<src.targ.morex>=7)
	if (<src.lockpicking><100.0)
	src.sysmessage @033 Bunu acacak kadar bilgiye sahip degilsiniz.
	return 1
	endif
elseif (<src.targ.morex>=4)
	if (<src.lockpicking><90.0)
	src.sysmessage @033 Bunu acacak kadar bilgiye sahip degilsiniz.
	return 1
	endif
elseif (<src.targ.morex>=3)
	if (<src.lockpicking><80.0)
	src.sysmessage @033 Bunu acacak kadar bilgiye sahip degilsiniz.
	return 1
	endif
elseif (<src.targ.morex>=2)
	if (<src.lockpicking><70.0)
	src.sysmessage @033 Bunu acacak kadar bilgiye sahip degilsiniz.
	return 1
	endif
elseif (<src.targ.morex>=1)
	if (<src.lockpicking><60.0)
	src.sysmessage @033 Bunu acacak kadar bilgiye sahip degilsiniz.
	return 1
	endif
endif

if (<src.lockpicking><30.0) //acilma randlari
	IF RAND(2)==1
	src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
	SRC.CONSUME 1 i_lockpick
	src.sound 242
	return 1
	endif
elseif (<src.lockpicking><40.0)
	IF RAND(2)==1
	src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
	SRC.CONSUME 1 i_lockpick
	src.sound 242
	return 1
	endif

elseif (<src.lockpicking><50.0)
	IF RAND(2)==1
	SRC.CONSUME 1 i_lockpick
	src.sound 242
	src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
	return 1
	endif

elseif (<src.lockpicking><60.0)
	IF RAND(4)==1
	SRC.CONSUME 1 i_lockpick
	src.sound 242
	src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
	return 1
	endif

elseif (<src.lockpicking><70.0)
	IF RAND(6)==1
	src.sound 242
	SRC.CONSUME 1 i_lockpick
	src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
	return 1
	endif

elseif (<src.lockpicking><80.0)
	IF RAND(8)==1
	src.sound 242
	SRC.CONSUME 1 i_lockpick
	src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
	return 1
	endif

elseif (<src.lockpicking><90.0)
	IF RAND(10)==1
	src.sound 242
	src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
	SRC.CONSUME 1 i_lockpick
	return 1
	endif

elseif (<src.lockpicking><98.0)
	IF RAND(15)==1
	src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
	src.sound 242
	SRC.CONSUME 1 i_lockpick
	return 1
	endif
endif


//kasayi ac
src.sayua 070d,6,6,0 *Kilidi Acar*
src.gainpickingskill
src.targ.color 0
if (<src.targ.morex>=6)
src.targ.timer 10
endif

if (<src.targ.morex>=5)||(<src.targ.morex>=7)||(<src.targ.morex>=1)||(<src.targ.morex>=2)||(<src.targ.morex>=3)||(<src.targ.morex>=4)|
src.poison 9999
src.targ.type t_container
src.sound=511
src.targ.color 00
src.targ.morex 0
endif (<src.targ.morex>=6)
src.targ.type t_container
src.sound=511
src.targ.color 00
src.targ.morex 0


else //kasacaliskilitli degilse
src.sysmessage @033 Lockpickleri bunun uzerinde kullanamazsiniz.
endif
return 1