Mercurial > hg > batmud > ggrtf
changeset 283:496c2c457cb1
Cleanups.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 17 Feb 2006 04:19:09 +0000 |
parents | c639adae361c |
children | 6517558e2516 |
files | ggrtf-spellnames.tf ggrtf.tf |
diffstat | 2 files changed, 24 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/ggrtf-spellnames.tf Fri Feb 17 04:18:53 2006 +0000 +++ b/ggrtf-spellnames.tf Fri Feb 17 04:19:09 2006 +0000 @@ -1,6 +1,6 @@ ;; ;; GgrTF:Spellnames - Module for spell name translation @ BatMUD -;; (C) Copyright 2005 Cutter, Dazzt & Ggr +;; (C) Copyright 2005-2006 Cutter, Dazzt & Ggr ;; ;; This file (triggerset) is Free Software distributed under ;; GNU General Public License version 2.
--- a/ggrtf.tf Fri Feb 17 04:18:53 2006 +0000 +++ b/ggrtf.tf Fri Feb 17 04:19:09 2006 +0000 @@ -1,8 +1,8 @@ ;; -;; GgrTF v0.5.9.18-svn - TinyFugue script for BatMUD +;; GgrTF v0.5.9.19-svn - TinyFugue script for BatMUD ;; (C) Copyright 2004-2006 Matti 'ccr' Hämäläinen (aka Ggr Pupunen) ;; -/set ggrtf_ver=0.5.9.18-svn +/set ggrtf_ver=0.5.9.19-svn ;; ;; This triggerset is Free Software distributed under ;; GNU General Public License version 2. @@ -143,6 +143,14 @@ /return "BCgreen" +;; Execute macros given as parameters +/def -i prexecfuncs =\ + /while ({#})\ + /eval /%{1}%;\ + /shift%;\ + /done + + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Report current statistics ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -170,7 +178,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; List available options +;; List available options / settings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /def -i opts_dolist =\ /while ({#})\ @@ -220,6 +228,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Option, setting and hook definition macros ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Define an togglable option /set lst_options= /def -i deftoggle =\ /if (!getopts("n:d:", "")) /msq ERROR! Invalid toggle creation command!%;/break%;/endif%;\ @@ -235,7 +244,8 @@ /endif%%%;\ /msq @{Cyellow}%{opt_d}@{n} [%%%{qstr}] -;; Value settings + +;; Define a value setting /set lst_values= /def -i defvalue =\ /if (!getopts("n:d:", "")) /msq ERROR! Invalid value setting creation command!%;/break%;/endif%;\ @@ -255,7 +265,8 @@ /msq Use "@{BCyellow}/%{opt_n} *@{n}" to clear.%%%;\ /endif -;; Settings + +;; Define a setting with legal values /set lst_settings= /def -i chksetting =\ /set qrvals=0%;\ @@ -286,7 +297,7 @@ /endif -;; Function hook setting +;; Define a function hook setting /set lst_hooks= /def -i defhook =\ /if (!getopts("n:d:s:h:", "")) /msq ERROR! Invalid function hook setting creation command!%;/break%;/endif%;\ @@ -309,7 +320,9 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Define a global saveable variable +;; Variable saving functionality +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Define a global, saveable variable /def -i defvar =\ /set lst_savevars=%{1} %{lst_savevars}%;\ /eval /set %{1}=%{-1} @@ -368,14 +381,6 @@ /msq @{BCgreen}Done.@{n}%;\ -;; Execute macros given as parameters -/def -i prexecfuncs =\ - /while ({#})\ - /eval /%{1}%;\ - /shift%;\ - /done - - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Define some generic option toggles and settings /deftoggle -n"verbose" -d"Verbose (off = echo to client only)" @@ -411,7 +416,7 @@ ;; Ripcommand /defvalue -n"ripcommand" -d"Commands to be executed if ripaction = cmd" -/set set_ripcommand=@say Puputanssi!;hopple;shake bottom;wiggle;hop!;clap +/set set_ripcommand=@whee ;; LoC-action /defsetting -n"locaction" -d"Set action performed after blood corpse" -s"off dig eat get" @@ -474,10 +479,11 @@ ;; Main handling macro for binding movemement keys, etc. -/set set_peer=embedded /defhook -n"move" -d"Keyboard movement hooks" -h"prmove" -s"walk ship peer" /move walk +/set set_peer=embedded + ;; 'view' on every ship move /def -i -F -mregexp -t"^The ship (sails|cruises) " ship_move = @view