Üye ol    Giriş
  1. Forumlar
  2. Oyunlar
  3. Ultima Online
  4. Sphere Scripting
  5. Kendim yazdım..

Kendim yazdım..




anelka99901 üyesi avatar
anelka99901
Members
-2
biraz önce vbe yaklaşık 1;30 saat süren bir scpmi size tanıtmak istiyorum içinde ufak tefek alıntılar var okadar olsun diyorum ve Scpmi size sunuyorum Aynı zamandada yorumlarınızı bekliyorum..

Saygılarımla Ackerley,

[chardef c_special_vendor]
-----------------------------------
Yazar=Ackerley--------------
-----------------------------------

defname c_special_vendor
id c_man
name @07a1 Special Vendor

on=@create
str 150
dex 150

ITEMNEWBIE=i_leather_tunic
COLOR=0481
ITEMNEWBIE=i_leather_leggings
COLOR=0481
ITEMNEWBIE=i_leather_sleeves
COLOR=0481
ITEMNEWBIE=i_leather_gloves
COLOR=0481
ITEMNEWBIE=i_sandals
COLOR=0481


ON=@CLICK
message @0481,,1 Special Vendor 
MESSAGE @0713,,1 Johan
return 1

ON=@dclick
IF (<DISTANCE><=2)
dialog d_stone
dialog d_house_help/////////House help dialogn neyse onu yaz .....
ELSE
SRC.SYSMESSAGE @38,1,1 House Vendora Ulasamiyorsunuz...
ENDIF
RETURN 1
////////////////////////////////
///////////Dialog1//////////////
////////////////////////////////

[DIALOG d_stone]              //SPECIAL PLACES
40,50	// this is always the size.
nomove
resizepic 15 25 3500 450 250
page 0
text 105 9 <eval 1981> 0 
text 65 43 1977 1
text 65 63 1977 2
text 65 83 1977 3
text 65 102 1977 4

button 35 43 210 211  1 0 1
button 35 63 210 211 1 0 2
button 35 83 210 211 1 0 3
button 35 102 210 211  1 0 4



[DIALOG d_stone TEXT]
Special Vendor
House Seller
Family Seller
Full Spellbook Seller
Rune Book Seller

[DIALOG d_stone BUTTON]
onbutton=0
src.sysmessage= @38,1,1 Kapattiniz

onbutton=1
	src.dialog d_evstone

     
onbutton=2
	src.dialog d_aile


onbutton=3
	if !(<src.restest 15000 i_gold>)
	src.sysmessage @90 Full Spellbook icin yaninizda 15k Olmasi Lazim.
	else
        src.consume 15000 i_gold
	src.newitem i_full_spellbook
	src.act.bounce
	endif


onbutton=4
	if !(<src.restest 10000 i_gold>)
	src.sysmessage @90 Rune Book icin yaninizda 10k Olmasi Lazim.
        else
        src.consume 10000 i_gold
	src.newitem i_runebook
	src.act.bounce
	endif


//////////////////////////////////
///////////Dialog2////////////////
//////////////////////////////////

[DIALOG d_evstone]              //SPECIAL PLACES
40,50	// this is always the size.
nomove
resizepic 15 25 3500 450 250
page 0
text 105 9 <eval 1981> 0 
text 65 43 1977 1
text 65 63 1977 2
text 65 83 1977 3
text 65 102 1977 4
text 65 122 1977 5
text 65 142 1977 6
text 65 162 1977 7
text 65 182 1977 8
text 65 202 1977 9
text 65 222 1977 10


button 35 43 210 211  1 0 1
button 35 63 210 211 1 0 2
button 35 83 210 211 1 0 3
button 35 102 210 211  1 0 4
button 35 122 210 211 1 0 5
button 35 142 210 211 1 0 6
button 35 162 210 211  1 0 7
button 35 182 210 211 1 0 8
button 35 202 210 211 1 0 9
button 35 222 210 211  1 0 10


[DIALOG d_evstone TEXT]
House Seller
Small Stone Plaster House 100k
Small Stone House 100k
Small Wood House 100k
Three Room House 150k
Two Story Wood and Plaster House 250k
Two Story Stone and Plaster House 250k
Large Blacksmithy Shop 275k
Tower 1m
Castle 2,25m
Keep 3,75m




[DIALOG d_evstone BUTTON]
onbutton=0
src.sysmessage= @38,1,1 Kapattiniz

onbutton=1
	if !(<src.restest 100000 i_gold>)
	src.sysmessage @90 Plaster House Icin 100k Olmasi Lazim.
        else
        src.consume 100000 i_gold
	src.newitem i_deed_house_stone_plaster_small
	src.act.bounce
	endif

     
onbutton=2
	if !(<src.restest 100000 i_gold>)
	src.sysmessage @90 Stone House Icin 100k Olmasi Lazim.
	else
        src.consume 100000 i_gold
	src.newitem i_deed_house_stone_small
	src.act.bounce
	endif


onbutton=3
	if !(<src.restest 100000 i_gold>)
	src.sysmessage @90 Wood House Icin 100k Olmasi Lazim.
	else
        src.consume 100000 i_gold
	src.newitem i_deed_house_stone_wood_small
	src.act.bounce
	endif

onbutton=4
	if !(<src.restest 100000 i_gold>)
	src.sysmessage @90 Three Room House Icin 150k Olmasi Lazim.
	else
        src.consume 150000 i_gold
	src.newitem i_deed_house_3room
	src.act.bounce
	endif

onbutton=5
	if !(<src.restest 250000 i_gold>)
	src.sysmessage @90 Two Story Wood and Plaster House Icin 250k Olmasi Lazim.
	else
        src.consume 250000 i_gold
	src.newitem i_deed_house_wood_plaster_2story
	src.act.bounce
	endif

onbutton=6
	if !(<src.restest 250000 i_gold>)
	src.sysmessage @90 Two Story Stone and Plaster House Icin 250k Olmasi Lazim.
	else
        src.consume 250000 i_gold
	src.newitem i_deed_house_stoneplaster_2story
	src.act.bounce
	endif

onbutton=7
	if !(<src.restest 275000 i_gold>)
	src.sysmessage @90 Large Blacksmithy Shop Icin 275k Olmasi Lazim.
	else
        src.consume 275000 i_gold
	src.newitem i_deed_shop_blacksmithy_large
	src.act.bounce
	endif

onbutton=8
	if !(<src.restest 1000000 i_gold>)
	src.sysmessage @90 Tower Icin 1m Olmasi Lazim.
	else
        src.consume 1000000 i_gold
	src.newitem i_deed_tower
	src.act.bounce
	endif

onbutton=9
	if !(<src.restest 2250000 i_gold>)
	src.sysmessage @90 Castle Icin 2,25m Olmasi Lazim.
	else
        src.consume 2250000 i_gold
	src.newitem i_deed_castle
	src.act.bounce
	endif

onbutton=10
	if !(<src.restest 3750000 i_gold>)
	src.sysmessage @90 Keep Icin 3,75m Olmasi Lazim.
	else
        src.consume 3750000 i_gold
	src.newitem i_deed_keep
	src.act.bounce
	endif

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

