Xearth -  13-05-2010 14:10
Incription skill kasarken adam 30 40 dk sora ekranına menü gelir güvenlik kodunu girmez ise skill kastırmaya , kullanmaya izin vermez güvenlik kodu yanlış girer ise oyundan atar. doğru girer ise skill kasmaya dewam eder.

Kod:
[Skill 23]
DEFNAME=Skill_Inscription
KEY=Inscription
TITLE=Scribe
PROMPT_MSG=
DELAY=1.0,1.0
STAT_STR=15
STAT_INT=100
STAT_DEX=15
BONUS_STR=0
BONUS_DEX=0
BONUS_INT=100
BONUS_STATS=10
ADV_RATE=10.0,10.0,10.0
VALUES=1,30,200

ON=@Fail
src.sysmessage @027,1,1 Malzemeniz Heba Oldu.
src.consume 1 i_scroll_blank
if (<src.mana> > 5
src.mana (<src.mana> - 5)
else
src.mana 1
endif

on=@success
src.ctag.yapilan ++
if (<src.ctag0.yapilan> > 300) && !(<src.isdialogopen d_anti_macro>)
sdialog d_anti_macro
endif

on=@start
if (<src.isdialogopen d_anti_macro>)
src.sysmessage @1153,,1 Ekrandaki güvenlik kodunu girmeden inscription becerisini kullanamazsınız.
return 1
endif


Dialog ;

Kod:
[dialog d_anti_macro]
0,0
nomove
noclose

resizepic 0 0 3500 200 130
resizepic 10 10 3000 180 110

src.ctag.sifrerakam <r1 , 10000>
src.ctag.sifre <dctag.sifrerakam>

dhtmlgump 65 15 70 20 0 0 <def.bfont_red><def.u>Anti</u>-<def.u>Macro</U>
dhtmlgump 20 40 150 20 0 0 <def.bfont_dgreen><def.u>Güvenlik</u> <def.u>Kodu</U> ; <def.bfont_dblue><dctag.sifre>
dhtmlgump 40 95 150 20 0 0 <def.bfont_dgray>Güvenlik kodunu girdim.

resizepic 20 64 3000 160 25
dtextentry 22 68 195 35 07d4 1

button 20 95 55 56 1 0 1

[dialog d_anti_macro button]
on=1
if (strlen(<Dargtxt[1]>) > 5) || (strlen(<Dargtxt[1]>) < 2)
src.sysmessage @38,,1 Güvenlik şifresi en az 3, en fazla 5 karakter olabilir.
sdialog d_anti_macro
return 1
elseif (strmatch('<Dargtxt[1]>','')
src.sysmessage @38,,1 Lütfen güvenlik şifresini giriniz.
sdialog d_anti_macro
return 1
elseif !(<isnum <DARGTXT[1]>>)
src.sysmessage @38,,1 Güvenlik kodu sadece rakam olmalidir.
sdialog d_anti_macro
return 1
endif

local.guvenlik <dargtxt[1]>
if (strmatch('<dctag.sifre>','<dargtxt[1]>')
src.sysmessage @1153,,1 Tebrikler güvenlik kodunu girdiniz..
src.ctag.yapilan=0
return 1
endif

if !(strmatch('<dctag.sifre>','<argtxt[1]>')
src.sysmessage @1153,,1 Güvenlik kodu yanliş.
src.disconnect
return 1
endif

YORUMLAR (5)

Override 14-05-2010 16:32    
Çok güzel bir sistem. Her sunucunun kullanması gerek.
Xearth 15-05-2010 16:03    
Bazı oyunbozanlar için iyi bir sistem.
Nexiel 21-10-2010 11:58    
Eline sağlık xearth
lewless 22-10-2010 00:47    
güzel sistem başarılar
kargasa 31-10-2010 07:50    
güzelmiş.

BENZER SAYFALAR