paris16 -     26-04-2018 23:47 GMT -    
Arkadaşlar ben moongatelerde ve bazı teleportların üstünde bu döngüyü kullandım gate acıp gecince moongate olsun teleportlar olsun fizliyor sıkıntı yok ama Kal Ort Port cekip gectigim de sphere Cıldırıyor nerde hata var ve neden oluyor bu

dialogclose d_runebook

//IF !(<isgm>)

	src.src.sysmessage @38,,1 Konsantrasyonunuzu kaybettiniz, buyuyu yapmaya devam edemiyorsunuz.

	src.FINDID.i_rb_delay.REMOVE

	src.FINDID.i_rb_delay2.REMOVE

	src.EVENTS= -e_x_breakspell

	src.f_fizzle

ENDIF

[img][/img]

Slothere -     27-04-2018 00:18 GMT -    
Daha fazla kod görmek lazım. Şu anki gösterdiğin kısımda hah şundandır denecek bir ifade yok. Kodundaki yanlışların düzeltilmiş hali ise şöyle;

src.dialogclose d_runebook

//IF !(<isgm>)

src.sysmessage @38,,1 Konsantrasyonunuzu kaybettiniz, buyuyu yapmaya devam edemiyorsunuz.

src.FINDID.i_rb_delay.REMOVE

src.FINDID.i_rb_delay2.REMOVE

src.EVENTS -e_x_breakspell

src.f_fizzle

//ENDIF

f_fizzle da bir sıkıntı olabilir. Sildiğin itemlar recall esnasında bir şeyi döngüye sokuyor olabilir vs. Dediğim gibi daha fazlasına ihtiyaç var ki analiz daha verimli olsun.

paris16 -     27-04-2018 00:21 GMT -    
bu moongatenin butonlarından biri giriş cıkış hicbir hata sorun yok gate acıp gecmekk istedigimde cok güzel büyüyü bozuyor ama Kol ort cekip girdigimde server yukardaki hatayı veriyor :S

IF (<targ.DISTANCE> < 4)

dialogclose d_runebook

IF !(<isgm>)

//	SYSMESSAGE @38,,1 Konsantrasyonunuzu kaybettiniz, buyuyu yapmaya devam edemiyorsunuz.

	FINDID.i_rb_delay.REMOVE

	FINDID.i_rb_delay2.REMOVE

	EVENTS= -e_x_breakspell

	f_fizzle

ENDIF 

SRC.GO safe

ELSE

SRC.SYSMESSAGE @38,6,1 Hata; Moongateden cok uzaktasiniz.

ENDIF

//src.fix

Eyyubi -     27-04-2018 00:27 GMT -    
Sadece f_fizzle kullanmayı denermisin

paris16 -     27-04-2018 00:36 GMT -    
Olmadı baba f_fizzle dedigin tek komut fizliyo gibi oluyo adam icerde acıyo ya bunun olmasıda şart degil adam moon gateden gecerken gate acıyor sonra moon gateyi tıklıyıp iceri giriyor birde teleportlar dan geciyor bunu nasıl fixliye biliriz. forumlarda da yok bunla ilgili kendim böyle birşeyler yaptım ondada server ucuyor gözününe

dw4yne -     27-04-2018 11:23 GMT -    
i_rb_delay , i_rb_delay2 , e_x_breakspell spcriptlerini koyarsan yardımcı olabilirim. Sorun moongatede değil gibi duruyor.

paris16 -     28-04-2018 00:45 GMT -    
Baba runebook degiştirdim olay düzeldi muhtemelen rune bookdaki i_rb_delay , i_rb_delay2 , e_x_breakspel şunlarda bir sıkıntı var

[function rune_say]

sayua 1153,,1 enu <args>

return 1



[function gate_say]

sayua 1153,,1 enu <args>

return 1