[DIALOG d_aile]              //SPECIAL PLACES
40,50	// this is always the size.
nomove
resizepic 15 25 3500 285 100
page 0
text 105 9 <eval 1981> 0 
text 65 43 1977 1
text 65 63 1977 2

button 35 43 210 211  1 0 1
button 35 63 210 211 1 0 2

[DIALOG d_aile TEXT]
Family Vendor
Aile Deed 275k 
Aile Cikis Deed 125k 


[DIALOG d_aile BUTTON]
onbutton=0
src.sysmessage= @38,1,1 Kapattiniz

onbutton=1
	if !(<src.restest 275000 i_gold>)
	src.sysmessage @90 Aile Deed Icin 275k Olmasi Lazim.
        else
        src.consume 275000 i_gold
	src.newitem i_soyadim
	src.act.bounce
	endif

     

onbutton=2
	if !(<src.restest 125000 i_gold>)
	src.sysmessage @90 Aile Cikis Deed Icin 125k Olmasi Lazim.
	else
        src.consume 125000 i_gold
	src.newitem i_soyadi_sil
	src.act.bounce
	endif

////////////////////////////////////////
[ITEMDEF i_soyadi_kolye_katilimci]
id=i_necklace_gold
type=t_jewelry
name=Aile Uyesi

on=@create
color=07c5
attr=04

on=@dclick
return 1

[ITEMDEF i_soyadi_kolye]
id=i_necklace_gold
type=t_jewelry
name=Aile Reisi

on=@create
color=07c5
attr=04

on=@dclick
target @096,,1 Kimi aileye dahil etmek istiyorsunuz?
return 1

on=@targon_char
src.targ.tag.ailename <src.tag.ailename>
IF <src.targ.npc>
var.smsgx 049
src.smsgx * Bu fonksiyon sadece oyuncular icin gecerlidir! *
return 1
ELSEIF (<src.targ.uid>==<src.uid>)
var.smsgx 049
src.smsgx * Kendinizi secemezsiniz ! *
return 1
elseif (<src.targ.tag.soyadi>==1)
src.sysmessage @096,,1 Bu kisinin zaten bir aileye uyeligi mevcut.
return 1
ELSE
var.smsgx 049
src.smsgx <src.targ.name> isimli kisiyi ailenize davet ettiniz..! 
src.newitem i_soysor_equip
src.act.cont <src.targ.uid>
Var.soyadi_uid <src.uid>
src.act.timer 1
return 1
ENDIF


[itemdef i_soysor_equip]
name aileme gel babzzzz
weight 0
id i_gold
type t_eq_script
layer layer_special

On=@UnEquip
try src.dialog d_katilcanmi
return 1

On=@Timer
remove
return 1

[dialog d_katilcanmi]
0,0
nomove
resizepic 70 120 3000 280 230
text 100 170 267 0 
text 100 190 267 1 
text 100 210 267 2 
button 120 280 4005 4006 1 0 1
button 200 280 4017 4018 1 0 2

[dialog d_katilcanmi text]
<src.tag.ailename> isimli aileye
davet edildiniz. 50k karsiliginda
katilmak istiyormusunuz?

[dialog d_katilcanmi button]
on=1
if (<src.restest 50000 i_gold>)
src.consume i_gold 50000
src.name <src.name> <src.tag.ailename>
src.tag.soyadi 1
src.newitem i_katilimci_benim
src.act.equip
src.act.timer 1
src.sysmessage @096,,1 Basariyla <src.tag.ailename> isimli aileye katildiniz.
return 1
else
src.sysmessage @020,,1 Cantanizda 50000gp bulunmuyor.
return 1
endif

on=2
src.sysmessage @096,,1 <src.tag.ailename> isimli aileye girisinizi reddettiniz.
return 1

[function katilimsor]
src.newitem i_katilimci_benim
src.act.cont <src.targ.uid>
Var.soyadi_uid <src.uid>
src.act.equip
src.act.timer 1

[itemdef i_katilimci_benim]
name katilicam dedim sana
weight 0
id i_gold
type t_eq_script
layer layer_special

On=@UnEquip
try src.katilimci
return 1

On=@Timer
remove
return 1



[ITEMDEF i_soyadim]
id=i_deed
type=t_script
name=Soyadi Deed
value=180000

on=@create
color=0792
attr=04

on=@dclick
IF (<topobj.uid> != <src.uid>)
	src.sysmessage @056,,1 Bu esyayi kullanmak icin cantanizda olmasi gerekiyor.
	return 1
ENDIF
if (<src.tag.soyadi> != 1)
dialog d_soyver
return 1
else
src.sysmessage @096,,1 Zaten soyadiniz var.
return 1
endif


[dialog d_soyver]
0,0
nomove
resizepic 70 120 3000 230 180
resizepic 100 180 3000 170 20
text 100 150 267 0 
textentry 105 180 160 16 1152 1 1
button 120 230 4005 4006 1 0 1
button 200 230 4017 4018 1 0 2

[dialog d_soyver text]
Soyisminiz ne olsun ?
Hede Olsun ?

[dialog d_soyver Button]
on=1
src.name <src.name> <argtxt[1]>
src.tag.soyadi=1
src.tag.ailename <argtxt[1]>
src.burdanal
remove

[function burdanal]
src.newitem i_soysor_equip_hebele
src.act.cont <src.targ.uid>
Var.soyadi_uid <src.uid>
src.act.equip
src.act.timer 1

[itemdef i_soysor_equip_hebele]
name isim ver abee
weight 0
id i_gold
type t_eq_script
layer layer_special

on=@create
timer=1

On=@UnEquip
try src.hebele
return 1

On=@Timer
remove
return 1

[function hebele]
src.sysmessage @096,,1 Suandan itibaren <src.tag.ailename> isimli ailenin reisisiniz.
src.sysmessage @096,,1 Kolyeniz boynunuzda belirecektir... Iyi Oyunlar.
src.newitem i_soyadi_kolye
act.name <src.tag.ailename> [reis]
act.equip

[function katilimci]
src.sysmessage @096,,1 Suandan itibaren <src.tag.ailename> isimli aileye katildiniz.
src.sysmessage @096,,1 Kolyeniz boynunuzda belirecektir... Iyi Oyunlar.
src.newitem i_soyadi_kolye_katilimci
act.name <src.tag.ailename> [Uye]
act.equip

[function soybak]
src.sysmessage @090,,1 <tag.ailename>

[function ailedenayril]
src.soyadi.remove
src.sysmessage Aileden Ciktiniz. Soyadinizi Page atarak sildiriniz.

[plevel 1]
ailedenayril

[itemdef i_soyadi_sil]
name=Aileden Cikma
id=i_deed
type t_eq_script
value=325000

on=@click
message @50,4,1 <name>
return 1

on=@create
attr 04
color=0458

on=@dclick
src.tag.soyadi 0
if !(strmatch(0<src.tag.ailename>,0))
	src.sysmessage @362,4,1 Artik <src.tag.ailename> ailesinin bir uyesi degilsiniz. Herhangi bir aileye uye olabilirsiniz
