Benden Res gate Menulu

Arkadaşlar Denemedim. Deneyip Soylerseniz Bug Varmı Yokmu Diye Varsa Fixleyim.

Hadi Kolay Gelsin.

         //////////////////////
///////////Script Res Gate///////////
        //////////////////////
///////////Yazan:Blues///////////
     //////////////////////     
[ITEMDEF i_res_gate] 
name Res Gate
ID=i_moongate_blue 
TYPE=t_telepad 
ON=@CREATE 
COLOR=0493 

CATEGORY=Other 
SUBSECTION=Gates 
DESCRIPTION=Ressurection Gate 

ONTRIGGER=@STEP 
src.move 1
src.sysmessage @07a1,3 Reslenebilmek Icin Cift Tiklayiniz.
return 1

on=@click
message @080a,3 [ <serv.name> ]
message @07a1,3 Res Gate
return 1


on=@dclick
if !(<src.hits> = 0)
src.sysmessage @07a1,3 <serv.name> Uyarisi : Uzgunum Siz Olu Degilsiniz Bu Menuyu Acmaya Hakkiniz Yok...
return 1
else
src.hakan
return 1




[plevel 2]
hakan

[function hakan]
src.dialog d_res
src.sysmessage @07a1,3 Sayin <src.name> Reslenme Menusunu Actiniz.

[dialog d_res]
100,100
nomove

resizepic 0 0 5120 560 200
resizepic 10 10 3000 540 180

for 1 1
resizepic 10 <eval (<dlocal._for>*30)+10> 9300 540 23
endfor 

for 1 1
resizepic 90 <eval (<dlocal._for>*30)+45> 9300 120 23
endfor

for 1 1
resizepic 270 <eval (<dlocal._for>*30)+45> 9300 120 23
endfor  

for 1 1
resizepic 70 <eval (<dlocal._for>*5)+5> 9300 260 23
endfor  


dtext 80 10 32 <serv.name> Reslenme Menusu 

dtext 120 40 32 <src.name> Reslenme Menusune Hos Geldiniz.

dtext 120 75 05 Reslen

dtext 300 75 05 Reslenme

button 100 75 2714 2715 1 0 1
button 280 75 2714 2715 1 0 2

[dialog d_res button]
onbutton=0
src.sysmessage @07a1,3 Sayin <src.name> Reslenme Menusunu Kapattiniz.
onbutton=1
IF (<src.body> == c_ghost_man)
SRC.say @07a1,3 Hayata Doner
SRC.RESURRECT 
RETURN 0 
ELSE 
IF (<src.body> == c_ghost_woman)
SRC.say @07a1,3 Hayata Doner
SRC.RESURRECT
RETURN 0 
ELSE 
src.sysmessage @07a1,3 Olu Degilsiniz. 
ENDIF 
onbutton=2
src.sysmessage @32 Reslenmekten Vazgectiniz.

Bakan Biri Yorum Atabilirmi ? Bug varmı yokmu diye.

Bu konu !Blues! tarafından düzenlendi(2010-10-13 13:26, 14 yıl önce)