[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=05aa

MOREX=4

ATTR=0024

TAG.NAME=Isimsiz

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>','Isimver')

	message @0790,3,0 <name>

	message @0713,9,1 [<tag.name>] 

else

	message @0713,,1 <name>

endif

ATTR=0024

return 1







ON=@DClick

src.dialogclose d_runebook

src.dialogclose d_gatetravel

src.dialogclose d_moongateeklenti

SRC.SOUND=85

If (<src.region.safe> = 1) || (<src.isevent.e_pazar>) || (<src.isevent.e_jail>)

	src.sysmessage @38,,1 Hata: Bu alanda runebook kullanilamaz.

	src.sysmessage @1153,,1 Alan adi : Safe Zone

	return 1

endif

if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

	src.sysmessage @0481,,1 Hata: Buyu atarken runebook kullanamazsiniz.

	return 1

endif

src.dialogclose d_runebook

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

else

	SRC.SOUND=85

	sdialog d_runebook

ENDIF

RETURN 1



ON=@TargOn_Char

RETURN 1



ON=@TargOn_Item

IF <SRC.TARG.TOPOBJ.UID> != <SRC.UID> 

	SRC.SYSMESSAGE @38,,1 Hata: Ekliyeceginiz rune cantanizda olmali.

	RETURN 1

ENDIF 

IF <MORE2>=1

  IF ( <SRC.TARG.ID> = 01f4c )

    MOREX=<MOREX> + <SRC.TARG.AMOUNT>

    SRC.TARG.REMOVE

    SRC.SYSMESSAGE @68,,1 Kitaba <SRC.TARG.AMOUNT> sarj eklendi.

  ELSE

  SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu rune bos, bunu kullanamazsiniz.

    RETURN 1

    ENDIF

  ELSE

  SRC.SYSMESSAGE @38,,1 Hata: 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @68,,1 Rune 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 @38,,1 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 32

more1 5

attr 010



On=@DClick

if !(<src.flags>&statf_stone)

	if (<distance> > 3)

		src.sysmessage @38,,1 Hata: 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

if (<link.region.flags>®ion_flag_guarded)

message @03c1,6,1 [Acilan bölge]

else

message @03c1,6,1 [Acilan bölge]

endif

message @03c1,6,1 <link.region.name> bölgesi

if (<link.isneartype t_spell 3>)

link.tag.notice = 1

else

link.tag.notice = 0

endif



if (<link.tag0.notice>==1)

message @38,,1 [Tehlikeli : 3 kare icersinde buyulu seyler var]

endif



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 2202

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

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

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

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

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



[DIALOG d_runebook TEXT]

<TAG.LOCAL1>	//Location 1

<TAG.LOCAL2>	//Location 2

<TAG.LOCAL3>	//Location 3

<TAG.LOCAL4>	//Location 4

<TAG.LOCAL5>	//Location 5

<TAG.LOCAL6>	//Location 6

<TAG.LOCAL7>	//Location 7

<TAG.LOCAL8>	//Location 8

//page 2 //Kar$i Sayfa

<TAG.LOCAL9>	//Location 9

<TAG.LOCAL10>	//Location 10

<TAG.LOCAL11>	//Location 11

<TAG.LOCAL12>	//Location 12

<TAG.LOCAL13>	//Location 13

<TAG.LOCAL14>	//Location 14

<TAG.LOCAL15>	//Location 15

<TAG.LOCAL16>	//Location 16

| |_	//text 16

<def.l1>basefont size="4" color="#3D4675"<def.r1>Rune Ekle	//text 17

<TAG.NAME>	//text 18

<def.l1>basefont size="4" color="#3D4675"<def.r1>sarj Et	//text 19

|___	//text 20

<def.l1>basefont size="4" color="#3D4675"<def.r1>sarj: <def.l1>basefont size="4" color="#752A20"<def.r1><MOREX>.	//text 21

_| | //ren

_|

___| // sil

<def.l1>basefont size="4" color="#752A20"<def.r1>Gate

<def.l1>basefont size="4" color="#752A20"<def.r1>Recall

<def.l1>basefont size="4" color="#752A20"<def.r1>Isim

<def.l1>basefont size="4" color="#752A20"<def.r1>Cikart





[DIALOG d_runebook BUTTON]

ONBUTTON=0

RETURN 1



ONBUTTON=1

IF <TAG.POS1_X>=00

  SRC.SYSMESSAGE @68,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	IF <SRC.ISEVENT.e_safe>

  	IF <SRC.REGION.FLAGS>&0e

	   SRC.SYSMESSAGE @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi Cikisinizi engelliyor.

  	   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>&0e

  IF (<TAG.RESEARCH>==01092)

      SRC.SYSMESSAGE @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @68,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

//	IF <SRC.ISEVENT.e_safe>

 	IF <SRC.REGION.FLAGS>&0e

 	   SRC.SYSMESSAGE Hata: Bu bolgedeki kuvvetli buyu cemberi Cikisinizi engelliyor.

  	   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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

    SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @38,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

  	//   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 250 )

    SRC.SYSMESSAGE @0785,,1 Yeterli skill puanina sahip degilsiniz. (25 Magery Gerekli)

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><15)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		return 1

  	endif

  IF (<MOREX> > 0)

    MOREX=<MOREX>-1

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @0785,,1 Yeterli skill puanina sahip degilsiniz. (40 Magery Gerekli)

	    SRC.SOUND=92

	    RETURN 0

	  ENDIF

     SRC.rune_say Kal Ort Por

    src.sd 3

    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 @38,,1 Hata: 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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	//IF <SRC.ISEVENT.e_house>

  	//IF <SRC.REGION.FLAGS>&0e