else
	src.sysmessage @362,4,1 Artik <streat <src.name>> ailesinin bir uyesi degilsiniz. Herhangi bir aileye uye olabilirsiniz
endif
if !(strmatch(0<src.tag.akrabaevliligiseni>,0))
	src.name <src.tag.akrabaevliligiseni>
else
	src.name <strarg <src.name>>
endif
src.findid.i_soyadi_kolye_katilimci.remove
src.findid.i_soysor_equip_hebele.remove
src.findid.i_soyadi_kolye.remove
remove
return 1



[ITEMDEF i_full_spellbook] 
DEFNAME=i_full_spellbook 
ID=I_spellbook 
NAME=Full Spellbook
RESOURCES= 64 i_scroll_blank, 25 i_scroll_recall
SKILLMAKE=INSCRIPTION 100
SKILLMAKE=MAGERY 100
CATEGORY=Spec Items 
SUBSECTION=Misc 
DESCRIPTION=Full spellbook 

on=@create 
ATTR=attr_newbie 
more1=0ffffffff 
more2=0ffffffff 


endif


[ITEMDEF i_altar_cove]
NAME=Cove
ID=0edd
TYPE=t_stone_town

CATEGORY=Provisions - Miscellaneous
SUBSECTION=Quest Items
DESCRIPTION=Sigil of Good

ON=@CREATE
ATTR=040
MOREZ -5
More2 106
Morex 1
VAR.Carmy <UID>
TAG0.GUARDSYSTEM r_cove
TAG0.LASTGUARDED r_cove
TAG0.GUARDS c_cove_guard
 
ON=@CLICK
MESSAGE=@44 <NAME> Faction Stone
RETURN 1

ON=@DCLICK
IF <src.memoryfindtype(memory_town)>
IF !(<src.memoryfindtype(memory_town).link>==<UID>)
SRC.SYSMESSAGE=@54 You may not use this stone unless you resign from your current faction.
RETURN 1
ENDIF
ENDIF

[ITEMDEF i_sigil_Cove]
NAME=Cove Relic
ID=01f1c
TYPE=T_RELIC

CATEGORY=Provisions - Miscellaneous
SUBSECTION=Quest Items
DESCRIPTION=Sigil of Good

ON=@CREATE
ATTR=020
MOREZ -5
More1 106
Morex 1

[REGIONTYPE r_cove]

ON=@ENTER
        IF (<SRC.FINDLAYER(21).MORE2>==106)
        SRC.SYSMESSAGE You feel more at home here...
        RETURN 0
	ENDIF
        src.hear This Realm is under Cove Rule...
        Return 0
        
ON=@CLIPERIODIC
        IF (<SRC.ISGM>) 
        RETURN 1
        ELSE
        IF !(<SRC.FINDLAYER(21).MORE2>==106) && <src.memoryfindtype(memory_town)> && (RAND(3)=2) 
        SRC.NEWNPC={c_cove_guard} 
        SRC.ACT.P=<SRC.P>
        SRC.ACT.ATTACK <src.uid> 
        SRC.SYSMESSAGE=@44 The Citizens Have Noticed Thee!!
        SRC.FLAGS=<SRC.FLAGS> &~statf_invisible
        SRC.ACTION = -1
	ENDIF
	ENDIF
[eof]
-----------------------------------
Yazar=Ackerley--------------
-----------------------------------


[ITEMDEF i_runebook]
ID=i_spellbook
TYPE=t_script
WEIGHT=0.1
NAME=runebook
RESOURCES=16 i_scroll_blank, 4 i_scroll_recall
SKILLMAKE=INSCRIPTION 70.0, MAGERY 60.0

ON=@Create
COLOR=045e
MOREX=4 // charge
ATTR=0024
TAG.NAME=isimsiz // default isim
TAG.EATRUNE=01
TAG.POS1_X=0
TAG.POS2_X=0
TAG.POS3_X=0
TAG.POS4_X=0
TAG.POS5_X=0
TAG.POS6_X=0
TAG.POS7_X=0
TAG.POS8_X=0
TAG.POS9_X=0
TAG.POS10_X=0
TAG.POS11_X=0
TAG.POS12_X=0
TAG.POS13_X=0
TAG.POS14_X=0
TAG.POS15_X=0
TAG.POS16_X=0

