Üye ol    Giriş
  1. Forumlar
  2. Oyunlar
  3. Ultima Online
  4. Sphere Scripting
  5. Level Quest Sistemi

Level Quest Sistemi

Efe TATAR
Efe TATAR
Apprentice
2.6 

/////////////////////////
///Coder: Qnd         ///
///Tarih: 29.09.2010  ///
///Sebep: Paylaşım    ///
///Sphere Version: 56b///
/////////////////////////

[itemdef i_level_odul_gate]
id=i_moongate_red
name=Odul Gate
type t_telepad

on=@create
color 0
attr 010

On=@click
message @07a1,1,1 [Odul Gate]
return 1

on=@step
src.newitem i_bilet,{50000}
src.act.bounce
src.newitem i_bilet,{40000}
src.act.bounce
src.newitem i_bilet,{10000}
src.act.bounce
src.newitem i_spear_vanq
src.act.bounce
src.newitem i_katana_vanq
src.act.bounce
src.safe
serv.allclients sysmessage @07a1,1,1 <src.name> Level Sistemini Basari Ile Bitirmistir Ve Alandan Cikmistir.
src.events -e_bineklevel
var.tag0.levelalanidolu 00
remove
src.sysmessage @07a1,1,1 Tebrikler Level Sistemini Basari Ile Bitirdiniz.
src.findid.i_level3.remove
return 1

//////////////////////////////////////////////////



[function npclerisil]
level1sil
level2sil
level3sil

[function level1sil]
forchars 65000 
if (<baseid>==c_m_level1)
remove
endif
endfor

[function level2sil]
forchars 65000 
if (<baseid>==c_m_level2)
remove
endif
endfor

[function level3sil]
forchars 65000 
if (<baseid>==c_m_level3)
remove
endif
endfor




[itemdef i_level1]
id=i_memory
type=t_eq_script
name=level1

on=@create
attr=090
more2 300

on=@equip
timerd 10

on=@timer
if (<more2> > 0)
cont.sysmessage @07a1,1,1 Kalan Saniye: <eval <more2>>
more2 <more2> + -1
timerd 10
return 1
else
attr=attr_decay
cont.sysmessage @07a1,1,1 Sureniz Doldugu Icin Alandan Atildiniz.
serv.allclients sysmessage @07a1,1,1 <src.name> Level 1 Alaninda Suresi Bittigi Icin Alandan Atilmistir.
cont.npclerisil
src.safe
cont.events -e_bineklevel
var.tag0.levelalanidolu 00
remove
endif


[function timer1kanka]
newitem i_level1
act.equip




[itemdef i_level2]
id=i_memory
type=t_eq_script
name=level2

on=@create
attr=090
more2 420

on=@equip
timerd 10

on=@timer
if (<more2> > 0)
cont.sysmessage @07a1,1,1 Kalan Saniye: <eval <more2>>
more2 <more2> + -1
timerd 10
return 1
else
attr=attr_decay
cont.sysmessage @07a1,1,1 Sureniz Doldugu Icin Alandan Atildiniz.
serv.allclients sysmessage @07a1,1,1 <src.name> Level 2 Alaninda Suresi Bittigi Icin Alandan Atilmistir.
cont.npclerisil
src.safe
cont.events -e_bineklevel
var.tag0.levelalanidolu 00
remove
endif


[function timer2kanka]
newitem i_level2
act.equip




[itemdef i_level3]
id=i_memory
type=t_eq_script
name=level3

on=@create
attr=090
more2 600

on=@equip
timerd 10

on=@timer
if (<more2> > 0)
cont.sysmessage @07a1,1,1 Kalan Saniye: <eval <more2>>
more2 <more2> + -1
timerd 10
return 1
else
attr=attr_decay
cont.sysmessage @07a1,1,1 Sureniz Doldugu Icin Alandan Atildiniz.
serv.allclients sysmessage @07a1,1,1 <src.name> Level 3 Alaninda Suresi Bittigi Icin Alandan Atilmistir.
cont.npclerisil
src.safe
cont.events -e_bineklevel
var.tag0.levelalanidolu 00
remove
endif


[function timer3kanka]
newitem i_level3
act.equip



