UO-Dev Arama

 



İçerde : 1 misafir, 0 üye : --- Sayfalar: 1
Yazar

paris16


UO-Dev Üyesi
Skill Title: Apprentice
Online durumu
Toplam Mesaj: 63
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Diğer
Yaş: 30
Mesaj #95525   26-04-2018 20: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
Kod:
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]
https://resmim.net/f/vLTwfL.png
[/img]



Yazar

Slothere


UO-Dev Üyesi
Skill Title: Expert
Online durumu
Toplam Mesaj: 274
Oyun Tarzı: Rp
Emulatör: Sphere
Tecrübe: Scripter
Yaş: 27
Mesaj #95527   26-04-2018 21: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;

Kod:
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.


Discord ID: slothere#5079

> Singularity Server Özellikleri

Singularity Server Discord:
https://discord.gg/Y4caeRg

Yazar

paris16


UO-Dev Üyesi
Skill Title: Apprentice
Online durumu
Toplam Mesaj: 63
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Diğer
Yaş: 30
Mesaj #95528   26-04-2018 21: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
Kod:
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



Yazar

Eyyubi


UO-Dev Üyesi
Skill Title: Neophyte
Online durumu
Toplam Mesaj: 7
Oyun Tarzı: Rp
Emulatör: Sphere
Tecrübe: Diğer
Yaş: 29
Mesaj #95529   26-04-2018 21:27 GMT    
        
Sadece f_fizzle kullanmayı denermisin


 paris16
Sistem Bozuk Kardeş..

Yazar

paris16


UO-Dev Üyesi
Skill Title: Apprentice
Online durumu
Toplam Mesaj: 63
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Diğer
Yaş: 30
Mesaj #95530   26-04-2018 21: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



Yazar

dw4yne


UO-Dev Üyesi
Skill Title: Expert
Online durumu
Toplam Mesaj: 309
Oyun Tarzı: Pvp
Emulatör: 0.56b
Tecrübe: Scripter
Yaş: 25
Mesaj #95531   27-04-2018 08:23 GMT    
        
i_rb_delay , i_rb_delay2 , e_x_breakspell spcriptlerini koyarsan yardımcı olabilirim. Sorun moongatede değil gibi duruyor.


 paris16
No [img] !

Yazar

paris16


UO-Dev Üyesi
Skill Title: Apprentice
Online durumu
Toplam Mesaj: 63
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Diğer
Yaş: 30
Mesaj #95533   27-04-2018 21: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

Kod:
[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 16:14 GMT, 447 Gün önce düzenlendi.



Yazar

Slothere


UO-Dev Üyesi
Skill Title: Expert
Online durumu
Toplam Mesaj: 274
Oyun Tarzı: Rp
Emulatör: Sphere
Tecrübe: Scripter
Yaş: 27
Mesaj #95534   28-04-2018 10: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.


 TheRaskol, paris16
Discord ID: slothere#5079

> Singularity Server Özellikleri

Singularity Server Discord:
https://discord.gg/Y4caeRg

Yazar

xwerswoodx


Sphere Destek
Skill Title: Master
Online durumu
Toplam Mesaj: 1748
Oyun Tarzı: Rp
Emulatör: Sphere
Tecrübe: Scripter
Yaş: 9
Mesaj #95536   28-04-2018 16: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ış.


 Slothere, paris16
Geçmişi olmayanın, geleceği olmaz.

Scripting Destek Discord: https://discord.gg/yXQ3m5S

Yazar

paris16


UO-Dev Üyesi
Skill Title: Apprentice
Online durumu
Toplam Mesaj: 63
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Diğer
Yaş: 30
Mesaj #95537   28-04-2018 16: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.



Sayfalar: 1



Benzer Konular

KonularMesajlarSon gönderenTarih
runuo server kurulumu yardım1tarantula28-04-2019
Oynanabilir UO Server13UoWar06-08-2018
Yeni açacağım server için ortak arıyorum9TheRaskol05-02-2018
evde server kurulumu7captainclaw16-03-2018
Satılık Server Arıyorum2Adwerd01-01-2018


Keywords:

ultima online, RunUO, ultima online download, sphere scripting, role play, uo grafik, second age ultima, uo loop, macroman, pvp server, server kurulumu, sphere, multool, ml mulls, 56b 55r 55i, htmlgumps, client 4x, client edit, sphere release, osi, rp server, sunucular, ghost mouse, inside uo, kingdom reborn, stygian abyss, uo nasıl oynanır, mondain's legacy, age of shadows, world build, grandmaster, ultima online pvp, player dosyaları, ultima online indir, frp game, RunUO 1.0.0, razor, uo rice, hue editör, skill tools, ultima online patch, axis, world build, verdata, verdata patcher, map editör, gump editör, mul patcher, aos mulls, scriptler, anim edit, anim publish, hues mul, hosting vps, event dialog, account sistemi, skill gain, static yapımı,