ON=@Click
if !(strmatch('<tag.name>','isimsiz')
	message a <name> [<tag.name>] // degi$tirilebilen isim
else
	message a <name>
endif
return 1

ON=@DClick
SRC.SOUND=85
if (<src.isevent.e_x_breakspell>)
	src.FINDID.i_rb_delay.REMOVE
	src.FINDID.i_rb_delay2.REMOVE
	src.EVENTS -e_x_breakspell
	src.f_fizzle
ENDIF
var.rb_font1 <basefont color=#202060
DIALOG d_runebook
RETURN 1

ON=@TargOn_Char
RETURN 1

ON=@TargOn_Item
IF <SRC.TARG.TOPOBJ.UID> != <SRC.UID> 
	SRC.SYSMESSAGE Ekleyeceginiz sey cantanizda olmali.
	RETURN 1
ENDIF 
IF <MORE2>=1
  IF ( <SRC.TARG.ID> = 01f4c )
    MOREX=<MOREX> + <SRC.TARG.AMOUNT>
    SRC.TARG.REMOVE
    SRC.SYSMESSAGE Kitaba <SRC.TARG.AMOUNT> sarj eklendi.
  ELSE
  SRC.SYSMESSAGE Bu bir recall scrollu degil. Sadece recall scrollarini kullanabilirsiniz.
  ENDIF
RETURN 1
ELSEIF <MORE2>=2
  IF (( <SRC.TARG.TYPE> = t_rune ) || ( <SRC.TARG.TYPE> = 014 ))
    IF (<SRC.TARG.MOREX>==0)
    SRC.SYSMESSAGE Bu rune bos, bunu kullanamazsiniz.
    RETURN 1
    ENDIF
  ELSE
  SRC.SYSMESSAGE Bu bir rune degil.
  RETURN 1
  ENDIF
TAG.HOLD_LOCAL=<SRC.TARG.NAME>
TAG.HOLD_X=<SRC.TARG.MOREX>
TAG.HOLD_Y=<SRC.TARG.MOREY>
TAG.HOLD_Z=<SRC.TARG.MOREZ>
TAG.HOLD_M=<SRC.TARG.MOREM>
ENDIF

IF (<TAG.POS1_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL1=<TAG.HOLD_LOCAL>
        TAG.POS1_X=<TAG.HOLD_X>
        TAG.POS1_Y=<TAG.HOLD_Y>
        TAG.POS1_Z=<TAG.HOLD_Z>
        TAG.POS1_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS2_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL2=<TAG.HOLD_LOCAL>
        TAG.POS2_X=<TAG.HOLD_X>
        TAG.POS2_Y=<TAG.HOLD_Y>
        TAG.POS2_Z=<TAG.HOLD_Z>
        TAG.POS2_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS3_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL3=<TAG.HOLD_LOCAL>
        TAG.POS3_X=<TAG.HOLD_X>
        TAG.POS3_Y=<TAG.HOLD_Y>
        TAG.POS3_Z=<TAG.HOLD_Z>
        TAG.POS3_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS4_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL4=<TAG.HOLD_LOCAL>
        TAG.POS4_X=<TAG.HOLD_X>
        TAG.POS4_Y=<TAG.HOLD_Y>
        TAG.POS4_Z=<TAG.HOLD_Z>
        TAG.POS4_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS5_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL5=<TAG.HOLD_LOCAL>
        TAG.POS5_X=<TAG.HOLD_X>
        TAG.POS5_Y=<TAG.HOLD_Y>
        TAG.POS5_Z=<TAG.HOLD_Z>
        TAG.POS5_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS6_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL6=<TAG.HOLD_LOCAL>
        TAG.POS6_X=<TAG.HOLD_X>
        TAG.POS6_Y=<TAG.HOLD_Y>
        TAG.POS6_Z=<TAG.HOLD_Z>
        TAG.POS6_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS7_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL7=<TAG.HOLD_LOCAL>
        TAG.POS7_X=<TAG.HOLD_X>
        TAG.POS7_Y=<TAG.HOLD_Y>
        TAG.POS7_Z=<TAG.HOLD_Z>
        TAG.POS7_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS8_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL8=<TAG.HOLD_LOCAL>
        TAG.POS8_X=<TAG.HOLD_X>
        TAG.POS8_Y=<TAG.HOLD_Y>
        TAG.POS8_Z=<TAG.HOLD_Z>
        TAG.POS8_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS9_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL9=<TAG.HOLD_LOCAL>
        TAG.POS9_X=<TAG.HOLD_X>
        TAG.POS9_Y=<TAG.HOLD_Y>
        TAG.POS9_Z=<TAG.HOLD_Z>
        TAG.POS9_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS10_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL10=<TAG.HOLD_LOCAL>
        TAG.POS10_X=<TAG.HOLD_X>
        TAG.POS10_Y=<TAG.HOLD_Y>
        TAG.POS10_Z=<TAG.HOLD_Z>
        TAG.POS10_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS11_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL11=<TAG.HOLD_LOCAL>
        TAG.POS11_X=<TAG.HOLD_X>
        TAG.POS11_Y=<TAG.HOLD_Y>
        TAG.POS11_Z=<TAG.HOLD_Z>
        TAG.POS11_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS12_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL12=<TAG.HOLD_LOCAL>
        TAG.POS12_X=<TAG.HOLD_X>
        TAG.POS12_Y=<TAG.HOLD_Y>
        TAG.POS12_Z=<TAG.HOLD_Z>
        TAG.POS12_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS13_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL13=<TAG.HOLD_LOCAL>
        TAG.POS13_X=<TAG.HOLD_X>
        TAG.POS13_Y=<TAG.HOLD_Y>
        TAG.POS13_Z=<TAG.HOLD_Z>
        TAG.POS13_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS14_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL14=<TAG.HOLD_LOCAL>
        TAG.POS14_X=<TAG.HOLD_X>
        TAG.POS14_Y=<TAG.HOLD_Y>
        TAG.POS14_Z=<TAG.HOLD_Z>
        TAG.POS14_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS15_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL15=<TAG.HOLD_LOCAL>
        TAG.POS15_X=<TAG.HOLD_X>
        TAG.POS15_Y=<TAG.HOLD_Y>
        TAG.POS15_Z=<TAG.HOLD_Z>
        TAG.POS15_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF
IF (<TAG.POS16_X>=0)
        SRC.SYSMESSAGE Rune'u kitaba eklediniz.
        SRC.SOUND=79
        TAG.LOCAL16=<TAG.HOLD_LOCAL>
        TAG.POS16_X=<TAG.HOLD_X>
        TAG.POS16_Y=<TAG.HOLD_Y>
        TAG.POS16_Z=<TAG.HOLD_Z>
        TAG.POS16_M=<TAG.HOLD_M>
	  SRC.TARG.REMOVE
        RETURN 1
ENDIF

SRC.SYSMESSAGE Kitapta bunun icin bos yer kalmamis.
RETURN 1
ENDIF

CATEGORY=Custom Items
SUBSECTION=Runebook
DESCRIPTION=Runebook

[ITEMDEF i_rb_gate]
ID=i_moongate_blue
RESOURCES=i_scroll_gate_travel
TYPE=t_telepad
NAME=Gate
CATEGORY=Provisions - Alchemy & Magic
SUBSECTION=Moongates
DESCRIPTION=RB Gate

On=@Create
color 022
more1 5
attr 010

On=@DClick
if !(<src.flags>&statf_stone)
	if (<distance> > 3)
		src.sysmessage Gate'e ulasamiyorsunuz.
	else
		if (<src.findid.i_gater>)
			src.findid.i_gater.remove
		endif
		src.newitem i_gater
		src.act.link <uid>
		src.act.morep <morep>
		src.act.equip
	endif
endif
return 1

ON=@Step
if !((<src.findid.i_gater>) || (<src.flags>&statf_stone))
	src.newitem i_gater
	src.act.link <uid>
	src.act.morep <morep>
	src.act.equip
endif
return 1

On=@Click
link.sextant
if (<src.region.type> == <region.type>)
	sayu
	sayua 0905,0,0,0 <link.region.name>
	sayua 0900,0,0,0 [<var.coordinate>]
else
	message <link.region.name>
	message [<var.coordinate>]
	message
endif
var.coordinate
return 1

On=@Timer
if (<more1>)
	more1 <more1> - 1
	timer 1
else
	sfx 528
	remove
endif
return 1

[DIALOG d_runebook]
0,100
gumppic 100 10 2201
gumppic 125 50 57
gumppic 145 50 58
gumppic 160 50 58
gumppic 175 50 58
gumppic 190 50 58
gumppic 205 50 58
gumppic 220 50 58
gumppic 230 50 59

gumppic 290 50 57
gumppic 310 50 58
gumppic 325 50 58
gumppic 340 50 58
gumppic 355 50 58
gumppic 370 50 58
gumppic 385 50 58
gumppic 395 50 59

page 0
//Recall Button
button 125 65 2103 2104 1 0 1//Button 1
button 125 80 2103 2104 1 0 2//Button 2
button 125 95 2103 2104 1 0 3//Button 3
button 125 110 2103 2104 1 0 4//Button 4
button 125 125 2103 2104 1 0 5//Button 5
button 125 140 2103 2104 1 0 6//Button 6
button 125 155 2103 2104 1 0 7//Button 7
button 125 170 2103 2104 1 0 8//Button 8
//Gate Button
button 135 65 2103 2104 1 0 17//Button 17
button 135 80 2103 2104 1 0 18//Button 18
button 135 95 2103 2104 1 0 19//Button 19
button 135 110 2103 2104 1 0 20//Button 20
button 135 125 2103 2104 1 0 21//Button 21
button 135 140 2103 2104 1 0 22//Button 22
button 135 155 2103 2104 1 0 23//Button 23
button 135 170 2103 2104 1 0 24//Button 24
//Erase Button
//button 250 65 2103 2104 1 0 25//Button 25
//button 250 80 2103 2104 1 0 26//Button 26
//button 250 95 2103 2104 1 0 27//Button 27
//button 250 110 2103 2104 1 0 28//Button 28
//button 250 125 2103 2104 1 0 29//Button 29
//button 250 140 2103 2104 1 0 30//Button 30
//button 250 155 2103 2104 1 0 31//Button 31
//button 250 170 2103 2104 1 0 32//Button 32
//Erase Button //17.01.02
button 260 65 2103 2104 1 0 25//Button 25
button 260 80 2103 2104 1 0 26//Button 26
button 260 95 2103 2104 1 0 27//Button 27
button 260 110 2103 2104 1 0 28//Button 28
button 260 125 2103 2104 1 0 29//Button 29
button 260 140 2103 2104 1 0 30//Button 30
button 260 155 2103 2104 1 0 31//Button 31
button 260 170 2103 2104 1 0 32//Button 32
//rename butonlar //17.01.02
button 250 65 2103 2104 1 0 51//Button 51
button 250 80 2103 2104 1 0 52//Button 52
button 250 95 2103 2104 1 0 53//Button 53
button 250 110 2103 2104 1 0 54//Button 54
button 250 125 2103 2104 1 0 55//Button 55
button 250 140 2103 2104 1 0 56//Button 56
button 250 155 2103 2104 1 0 57//Button 57
button 250 170 2103 2104 1 0 58//Button 58
////opposite page
//recall button
button 285 65 2103 2104 1 0 9 //Button 9
button 285 80 2103 2104 1 0 10 //Button 10
button 285 95 2103 2104 1 0 11 //Button 11
button 285 110 2103 2104 1 0 12//Button 12
button 285 125 2103 2104 1 0 13//Button 13
button 285 140 2103 2104 1 0 14//Button 14
button 285 155 2103 2104 1 0 15//Button 15
button 285 170 2103 2104 1 0 16//Button 16
//Gate Button
button 295 65 2103 2104 1 0 33//Button 33
button 295 80 2103 2104 1 0 34//Button 34
button 295 95 2103 2104 1 0 35//Button 35
button 295 110 2103 2104 1 0 36//Button 36
button 295 125 2103 2104 1 0 37//Button 37
button 295 140 2103 2104 1 0 38//Button 38
button 295 155 2103 2104 1 0 39//Button 39
button 295 170 2103 2104 1 0 40//Button 40
////Erase Button //17.01.02
//button 410 65 2103 2104 1 0 41//Button 41 //Yenileri eklendi
//button 410 80 2103 2104 1 0 42//Button 42
//button 410 95 2103 2104 1 0 43//Button 43
//button 410 110 2103 2104 1 0 44//Button 44
//button 410 125 2103 2104 1 0 45//Button 45
//button 410 140 2103 2104 1 0 46//Button 46
//button 410 155 2103 2104 1 0 47//Button 47
//button 410 170 2103 2104 1 0 48//Button 48
//Erase Button //17.01.02
button 420 65 2103 2104 1 0 41//Button 41
button 420 80 2103 2104 1 0 42//Button 42
button 420 95 2103 2104 1 0 43//Button 43
button 420 110 2103 2104 1 0 44//Button 44
button 420 125 2103 2104 1 0 45//Button 45
button 420 140 2103 2104 1 0 46//Button 46
button 420 155 2103 2104 1 0 47//Button 47
button 420 170 2103 2104 1 0 48//Button 48
//rename Butonlar //17.01.02
button 410 65 2103 2104 1 0 61//Button 61
button 410 80 2103 2104 1 0 62//Button 62
button 410 95 2103 2104 1 0 63//Button 63
button 410 110 2103 2104 1 0 64//Button 64
button 410 125 2103 2104 1 0 65//Button 65
button 410 140 2103 2104 1 0 66//Button 66
button 410 155 2103 2104 1 0 67//Button 67
button 410 170 2103 2104 1 0 68//Button 68
//Rune Ekle $arj Et
button 303 22 2103 2104 1 0 49//Button 49
button 303 37 2103 2104 1 0 50//Button 50
htmlgump 318 18 100 20 17 0 0
htmlgump 318 33 100 20 19 0 0

htmlgump 148 61 100 17 0 // marked positions text
htmlgump 148 76 100 17 1
htmlgump 148 91 100 17 2
htmlgump 148 106 100 17 3
htmlgump 148 121 100 17 4
htmlgump 148 136 100 17 5
htmlgump 148 151 100 17 6
htmlgump 148 166 100 17 7
htmlgump 307 61 100 17 8
htmlgump 307 76 100 17 9
htmlgump 307 91 100 17 10
htmlgump 307 106 100 17 11
htmlgump 307 121 100 17 12
htmlgump 307 136 100 17 13
htmlgump 307 151 100 17 14
htmlgump 307 166 100 17 15

htmlgump 155 18 86 17 18
htmlgump 155 33 90 17 21

htmlgump 129 180 100 20 16 0 0
htmlgump 129 192 100 20 20 0 0
htmlgump 247 180 100 20 22 0 0
htmlgump 241 192 100 20 24 0 0

htmlgump 150 184 100 20 25 0 0
htmlgump 156 196 100 20 26 0 0
htmlgump 225 184 100 20 27 0 0
htmlgump 207 196 100 20 28 0 0

button 140 22 2103 2104 1 0 59 //Button 59, Rename Book //17.01.02
//button 140 22 2103 2104 1 0 67 //Button 67, Rename Book

[DIALOG d_runebook TEXT]
<var.rb_font1>><TAG.LOCAL1>	//Location 1
<var.rb_font1>><TAG.LOCAL2>	//Location 2
<var.rb_font1>><TAG.LOCAL3>	//Location 3
<var.rb_font1>><TAG.LOCAL4>	//Location 4
<var.rb_font1>><TAG.LOCAL5>	//Location 5
<var.rb_font1>><TAG.LOCAL6>	//Location 6
<var.rb_font1>><TAG.LOCAL7>	//Location 7
<var.rb_font1>><TAG.LOCAL8>	//Location 8
//page 2 //Kar$i Sayfa
<var.rb_font1>><TAG.LOCAL9>	//Location 9
<var.rb_font1>><TAG.LOCAL10>	//Location 10
<var.rb_font1>><TAG.LOCAL11>	//Location 11
<var.rb_font1>><TAG.LOCAL12>	//Location 12
<var.rb_font1>><TAG.LOCAL13>	//Location 13
<var.rb_font1>><TAG.LOCAL14>	//Location 14
<var.rb_font1>><TAG.LOCAL15>	//Location 15
<var.rb_font1>><TAG.LOCAL16>	//Location 16
| |_	//text 16
Rune Ekle	//text 17
<TAG.NAME>	//text 18
Sarj Et	//text 19
|___	//text 20
Sarj: <MOREX>.	//text 21
//| //17.01.02
_| | //ren //17.01.02
_|
___| // sil
gate
recall
isim
cikart


[DIALOG d_runebook BUTTON]
ONBUTTON=0
RETURN 1

ONBUTTON=1
IF <TAG.POS1_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall kullanamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS1_X>> <EVAL <TAG.POS1_Y>> <EVAL <TAG.POS1_Z>> <EVAL <TAG.POS1_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS1_X>> <EVAL <TAG.POS1_Y>> <EVAL <TAG.POS1_Z>> <EVAL <TAG.POS1_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1


ONBUTTON=2
IF <TAG.POS2_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS2_X>> <EVAL <TAG.POS2_Y>> <EVAL <TAG.POS2_Z>> <EVAL <TAG.POS2_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS2_X>> <EVAL <TAG.POS2_Y>> <EVAL <TAG.POS2_Z>> <EVAL <TAG.POS2_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=3
IF <TAG.POS3_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS3_X>> <EVAL <TAG.POS3_Y>> <EVAL <TAG.POS3_Z>> <EVAL <TAG.POS3_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS3_X>> <EVAL <TAG.POS3_Y>> <EVAL <TAG.POS3_Z>> <EVAL <TAG.POS3_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=4
IF <TAG.POS4_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS4_X>> <EVAL <TAG.POS4_Y>> <EVAL <TAG.POS4_Z>> <EVAL <TAG.POS4_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS4_X>> <EVAL <TAG.POS4_Y>> <EVAL <TAG.POS4_Z>> <EVAL <TAG.POS4_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=5
IF <TAG.POS5_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS5_X>> <EVAL <TAG.POS5_Y>> <EVAL <TAG.POS5_Z>> <EVAL <TAG.POS5_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS5_X>> <EVAL <TAG.POS5_Y>> <EVAL <TAG.POS5_Z>> <EVAL <TAG.POS5_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=6
IF <TAG.POS6_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS6_X>> <EVAL <TAG.POS6_Y>> <EVAL <TAG.POS6_Z>> <EVAL <TAG.POS6_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS6_X>> <EVAL <TAG.POS6_Y>> <EVAL <TAG.POS6_Z>> <EVAL <TAG.POS6_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=7
IF <TAG.POS7_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS7_X>> <EVAL <TAG.POS7_Y>> <EVAL <TAG.POS7_Z>> <EVAL <TAG.POS7_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS7_X>> <EVAL <TAG.POS7_Y>> <EVAL <TAG.POS7_Z>> <EVAL <TAG.POS7_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=8
IF <TAG.POS8_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS8_X>> <EVAL <TAG.POS8_Y>> <EVAL <TAG.POS8_Z>> <EVAL <TAG.POS8_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS8_X>> <EVAL <TAG.POS8_Y>> <EVAL <TAG.POS8_Z>> <EVAL <TAG.POS8_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=9
IF <TAG.POS9_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS9_X>> <EVAL <TAG.POS9_Y>> <EVAL <TAG.POS9_Z>> <EVAL <TAG.POS9_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS9_X>> <EVAL <TAG.POS9_Y>> <EVAL <TAG.POS9_Z>> <EVAL <TAG.POS9_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=10
IF <TAG.POS10_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS10_X>> <EVAL <TAG.POS10_Y>> <EVAL <TAG.POS10_Z>> <EVAL <TAG.POS10_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS10_X>> <EVAL <TAG.POS10_Y>> <EVAL <TAG.POS10_Z>> <EVAL <TAG.POS10_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=11
IF <TAG.POS11_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS11_X>> <EVAL <TAG.POS11_Y>> <EVAL <TAG.POS11_Z>> <EVAL <TAG.POS11_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS11_X>> <EVAL <TAG.POS11_Y>> <EVAL <TAG.POS11_Z>> <EVAL <TAG.POS11_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=12
IF <TAG.POS12_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS12_X>> <EVAL <TAG.POS12_Y>> <EVAL <TAG.POS12_Z>> <EVAL <TAG.POS12_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS12_X>> <EVAL <TAG.POS12_Y>> <EVAL <TAG.POS12_Z>> <EVAL <TAG.POS12_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=13
IF <TAG.POS13_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS13_X>> <EVAL <TAG.POS13_Y>> <EVAL <TAG.POS13_Z>> <EVAL <TAG.POS13_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>)
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS13_X>> <EVAL <TAG.POS13_Y>> <EVAL <TAG.POS13_Z>> <EVAL <TAG.POS13_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=14
IF <TAG.POS14_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS14_X>> <EVAL <TAG.POS14_Y>> <EVAL <TAG.POS14_Z>> <EVAL <TAG.POS14_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS14_X>> <EVAL <TAG.POS14_Y>> <EVAL <TAG.POS14_Z>> <EVAL <TAG.POS14_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=15
IF <TAG.POS15_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS15_X>> <EVAL <TAG.POS15_Y>> <EVAL <TAG.POS15_Z>> <EVAL <TAG.POS15_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS15_X>> <EVAL <TAG.POS15_Y>> <EVAL <TAG.POS15_Z>> <EVAL <TAG.POS15_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=16
IF <TAG.POS16_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS16_X>> <EVAL <TAG.POS16_Y>> <EVAL <TAG.POS16_Z>> <EVAL <TAG.POS16_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 250 )
    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><15)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
  IF (<MOREX> > 0)
    MOREX=<MOREX>-1
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    ELSEIF (<SRC.RESTEST 1 i_reag_black_pearl>) && (<SRC.RESTEST 1 i_reag_mandrake_root>) && (<SRC.RESTEST 1 i_reag_blood_moss>
	  IF ( <SRC.MAGERY> < 400 )
	    SRC.SYSMESSAGE Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)
	    SRC.SOUND=92
	    RETURN 0
	  ENDIF
    SRC.spell_say Kal Ort Por
    src.sd 2
    SRC.ANIM=17
    SRC.MANA=(<SRC.MANA>+-15)
    SRC.CONSUME=1 i_reag_black_pearl
    SRC.CONSUME=1 i_reag_blood_moss
    SRC.CONSUME=1 i_reag_mandrake_root
    ELSE
    SRC.SYSMESSAGE Kitapta sarj kalmamis ve uzerinizde buyuyu yapacak malzeme yok.
    SRC.SOUND 92
    RETURN 1
  ENDIF
