Mercurial > hg > batmud > ggrtf
view ggrtf-pre.tf @ 1677:32c6a74b989a
Improve spell handling, add grabbing of wiz-only spell chance value.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 27 Mar 2024 17:24:10 +0200 |
parents | 356c3c26aee6 |
children |
line wrap: on
line source
;; ;; GgrTF::PreInit - Module for loading saved settings and pre-initialization ;; (C) Copyright 2006-2015 Matti Hamalainen (Ggr) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License ;; version 2 as published by the Free Software Foundation. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; file "COPYING.txt" for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, ;; MA 02110-1301 USA. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; This file should be loaded BEFORE loading of ggrtf.tf or modules. ;; /loaded GgrTF:PreInit /def -i gloadpreinit =\ /let _spreinit=%{set_datapath}%{set_saveprefix}pre.tf%;\ /echo -p @{BCgreen}Loading pre-init settings from@{n} '@{Cyellow}%{_spreinit}@{n}'%;\ /load -q %{_spreinit}%;\ /echo -p @{BCgreen}Done.@{n}%;\ /gloadpreinit ;; Filter out liting/attribute options /def -i gfilterlites =\ /let _new=%;\ /while ({#})\ /if (!regmatch("^(-aBC|-aC|-P|-ab)",{1}))\ /let _new=%{_new} %{1}%;\ /endif%;\ /shift%;\ /done%;\ /result _new ;; Magic happens here /def -i gdef =\ /if (opt_lites!~"on")\ /split %{*}%;\ /let _opts=%{P1}%;\ /let _body=%{P2}%;\ /let _nopts=$(/gfilterlites %{_opts})%;\ /def %{_nopts} = %{_body}%;\ /else \ /def %{*}%;\ /endif ;; Macro for defining plain lites (with no functionality) /def -i glite =\ /if (opt_lites!~"on")\ /else \ /def -i -F -p1 %{*}%;\ /endif