diff options
Diffstat (limited to 'world/map/conf/magic-debug.sex')
| -rw-r--r-- | world/map/conf/magic-debug.sex | 408 |
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)))) |