ENDIF
SRC.NEWITEM i_rb_delay
SRC.ACT.MOREP=<EVAL <TAG.POS16_X>> <EVAL <TAG.POS16_Y>> <EVAL <TAG.POS16_Z>> <EVAL <TAG.POS16_M>>
SRC.ACT.MORE1=4
SRC.ACT.EQUIP
RETURN 1

//Gateler
ONBUTTON=17
IF <TAG.POS1_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS1_X>> <EVAL <TAG.POS1_Y>> <EVAL <TAG.POS1_Z>> <EVAL <TAG.POS1_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 750 )
    SRC.SYSMESSAGE Yeterli beceriye sahip degilsiniz.
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><40)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
   IF ! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
      SRC.SYSMESSAGE Yeterli malzemeye sahip degilsiniz.
      SRC.SOUND=92
      RETURN 1
   ENDIF
  SRC.spell_say Vas Rel Por
  src.sd 3
  SRC.ANIM=17
  SRC.MANA=(<SRC.MANA>+-40)
   SRC.CONSUME=1 i_reag_black_pearl
   SRC.CONSUME=1 i_reag_mandrake_root
   SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.NEWITEM i_rb_delay2
SRC.ACT.MOREP=<EVAL <TAG.POS1_X>> <EVAL <TAG.POS1_Y>> <EVAL <TAG.POS1_Z>> <EVAL <TAG.POS1_M>>
SRC.ACT.MORE1=6
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=18
IF <TAG.POS2_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS2_X>> <EVAL <TAG.POS2_Y>> <EVAL <TAG.POS2_Z>> <EVAL <TAG.POS2_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 750 )
    SRC.SYSMESSAGE Yeterli beceriye sahip degilsiniz.
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><40)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
   IF ! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
      SRC.SYSMESSAGE Yeterli malzemeye sahip degilsiniz.
      SRC.SOUND=92
      RETURN 1
   ENDIF
  SRC.spell_say Vas Rel Por
  src.sd 3
  SRC.ANIM=17
  SRC.MANA=(<SRC.MANA>+-40)
   SRC.CONSUME=1 i_reag_black_pearl
   SRC.CONSUME=1 i_reag_mandrake_root
   SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.NEWITEM i_rb_delay2
