////////////PiNPiNPiN/////////////////////////////////////-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*--*-*-*-*-*-*-*-*-*--*
[plevel 1]
pingiris//sahısın pin kodunu gırmesi icin bazen loginde sormuyor ve pin kodunu kabul etmıyormus(ben ınanmadım ama olabilir :)
pinyenile//pin sifresi degistirmek icin

[PLEVEL 3]
pinver//sahısın pin kodunu veririr
pindet//sahısın pin kodunu sıfırlar

[function pingiris]
src.dialog d_pin
//src.newitem i_pindisconnect
//src.act.equip
return 1

[dialog d_tum_pin]
0,0
nomove
noclose
resizepic 0 0 83 1030 750
resizepic 0 0 3000 1030 750
resizepic 220 235 2620 270 26

htmlgump 220 200 200 20 0 0 0
htmlgump 255 277 100 20 1 0 0
button 220 275 4006 4007 1 0 1
htmlgump 435 277 100 20 2 0 0
button 400 275 4018 4019 1 0 0
textentry 225 237 253 25 0 0 3
text 200 60 0 4
text 200 350 0 5
text 200 375 0 6
text 200 90 0 7
text 200 115 0 8
text 200 140 0 9
text 200 165 0 10
text 200 400 0 11
text 200 425 0 12
text 200 450 0 13
text 200 475 0 14

[dialog d_tum_pin TEXT]
Pin Kodunuzu Giriniz.
Tamam
vazgec
<src.tag.temppin>
Lutfen Pin kodunuzu eksiksiz olarak giriniz
Pin kodunuzu sadece rakamlar dahilinde olusturunuz
Yoksa pin kodunuz hatali olusturlacaktir
ilk olarak girdiginiz pin kodunuz aktif olarak
kullanacaginiz pin kodunuz olacaktir
Pin kodunuzu sadece rakamlar dahilinde olusturmayi unutmayiniz
ilk olarak girdiginiz pin kodunuz aktif olarak kullanacginiz pin kodunuz olacaktir
Pin kodunuzu degistirmek icin .pinyenile komutunu kullanabilrsiniz
Pin kodunuzu kimseye soylemeyiniz ve kimseye vermeyiniz
Zira account guvenliginiz tamamen size aittir
Bu konuda Stafflarimiz mesul olmayacaktir!!

[dialog d_tum_pin BUTTON]
On=0
src.dialog d_tum_pin
return 1

[dialog d_tum_pin BUTTON]
On=0

if (<eval <src.tag.pinchange>> == 1)
src.tag.pinchange 0
endif

if (<eval <src.tag.spin>> == 1)
src.tag.spin 0
endif

src.pingiris

On=1

if (<eval <src.tag.spin>> ==1)
if strmatch("<eval <src.tag.pin>>","<eval <argtxt[0]>>")
src.tag.spin=0
src.tag.spin1 1
return 1
endif
src.tag.spin=0
endif


if (<eval <src.tag.pinchange>> == 1)
if strmatch("<eval <src.tag.pin>>","<eval <argtxt[0]>>")
src.tag.pinchange=0
src.pingiris
src.tag.pin=0
src.smy Yeni Pin Giriniz.
src.tag.spin1 0
return 1
endif
endif

If <eval <src.tag.pin>>==0
src.tag.pin <argtxt[0]>
src.sysmessage @1153 Sifreniz girdiginiz rakamlar dahilinde olusturuldu.
src.stone 0
src.invis 0
else
If strmatch("<eval <src.tag.pin>>","<eval <argtxt[0]>>")
src.newitem i_pincisi
src.act.equip
src.smy Pin Kabul Edildi.
src.stone 0
src.invis 0
else
src.sms Pin Yanlis !
f_disc
src.sysmessage @38 Disconnect Ediliyorsunuz.!
sdialog d_tum_pin
endif
endif

[function pinyenile]
if (<eval <src.tag.pin>> == 0)
src.sms Pin Kodunuz Bulunmamakta.
src.sms Girdiginiz rakamlar pin kodunuzu olusturacak.
src.sms Aldiginiz pinde harfler olursa pin kodunuz gecerli olmayacaktir
src.pingiris
return 1
else
src.tag.pinchange=1
src.pingiris
src.sysmessage @1153 Eski Pin ?
endif