[CHARDEF c_level_giris_man]
DEFNAME=c_level_giris_man
ID=c_man

ON=@Create
COLOR=01

STR={550 650}
DEX={0}
INT={14 16}

FAME={2000 4000}
KARMA=10000


ITEMNEWBIE=i_shroud
COLOR=0805
ITEMNEWBIE=i_scythe
COLOR=0805



On=@Dclick
src.dialog d_levelgiris
return 1

On=@Click
message @07a1,1,1 [Level Giris Man]
return 1


[DIALOG d_levelgiris]
0, 0
nomove
resizepic 250 100 9200 260 100
resizepic 260 110 9300 240 80
page 0
text 340 110 <eval 0481> 0


text 320 148 0455 1
button 300 150 55 56 1 0 1



[DIALOG d_levelgiris TEXT]
Energy Pvp
Level Giris
[dialog d_levelgiris button]


on=1
if (<var.tag0.levelalanidolu> == 1)
src.sysmessage @07a1,1,1 Level alani doludur.
return 1
endif

if !(<src.restest 1000000 i_bilet>)
src.sysmessage @07e5,1,1 Level Alanina Girebilmeniz Icin Yaninizda 1m Bilet Olmasi Gerekmektedir.
else
src.sysmessage @49 1.Leveli Gecmen Icin 5dakikan Var.Eger 5dk Icinde Bitiremessen Otomatikman Safe'ye Atilirsin. <src.name>
consume 10000 i_bilet
src.act.bounce
src.go 5163,1829
serv.allclients sysmessage @07a1,1,1 <src.name> Level Sistemine Girmistir.
src.events e_bineklevel
var.tag0.levelalanidolu 01
src.level1baslat
src.newitem i_level1
src.act.equip
endif
return 1





[CHARDEF c_level_cikis_man]
DEFNAME=c_level_cikis_man
ID=c_man


ON=@Create
COLOR=01

STR={550 650}
DEX={0}
INT={14 16}

FAME={2000 4000}
KARMA=10000

ITEMNEWBIE=i_shroud
COLOR=0806
ITEMNEWBIE=i_scythe
COLOR=0806


On=@Dclick
src.dialog d_levelcikis
return 1

On=@Click
message @0713,,1 [Level Cikis Man]
return 1


[DIALOG d_levelcikis]
0, 0
nomove
resizepic 250 100 9200 260 100
resizepic 260 110 9300 240 80
page 0
text 340 110 <eval 0481> 0


text 320 148 0455 1
button 300 150 55 56 1 0 1



[DIALOG d_levelcikis TEXT]
Energy Pvp
Level Cikis
[dialog d_levelcikis button]


on=1
src.safe
src.sysmessage @49 Level Alanindan Ciktiniz. <src.name>
src.events -e_bineklevel
src.npclerisil
var.tag0.levelalanidolu 00
src.findid.i_level1.remove
src.findid i_level2.remove
src.findid i_level3_remove
return 1







[itemdef i_level_giris_deed]
id=i_deed
defname=i_level_giris_deed

on=@create
color=0798

on=@click
message @800 [Level Giris Deed]
return 1

on=@dclick
src.sysmessage @0790,6,1,trk Bu Belge Ile Level Alanina Gidebilirsiniz.
return 1




[CHARDEF c_level_2_man]
DEFNAME=c_level_2_man
ID=c_man

ON=@Create
COLOR=01

STR={550 650}
DEX={0}
INT={14 16}

FAME={2000 4000}
KARMA=10000

ITEMNEWBIE=i_shroud
COLOR=0806
ITEMNEWBIE=i_scythe
COLOR=0806

On=@Dclick
src.dialog d_leveliki
return 1

On=@Click
message @0713,,1 [Level 2 Man]
return 1


[DIALOG d_leveliki]
0, 0
nomove
resizepic 250 100 9200 260 100
resizepic 260 110 9300 240 80
page 0
text 340 110 <eval 0481> 0


text 320 148 0455 1
button 300 150 55 56 1 0 1



[DIALOG d_leveliki TEXT]
Energy Pvp
Level 2
[dialog d_leveliki button]