SRC.ACT.MOREP=<EVAL <TAG.POS2_X>> <EVAL <TAG.POS2_Y>> <EVAL <TAG.POS2_Z>> <EVAL <TAG.POS2_M>>
SRC.ACT.MORE1=6
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=19
IF <TAG.POS3_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS3_X>> <EVAL <TAG.POS3_Y>> <EVAL <TAG.POS3_Z>> <EVAL <TAG.POS3_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 750 )
    SRC.SYSMESSAGE Yeterli beceriye sahip degilsiniz.
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><40)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
   IF ! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
      SRC.SYSMESSAGE Yeterli malzemeye sahip degilsiniz.
      SRC.SOUND=92
      RETURN 1
   ENDIF
  SRC.spell_say Vas Rel Por
  src.sd 3
  SRC.ANIM=17
  SRC.MANA=(<SRC.MANA>+-40)
   SRC.CONSUME=1 i_reag_black_pearl
   SRC.CONSUME=1 i_reag_mandrake_root
   SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.NEWITEM i_rb_delay2
SRC.ACT.MOREP=<EVAL <TAG.POS3_X>> <EVAL <TAG.POS3_Y>> <EVAL <TAG.POS3_Z>> <EVAL <TAG.POS3_M>>
SRC.ACT.MORE1=6
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=20
IF <TAG.POS4_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS4_X>> <EVAL <TAG.POS4_Y>> <EVAL <TAG.POS4_Z>> <EVAL <TAG.POS4_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 750 )
    SRC.SYSMESSAGE Yeterli beceriye sahip degilsiniz.
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><40)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
   IF ! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
      SRC.SYSMESSAGE Yeterli malzemeye sahip degilsiniz.
      SRC.SOUND=92
      RETURN 1
   ENDIF
  SRC.spell_say Vas Rel Por
  src.sd 3
  SRC.ANIM=17
  SRC.MANA=(<SRC.MANA>+-40)
   SRC.CONSUME=1 i_reag_black_pearl
   SRC.CONSUME=1 i_reag_mandrake_root
   SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.NEWITEM i_rb_delay2
