Merhaba arkadaşlar.Sistem daha önceden yabancı serverde görüdgüm bir sisteme benzetilerek yapılmıstır.Ödülü Binek + biraz itemdir siz bunu degiştirebilrsiniz.Koordinat ayarı yapmanıza gerek yok her sunucuda olan bi alan üzerine kuruludur. Bu alana birkaç parazit npc eklerseniz daha keyifli bi quest haline geliyor
1 playeri ortalama 15-20 dk oyalayabilecek ve serverde online olmasını sağlayabilecek bir sistem.
[events e_darkroad]
on=@click
message @0901,,1 [ In the darkness ]
on=@death
src.darkroadiptal
src.go safe town
src.hits <src.str>
src.findid.i_rune_poison.remove
src.sysmessage @07b1,,1 Öldüğünüz için elendiniz.
return 1
on=@logout
src.darkroadiptal
src.go safe town
src.sysmessage @07b1,,1 Oyundan cıktığınız için elendiniz.
src.findid.i_rune_poison.remove
On=@ItemDClick
if (<targ.baseid> == i_runebook) || (<targ.baseid> == i_deed_animal) || (<targ.baseid> == i_deed_tower)
src.sysmessage @080a Burada olmaz.
return 1
endif
////////////////////////////////////////////////////////////////////////
[function darkroadiptal]
serv.var.darkroad =0
foritems 200
if ( <baseid> = i_kapi1) || (<baseid> = i_kapi2) || (<baseid> = i_kapi3) || ( <more> = c_darkroad_1 ) || ( <more> = c_darkroad_2 ) || ( <more> = c_darkroad_3 ) || ( <more> = c_darkroad_lord )
remove
endif
endfor
////////////////////////////////////////////////////////////////////////
[function darkroadhazirla]
serv.var.darkroad =1
serv.newitem i_kapi1
new.p 5947,439,20
serv.newitem i_kapi1
new.p 5948,439,20
serv.newitem i_kapi2
new.p 5959,443,22
serv.newitem i_kapi2
new.p 5959,444,22
serv.newitem i_kapi3
new.p 5943,451,22
serv.newitem i_kapi3
new.p 5943,452,22
serv.newitem 01ea7
new.p 5992,486,-22
new.type 34
new.attr 00b0
new.amount 1
new.more c_darkroad_1
new.morep 32500 32500 1
new.timer 1
serv.newitem 01ea7
new.p 5910,407,-22
new.type 34
new.attr 00b0
new.amount 1
new.more c_darkroad_2
new.morep 32500 32500 1
new.timer 1
serv.newitem 01ea7
new.p 5991,406,-22
new.type 34
new.attr 00b0
new.amount 1
new.more c_darkroad_3
new.morep 32500 32500 1
new.timer 1
serv.newitem 01ea7
new.p 5911,488,-22
new.type 34
new.attr 00b0
new.amount 1
new.more c_darkroad_lord
new.morep 32500 32500 1
new.timer 1
/////////////////////////////////////////////////////////////////////
[function darkroad1spawnsil]
foritems 100
if ( <more> = c_darkroad_1)
remove
endif
endfor
[function darkroad2spawnsil]
foritems 100
if ( <more> = c_darkroad_2)
remove
endif
endfor
[function darkroad3spawnsil]
foritems 100
if ( <more> = c_darkroad_3)
remove
endif
endfor
[function darkroadlordspawnsil]
foritems 100
if ( <more> = c_darkroad_lord)
remove
endif
endfor
////////////////////////////////////////////////////////////////////////
[CHARDEF c_darkroad_1]
NAME=Gray
ID=c_ogre
CAN=MT_WALK
DAM=5,25
ARMOR=50
CATEGORY=Monsters
SUBSECTION=Undeads
DESCRIPTION=Rotting Corpse
ON=@Create
color 0901
STR=3500
DEX=120
INT=40
PARRYING={90.0 100.0}
MAGICRESISTANCE={100.0}
TACTICS=1000
wrestling 1000
WRESTLING={120.0 130.0}
POISONING=200.0
MAGERY=120.0
FAME={300 5000}
KARMA={-6000 -6200}
itemnewbie i_spellbook
addspell=s_poison
ITEM=i_gold,50000
item=random_weapon_vanq
ITEM=i_harita,R3
on=@gethit
if (<act.baseid>=c_vortex)
say @045a,,1 An ort
src.remove
return 1
endif
if (<act.baseid>=c_blade_spirit)
say @045a,,1 An ort
src.remove
return 1
endif
if (<act.baseid>=c_daemon)
say @045a,,1 An ort
src.remove
return 1
endif
if (<act.baseid>=c_bear_polar)
say @045a,,1 An ort
src.remove
return 1
endif
on=@click
message [ First Guard ]
ON=@Spelleffect
if (<argn>==39) || (<argn>==28) || (<argn>==47)
say * Etkilenmez *
return 1
ENDIF
on=@death
foritems 100
if (<baseid> == i_kapi1)
remove
endif
endfor
darkroad1spawnsil
/////////////////////////////////////////////////////////////////////////////////
[itemdef i_kapi1]
defname i_kapi1
id 0823
type t_wall
name First gate
on=@create
color 0901
attr 010
on=@Click
message @1150,,1 First Gate
return 1
on=@dclick
return 1
////////////////////////////////////////////////////////////////////////
[CHARDEF c_darkroad_2]
NAME=Dark
ID=c_cyclops
CAN=MT_WALK
DAM=5,25
ARMOR=50
CATEGORY=Monsters
SUBSECTION=Undeads
DESCRIPTION=Rotting Corpse
ON=@Create
color 0455
STR=3800
DEX=120
INT=40
PARRYING={90.0 100.0}
MAGICRESISTANCE={100.0}
TACTICS=1000
wrestling 1000
WRESTLING={120.0 130.0}
POISONING=200.0
MAGERY=120.0
FAME={300 5000}
KARMA={-6000 -6200}
itemnewbie i_spellbook
addspell=s_poison
addspell=s_earthquake
ITEM=i_gold,50000
item=i_egg_binek,R5
on=@gethit
if (<act.baseid>=c_vortex)
say @045a,,1 An ort
src.remove
return 1
endif
if (<act.baseid>=c_blade_spirit)
say @045a,,1 An ort
src.remove
return 1
endif
if (<act.baseid>=c_daemon)
say @045a,,1 * An ort
src.remove
return 1
endif
if (<act.baseid>=c_bear_polar)
say @045a,,1 An ort
src.remove
return 1
endif
if (<hits> < 1500)
if (<findid.i_rune_poison>)
findid.i_rune_poison.remove
emotetr Zehiri Geçirir
hits -=100
return 1
endif
endif
on=@click
message [ Second Guard ]
ON=@Spelleffect
if (<argn>==39) || (<argn>==28) || (<argn>==47)
say * Etkilenmez *
return 1
ENDIF
on=@death
foritems 100
if (<baseid> == i_kapi2)
remove
endif
endfor
darkroad2spawnsil
/////////////////////////////////////////////////////////////////////////////////
[itemdef i_kapi2]
defname i_kapi2
id 0821
type t_wall
name Second gate
on=@create
color 0901
attr 010
on=@Click
message @1150,,1 Second Gate
return 1
on=@dclick
return 1
////////////////////////////////////////////////////////////////////////
[CHARDEF c_darkroad_3]
NAME=Aypersis
ID=c_daemon
CAN=MT_WALK
DAM=5,100
ARMOR=150
ON=@Create
color 07b1
STR=4500
DEX=120
INT=40
PARRYING={90.0 100.0}
MAGICRESISTANCE={100.0}
TACTICS=1000
wrestling 1000
WRESTLING={120.0 130.0}
POISONING=200.0
MAGERY=120.0
FAME={300 5000}
KARMA={-6000 -6200}
itemnewbie i_spellbook
addspell=s_poison
addspell=s_earthquake
addspell=s_lightning
ITEM=i_gold,50000
ITEM=i_gold,50000
item=random_weapon_vanq
item=random_weapon_vanq
on=@gethit
if (<act.baseid>=c_vortex)
say @045a,,1 An ort
src.remove
return 1
endif
if (<act.baseid>=c_blade_spirit)
say @045a,,1 An ort
src.remove
return 1
endif
if (<act.baseid>=c_daemon)
say @045a,,1 An ort
src.remove
return 1
endif
if (<act.baseid>=c_bear_polar)
say @045a,,1 An ort
src.remove
return 1
endif
if (<hits> < 3500)
if (<findid.i_rune_poison>)
findid.i_rune_poison.remove
emotetr Zehiri Geçirir
endif
endif
on=@click
message [ Third Guard ]
ON=@Spelleffect
if (<argn>==39) || (<argn>==28) || (<argn>==47)
say * Etkilenmez *
return 1
ENDIF
on=@death
foritems 100
if (<baseid> == i_kapi3)
remove
endif
endfor
darkroad3spawnsil
/////////////////////////////////////////////////////////////////////////////////
[itemdef i_kapi3]
defname i_kapi3
id 0821
type t_wall
name Thirt gate
on=@create
color 0901
attr 010
on=@Click
message @1150,,1 Third Gate
return 1
on=@dclick
return 1
/////////////////////////////////////////////////////////////////////////////////
[CHARDEF c_darkroad_lord]
NAME=Hilgertzly
ID=c_man
CAN=MT_WALK|MT_Run
DAM=5,30
ARMOR=100
ON=@Create
STR=5000
DEX=120
INT=100
PARRYING={90.0 100.0}
MAGICRESISTANCE={100.0}
TACTICS=1000
wrestling 1000
swordsmanship 1000
WRESTLING={120.0 130.0}
POISONING=200.0
MAGERY=120.0
FAME={300 5000}
KARMA={-6000 -6200}
itemnewbie i_spellbook
addspell=s_poison
itemnewbie i_halberd_vanq
itemnewbie i_katana_vanq
itemnewbie i_mt_giant_beetle
color 045a
itemnewbie=i_CAPE
COLOR=1
itemnewbie=i_Shoes_plain
COLOR=0809
itemnewbie=i_tunic
COLOR=07bb
itemnewbie=i_hat_feather
COLOR=1
itemnewbie=i_pants_long
color 1
ITEM=i_gold,50000
ITEM=i_gold,50000
ITEM=i_gold,50000
item=i_egg_binek
item=i_suvajset
item=i_ozelbag
on=@attack
if (<distance <src>> > 1)
findid.i_halberd_vanq.cont <uid>
else
findid.i_katana_vanq.cont <uid>
endif
on=@gethit
if (<act.baseid>=c_vortex)
say @045a,,1 An ort
src.remove
return 1
endif
if (<act.baseid>=c_blade_spirit)
say @045a,,1 An ort
src.remove
return 1
endif
if (<act.baseid>=c_daemon)
say @045a,,1 An ort
src.remove
return 1
endif
if (<act.baseid>=c_bear_polar)
say @045a,,1 An ort
src.remove
return 1
endif
if (<hits> < 3500)
if (<findid.i_rune_poison>)
findid.i_rune_poison.remove
emotetr Zehiri Geçirir
endif
endif
if (<distance <src>> > 1)
findid.i_halberd_vanq.cont <uid>
else
findid.i_katana_vanq.cont <uid>
endif
on=@hittry
if (<distance <src>> > 1)
findid.i_halberd_vanq.cont <uid>
else
findid.i_katana_vanq.cont <uid>
endif
on=@hit
if (<distance <src>> > 1)
findid.i_halberd_vanq.cont <uid>
else
findid.i_katana_vanq.cont <uid>
endif
on=@click
message [ Darkness Lord ]
ON=@Spelleffect
if (<argn>==39) || (<argn>==28) || (<argn>==47)
say * Etkilenmez *
return 1
ENDIF
on=@death
serv.newnpc { c_m_silver 5 c_m_metal 4 c_m_fire 3 c_m_volkan 2 c_m_beetle 1}
new.p <p>
serv.newitem i_darkroadcikis
new.p 5907,487,-22
serv.newitem i_darkroadbitirici
new.p <p>
darkroadlordspawnsil
act.sysmessage @0901,,1 180 saniye süren şu anda başladı.!
/////////////////////////////////////////////////////////////////////////////////
[itemdef i_darkroadcikis]
defname i_darkroadcikis
id i_moongate_black
name Cikis
type t_script
on=@Create
color 045a
attr 010
on=@click
message @045a,,1 Çıkış
return 1
on=@dclick
src.sysmessage @045a,,1 Üzerinden geçiniz.
return 1
on=@step
src.go safe town
serv.var.darkroad =0
remove
///////////////////////////////////////////////////////////////////////////////////
[chardef c_darkroad_gozcu]
defname c_darkroad_gozcu
id c_man
name Nifrest
can mt_walk
on=@create
color 083ea
str 100
dex 100
itemnewbie=i_shroud
color 0901
itemnewbie=i_shoes_plain
color 1
ITEMNEWBIE=i_cape
color 1
ITEMNEWBIE=i_apron_half
color 1
ITEMNEWBIE=i_hat_feather
color 1
on=@click
message @0455,,1 [ Darkroad ]
message @0901,,1 <name>
return 1
on=@dclick
if (<var.darkroad>== 1)
message @02bb,,1 Şuanda müsait değilim.
return 1
elseif (<src.findid.i_darkroadgirmis>)
src.sysmessage @0901,,1 Tekrar girmek için <eval (<eval <src.findid.i_darkroadgirmis.timer>>%86400)/3600> saat,<eval ((<eval <src.findid.i_darkroadgirmis.timer>>%86400)%3600)/60> dakika,<eval ((<eval <src.findid.i_darkroadgirmis.timer>>%86400)%3600)%60)/60> saniye bekleyin.
return 1
elseif (<distance> < 3)
src.sdialog d_darkroad
return 1
else
src.sysmessage @02bb,,1 Uzaktasınız.
return 1
endif
///////////////////////////////////////////////////
[dialog d_darkroad]
100,20
nomove
noclose
resizepic 0 0 3600 350 200
dtext 20 20 0455 Merhaba maceracı <name>.
dtext 20 40 0455 Darkroad bölgesinde bazı çete guruplarının
dtext 20 60 0455 olaylarından rahatsızlık duymaya başladık.
dtext 20 80 0455 Bizi bu dertten kurtarırsan yağmaladığın
dtext 20 100 0455 Bütün eşyalar sende kalır.Hiçbir karşılık
dtext 20 120 0455 istemeyeceğim.Sadece giriş belgeni göster.
button 50 160 249 248 1 0 1
button 250 160 243 241 1 0 2
[dialog d_darkroad button]
on=2
src.dialogclose d_darkroad
src.sysmessage Vazgectiniz.
return 1
onbutton=1
if (<SRC.RESTEST 1 i_darkroad_belge>)
src.consume i_darkroad_belge
src.go Dark Road
src.binegibankayaat
src.darkroadhazirla
src.dialoglarinhepsinikapat
serv.newitem i_darkroadgirmis
new.equip
else
src.sysmessage @07b1,,1 Dostum...! Hani belge yok ?
return 1
endif
////////////////////////////////////////////////////////////////////////////
[itemdef i_darkroad_belge]
defname i_darkroad_belge
id 0a93
name belge
type t_script
on=@create
color 0455
on=@Click
message @0901,,1 Darkroad Begelsi
return 1
on=@Dclick
message @0455,,1 Darkroad bekçisine git.
return 1
///////////////////////////////////////////////////////////////////////////////
[itemdef i_darkroadbitirici]
defname i_darkroadbitirici
id i_crystal_ball
name Bitirici
type t_script
on=@create
attr attr_invis|attr_decay|attr_static
color 1
timer 180
on=@timer
darkroadbinegisil
darkroadgateyisil
region.allclients go safe town
serv.var.darkroad=
remove
///////////////////////////////////////////////////////////////////////////////
[function darkroadbinegisil]
forchars 200
if (<baseid> == c_m_silver) || (<baseid> == c_m_metal) || (<baseid> == c_m_fire) || (<baseid> == c_m_volkan) || (<baseid> == c_m_beetle)
remove
endif
endfor
///////////////////////////////////////////////////////////////////////////////
[function darkroadgateyisil]
foritems 200
if (<baseid> == i_darkroadcikis)
remove
endif
endfor
///////////////////////////////////////////////////////////////////////////////
[itemdef i_darkroadgirmis]
ID=i_memory
TYPE=t_eq_script
NAME=Darkroad
ON=@EQUIP
TIMER=12000
ATTR=attr_decay //| attr_invis
ON=@TIMER
remove
REGİON kısmı
[regiontype r_dark_road]
on=@enter
if (<src.isplayer>)
if (strmatch('<src.account.plevel>','1')
src.events +e_darkroad
endif
endif
on=@exit
if (<src.isplayer>)
if (strmatch('<src.account.plevel>','1')
src.events -e_darkroad
endif
endif