//  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 750 )

    SRC.SYSMESSAGE @38,,1 Hata: Yeterli beceriye sahip degilsiniz.

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><40)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		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 @38,,1 Hata: Yeterli malzemeye sahip degilsiniz.

      SRC.SOUND=92

      RETURN 1

   ENDIF

  SRC.gate_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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	IF <SRC.ISEVENT.e_house>

  	IF <SRC.REGION.FLAGS>&0e

  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 750 )

    SRC.SYSMESSAGE @38,,1 Hata: Yeterli beceriye sahip degilsiniz.

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><40)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		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 @38,,1 Hata: Yeterli malzemeye sahip degilsiniz.

      SRC.SOUND=92

      RETURN 1

   ENDIF

  SRC.gate_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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	IF <SRC.ISEVENT.e_house>

  	IF <SRC.REGION.FLAGS>&0e

  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 750 )

    SRC.SYSMESSAGE @38,,1 Hata: Yeterli beceriye sahip degilsiniz.

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><40)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		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 @38,,1 Hata: Yeterli malzemeye sahip degilsiniz.

      SRC.SOUND=92

      RETURN 1

   ENDIF

  SRC.gate_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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	IF <SRC.ISEVENT.e_house>

  	IF <SRC.REGION.FLAGS>&0e

  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 750 )

    SRC.SYSMESSAGE @38,,1 Hata: Yeterli beceriye sahip degilsiniz.

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><40)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		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 @38,,1 Hata: Yeterli malzemeye sahip degilsiniz.

      SRC.SOUND=92

      RETURN 1

   ENDIF

  SRC.gate_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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	IF <SRC.ISEVENT.e_house>

  	IF <SRC.REGION.FLAGS>&0e

  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 750 )

    SRC.SYSMESSAGE @38,,1 Hata: Yeterli beceriye sahip degilsiniz.

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><40)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		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 @38,,1 Hata: Yeterli malzemeye sahip degilsiniz.

      SRC.SOUND=92

      RETURN 1

   ENDIF

  SRC.gate_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 @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	IF <SRC.ISEVENT.e_house>

        IF <SRC.REGION.FLAGS>&0e

  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 750 )

    SRC.SYSMESSAGE @38,,1 Hata: Yeterli beceriye sahip degilsiniz.

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><40)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		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 @38,,1 Hata: Yeterli malzemeye sahip degilsiniz.

      SRC.SOUND=92

      RETURN 1

   ENDIF

  SRC.gate_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=6

SRC.ACT.EQUIP