SRC.ACT.MOREP=<EVAL <TAG.POS4_X>> <EVAL <TAG.POS4_Y>> <EVAL <TAG.POS4_Z>> <EVAL <TAG.POS4_M>>
SRC.ACT.MORE1=6
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=21
IF <TAG.POS5_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS5_X>> <EVAL <TAG.POS5_Y>> <EVAL <TAG.POS5_Z>> <EVAL <TAG.POS5_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 750 )
    SRC.SYSMESSAGE Yeterli beceriye sahip degilsiniz.
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><40)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
   IF ! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
      SRC.SYSMESSAGE Yeterli malzemeye sahip degilsiniz.
      SRC.SOUND=92
      RETURN 1
   ENDIF
  SRC.spell_say Vas Rel Por
  src.sd 3
  SRC.ANIM=17
  SRC.MANA=(<SRC.MANA>+-40)
   SRC.CONSUME=1 i_reag_black_pearl
   SRC.CONSUME=1 i_reag_mandrake_root
   SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.NEWITEM i_rb_delay2
SRC.ACT.MOREP=<EVAL <TAG.POS5_X>> <EVAL <TAG.POS5_Y>> <EVAL <TAG.POS5_Z>> <EVAL <TAG.POS5_M>>
SRC.ACT.MORE1=6
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=22
IF <TAG.POS6_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS6_X>> <EVAL <TAG.POS6_Y>> <EVAL <TAG.POS6_Z>> <EVAL <TAG.POS6_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 750 )
    SRC.SYSMESSAGE Yeterli beceriye sahip degilsiniz.
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><40)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
   IF ! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
      SRC.SYSMESSAGE Yeterli malzemeye sahip degilsiniz.
      SRC.SOUND=92
      RETURN 1
   ENDIF
  SRC.spell_say Vas Rel Por
  src.sd 3
  SRC.ANIM=17
  SRC.MANA=(<SRC.MANA>+-40)
   SRC.CONSUME=1 i_reag_black_pearl
   SRC.CONSUME=1 i_reag_mandrake_root
   SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.NEWITEM i_rb_delay2
SRC.ACT.MOREP=<EVAL <TAG.POS6_X>> <EVAL <TAG.POS6_Y>> <EVAL <TAG.POS6_Z>> <EVAL <TAG.POS6_M>>
//SRC.ACT.MORE1=1 //18 Ocak - Genie
SRC.ACT.MORE1=6 //18 Ocak - Genie
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=23
IF <TAG.POS7_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu bolgede recall olamazsiniz.
  	   RETURN 1
  	ENDIF
  	ENDIF
  SRC.NEWITEM i_rb_research
  SRC.ACT.P=<EVAL <TAG.POS7_X>> <EVAL <TAG.POS7_Y>> <EVAL <TAG.POS7_Z>> <EVAL <TAG.POS7_M>>
  TAG.RESEARCH=<SRC.ACT.REGION.FLAGS>
  IF (<TAG.RESEARCH>==01092)
      SRC.SYSMESSAGE Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.
      RETURN 1
  ENDIF
  IF ( <SRC.MAGERY> < 750 )
    SRC.SYSMESSAGE Yeterli beceriye sahip degilsiniz.
    SRC.SOUND=92
    RETURN 1
  ENDIF
  IF (<SRC.MANA><40)
    SRC.SOUND=92
    SRC.SYSMESSAGE Yeterli mananiz yok.
    RETURN 1
  ENDIF
   IF ! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
      SRC.SYSMESSAGE Yeterli malzemeye sahip degilsiniz.
      SRC.SOUND=92
      RETURN 1
   ENDIF
  SRC.spell_say Vas Rel Por
  src.sd 3
  SRC.ANIM=17
  SRC.MANA=(<SRC.MANA>+-40)
   SRC.CONSUME=1 i_reag_black_pearl
   SRC.CONSUME=1 i_reag_mandrake_root
   SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.NEWITEM i_rb_delay2