on=1
if !(<src.restest 1 i_gecis_level_2>)
src.sysmessage @07e5,1,1 Level 2'ye Gecebilmeniz Icin Level Gecis Belgesi Gerekmektedir.
else
src.consume 1 i_gecis_level_2
src.go 5137,1913
src.level2baslat
src.timer2kanka
        src.sysmessage @07a1,1,1 Tebrikler Level 2'ye Gectiniz. Sureniz 7 Dakikadir. <src.name>
serv.allclients sysmessage @07a1,1,1 <src.name> Level 2 Alaninda Gecmistir.
endif




////////////////////////////////////////////////////


[CHARDEF c_level_3_man]
DEFNAME=c_level_3_man
ID=c_man

ON=@Create
COLOR=01

STR={550 650}
DEX={0}
INT={14 16}

FAME={2000 4000}
KARMA=10000

ITEMNEWBIE=i_shroud
COLOR=0806
ITEMNEWBIE=i_scythe
COLOR=0806


On=@Dclick
src.dialog d_leveluc
return 1

On=@Click
message @0713,,1 [Level 3 Man]
return 1


[DIALOG d_leveluc]
0, 0
nomove
resizepic 250 100 9200 260 100
resizepic 260 110 9300 240 80
page 0
text 340 110 <eval 0481> 0


text 320 148 0455 1
button 300 150 55 56 1 0 1



[DIALOG d_leveluc TEXT]
Energy Pvp
Level 3 (Son Level)
[dialog d_leveluc button]


on=1
if !(<src.restest 1 i_gecis_level_3>)
src.sysmessage @07e5,1,1 Level 3'e Gecebilmeniz Icin Level Gecis Belgesi Gerekmektedir.
else
src.consume 1 i_gecis_level_3
src.go 5137,2017
src.level3baslat
src.timer3kanka
        src.sysmessage @07a1,1,1 Tebrikler Son Leveldesiniz Level 3 Npc'sini Kestikden Sonra Gate Acilacaktir Gateden Gecince Odulunuzu Alicaksiniz.  Sureniz 10 Dakikadir <src.name>
serv.allclients sysmessage @07a1,1,1 <src.name> Level 3 Alaninda Gecmistir.
endif



//////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////

//**********************

//Gecis Belgeleri

//**********************


////////////////////////////////////////////////////////////
//////////Level 2'ye Gecis Belgesi Level 1'den Cikicak//////
////////////////////////////////////////////////////////////


[itemdef i_gecis_level_2]
id=i_scroll_blank
defname=i_gecis_level_2

on=@create
color=0811

on=@click
message @800 [Gecis Belgesi]
return 1

on=@dclick
src.sysmessage @0790,6,1,trk Bu Belge Ile Level 2'ye Gecebilirsiniz.
return 1




[itemdef i_gecis_level_3]
id=i_scroll_blank
defname=i_gecis_level_3

on=@create
color=0799

on=@click
message @800 [Gecis Belgesi]
return 1

on=@dclick
src.sysmessage @0790,6,1,trk Bu Belge Ile Level 3'e Gecebilirsiniz.
return 1


///////////////////////////////////////////////////////////////////////////////////////////////////////////

[function level1baslat]
serv.newnpc c_m_level1
new.p 5146,1839
return 1

///////////////////////////////////////////////////////////////////////////////////////////////////////////

[function level2baslat]
serv.newnpc c_m_level2
new.p 5138,1873
return 1


[function level3baslat]
serv.newnpc c_m_level3
new.p 5151,1962
return 1








[events e_bineklevel]
on=@click
message @79a [Level System]
message @79a <name>
return 1

on=@itemdclick
if <act.baseid>==i_runebook
sysmessage @0ad,6,1,1 Bu Alanda Olmaz
return 1
endif

on=@spellcast
if (<argn> == 45) || (<argn> == 50)
sysmessage @0ad,6,1,1 Bu Alanda Olmaz
return 1
endif


On=@death
src.sysmessage Level Alaninda Oldugunuz Icin Safe'ye Atildiniz.
src.safe
npclerisil
var.tag0.levelalanidolu 00
src.findid.i_level1.remove
src.findid.i_level2.remove
src.findid.i_level3.remove
src.hits 100
src.events -e_bineklevel
serv.allclients sysmessage @07a1,1,1 <src.name> Level Alaninda Oldugu Icin Alandan Atilmistir.
return 1