RETURN 1



ONBUTTON=23

IF <TAG.POS7_X>=00

  SRC.SYSMESSAGE @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	IF <SRC.ISEVENT.e_house>

  	IF <SRC.REGION.FLAGS>&0e

  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 750 )

    SRC.SYSMESSAGE @38,,1 Hata: Yeterli beceriye sahip degilsiniz.

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><40)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		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 @38,,1 Hata: Yeterli malzemeye sahip degilsiniz.

      SRC.SOUND=92

      RETURN 1

   ENDIF

  SRC.gate_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=6

SRC.ACT.EQUIP

RETURN 1



ONBUTTON=24

IF <TAG.POS8_X>=00

  SRC.SYSMESSAGE @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	IF <SRC.ISEVENT.e_house>

  	IF <SRC.REGION.FLAGS>&0e

  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 750 )

    SRC.SYSMESSAGE @38,,1 Hata: Yeterli beceriye sahip degilsiniz.

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><40)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		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 @38,,1 Hata: Yeterli malzemeye sahip degilsiniz.

      SRC.SOUND=92

      RETURN 1

   ENDIF

  SRC.gate_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.POS8_X>> <EVAL <TAG.POS8_Y>> <EVAL <TAG.POS8_Z>> <EVAL <TAG.POS8_M>>

SRC.ACT.MORE1=6

SRC.ACT.EQUIP

RETURN 1



ONBUTTON=33

IF <TAG.POS9_X>=00

  SRC.SYSMESSAGE @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	IF <SRC.ISEVENT.e_house>

  	IF <SRC.REGION.FLAGS>&0e

  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 750 )

    SRC.SYSMESSAGE @38,,1 Hata: Yeterli beceriye sahip degilsiniz.

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><40)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		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 @38,,1 Hata: Yeterli malzemeye sahip degilsiniz.

      SRC.SOUND=92

      RETURN 1

   ENDIF

  SRC.gate_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.POS9_X>> <EVAL <TAG.POS9_Y>> <EVAL <TAG.POS9_Z>> <EVAL <TAG.POS9_M>>

SRC.ACT.MORE1=6

SRC.ACT.EQUIP

RETURN 1



ONBUTTON=34

IF <TAG.POS10_X>=00

  SRC.SYSMESSAGE @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	IF <SRC.ISEVENT.e_house>

  	IF <SRC.REGION.FLAGS>&0e

  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 750 )

    SRC.SYSMESSAGE @38,,1 Hata: Yeterli beceriye sahip degilsiniz.

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><40)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		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 @38,,1 Hata: Yeterli malzemeye sahip degilsiniz.

      SRC.SOUND=92

      RETURN 1

   ENDIF

  SRC.gate_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.POS10_X>> <EVAL <TAG.POS10_Y>> <EVAL <TAG.POS10_Z>> <EVAL <TAG.POS10_M>>

SRC.ACT.MORE1=6

SRC.ACT.EQUIP

RETURN 1



ONBUTTON=35

IF <TAG.POS11_X>=00

  SRC.SYSMESSAGE @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	IF <SRC.ISEVENT.e_house>

  	IF <SRC.REGION.FLAGS>&0e

  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 750 )

    SRC.SYSMESSAGE @38,,1 Hata: Yeterli beceriye sahip degilsiniz.

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><40)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		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 @38,,1 Hata: Yeterli malzemeye sahip degilsiniz.

      SRC.SOUND=92

      RETURN 1

   ENDIF

  SRC.gate_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.POS11_X>> <EVAL <TAG.POS11_Y>> <EVAL <TAG.POS11_Z>> <EVAL <TAG.POS11_M>>

SRC.ACT.MORE1=6

SRC.ACT.EQUIP

RETURN 1



ONBUTTON=36

IF <TAG.POS12_X>=00

  SRC.SYSMESSAGE @50,,1 Bu alan bos.

  RETURN 1

ENDIF