SRC.ACT.MOREP=<EVAL <TAG.POS7_X>> <EVAL <TAG.POS7_Y>> <EVAL <TAG.POS7_Z>> <EVAL <TAG.POS7_M>>
//SRC.ACT.MORE1=1 //18 Ocak - Genie
SRC.ACT.MORE1=6 //18 Ocak - Genie
SRC.ACT.EQUIP
RETURN 1

ONBUTTON=24
IF <TAG.POS8_X>=00
  SRC.SYSMESSAGE Bu alan bos.
  RETURN 1
ENDIF
IF !<SRC.ISGM>
	IF !<SRC.ISEVENT.e_house>
  	IF <SRC.REGION.FLAGS>&0e
  	   SRC.SYSMESSAGE Bu


Bu konu anelka99901 tarafından düzenlendi(2009-01-16 17:50, 16 yıl önce)
  • 2009-01-16 17:42
  • #1
DC-Game
DC-Game
Members
4
Bunu yarım saatte nasıl yazdın helal olsun valla =/
  • 2009-01-16 17:50
  • #2
anelka99901 üyesi avatar
anelka99901
Members
-2
1;30 sat yanlış yazmışım düzenledm
birde o spellbook scplerı fln alıntı dialoglar falan bana ait onları eğer scpyi alan arkadaşta yoktur diye sonlara ekledm :)
  • 2009-01-16 17:56
  • #3
OMFG üyesi avatar
OMFG
Members
2
Bir buçuk saat demiş :D
Güzel scp teşekkürler. Son kısımları biraz alıntı kokuyor evet :D
  • 2009-01-16 17:57
  • #4
anelka99901 üyesi avatar
anelka99901
Members
-2
evet zaten alıntı olduğunu açıkladım onlarıda yazmam bayağı uzun sürecektir ama Dialoglar bana ait :)

ben teşekkr ederim :))
  • 2009-01-16 18:04
  • #5
xwerswoodx üyesi avatar
xwerswoodx
Expert
5.4
anelka99901 : evet zaten alıntı olduğunu açıkladım onlarıda yazmam bayağı uzun sürecektir ama Dialoglar bana ait :)

ben teşekkr ederim :))

çoğu yerde return 1 i atlamışsın bunlar ufakta olsa bugları doğurabilir... Versiyonuna gelince 56 b ise dtext ve sdialog kodlarını kullanmanı tavsiye ederim... Bu scripts gerçekten çok uzun olmuş ve çok karışık :) bazı yerlerde ingilizce yazılar var onları silmeni tavsiye ederim :) gereksiz yazılar:D
  • 2009-01-16 18:15
  • #6
anelka99901 üyesi avatar
anelka99901
Members
-2
bliyorum beni uyardığın için teşekkr ederim zaten Script konusunda professiyonel deılım yavaş yavaş artık aynı zamandada o karışık dedıın kısımlar hep şeyden dialogların itemlerınden kaynaklanıo İşte Runebookuydu Spellbokuydu falan filan onlar biraz karıştırdı alıntı olduu için copy paste yaptım itemleri :)

ama teşekkr ederim :)
  • 2009-01-16 18:25
  • #7
xwerswoodx üyesi avatar
xwerswoodx
Expert
5.4
anelka99901 : bliyorum beni uyardığın için teşekkr ederim zaten Script konusunda professiyonel deılım yavaş yavaş artık aynı zamandada o karışık dedıın kısımlar hep şeyden dialogların itemlerınden kaynaklanıo İşte Runebookuydu Spellbokuydu falan filan onlar biraz karıştırdı alıntı olduu için copy paste yaptım itemleri :)

ama teşekkr ederim :)

amacım rencide etmek değil sadece uyarmak bu sitee çok profesyonel yok ztn :)
  • 2009-01-16 19:07
  • #8
anelka99901 üyesi avatar
anelka99901
Members
-2
evet sizde haklısınız .. :)
  • 2009-01-16 19:36
  • #9
Astrafast
Astrafast
Members
0
ee birader yazdında noldu zamanını boşa yedin (: .
bırakın ya böyle işleri boş iş boşş
ara sıra girin bi pvp serverina yapın ekşınınızı ondan sonra devam edin hayatınıza neyse. :xP
  • 2009-01-16 20:15
  • #10
Nowanka
Nowanka
Novice
-0.500001
Astrafast Snnkileri Goremedik??

Adam Prof Olmayabilir Gelistirmesi Gusel bisi

Son Olarak Scp Gereksiz Uzatılmıs Bnce Fazla Bakmadım Ama Aile Sistemi Haric Dierleri Heryerde Oln seler
  • 2009-01-16 21:08
  • #11
anelka99901 üyesi avatar
anelka99901
Members
-2
Astrafast : ee birader yazdında noldu zamanını boşa yedin (: .
bırakın ya böyle işleri boş iş boşş
ara sıra girin bi pvp serverina yapın ekşınınızı ondan sonra devam edin hayatınıza neyse. :xP

neden topici kirletiyorsun? Hiç yazmasaydın daha iyiydi.

@Nowanka

ya evet uzatıldı ama uzatılmasının nedenini söledim Bazı arkadaşlarda bu dialog itemleri yoktur diye o itemleride copy paste yapmıştım kendimi geliştirmeye çaışıyorum yazdışım 3 5 scpden bir tanei tekrar söylüyorum açığım böyle eleştirilere teşekkr ederim :)
  • 2009-01-16 22:15
  • #12
Astrafast
Astrafast
Members
0
diyorum işte bn urasmaya basladım gereksiz oldunu anladım ve anlattılar bıraktım ustam. hayır scpde ustasın sana maddi ne faydası oluyor onu anlamıyorum insanı asosyal hale getirmekten başka onun yerine basket kas baskette prof ol benim gibi sfdsdsfd . yada dedigim gibi tek tük pvp serverlarında ek$n at fln. boş iş abi bunlar sizi uyarmak için söyliyorum . ama tmm yapan yapsın dicem laf yok. bu alemde cok eriyen abilerim oldu bunu unutmayın. herifler geleceginin içine ettiler. neyse go go go xS
  • 2009-01-16 22:27
  • #13
Nexima
Nexima
Expert
6.3
diğer yazılım dillerini daha çabuk kavrayabilme yeteneğini geliştiriyor.
algoritmasını geliştiriyor.
ve yeni arkadaşlar edinebiliyor.

yada hobi olarak yapabiliyor, bundan zevk alıyo. zevk almadığı şeyi yapmaz zaten durduk yere. sen basketboldan zevk alıyorsan arkadaşta bundan zevk alıyor olabilir. tartışmak saçma.
  • 2009-01-16 22:40
  • #14
legolas_20
legolas_20
Members
-2
hll olsun hocam bravo
  • 2009-01-16 22:43
  • #15



Ü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