[ITEMDEF i_pincisi]
NAME=pin
ID=i_handr_1
TYPE=T_EQ_SCRIPT
WEIGHT=0
LAYER=layer_special

ON=@Create
ATTR=attr_invis|attr_decay

on=@equip
timer 40

on=@unequip
src.tag.spin1 0

[FUNCTION pinver]
src.newitem i_pingoster
src.act.equip
return 1

[FUNCTION pindet]
src.newitem i_pinsil
src.act.equip
return 1

[ITEMDEF i_pingoster]
name pin gosterici
type t_eq_script
layer layer_special

on=@create
ATTR=attr_invis|attr_decay
timer 10

on=@equip
target Kimin pin numarasina bakmak istiyorsunuz?
return 1

on=@targon_char
src.sysmessage @54 <src.targ.name> isimli kisinin pin numarasi "<src.targ.tag.pin>".
remove
return 1
else
src.sysmessage @34 Sectiginiz kisinin pin numarasi yok.
remove
return 1
endif

on=@targon_item
remove
return 1

on=@targon_ground
remove
return 1

on=@timer
remove

[ITEMDEF i_pinsil]
name pinsilici
type t_eq_script
layer layer_special

on=@create
ATTR=attr_invis|attr_decay
timer 20

on=@equip
target Kimin pin numarasi sileceksin
return 1

on=@targon_char
src.targ.tag.spin1 0
remove
return 1

on=@targon_item
remove
return 1

on=@targon_ground
remove
return 1

On=@timer
remove

//disconnectorde hata olusabılıyor bazen ondan dolayı koymadım
//[ITEMDEF i_pindisconnecvt]
//NAME=stonecu
//ID=i_handr_1
//TYPE=T_EQ_SCRIPT
//WEIGHT=0
//LAYER=layer_special
//
//ON=@Create
//ATTR=attr_invis|attr_decay
//
//on=@equip
//timer 20
//
//on=@unequip
//src.sms bye bye
//
//on=@timer
//if (<src.findid.i_pincisi>)
//src.finid.i_pindisconnecvt.remove
//return 1
//else
//src.sms Pin kodunuzu girmediginiz icin disconnect ediliyorsunuz
//src.f_disc
//remove
//return 1

[function pinsildir]
src.newitem i_pinsilecem
src.act.equip

[ITEMDEF i_pinsilecem]
name pinsilici
type t_eq_script
layer layer_special

on=@create
attr attr_decay
timer 20

on=@equip
src.targ.tag.pin=0
src.targ.tag.spin1 0
remove
return 1

on=@targon_item
remove
return 1

on=@targon_ground
remove
return 1

On=@timer
remove

[events e_dropfix]
On=@ItemDropOn_Ground
var.uid <act.uid>
foritems 8
if (<baseid>==i_dropfix)
try uid.<var.uid>.bounce
src.sysmessage @066d,3,1 Bu alanda yere item atamazsiniz.
endif
endfor

on=@itempickup_ground
var.uid <act.uid>
foritems 8
if (<baseid>==i_dropfix)
try uid.<var.uid>.bounce
src.sysmessage @066d,3,1 Bu alanda yere item atamazsiniz..
endif
endfor

[itemdef i_dropfix]
name dropfix
id i_virtstone_7
defname i_dropfix

on=@create
color=066d
attr=attr_invis

on=@pickup_ground
return 1


[events e_stams_shoot]
On=@Hit
if (<findlayer(2).type> == t_weapon_mace_staff) && (<macefighting> >= 98.0)
if (rand(100) <= <eval (<anatomy> / 30)>)
src.damage {10 33}
                src.stam=<src.stam>-50
src.spell_say * Stam Shot *
return 1
endif
endif
if (<findlayer(1).type> == T_WEAPON_MACE_SMITH) || (<findlayer(1).type> == T_WEAPON_MACE_SHARP) && (<macefighting> >= 98.0)
if (rand(250) <= <eval (<anatomy> / 40)>)
if (<src.findlayer(2).type> == t_shield)
src.damage {10 33}
                src.dropstam
src.findlayer(2).remove
src.spell_say * Kalkani Patlar *
SRC.EFFECT=2,037cb,4,15,5
return 1
endif
endif

[EoF]