summaryrefslogtreecommitdiff
path: root/world/map/conf/magic-debug.sex
diff options
context:
space:
mode:
authormekolat <mekolat@gmail.com>2014-07-09 23:00:02 -0400
committermekolat <mekolat@gmail.com>2014-07-10 20:46:17 -0400
commitac8128e029378c5f66f52062262a83b919a17030 (patch)
tree5032fc91b0659c8d72707a44f6b0eb3a490920b6 /world/map/conf/magic-debug.sex
parenta3f589a47c5f32cfe42316608da367792cadda1f (diff)
downloadserverdata-ac8128e029378c5f66f52062262a83b919a17030.tar.gz
serverdata-ac8128e029378c5f66f52062262a83b919a17030.tar.bz2
serverdata-ac8128e029378c5f66f52062262a83b919a17030.tar.xz
serverdata-ac8128e029378c5f66f52062262a83b919a17030.zip
Split magic files
Diffstat (limited to 'world/map/conf/magic-debug.sex')
-rw-r--r--world/map/conf/magic-debug.sex408
1 files changed, 408 insertions, 0 deletions
diff --git a/world/map/conf/magic-debug.sex b/world/map/conf/magic-debug.sex
new file mode 100644
index 00000000..3cefd3b9
--- /dev/null
+++ b/world/map/conf/magic-debug.sex
@@ -0,0 +1,408 @@
+"--------------------------------------------------------------------------------"
+"Debug keywords"
+"--------------------------------------------------------------------------------"
+(SPELL () debug "debug" ()
+ (=>
+ (REQUIRE DEBUG)
+ (EFFECT
+ (message caster
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+ "FLAGS: " "drank=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 1)
+ 0))
+ ", ")
+ "Kmseed=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 2)
+ 0))
+ ", ")
+ "touched-mseed=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 4)
+ 0))
+ ", ")
+ "mseed-max=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 8)
+ 0))
+ ", ")
+ "Kauldsbel=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 16)
+ 0))
+ ", ")
+ "Kwyara=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 32)
+ 0))
+ ", ")
+ "Ksagatha=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 64)
+ 0))
+ ", ")
+ "Kmpotion=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 128)
+ 0))
+ ", ")
+ "mseed-rumour=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 256)
+ 0))
+ ", ")
+ "Kcuttree=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 512)
+ 0))
+ ", ")
+ "cut=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 1024)
+ 0))
+ ", ")
+ "Kdruidtree=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 2048)
+ 0))
+ ", ")
+ "Kimp=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 4096)
+ 0))
+ ", ")
+ "Koldwiz=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 8192)
+ 0))
+ ", ")
+ "made-conc=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 16384)
+ 0))
+ ", ")
+ "elanore-omar=")
+ (>
+ (&
+ (script_int caster "MAGIC_FLAGS")
+ 32768)
+ 0)))
+ (message caster
+ (+
+ (+
+ (+
+ (+
+ (+ "EXP: "
+ (&
+ (script_int caster "MAGIC_EXPERIENCE")
+ 0xffff))
+ ", lastspell=")
+ (&
+ (>>
+ (script_int caster "MAGIC_EXPERIENCE")
+ 16)
+ 0xff))
+ ", healexp=")
+ (&
+ (>>
+ (script_int caster "MAGIC_EXPERIENCE")
+ 24)
+ 0xff)))
+ (message caster
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+
+ (+ "STATUS: " "auldsbel:")
+ (&
+ (script_int caster "QUEST_MAGIC")
+ 0x1f))
+ ",")
+ (&
+ (>>
+ (script_int caster "QUEST_MAGIC")
+ 5)
+ 0x7))
+ ", ")
+ "dt/mb:")
+ (&
+ (>>
+ (script_int caster "QUEST_MAGIC")
+ 8)
+ 0xf))
+ ", ")
+ "s-unhappy:")
+ (&
+ (>>
+ (script_int caster "QUEST_MAGIC")
+ 12)
+ 0xf))
+ ", ")
+ "sagatha:")
+ (&
+ (>>
+ (script_int caster "QUEST_MAGIC")
+ 16)
+ 0xff))
+ ", ")
+ "swords:")
+ (&
+ (>>
+ (script_int caster "QUEST_MAGIC")
+ 24)
+ 0xff))
+ ", ")
+ "imp:")
+ (&
+ (>>
+ (script_int caster "QUEST_MAGIC2")
+ 0)
+ 0xf))
+ ", ")
+ "elanore:")
+ (&
+ (>>
+ (script_int caster "QUEST_MAGIC2")
+ 4)
+ 0xf))
+ ", ")
+ "elanore-sub:")
+ (&
+ (>>
+ (script_int caster "QUEST_MAGIC2")
+ 12)
+ 0xf))
+ ", ")
+ "wyara:")
+ (&
+ (>>
+ (script_int caster "QUEST_MAGIC2")
+ 8)
+ 0xf))))))
+(PROCEDURE debug_xmod (name mask shift gain)
+ (SET value
+ (+
+ (&
+ (>>
+ (script_int caster name)
+ shift)
+ mask)
+ gain))
+ (IF (< value 0)
+ (SET value 0))
+ (IF (> value mask)
+ (SET value mask))
+ (CALL set_var name mask shift value))
+(PROCEDURE debug_mod (name delta)
+ (IF (== name "mexp")
+ (CALL debug_xmod "MAGIC_EXPERIENCE" 0xffff 0 delta)
+ (IF (== name "lastspell")
+ (CALL debug_xmod "MAGIC_EXPERIENCE" 0xff 16 delta)
+ (IF (== name "healexp")
+ (CALL debug_xmod "MAGIC_EXPERIENCE" 0xff 24 delta)
+ (IF (== name "drank")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 0 delta)
+ (IF (== name "Kmseed")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 1 delta)
+ (IF (== name "touched-mseed")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 2 delta)
+ (IF (== name "mseed-max")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 3 delta)
+ (IF (== name "Kauldsbel")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 4 delta)
+ (IF (== name "Kwyara")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 5 delta)
+ (IF (== name "Ksagatha")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 6 delta)
+ (IF (== name "Kmpotion")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 7 delta)
+ (IF (== name "mseed-rumour")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 8 delta)
+ (IF (== name "Kcuttree")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 9 delta)
+ (IF (== name "cut")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 10 delta)
+ (IF (== name "Kdruidtree")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 11 delta)
+ (IF (== name "Kimp")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 12 delta)
+ (IF (== name "oldwiz")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 13 delta)
+ (IF (== name "made-conc")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 14 delta)
+ (IF (== name "elanore-omar")
+ (CALL debug_xmod "MAGIC_FLAGS" 0x1 15 delta)
+ (IF (== name "auldsbel")
+ (CALL debug_xmod "QUEST_MAGIC" 0x1f 0 delta)
+ (IF (== name "Qauldsbel")
+ (CALL debug_xmod "QUEST_MAGIC" 0x7 5 delta)
+ (IF (== name "dt")
+ (CALL debug_xmod "QUEST_MAGIC" 0x3 10 delta)
+ (IF (== name "mb")
+ (CALL debug_xmod "QUEST_MAGIC" 0x3 8 delta)
+ (IF (== name "s-unhappy")
+ (CALL debug_xmod "QUEST_MAGIC" 0xff 12 delta)
+ (IF (== name "sagatha")
+ (CALL debug_xmod "QUEST_MAGIC" 0xff 16 delta)
+ (IF (== name "swords")
+ (CALL debug_xmod "QUEST_MAGIC" 0xff 24 delta)
+ (IF (== name "imp")
+ (CALL debug_xmod "QUEST_MAGIC2" 0xf 0 delta)
+ (IF (== name "elanore")
+ (CALL debug_xmod "QUEST_MAGIC2" 0xf 4 delta)
+ (IF (== name "wyara")
+ (CALL debug_xmod "QUEST_MAGIC2" 0xf 8 delta)
+ (IF (== name "elanore-sub")
+ (CALL debug_xmod "QUEST_MAGIC2" 0xf 12 delta)
+ (message caster "Unknown"))))))))))))))))))))))))))))))))
+
+(SPELL () debug-up1 "debug+1" (STRING name)
+ (=>
+ (REQUIRE DEBUG)
+ (EFFECT
+ (CALL debug_mod name 1))))
+
+(SPELL () debug-down1 "debug-1" (STRING name)
+ (=>
+ (REQUIRE DEBUG)
+ (EFFECT
+ (CALL debug_mod name
+ (- 0 1)))))
+
+(SPELL () debug-up16 "debug+16" (STRING name)
+ (=>
+ (REQUIRE DEBUG)
+ (EFFECT
+ (CALL debug_mod name 16))))
+
+(SPELL () debug-down16 "debug-16" (STRING name)
+ (=>
+ (REQUIRE DEBUG)
+ (EFFECT
+ (CALL debug_mod name
+ (- 0 16)))))
+
+(SPELL () debug-up256 "debug+256" (STRING name)
+ (=>
+ (REQUIRE DEBUG)
+ (EFFECT
+
+ (CALL debug_mod name 256))))
+(SPELL () debug-down256 "debug-256" (STRING name)
+ (=>
+ (REQUIRE DEBUG)
+ (EFFECT
+ (CALL debug_mod name
+ (- 0 256)))))
+
+(SPELL () debug-reset "debug-reset" ()
+ (=>
+ (REQUIRE DEBUG)
+ (EFFECT
+ (set_script_variable caster "QUEST_MAGIC"
+ 0)
+ (set_script_variable caster "QUEST_MAGIC2"
+ 0)
+ (set_script_variable caster "MAGIC_FLAGS"
+ 0)
+ (set_script_variable caster "MAGIC_EXP"
+ 0))))