|
İçerde : 1 misafir, 0 üye : ---
|
[events e_Rename]
on=@Rename
if (( <argo.Brain> != brain_Animal )
src.Sysmessage @38,,1 Sadece bineklerin ismi değiştirilebilir.
elif !( <src.Restest 1 i_binek_isim> )
src.Sysmessage @38,,1 Üzerinizde binek isim deed yok.
elif ( <eval STRLEN(<args>)> > 12 )
src.Sysmessage @38,,1 En fazla 12 karakter olabilir.
else
src.Consume 1 i_binek_isim
src.Sysmessage @0481,,1 Yeni isim: <args>
endif
[ITEMDEF i_binek_isim]
Value=750000
Name=Binek Rename Belgesi
ID=i_deed
type=t_script
weight=0
On=@create
color=0799
timer 86400
On=@click
if <timer> = 0
remove
src.sysmessage @0484,1 Esyanizin suresi dolmustur.
return 1
endif
message @38,,1 [ Ozel Item ]
message @045,,1 [ <name> ]
src.sysmessage @38 [ Cift tiklama binegin ismini Degistir Deed otomatik silinecektir. ]
src.sysmessage @0856,1 Silinmesine: <eval <timer>/86400> Gun <eval (<timer>/3600)-((<timer>/86400)*24)> Saat <eval (<timer>/60)-((<timer>/3600)*60)> Dakika <eval <timer>-((<timer>/60)*60)> Saniye.
return 1
[eof]
[events e_Rename]
on=@Rename
if (( <argo.Brain> != brain_Animal )
src.Sysmessage @38,,1 Sadece bineklerin ismi değiştirilebilir.
elif !( <src.Restest 1 i_binek_isim> )
src.Sysmessage @38,,1 Üzerinizde binek isim deed yok.
elif ( <eval STRLEN(<args>)> > 12 )
src.Sysmessage @38,,1 En fazla 12 karakter olabilir.
else
src.Consume 1 i_binek_isim
src.Sysmessage @0481,,1 Yeni isim: <args>
endif
[events e_Rename]
on=@Rename
if (( <argo.Brain> != brain_Animal )
src.Sysmessage @38,,1 Sadece bineklerin ismi değiştirilebilir.
return 1
ElseIF !( <src.Restest 1 i_binek_isim> )
src.Sysmessage @38,,1 Üzerinizde binek isim deed yok.
return 1
ElseIF ( <eval STRLEN(<args>)> > 12 )
src.Sysmessage @38,,1 En fazla 12 karakter olabilir.
return 1
Endif
src.Consume 1 i_binek_isim
src.Sysmessage @0481,,1 Yeni isim: <args>
Return 1
[CHARDEF 01039]
DEFNAME=c_m_nightmare
NAME=Nightmare
ID=c_horse_brown_dk
SOUND=snd_ANIMALS_HORSE1
ICON=i_pet_horse_brown_dk
DAM=19,29
ARMOR=15
RESOURCES=25 i_ribs_raw,10 i_hide
TEVENTS=E_RENAME //////////////////////////// BURADAKİ ÖRNEK GİBİ
[events e_Rename]
on=@Rename
if (( <argo.Brain> != brain_Animal )
src.Sysmessage @38,,1 Sadece bineklerin ismi değiştirilebilir.
RETURN 1
ENDIF
if !( <src.Restest 1 i_binek_isim> )
src.Sysmessage @38,,1 Üzerinizde binek isim deed yok.
RETURN 1
ENDIF
if ( <eval STRLEN(<args>)> > 12 )
src.Sysmessage @38,,1 En fazla 12 karakter olabilir.
RETURN 1
ENDIF
src.Consume 1 i_binek_isim
src.Sysmessage @0481,,1 Yeni isim: <args>
On=@Rename
if ( <argo.Brain> != brain_Animal )
src.Sysmessage @38,,1 Sadece bineklerin ismi değiştirilebilir.
return 1
ElseIF !( <src.Restest 1 i_katana> )
src.Sysmessage @38,,1 Üzerinizde binek isim deed yok.
return 1
ElseIF ( <eval STRLEN(<args>)> > 12 )
src.Sysmessage @38,,1 En fazla 12 karakter olabilir.
return 1
Endif
src.Consume 1 i_katana
src.Sysmessage @0481,,1 Yeni isim: <args>
[events e_Rename]
on=@Rename
if (( <argo.Brain> != brain_Animal )
src.Sysmessage @38,,1 Sadece bineklerin ismi değiştirilebilir.
elif !( <src.Restest 1 i_binek_isim> )
src.Sysmessage @38,,1 Üzerinizde binek isim deed yok.
elif ( <eval STRLEN(<args>)> > 12 )
src.Sysmessage @38,,1 En fazla 12 karakter olabilir.
else
argo.Name = <args>
src.Consume 1 i_binek_isim
src.Sysmessage @0481,,1 Yeni isim: <args>
endif
return 1
[events e_Rename]
on=@Rename
if (( <argo.Brain> != brain_Animal ) // tipi animal türü değilse.
src.Sysmessage @38,,1 Sadece bineklerin ismi değiştirilebilir. // mesajı ver
elif !( <src.Restest 1 i_binek_isim> ) // cantasında isim deed yoksa
src.Sysmessage @38,,1 Üzerinizde binek isim deed yok. // mesajı ver
elif ( <eval STRLEN(<args>)> > 12 ) // 12 karakterden uzunsa
src.Sysmessage @38,,1 En fazla 12 karakter olabilir. // mesajı ver
else // bunların hiç biri yoksa
argo.Name = <args> // ismini değiştir.
src.Consume 1 i_binek_isim // cantasındaki istediğimiz deed'i sil.
src.Sysmessage @0481,,1 Yeni isim: <args> // ismnin değiştiğine dair mesajı ver.
endif
return 1 // if içerisinde mesajlardan sonra return olmadığı için triggerın kendi işlemini sonlardırmak adına return 1.
[events e_fix] //gibi sendeki ne ise işte.
On=@Rename
if ( <argo.Brain> != brain_Animal )
src.Sysmessage @38,,1 Sadece bineklerin ismi değiştirilebilir.
return 1
ElseIF !( <src.Restest 1 i_binek_isim> )
src.Sysmessage @38,,1 Üzerinizde binek isim deed yok.
return 1
ElseIF ( <eval STRLEN(<args>)> > 12 )
src.Sysmessage @38,,1 En fazla 12 karakter olabilir.
return 1
Endif
src.Consume 1 i_binek_isim
src.Sysmessage @0481,,1 Yeni isim: <args>
[events e_Rename]
on=@Rename
if (( <argo.Brain> != brain_Animal )
src.Sysmessage @38,,1 Sadece bineklerin ismi değiştirilebilir.
return 1
ElseIF !( <src.Restest 1 i_binek_isim> )
src.Sysmessage @38,,1 Üzerinizde binek isim deed yok.
return 1
ElseIF ( <eval STRLEN(<args>)> > 12 )
src.Sysmessage @38,,1 En fazla 12 karakter olabilir.
return 1
Endif
src.Consume 1 i_binek_isim
src.Sysmessage @0481,,1 Yeni isim: <args>
Argo.Name <Args>
Return 1
|