Merhaba dostum,altta verdiğim Serpent's Hold'a ait girişlerdir eğer farklı alan yapmak istersen , SRC.GO ile başlayan kısımları değiştirebilirsin
Kod:
[function olumsuzyap]
serv.allclients sysmessage @38,,1 --> Ölümsüz alan açılmıştır. <---
serv.allclients sysmessage @07a1,1,1 Safe alanındaki gatenden geçebilirsiniz , bineğiniz orada kalabilir dikkatli olunuz ve bu konu hakkinda page atmayınız!
newitem i_serp_giris1
new.p 4759,1978,29
[itemdef i_serp_giris1]
id=i_moongate_black
defname=i_serp_giris1
type=t_normal
on=@create
color=0810
timer 1800
on=@step
if (<src.hits>)
src.sysmessage @025,,1 Moongateleri sadece cift tikliyarak kullanabilirsiniz.
src.move 1
RETURN 1
else
src.dialog d_serpgecis
RETURN 1
endif
on=@dclick
if (<src.findid i_rune_poison>)
src.sysmessage @025,,1 Üzerinizde zehir varken moongate'leri kullanamazsınız.
return 1
elseif (<src.hits> < <src.str>)
src.sysmessage @025,,1 Yaralıyken moongate'leri kullanamazsınız.
return 1
elseif (<distance> > 3)
src.sysmessage @025,,1 Yeterince yakın değilsiniz.
return 1
elseif (<src.findid i_olmesuresi>)
src.sysmessage @025,,1 Gateden geçmek için (<src.findid.i_olmesuresi.timer>) sn beklemelisiniz.
return 1
else
events +fix
src.dialog d_serpgecis
RETURN 1
endif
on=@click
message @1993 [ Lootsuz ]
message @38,1,1 Serp giriş gatesi [Ölümsüz Alan]
return 1
on=@timer
serv.b @0790 Olumsuz Alana Girisler Kapatilmistir
remove
[DIALOG d_serpgecis]
0,0
nomove
resizepic 250 100 9260 300 240
resizepic 265 115 9300 271 211
resizepic 270 175 9300 260 25////Ayin ın arka planı
resizepic 270 240 9300 70 40////Evet arka plan
resizepic 450 240 9300 80 40////Hayır arka planı
gumppic 360 210 9000
dtext 350 120 0481 Serpent Hold
dtext 325 175 0807 Gitmek İstiyormusun ?
dtext 300 250 0807 Evet
dtext 480 250 0807 Hayır
button 280 252 5402 5401 1 0 1
button 460 252 5402 5401 1 0 2
[DIALOG d_serpgecis button]
Onbutton=0
return 1
Onbutton=1
if (<src.findid i_rune_poison>)
src.sysmessage @025,,1 Üzerinizde zehir varken moongate'leri kullanamazsınız.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @025,,1 Yaralıyken moongate'leri kullanamazsınız.
return 1
endif
IF (<targ.DISTANCE> < 4)
DORAND 4
SRC.GO 3029,3383,15
SRC.GO 3029,3383,15
SRC.GO 3029,3383,15
SRC.GO 3029,3383,15
ENDDO
serv.allclients sysmessage @48,1,1,1 <src.name> ölümsüz alana giriş yapmıştır
src.events +e_serplootsuz
src.events -e_dropfixx
src.FINDID.i_rb_delay2.REMOVE
src.FINDID.i_rb_delay2.REMOVE
src.EVENTS -e_x_breakspell
src.dialogclose d_runebook
ELSE
src.sysmessage @025,,1 Moongateden çok uzaktasınız.
ENDIF
src.fix
////////////////////////////////////////////////////////////////////////////
//////////////Çıkıssssssssssssss
[itemdef i_serp_cikis]
id=i_moongate_black
defname=i_serp_cikis
type=t_normal
on=@create
color=0810
on=@step
if (<src.hits>)
src.sysmessage @025,,1 Moongateleri sadece cift tikliyarak kullanabilirsiniz.
src.move 1
RETURN 1
else
src.dialog d_serpcikis
RETURN 1
endif
on=@dclick
if (<src.findid i_rune_poison>)
src.sysmessage @025,,1 Üzerinizde zehir varken moongate'leri kullanamazsınız.
return 1
elseif (<src.hits> < <src.str>)
src.sysmessage @025,,1 Yaralıyken moongate'leri kullanamazsınız.
return 1
elseif (<distance> > 3)
src.sysmessage @025,,1 Yeterince yakın değilsiniz.
return 1
elseif (<src.findid i_olmesuresi>)
src.sysmessage @025,,1 Gateden geçmek için (<src.findid.i_olmesuresi.timer>) sn beklemelisiniz.
return 1
else
events +fix
src.dialog d_serpcikis
RETURN 1
endif
on=@click
message @1993 Safe Alan
return 1
[DIALOG d_serpcikis]
0,0
nomove
resizepic 250 100 9260 300 240
resizepic 265 115 9300 271 211
resizepic 270 175 9300 260 25////Ayin ın arka planı
resizepic 270 240 9300 70 40////Evet arka plan
resizepic 450 240 9300 80 40////Hayır arka planı
gumppic 360 210 9000
dtext 365 120 0481 Safe Alan
dtext 325 175 0807 Gitmek İstiyormusun ?
dtext 300 250 0807 Evet
dtext 480 250 0807 Hayır
button 280 252 5402 5401 1 0 1
button 460 252 5402 5401 1 0 2
[DIALOG d_serpcikis button]
Onbutton=0
return 1
Onbutton=1
if (<src.findid i_rune_poison>)
src.sysmessage @025,,1 Üzerinizde zehir varken moongate'leri kullanamazsınız.
return 1
elseif !(<src.flags>&statf_dead) && (<src.hits> < (<src.str>)
src.sysmessage @025,,1 Yaralıyken moongate'leri kullanamazsınız.
return 1
endif
IF (<targ.DISTANCE> < 4)
SRC.GO safe alan
skill fail
src.
src.events -e_serplootsuz
src.events +e_dropfixx
src.events +e_puannn
src.FINDID.i_rb_delay2.REMOVE
src.FINDID.i_rb_delay2.REMOVE
src.EVENTS -e_x_breakspell
src.dialogclose d_runebook
ELSE
src.sysmessage @025,,1 Moongateden çok uzaktasınız.
ENDIF
src.fix
////////////////////////////////////////////////////////////////
/////Events
[events e_serplootsuz]
On=@death
hits=<str>
go safe alan
src.fame -=500
findid.i_bleeding.remove
findid.i_rune_poison.remove
events -e_serplootsuz
events +e_safealan
src.newitem i_olmesuresi
src.act.equip
return 1
on=@spellcast
if (<argn>==45)
src.sysmessage @025,,1 Bu alanı marklıyamazsınız.
f_fizzle
skill fail
return 1
endif
on=@itemdclick
if (<act.baseid> == i_runebook)
src.sysmessage @025,,1 Bunu yapamazsınız.
return 1
endif
/////////////////////////////////////////
//Ölme Suresi
[ITEMDEF i_olmesuresi]
ID=i_memory
TYPE=t_eq_script
NAME=olme suresi
ON=@Create
ATTR=attr_decay|attr_static
ON=@equip
TIMER=15
ON=@Timer
attr attr_decay
CONT.hata Ölümsüz alana geçiş yapabilirsiniz.
REMOVE
return 1