on=@logout
npclerisil
src.safe
src.events -e_bineklevel
var.tag0.levelalanidolu 00

on=@login
src.sysmessage Level Alaninda Oyundan Ciktiginiz Icin Alandan Atildiniz.




[CHARDEF c_m_level1]
DEFNAME=c_m_level1
NAME=Level 1
id=c_liche
DAM=6,16
ARMOR=50
RESOURCES=8 t_MAGIC
CAN=MT_WALK|MT_FIRE_IMMUNE|MT_RUN|MT_USEHANDS
BLOODCOLOR=colors_red

CATEGORY=Monsters
SUBSECTION=Elementals
DESCRIPTION=Fire Elemental


ON=@CLICK
message @48,1,1,1 [Str:<str> | Hits:<hits>]
message <name>
return 1


ON=@Create
color=0810
NPC=brain_monster

STR={1500}
DEX={800 800}
INT={900 900}

PARRYING={55.0 65.0}
MAGERY={300.0 300.0}
MAGICRESISTANCE={400.0 400.0}
TACTICS={80.0 100.0}
WRESTLING={100.0 100.0}

FAME={2000 4000}
KARMA={-4000 -4999}

//ALIGNMENT=EVIL
//SPELLCIRCLE=3 5

ITEMNEWBIE=i_light_source
ITEMNEWBIE=i_spellbook // knows fire type spells.
ADDSPELL=s_magic_arrow
ADDSPELL=s_fireball
ADDSPELL=s_fire_field
ADDSPELL=s_explosion
ADDSPELL=s_flamestrike
ADDSPELL=s_meteor_swarm
ADDSPELL=s_summon_elem_fire
ADDSPELL=s_fire_bolt


ITEM=i_checkadill
ITEM=i_gecis_level_2

CATEGORY=Monsters
SUBSECTION=Dragons and Drakes
DESCRIPTION=Level 1


on=@death
src.act.consume i_level1 1000

ON=@Gethit
if (<act.baseid>=c_vortex)
sayua 0481,2,0,eng,* Etkilenmez *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
endif
if (<act.baseid>=c_blade_spirit)
sayua 0481,2,0,eng,* Etkilenmez *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
endif
if (<act.baseid>=c_daemon)
sayua 0481,2,0,eng,* Etkilenmez *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
endif

///////////////////////////////////////////////////////////////

[CHARDEF c_m_level2]
DEFNAME=c_m_level2
NAME=Level 2
ICON=i_pet_gazer
id=c_gazer
DAM=6,16
ARMOR=50
RESOURCES=8 t_MAGIC
CAN=MT_WALK|MT_FIRE_IMMUNE|MT_RUN|MT_USEHANDS
BLOODCOLOR=colors_red

CATEGORY=Monsters
SUBSECTION=Elementals
DESCRIPTION=Fire Elemental


ON=@CLICK
message @48,1,1,1 [Str:<str> | Hits:<hits>]
message <name>
return 1


ON=@Create
color=0810
NPC=brain_monster

STR={1750}
DEX={800 800}
INT={900 900}

PARRYING={55.0 65.0}
MAGERY={300.0 300.0}
MAGICRESISTANCE={400.0 400.0}
TACTICS={80.0 100.0}
WRESTLING={100.0 100.0}

FAME={2000 4000}
KARMA={-4000 -4999}

//ALIGNMENT=EVIL
//SPELLCIRCLE=3 5

ITEMNEWBIE=i_light_source
ITEMNEWBIE=i_spellbook // knows fire type spells.
ADDSPELL=s_magic_arrow
ADDSPELL=s_fireball
ADDSPELL=s_fire_field
ADDSPELL=s_explosion
ADDSPELL=s_flamestrike
ADDSPELL=s_meteor_swarm
ADDSPELL=s_summon_elem_fire
ADDSPELL=s_fire_bolt


ITEM=i_checkadill
ITEM=i_gecis_level_3

