Safe Box(Güvenli kutu) - (Sifreli kasa)

Görüntü 1:

Link: https://img134.imageshack.us/img134/3644/1ncion5.jpg

Görüntü 2:

Link: https://img134.imageshack.us/img134/9079/2nciwk4.jpg

Script:

//Boosterx
[itemdef i_safe_bx]
id i_box_brass
name Safe Box
type t_container

on=@create
color 0
tag.safekur 0
return 1

on=@click
message @0481,,1 <name>
return 1

on=@dclick
if (<distance> > 3)
src.sms Safe boxdan cok uzaktasiniz.
return 1
endif

if (<tag.safekur> = 0)
sdialog d_safe_box_kur
return 1
else
sdialog d_safe_box
return 1
endif

[dialog d_safe_box_kur]
150,150
page 0

resizepic 50 50 3600 458 190
resizepic 95 110 2620 50 37
resizepic 193 110 2620 50 37
resizepic 291 110 2620 50 37
resizepic 389 110 2620 50 37
dtext 222 80 54 Safe Box Kurulum
dtext 147 120 1152 ' sola,
dtext 244 120 1152 ' saga,
dtext 343 120 1152 ' sola,
dtext 439 120 1152 ' saga,
dtext 263 160 172 Sifreyi onayla
dtext 263 180 38 Iptal

dtextentry 106 118 600 20 1152 1
dtextentry 203 118 600 20 1152 2
dtextentry 300 118 600 20 1152 3
dtextentry 397 118 600 20 1152 4

button 230 160 4006 4005 1 0 1
button 230 180 4006 4005 1 0 2

[dialog d_safe_box_kur button]
on=1
if (<distance> > 3)
src.sms Safe boxdan cok uzaktasiniz.
return 1
endif
for 1 4
if !(<isnum <argtxt[<dlocal._for>]>>)
src.sms Hatali karakter kullanimi yaptiniz.Sifrelemede sadece rakam kullanabilirsiniz.
return 1
endif
endfor

if ((strlen(<argtxt[1]>)) > 4) || ((strlen(<argtxt[1]>)) < 2) && ((strlen(<argtxt[2]>)) > 4) || ((strlen(<argtxt[2]>)) < 2) && ((strlen(<argtxt[3]>)) > 4) || ((strlen(<argtxt[3]>)) < 2) && ((strlen(<argtxt[4]>)) > 4) || ((strlen(<argtxt[4]>)) < 2)
src.sms Her bir sifre kutucuguna en az iki[2],en fazla dort[4] hane yazabilirsiniz.
return 1
else
for 1 4
tag.<dlocal._for>inci <argtxt[<dlocal._for>]>
endfor
tag.safekur 1
src.smn Safe box sifreniz girdiginiz rakamlar dahilinde kuruldu.
return 1
endif
endif

on=2
src.sms Islem iptal edildi.
return 1

[dialog d_safe_box]
150,150
page 0

resizepic 50 50 3600 458 190
resizepic 95 110 2620 50 37
resizepic 193 110 2620 50 37
resizepic 291 110 2620 50 37
resizepic 389 110 2620 50 37
dtext 238 80 54 Safe Box
dtext 147 120 1152 ' sola,
dtext 244 120 1152 ' saga,
dtext 343 120 1152 ' sola,
dtext 439 120 1152 ' saga,
dtext 140 160 1152 Cevir
dtext 263 160 1152 Cantama al
dtext 263 180 1152 Yere at
dtext 420 160 1152 Iptal

dtextentry 106 118 600 20 0 1
dtextentry 203 118 600 20 0 2
dtextentry 300 118 600 20 0 3
dtextentry 397 118 600 20 0 4

button 107 160 4006 4005 1 0 1
button 230 160 4006 4005 1 0 2
button 230 180 4006 4005 1 0 3
button 387 160 4006 4005 1 0 4

[dialog d_safe_box button]
on=1
if (<distance> > 3)
src.sms Safe boxdan cok uzaktasiniz.
return 1
endif

if (<eval <argtxt[1]>> = <tag.1inci>) && (<eval <argtxt[2]>> = <tag.2inci>) && (<eval <argtxt[3]>> = <tag.3inci>) && (<eval <argtxt[4]>> = <tag.4inci>))
src.smn Sifre dogru girildi.
open
return 1
else
src.sms Safe box sifresini yanlis veya eksik girdiniz.
return 1
endif

on=2
if (<distance> > 3)
src.sms Safe boxdan cok uzaktasiniz.
return 1
endif

if (<eval <argtxt[1]>> = <tag.1inci>) && (<eval <argtxt[2]>> = <tag.2inci>) && (<eval <argtxt[3]>> = <tag.3inci>) && (<eval <argtxt[4]>> = <tag.4inci>))
src.smn Safe box cantaniza eklendi.
bounce
return 1
else
src.sms Safe box sifresini yanlis veya eksik girdiginiz icin cantaniza alamadiniz.
return 1
endif

on=3
if (<distance> > 3)
src.sms Safe boxdan cok uzaktasiniz.
return 1
endif

if (<eval <argtxt[1]>> = <tag.1inci>) && (<eval <argtxt[2]>> = <tag.2inci>) && (<eval <argtxt[3]>> = <tag.3inci>) && (<eval <argtxt[4]>> = <tag.4inci>))
src.smn Dikkat!Safe boxu yere attiniz,yerde kaldigi taktirde silinebilir.
drop
return 1
else
src.sms Safe box sifresini yanlis veya eksik girdiginiz icin yere atamadiniz.
return 1
endif

on=4
if (<distance> > 3)
src.sms Safe boxdan cok uzaktasiniz.
return 1
else
src.sms Islem iptal edildi.
return 1
endif

[function sms]
sysmessage @026,,1 <args>

[function smn]
sysmessage @049,,1 <args>

Umarım işinize yarar.

Bu konu boosterx tarafından düzenlendi(2011-05-02 03:03, 12 yıl önce)

Emege Saygi +1 :yes

şuanda aktif bir sunucuda bunun tıpkısının aynısı var.. Menüleri değişik tasarlasaydın bari

o rp sunucusunda bende oynadığım için bilgim var ondan dikkatimi çekti.

Bende Kharadun's ailesindendim sistemleri zaten tartışılmaz..
Kurucularıda biziz.

Neyse konu sapmasın umarım çoğu kişinin işine yarar

bi kere şifreyi girince ikinci kere girilmiyor scp de sorun var !!

:D:D:D

Eline Sağlık