IF !<SRC.ISGM>

	IF <SRC.ISEVENT.e_house>

  	IF <SRC.REGION.FLAGS>&0e

  	   SRC.SYSMESSAGE @38,,1 Hata: 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 @38,,1 Hata: Bu bolgedeki kuvvetli buyu cemberi girisinizi engelliyor.

      RETURN 1

  ENDIF

  IF ( <SRC.MAGERY> < 750 )

    SRC.SYSMESSAGE @38,,1 Hata: Yeterli beceriye sahip degilsiniz.

    SRC.SOUND=92

    RETURN 1

  ENDIF

  IF (<SRC.MANA><40)

    SRC.SOUND=92

    SRC.SYSMESSAGE @0842,,1 Yeterli mananiz yok.

    RETURN 1

  ENDIF

  	if (<src.action> == id(skill_magery)) || (<src.action> == skill_magery)

		src.sysmessage @38,,1 Buyu yaparken bunu kullanamazsiniz.

		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 @38,,1 Hata: Yeterli malzemeye sahip degilsiniz.

      SRC.SOUND=92

      RETURN 1

   ENDIF

  SRC.gate_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.POS12_X>> <EVAL <TAG.POS12_Y>> <EVAL <TAG.POS12_Z>> <EVAL <TAG.POS12_M>>

SRC.ACT.MORE1=6

SRC.ACT.EQUIP

RETURN 1

// Lütfen kodları [code] tagı içinde paylaşınız.
// xwerswoodx
Son güncelleme: xwerswoodx tarafından 28-04-2018 19:14 GMT tarihinde, önce.

Slothere -     28-04-2018 13:26 GMT -    
Bu scriptle patlamaması mucize zaten. Sitede paylaşılmış çok daha güncel scriptler var, onlardan birisine bakmanı öneririm. Bunlar tarihi eser, kullandığına değmez.

xwerswoodx -     28-04-2018 19:17 GMT -    
Zaten kodun tamamı atılmamış siteye, o kadar uzun ki, halbuki normal bir runebook scriptinin dialogla beraber olacağı en fazla 100 hadi bilemedin 200 satır. Hadi çok şey yapmayalımda maximum 300 satır diyelim, @Slothere'nin de dediği gibi bu script çok eski bir kod güncel scriptler var, yani bu kodun sphere'ı patlatmaması benim içinde mucize sayılır. Uzun zamandır bu kadar kötü bir kodlama görmemiştim. Her neyse zaten bize attığın debug mesajları ile sana nedenini söylememiz münmkün değil, ancak bu tarz debuglar genellikle aynı anda 2 işlem yapılırken çakışması durumunda gerçekleşir. Yani f_fizzle tek başına çalışabilir yada diğer şeyler tek başına çalışırken sorun olmayabilir ama ikisinin kullandığı ortak bir şey çakışmaya sebep olup debuga sokabilir Sphere'ı yine de dediğim gibi bize yolladığın kod ve debug resmi ile sana çözüm sunmamız imkansız. Kaldı ki dediğim gibi kodun tamamı gelmemiş ve ayrıca kod çok eski sürüm için kodlanmış. Muhtemelen 55i için kodlanmış sonradan 55r ye uyarlanmış, yani çağdışı kalmış.

paris16 -     28-04-2018 19:41 GMT -    
İlginiz ve alakanız icin cok teşekkür ederim. Gercekten Ultima Online adına Böyle bilgili böyle yol gösterici arkadaşların olması beni gurulandırıyor server acmak acamamak umrumda degil sadece burdfaki yardımlar ve bilgi paylaşımları beni cok gururlandırıyor Askerlik dönemimde Ultima Oynayan bir alt devreye raslamıştım cocugun yüzüne bakmam belki ama Ultima Oynuyo oynamış diye cocukla cok farklı bir bag oluştu aramızda ve alt devrem oldugu icin ic güdüselmi bilmem sahip cıktım cok kolladım bu oyunun geninden gelen arkadaşlıklar dostluklar gercekten hic yabancılık cekmeden oluşuyor icimden geldigi icin yazdım.