CATEGORY=Monsters
SUBSECTION=Dragons and Drakes
DESCRIPTION=Level 1

on=@death
src.act.consume i_level2 1000

ON=@Gethit
if (<act.baseid>=c_vortex)
sayua 0481,2,0,eng,* Etkilenmez *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
endif
if (<act.baseid>=c_blade_spirit)
sayua 0481,2,0,eng,* Etkilenmez *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
endif
if (<act.baseid>=c_daemon)
sayua 0481,2,0,eng,* Etkilenmez *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
endif


ON=@SPELLEFFECT
If (<argn>==39) || (<argn>==28)
sayua 0819,6,1,enu  * Etkilenmez *
return 1



[CHARDEF c_m_level3]
DEFNAME=c_m_level3
NAME=Level 3
ICON=i_pet_dragon
id=c_dragon_red
DAM=6,16
ARMOR=50
RESOURCES=8 t_MAGIC
CAN=MT_WALK
BLOODCOLOR=colors_red

CATEGORY=Monsters
SUBSECTION=Elementals
DESCRIPTION=Fire Elemental

ON=@Create
color=0846
NPC=brain_monster

STR={1800}
DEX={800 800}
INT={900 900}

PARRYING={55.0 65.0}
MAGERY={300.0 300.0}
MAGICRESISTANCE={400.0 400.0}
TACTICS={80.0 100.0}
WRESTLING={100.0 100.0}

FAME={2000 4000}
KARMA={-4000 -4999}

//ALIGNMENT=EVIL
//SPELLCIRCLE=3 5

ITEMNEWBIE=i_light_source
ITEMNEWBIE=i_spellbook // knows fire type spells.
ADDSPELL=s_explosion

ITEM=i_checkadill
ITEM=i_checkadill
ITEM=i_str_deed
ITEM=i_dex_deed


CATEGORY=Monsters
SUBSECTION=Dragons and Drakes
DESCRIPTION=Level 1

ON=@CLICK
message @48,1,1,1 [Str:<str> | Hits:<hits>]
message <name>
return 1


ON=@Gethit
if (<hits> < 20)
sayua 150,2,0,eng,* +10 Hits *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
hits=(<hits> + 10)
endif
if (<act.baseid>=c_vortex)
sayua 0481,2,0,eng,* Etkilenmez *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
endif
if (<act.baseid>=c_blade_spirit)
sayua 0481,2,0,eng,* Etkilenmez *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
endif
if (<act.baseid>=c_daemon)
sayua 0481,2,0,eng,* Etkilenmez *
effect=3,i_fx_heal_effect,6,35,1
sound snd_spell_greater_heal
src.remove
endif

ON=@SPELLEFFECT
If (<argn>==20) || (<argn>==39) || (<argn>==28)
sayua 0819,6,1,enu  * Etkilenmez *
return 1



ON=@Death
src.act.consume i_level3 1000
src.newitem i_level_odul_gate
src.act.p <src.p>

İsteyen giriş'i Giriş Deede çevirebilir, ben paralı girişi kullanıyorum diye öyle ayarladım arkadaşlar.

Bu konu Qnd tarafından düzenlendi(2010-09-29 22:27, 13 yıl önce)
  • 2010-09-29 04:38
  • #1
Marlock
Marlock
Journeyman
5.8
Eline emeğine sağlık paylaşım için teşekkürler.

Sphere yok elimde deneyemiyorum fakat yinede güzel bir çalışmaya benziyor.
  • 2010-09-29 04:39
  • #2
Efe TATAR
Efe TATAR
Apprentice
2.6
Teşekkürler, Marlock.
  • 2010-09-29 04:47
  • #3
HP-Nexiel
HP-Nexiel
Expert
14.3
Paylaşımlarının devamını bekliyorum :)
Teşekkürler.
  • 2010-09-29 12:57
  • #4
Efe TATAR
Efe TATAR
Apprentice
2.6
HP-Nexiel : Paylaşımlarının devamını bekliyorum :)
Teşekkürler.

Sen iste yeterki...
  • 2010-09-29 16:11
  • #5

Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.

Discord ile Bağlan
Twitch ile Bağlan
Steam ile Bağlan
Google ile Bağlan