488b437d-f844-4107-af78-cda7f54fe68c
1.1
2018
A vore-based Pokemon text adventure
mZmm
Adult
0
false
false
false
false
DarkBlue
false
PCom1.1.png
player
look at #object#; x #object#; examine #object#; exam #object#; ex #object#
take #object#; get #object#; pick up #object#
takeList = NewObjectList()
foreach (obj, ListExclude(ScopeVisibleNotHeldNotScenery(), game.pov)) {
if (obj.parent = game.pov.parent) {
list add (takeList, obj)
}
}
return (takeList)
drop #object#
return (GetDirectChildren(game.pov))
use #object#
^undo$
^i$|^inv$|^inventory$
^look$|^l$
north|east|south|west|northeast|northwest|southeast|southwest|out|up|down|n|e|s|w|ne|nw|se|sw|o|u|d)$]]>
^quit$
.*)$|^go (?.*)$|^(?north|east|south|west|northeast|northwest|southeast|southwest|in|out|up|down|n|e|s|w|ne|nw|se|sw|o|u|d)$]]>
You can't go there.
open #object#
close #object#
.*) (on|in) (?.*)$]]>
.*) from (?.*)$]]>
give #object#
.*) to (?.*)$]]>
.*) (on|with) (?.*)$]]>
.*) about (?.*)$]]>
.*) about (?.*)$]]>
.*)$]]>
speak to #object#; speak #object#; talk to #object#; talk #object#
speak
DefaultSpeakTo
buy #object#
buy
DefaultBuy
climb #object#
climb
DefaultClimb
drink #object#
drink
DefaultDrink
eat #object#
eat
DefaultEat
hit #object#
hit
DefaultHit
kill #object#
kill
DefaultKill
kiss #object#
kiss
DefaultKiss
knock #object#
knock
DefaultKnock
lick #object#
lick
DefaultLick
lie on #object#; lie upon #object#; lie down on #object#; lie down upon #object#
lie
DefaultLie
listen to #object#
listen
DefaultListenTo
lock #object#
lock
DefaultLock
move #object#
move
DefaultMove
pull #object#
pull
DefaultPull
push #object#
push
DefaultPush
read #object#
read
DefaultRead
search #object#
search
DefaultSearch
show #object#
show
DefaultShow
sit on #object#; sit upon #object#; sit down on #object#; sit down upon #object#
sit
DefaultSit
smell #object#; sniff #object#
smell
DefaultSmell
taste #object#
taste
DefaultTaste
throw #object#
throw
DefaultThrow
tie #object#
tie
DefaultTie
touch #object#
touch
DefaultTouch
turn on #object#; turn #object# on; switch on #object#; switch #object# on
turnon
DefaultTurnOn
turn off #object#; turn #object# off; switch off #object#; switch #object# off
turnoff
DefaultTurnOff
turn #object#
turn
DefaultTurn
unlock #object#
unlock
DefaultUnlock
untie #object#
untie
DefaultUntie
wear #object#
wear
DefaultWear
^listen$
^jump$
^sit$|^sit down$
^lie$|^lie down$
^sleep$|^rest$
^wait$|^z$
^xyzzy$
^help$|^\?$
^save$
approach
approach
"You can't approach " + object.article + "."
rub
rub
"You can't rub " + object.article + "."
struggle
struggle
"You can't struggle " + object.article + "."
shake
shake
"You can't shake " + object.article + "."
false
You take it.
if (this.alias = null) {
this.alias = this.name
}
container = this.stackparent
this.parent = container
SetStack (container)
if (this.takemsg = null) {
msg (DynamicTemplate("TakeSuccessful", object))
}
else {
msg (this.takemsg)
}
false
1
You take it.
this.parent = null
game.pov.money = game.pov.money + this.money
if (this.takemsg = null) {
msg (DynamicTemplate("TakeSuccessful", object))
}
else {
msg (this.takemsg)
}
with; using
With which object?
That doesn't work.
There are no objects available to do that with.
Georgia, serif
12
White
Black
Blue
false
0.5
Arial
9
White
Black
LightGrey
Black
northwest
north
northeast
west
east
southwest
south
southeast
up
down
in
out
0
false
all
everything
the
a
an
false
950
false
30
0
20
20
false
false
1
2
3
4
false
false
false
false
false
en
false
30
300
false
false
false
false
false
false
*.jpg;*.jpeg;*.png;*.gif;*.js;*.wav;*.mp3;*.htm;*.html;*.svg
InitPOV (oldvalue, game.pov)
false
false
false
650
60
Black
White
White
'Lucida Console', Monaco, monospace
Press Start 2P
14
'Lucida Console', Monaco, monospace
Black
White
GreenYellow
false
false
false
650
60
'Courier New', Courier, monospace
Special Elite
Red
Yellow
Yellow
'Comic Sans MS', cursive, sans-serif
14
Impact, Charcoal, sans-serif
Red
Yellow
Black
Yellow
Look at
Take
Look at
Use
Drop
false
false
it
it
false
false
false
false
You are in
You can see
You can go
containing
false
false
false
0
false
false
1
1
White
Black
1
15
false
0
0
me
myself
self
Looking good.
you
yourself
false
false
false
false
false
false
if (game.pov = this) {
if (IsDefined("oldvalue")) {
OnEnterRoom (oldvalue)
}
else {
OnEnterRoom (null)
}
if (game.gridmap) {
MergePOVCoordinates
}
}
if (this.isopen and HasScript(this, "onopen")) {
do (this, "onopen")
}
if (not this.isopen and HasScript(this, "onclose")) {
do (this, "onclose")
}
if (this.locked and HasScript(this, "onlock")) {
do (this, "onlock")
}
if (not this.locked and HasScript(this, "onunlock")) {
do (this, "onunlock")
}
if (this.switchedon and HasScript(this, "onswitchon")) {
do (this, "onswitchon")
}
if (not this.switchedon and HasScript(this, "onswitchoff")) {
do (this, "onswitchoff")
}
Go to
false
false
That way is locked.
false
false
1
false
0
0
Go
northwest
nw
north
n
northeast
ne
west
w
east
e
southwest
sw
south
s
southeast
se
up
u
down
d
in
out
o
Look at
Speak to
he
him
false
Look at
Speak to
she
her
false
they
them
Look at
Speak to
they
them
Look at
Speak to
they
them
Open
Close
Open
Close
Open
Close
on which there is
Open
Close
1
100
activecontainer.maxvolume) {
correct = false
if (HasString(this, "containerfullmessage")) {
message = this.containerfullmessage
}
else {
message = DynamicTemplate("ContainerFull", this)
}
}
}
activecontainer = activecontainer.parent
}
children = GetDirectChildren(this)
if (listcount(children) >= this.maxobjects) {
correct = false
if (HasString(this, "containerfullmessage")) {
message = this.containerfullmessage
}
else {
message = DynamicTemplate("MaxObjectsInContainer", this)
}
}
if (correct = false) {
msg (message)
}
else {
object.parent = this
msg (Template("Done"))
}
]]>
Open
Close
You do not have the key.
Unlocked.
Locked.
false
if (this.locked) {
if (this.autounlock and AllKeysAvailable(this)) {
do (this, "unlock")
if (not this.isopen) {
OpenObject (this)
}
}
else {
msg (DynamicTemplate("LockedObject", this))
}
}
else {
OpenObject (this)
}
if (this.locked) {
msg (DynamicTemplate("LockedObject", this))
}
else {
CloseObject (this)
}
if (this.locked) {
msg (DynamicTemplate("AlreadyLocked", this))
}
else if (this.isopen and not this.canlockopen) {
msg (DynamicTemplate("CannotLockOpen", this))
}
else {
if (AllKeysAvailable(this)) {
msg (this.lockmessage)
this.locked = true
}
else {
msg (this.nokeymessage)
}
}
if (not this.locked) {
msg (DynamicTemplate("AlreadyUnlocked", this))
}
else {
if (AllKeysAvailable(this)) {
msg (this.unlockmessage)
this.locked = false
if (this.autoopen and not this.isopen) {
TryOpenClose (true, this)
}
}
else {
msg (this.nokeymessage)
}
}
false
Switch on
Switch off
if (ListContains(ScopeReachable(), this)) {
if (this.switchedon) {
msg (DynamicTemplate("AlreadySwitchedOn", this))
}
else {
if (HasString(this, "switchonmsg")) {
msg (this.switchonmsg)
}
else {
msg (DynamicTemplate("SwitchedOn", this))
}
this.switchedon = true
}
}
else {
msg (DynamicTemplate("DefaultTurnOn", this))
}
if (ListContains(ScopeReachable(), this)) {
if (not this.switchedon) {
msg (DynamicTemplate("AlreadySwitchedOff", this))
}
else {
if (HasString(this, "switchoffmsg")) {
msg (this.switchoffmsg)
}
else {
msg (DynamicTemplate("SwitchedOff", this))
}
this.switchedon = false
}
}
else {
msg (DynamicTemplate("DefaultTurnOff", this))
}
0
Eat
if (HasString(this, "eatmsg")) {
msg (this.eatmsg)
}
else {
msg (DynamicTemplate("Eaten", this))
}
if (HasInt(game.pov, "health")) {
game.pov.health = game.pov.health + this.eathealth
}
destroy (this.name)
10
11
14
5
7
13
if (DoesInherit(container, "childstack_object")) {
container = container.stackparent
}
if (not HasString(container, "originalalias")) {
if (HasString(container, "listalias")) {
container.originalalias = container.listalias
}
else {
container.originalalias = container.alias
}
}
stacked_count = ListCount(GetDirectChildren(container))
if (stacked_count = 0) {
container.parent = Stack Containers
}
else if (stacked_count = 1) {
container.gender = "it"
container.article = "it"
if (container.parent = Stack Containers) {
container.parent = game.pov
}
}
else {
container.gender = "they"
container.article = "them"
}
container.listalias = container.originalalias + ": " + ToString(stacked_count)
DoStackStuff (container, "_Unstack", null, "Drop which one?")
DoStackStuff (container, "_UseInStack", null, "Use which one?")
DoStackStuff (container, null, "look", "Look at which one?")
DoStackStuff (container, null, "consume", "Consume which one?")
DoStackStuff (container, null, verb, CapFirst(verb) + " which one?")
// msg("container="+container)
// msg("functionname="+functionname)
// msg("scriptname="+scriptname)
// msg("s="+s)
if (container.homogeneous or ListCount(GetDirectChildren(container)) = 1) {
game.functionname_tmp = functionname
game.scriptname_tmp = scriptname
DoingStackStuff (ObjectListItem(GetDirectChildren(container), 0))
}
else {
dic = NewStringDictionary()
foreach (o, GetDirectChildren(container)) {
dictionary add (dic, o.name, o.alias)
}
game.functionname_tmp = functionname
game.scriptname_tmp = scriptname
ShowMenu (s, dic, true) {
if (not result = null) {
DoingStackStuff (GetObject(result))
}
}
}
stack = obj.parent
if (not game.scriptname_tmp = null) {
PrintOrRun (obj, game.scriptname_tmp)
}
else {
game.tempobj = obj
f = Eval (game.functionname_tmp + "(game.tempobj)")
}
SetStack (stack)
container = object.stackparent
object.parent = game.pov.parent
SetStack (container)
msg ("You drop " + GetDisplayName(object) + ".")
if (HasScript(object, "ondrop")) {
do (object, "ondrop")
}
return (true)
dic = NewDictionary()
dictionary add (dic, "object", object)
do (use, "script", dic)
SetStack (object)
return (true)
if (HasScript(obj, att)) {
do (obj, att)
}
if (HasString(obj, att)) {
msg (GetString(obj, att))
}
0) {
return ("an")
}
else {
return ("a")
}
]]>
return (CapFirst(obj.gender) + " " + Conjugate(obj, verb))
gender = obj.gender
if (gender = "he" or gender = "she") {
gender = "it"
}
switch (verb) {
case ("be") {
switch (gender) {
case ("i") {
return ("am")
}
case ("you") {
return ("are")
}
case ("it") {
return ("is")
}
case ("we") {
return ("are")
}
case ("they") {
return ("are")
}
default {
return ("is")
}
}
}
case ("do") {
switch (gender) {
case ("i") {
return ("do")
}
case ("you") {
return ("do")
}
case ("it") {
return ("does")
}
case ("we") {
return ("do")
}
case ("they") {
return ("do")
}
default {
return ("do")
}
}
}
default {
if (gender = "it") {
return (verb + "s")
}
else {
return (verb)
}
}
}
"") {
msg (list)
}
}
]]>
game.pov.maxvolume) {
continue = false
if (HasString(game.pov, "containerfullmessage")) {
message = prefix + game.pov.containerfullmessage
}
else {
message = prefix + DynamicTemplate("FullInventory", object)
}
}
}
children = GetDirectChildren(game.pov)
if (HasInt(game.pov, "maxobjects")) {
if (game.pov.maxobjects > 0) {
if (ListCount(children) >= game.pov.maxobjects) {
continue = false
if (HasString(game.pov, "containermaxobjects")) {
message = prefix + game.pov.containermaxobjects
}
else {
message = prefix + DynamicTemplate("MaxObjectsInInventory", object)
}
}
}
}
if (continue = false) {
msg (message)
}
else {
found = true
takemsg = object.takemsg
switch (TypeOf(object, "take")) {
case ("script") {
if (ismultiple) {
OutputTextNoBr (prefix)
}
do (object, "take")
takemsg = ""
}
case ("boolean") {
if (object.take = true) {
object.parent = game.pov
if (takemsg = null) {
takemsg = DynamicTemplate("TakeSuccessful", object)
}
}
else {
found = false
}
}
case ("string") {
object.parent = game.pov
takemsg = object.take
}
default {
found = false
}
}
if (not found and takemsg = null) {
takemsg = DynamicTemplate("TakeUnsuccessful", object)
}
if (LengthOf(takemsg) > 0) {
msg (prefix + takemsg)
}
if (HasScript(object, "ontake")) {
do (object, "ontake")
}
if (found and GetBoolean (object, "scenery") and object.parent = game.pov) {
object.scenery = false
}
}
}
]]>
0) {
msg (prefix + dropmsg)
}
if (HasScript(object, "ondrop")) {
do (object, "ondrop")
}
}
]]>
objectlist = NewObjectList()
objectlist = ScopeReachableInventory()
objectlist = ListCombine (objectlist, ScopeReachableNotHeld())
excludelist = NewObjectList()
list add (excludelist, game.pov)
list add (excludelist, object)
candidates = NewObjectList()
candidates = ListExclude(RemoveSceneryObjects(objectlist), excludelist)
return (candidates)
if (doopen) {
action = "open"
scriptaction = "openscript"
}
else {
action = "close"
scriptaction = "closescript"
}
if (not ListContains(ScopeReachable(), object)) {
msg (DynamicTemplate("ObjectNotOpen", GetBlockingObject(object)))
}
else {
found = false
if (GetBoolean(object, action)) {
if (doopen) {
if (object.isopen) {
msg (DynamicTemplate("AlreadyOpen", object))
}
else {
if (HasScript(object, scriptaction)) {
do (object, scriptaction)
}
else {
OpenObject (object)
}
}
}
else {
if (not object.isopen) {
msg (DynamicTemplate("AlreadyClosed", object))
}
else {
if (HasScript(object, scriptaction)) {
do (object, scriptaction)
}
else {
CloseObject (object)
}
}
}
}
else {
if (doopen) {
msg (DynamicTemplate("CantOpen", object))
}
else {
msg (DynamicTemplate("CantClose", object))
}
}
}
if (HasString(object, "openmsg")) {
msg (object.openmsg)
}
else {
msg (DynamicTemplate("OpenSuccessful", object))
}
object.isopen = true
ListObjectContents (object)
if (HasString(object, "closemsg")) {
msg (object.closemsg)
}
else {
msg (DynamicTemplate("CloseSuccessful", object))
}
object.isopen = false
objectlist = NewObjectList()
objectlist = ScopeReachableInventory()
objectlist = ListCombine (objectlist, ScopeReachableNotHeld())
excludelist = NewObjectList()
list add (excludelist, game.pov)
list add (excludelist, object)
candidates = NewObjectList()
candidates = ListExclude(RemoveSceneryObjects(objectlist), excludelist)
return (candidates)
handled = false
if (HasString(object2, "give")) {
msg (object2.give)
handled = true
}
else if (TypeOf(object2, "give") = "scriptdictionary") {
if (DictionaryContains(object2.give, object1.name)) {
parameters = NewObjectDictionary()
dictionary add (parameters, "this", object2)
dictionary add (parameters, "object", object1)
invoke (ScriptDictionaryItem(object2.give, object1.name), parameters)
handled = true
}
if (not handled) {
if (HasScript(object2, "giveanything")) {
// TO DO: Would be better to use a delegate for giveanything, but need to implement Editor support first
parameters = NewObjectDictionary()
dictionary add (parameters, "object", object1)
do (object2, "giveanything", parameters)
handled = true
}
}
}
if (not handled) {
if (HasString(object1, "giveto")) {
msg (object1.giveto)
handled = true
}
else if (TypeOf(object1, "giveto") = "scriptdictionary") {
if (DictionaryContains(object1.giveto, object2.name)) {
parameters = NewObjectDictionary()
dictionary add (parameters, "this", object1)
dictionary add (parameters, "object", object2)
invoke (ScriptDictionaryItem(object1.giveto, object2.name), parameters)
handled = true
}
else {
if (HasScript(object1, "givetoanything")) {
// TO DO: Would be better to use a delegate for givetoanything, but need to implement Editor support first
parameters = NewObjectDictionary()
dictionary add (parameters, "object", object2)
do (object1, "givetoanything", parameters)
handled = true
}
}
}
}
if (not handled) {
msg (DynamicTemplate("DefaultGive", object2, object1))
}
handled = false
if (HasString(object2, "useon")) {
msg (object2.useon)
handled = true
}
else if (TypeOf(object2, "useon") = "scriptdictionary") {
if (DictionaryContains(object2.useon, object1.name)) {
parameters = NewObjectDictionary()
dictionary add (parameters, "this", object2)
dictionary add (parameters, "object", object1)
invoke (ScriptDictionaryItem(object2.useon, object1.name), parameters)
handled = true
}
else {
if (HasScript(object2, "useanything")) {
// TO DO: Would be better to use a delegate for useanything, but need to implement Editor support first
parameters = NewObjectDictionary()
dictionary add (parameters, "object", object1)
do (object2, "useanything", parameters)
handled = true
}
}
}
if (not handled) {
if (HasString(object1, "selfuseon")) {
msg (object1.selfuseon)
handled = true
}
else if (TypeOf(object1, "selfuseon") = "scriptdictionary") {
if (DictionaryContains(object1.selfuseon, object2.name)) {
parameters = NewObjectDictionary()
dictionary add (parameters, "this", object1)
dictionary add (parameters, "object", object2)
invoke (ScriptDictionaryItem(object1.selfuseon, object2.name), parameters)
handled = true
}
else {
if (HasScript(object1, "selfuseanything")) {
// TO DO: Would be better to use a delegate for selfuseanything, but need to implement Editor support first
parameters = NewObjectDictionary()
dictionary add (parameters, "object", object2)
do (object1, "selfuseanything", parameters)
handled = true
}
}
}
}
if (not handled) {
msg (DynamicTemplate("DefaultUseOn", object2, object1))
}
= maxstrength and strength>0) {
match = ScriptDictionaryItem(dictionary, keywords)
maxstrength = strength
}
}
if (match <> null) {
parameters = NewObjectDictionary()
dictionary add (parameters, "this", object)
invoke (match, parameters)
handled = true
}
}
if (not handled) {
if (HasScript(object, defaultscript)) {
do (object, defaultscript)
}
else {
msg (DynamicTemplate(defaulttemplate, object))
}
}
]]>
// Keywords is the subject. We split it into individual words, and then see how well
// the words in the input match the keywords.
keywordlist = Split(keywords, " ")
inputlist = Split(input, " ")
strength = 0
foreach (word, inputlist) {
foreach (keyword, keywordlist) {
if (StartsWith(word, keyword)) {
strength = strength + LengthOf(keyword)
}
}
}
return (strength)
0) {
if (not ListContains(partialmatches, obj)) {
list add (partialmatches, obj)
}
}
}
}
]]>
foreach (obj, objects) {
if (not DictionaryContains(dictionary, obj.name)) {
dictionary add (dictionary, obj.name, GetDisplayAlias(obj))
}
}
null) {
if (DictionaryContains(game.pov.commandmetadata, value)) {
result = GetObject(StringDictionaryItem(game.pov.commandmetadata, value))
if (result <> null) {
if (ListContains(ScopeVisible(), result)) {
found = true
return (result)
}
}
}
}
if (not found) {
value = LCase(value)
result = ResolveNameInternal(variable, value, objtype)
if (result <> null) {
return (result)
}
else {
// TO DO: Check this behaviour. We only want to try ignoring prefixes if we have definitely got an unresolved name.
foreach (prefix, game.parserignoreprefixes) {
if (StartsWith(value, prefix + " ")) {
result = ResolveNameInternal(variable, Mid(value, LengthOf(prefix) + 1), objtype)
}
}
if (result = null and LengthOf(variable) = 0 and not GetBoolean(game.pov, "currentcommandmultiobjectpending")) {
UnresolvedCommand (value, game.pov.currentcommandpendingvariable)
}
return (result)
}
}
]]>
null) {
foreach (altname, obj.alt) {
CompareNames (LCase(altname), value, obj, fullmatches, partialmatches)
}
}
}
// allow referring to objects from the previous command by gender or article
if (objtype = "object" and game.lastobjects <> null) {
foreach (obj, game.lastobjects) {
CompareNames (LCase(obj.article), value, obj, fullmatches, partialmatches)
CompareNames (LCase(obj.gender), value, obj, fullmatches, partialmatches)
}
}
if (ListCount(fullmatches) = 1) {
return (ListItem(fullmatches, 0))
}
else if (ListCount(fullmatches) = 0 and ListCount(partialmatches) = 1) {
return (ListItem(partialmatches, 0))
}
else if (ListCount(fullmatches) + ListCount(partialmatches) = 0) {
return (null)
}
else {
menu = NewStringDictionary()
GenerateMenuChoices (menu, fullmatches)
GenerateMenuChoices (menu, partialmatches)
if (LengthOf(variable) > 0) {
// single object command, so after showing the menu, add the object to game.pov.currentcommandresolvedelements
game.pov.currentcommandpendingvariable = variable
ShowMenu (DynamicTemplate("DisambiguateMenu", value), menu, true) {
varname = game.pov.currentcommandpendingvariable
game.pov.currentcommandpendingvariable = null
if (result <> null) {
AddToResolvedNames (varname, GetObject(result))
}
}
}
else {
// multi-object command, so after showing the menu, add the object to the list
game.pov.currentcommandmultiobjectpending = true
ShowMenu (DynamicTemplate("DisambiguateMenu", value), menu, true) {
if (result <> null) {
list add (game.pov.currentcommandpendingobjectlist, GetObject(result))
ResolveNextNameListItem
}
}
}
return (null)
}
]]>
game.pov.currentcommandpendingobjectlist = NewObjectList()
game.pov.currentcommandpendingobjectlistunresolved = NewStringList()
game.pov.currentcommandpendingobjectscope = scope
game.pov.currentcommandpendingobjecttype = objtype
inputlist = Split(value, ",")
foreach (inputbase, inputlist) {
inputlist2 = Split(inputbase, " " + Template("And") + " ")
foreach (input, inputlist2) {
list add (game.pov.currentcommandpendingobjectlistunresolved, input)
}
}
ResolveNextNameListItem
0) {
thisitem = Trim(StringListItem(game.pov.currentcommandpendingobjectlistunresolved, 0))
if (queuelength = 1) {
game.pov.currentcommandpendingobjectlistunresolved = null
}
else {
newqueue = NewStringList()
for (i, 1, queuelength - 1) {
list add (newqueue, StringListItem(game.pov.currentcommandpendingobjectlistunresolved, i))
}
game.pov.currentcommandpendingobjectlistunresolved = newqueue
}
ResolveNameListItem (Trim(thisitem))
}
else {
resolvedall = true
}
}
else {
resolvedall = true
}
if (resolvedall) {
ResolveNameListItemFinished (game.pov.currentcommandpendingobjectlist)
}
]]>
null) {
if (not ListContains(game.pov.currentcommandpendingobjectlist, object)) {
list add (game.pov.currentcommandpendingobjectlist, object)
}
ResolveNextNameListItem
}
}
]]>
1) {
if (not DictionaryContains(game.pov.currentcommandresolvedelements, "multiple")) {
dictionary add (game.pov.currentcommandresolvedelements, "multiple", true)
}
}
AddToResolvedNames (game.pov.currentcommandpendingvariable, result)
]]>
null) {
if (HandleMenuTextResponse(command)) {
handled = true
}
else {
if (game.menuallowcancel) {
ClearMenu
}
else {
handled = true
}
}
}
if (not handled) {
StartTurnOutputSection
if (StartsWith (command, "*")) {
msg ("")
msg (SafeXML (command))
}
else {
shownlink = false
if (game.echocommand) {
if (metadata <> null and game.enablehyperlinks and game.echohyperlinks) {
foreach (key, metadata) {
if (EndsWith(command, key)) {
objectname = StringDictionaryItem(metadata, key)
object = GetObject(objectname)
if (object <> null) {
msg ("")
msg ("> " + Left(command, LengthOf(command) - LengthOf(key)) + "{object:" + object.name + "}")
shownlink = true
}
}
}
}
if (not shownlink) {
msg ("")
OutputTextRaw ("> " + SafeXML(command))
}
}
if (game.command_newline) {
msg ("")
}
game.pov.commandmetadata = metadata
if (game.multiplecommands) {
commands = Split(command, ".")
if (ListCount(commands) = 1) {
game.pov.commandqueue = null
HandleSingleCommand (Trim(command))
}
else {
game.pov.commandqueue = commands
HandleNextCommandQueueItem
}
}
else {
game.pov.commandqueue = null
HandleSingleCommand (Trim(command))
}
}
}
]]>
0) {
thiscommand = Trim(StringListItem(game.pov.commandqueue, 0))
if (queuelength = 1) {
game.pov.commandqueue = null
}
else {
newqueue = NewStringList()
for (i, 1, queuelength - 1) {
list add (newqueue, StringListItem(game.pov.commandqueue, i))
}
game.pov.commandqueue = newqueue
}
if (LengthOf(thiscommand) > 0) {
HandleSingleCommand (thiscommand)
}
else {
HandleNextCommandQueueItem
}
}
}
]]>
= maxstrength) {
// ... except if the command defined later (candidate) has no parent, and the current best
// match (thiscommand) does have a parent. We want to favour any commands defined in rooms
// over global candidates.
skip = false
if (thiscommand <> null) {
if (thiscommand.parent <> null and candidate.parent = null) {
skip = true
}
}
if (not skip) {
thiscommand = candidate
maxstrength = strength
}
}
}
if (thiscommand = null) {
if (HasScript(game, "unresolvedcommandhandler")) {
params = NewDictionary()
dictionary add (params, "command", command)
do (game, "unresolvedcommandhandler", params)
}
else {
msg (Template("UnrecognisedCommand"))
}
HandleNextCommandQueueItem
}
else {
varlist = Populate(thiscommand.pattern, command, thiscommand.name)
HandleSingleCommandPattern (command, thiscommand, varlist)
}
]]>
RunTurnScripts
UpdateStatusAttributes
CheckDarkness
UpdateObjectLinks
// current command string
game.pov.currentcommand = command
// current command object
game.pov.currentcommandpattern = thiscommand
// string dictionary of variables, e.g. object1="book"; object2="table"
game.pov.currentcommandvarlist = varlist
// string list of variables left to resolve
game.pov.currentcommandvarlistqueue = NewStringList()
foreach (key, varlist) {
list add (game.pov.currentcommandvarlistqueue, key)
}
// dictionary of resolved elements, e.g. object1=book_object; object2=table_object
game.pov.currentcommandresolvedelements = NewDictionary()
// list of resolved elements, e.g. book_object; table_object
game.pov.currentcommandresolvedobjects = NewObjectList()
game.pov.currentcommandunresolvedobject = null
game.pov.currentcommandpendingvariable = null
ResolveNextName
0) {
// Pop next variable off the queue
var = StringListItem(game.pov.currentcommandvarlistqueue, 0)
if (queuelength = 1) {
game.pov.currentcommandvarlistqueue = null
}
else {
newqueue = NewStringList()
for (i, 1, queuelength - 1) {
list add (newqueue, StringListItem(game.pov.currentcommandvarlistqueue, i))
}
game.pov.currentcommandvarlistqueue = newqueue
}
// Resolve variable
value = StringDictionaryItem(game.pov.currentcommandvarlist, var)
if (value <> "") {
result = null
resolvinglist = false
if (StartsWith(var, "object")) {
if (HasDelegateImplementation(game.pov.currentcommandpattern, "multiple")) {
game.pov.currentcommandpendingobjectlist = NewObjectList()
game.pov.currentcommandpendingvariable = var
ResolveNameList (value, RunDelegateFunction(game.pov.currentcommandpattern, "multiple"), "object")
resolvinglist = true
}
else {
result = ResolveName(var, value, "object")
}
}
else if (StartsWith(var, "exit")) {
result = ResolveName(var, value, "exit")
}
else if (StartsWith(var, "text")) {
result = StringDictionaryItem(game.pov.currentcommandvarlist, var)
}
else {
error ("Unhandled command variable '" + var + "' - command variable names must begin with 'object', 'exit' or 'text'")
}
// at this point, ResolveName has returned - either an object name, unresolved, or pending
if (result = null) {
if ((not resolvinglist) and LengthOf(GetString(game.pov, "currentcommandpendingvariable")) = 0) {
UnresolvedCommand (value, var)
}
}
else {
AddToResolvedNames (var, result)
}
}
else {
ResolveNextName
}
}
else {
resolvedall = true
}
}
else if (queuetype = "null") {
resolvedall = true
}
else {
error ("Invalid queue type")
}
if (resolvedall) {
// TO DO: game.lastobjects should be game.pov.lastobjects
game.lastobjects = game.pov.currentcommandresolvedobjects
if (not DictionaryContains(game.pov.currentcommandresolvedelements, "multiple")) {
dictionary add (game.pov.currentcommandresolvedelements, "multiple", false)
}
if (not GetBoolean(game.pov.currentcommandpattern, "isundo")) {
if (LengthOf(game.pov.currentcommand) > 0) {
start transaction (game.pov.currentcommand)
}
}
if (not GetBoolean(game.pov.currentcommandpattern, "isoops")) {
// TO DO: game.unresolved* should be game.pov.unresolved*
game.unresolvedcommand = null
game.unresolvedcommandvarlist = null
game.unresolvedcommandkey = null
}
if (HasScript(game.pov.currentcommandpattern, "script")) {
do (game.pov.currentcommandpattern, "script", game.pov.currentcommandresolvedelements)
}
HandleNextCommandQueueItem
}
]]>
if (TypeOf(result) = "object") {
if (result.type = "object") {
list add (game.pov.currentcommandresolvedobjects, result)
}
}
else if (TypeOf(result) = "objectlist") {
foreach (obj, result) {
if (obj.type = "object") {
list add (game.pov.currentcommandresolvedobjects, obj)
}
}
}
dictionary add (game.pov.currentcommandresolvedelements, var, result)
ResolveNextName
1) {
msg (game.pov.currentcommandpattern.unresolved + " (" + unresolvedobject + ")")
}
else {
msg (game.pov.currentcommandpattern.unresolved)
}
}
else {
if (ListCount(game.pov.currentcommandvarlist) > 1) {
msg (Template("UnresolvedObject") + " (" + unresolvedobject + ")")
}
else {
msg (Template("UnresolvedObject"))
}
}
game.unresolvedcommand = game.pov.currentcommandpattern
game.unresolvedcommandvarlist = game.pov.currentcommandvarlist
game.unresolvedcommandkey = unresolvedkey
]]>
dictionary = GetAttribute(object, property)
if (DictionaryContains(dictionary, object2.name)) {
parameters = NewDictionary()
dictionary add (parameters, "this", object)
dictionary add (parameters, "object", object2)
invoke (ScriptDictionaryItem(dictionary, object2.name), parameters)
}
else {
parameters = NewDictionary()
dictionary add (parameters, "this", object)
dictionary add (parameters, "object", object2)
if (DictionaryContains(dictionary, "default")) {
invoke (ScriptDictionaryItem(dictionary, "default"), parameters)
}
else {
msg (default)
}
}
return (ListExclude(ScopeVisibleNotHeldNotScenery(), game.pov))
return (RemoveLookOnlyExits(RemoveSceneryObjects(ScopeExits())))
result = NewObjectList()
foreach (obj, GetAllChildObjects(game.pov)) {
if (ContainsVisible(game.pov, obj)) {
list add (result, obj)
}
}
return (result)
result = NewObjectList()
foreach (obj, GetAllChildObjects(game.pov)) {
if (ContainsReachable(game.pov, obj)) {
list add (result, obj)
}
}
return (result)
return (ScopeVisibleNotHeldForRoom(game.pov.parent))
if (room = game.pov.parent) {
result = ListCombine(ScopeReachableNotHeldForRoom(room), ScopeVisibleNotReachableForRoom(room))
list add (result, game.pov)
return (result)
}
else {
return (ListCombine(ScopeReachableNotHeldForRoom(room), ScopeVisibleNotReachableForRoom(room)))
}
return (ScopeVisibleNotHeldNotSceneryForRoom(game.pov.parent))
return (RemoveSceneryObjects(ScopeVisibleNotHeldForRoom(room)))
return (ScopeReachableForRoom(game.pov.parent))
if (room = game.pov.parent) {
result = ListCombine(ScopeReachableNotHeldForRoom(room), ScopeReachableInventory())
list add (result, game.pov)
}
else {
result = ScopeReachableNotHeldForRoom(room)
}
return (result)
return (ScopeVisibleNotReachableForRoom(game.pov.parent))
result = NewObjectList()
exclude = ScopeReachableForRoom(room)
list add (exclude, game.pov)
newParent = GetNonTransparentParent(room)
foreach (obj, GetAllChildObjects(newParent)) {
if (ContainsVisible(newParent, obj) and not ListContains(exclude, obj)) {
list add (result, obj)
}
}
return (result)
if (GetBoolean(room, "transparent")) {
if (room.parent = null) {
return (room)
}
else {
return (GetNonTransparentParent(room.parent))
}
}
else {
return (room)
}
return (ScopeReachableNotHeldForRoom(game.pov.parent))
result = ScopeVisible()
lightobjects = NewObjectList()
foreach (obj, result) {
if (GetBoolean(obj, "lightsource") and GetString(obj, "lightstrength") = lightstrength) {
list add (lightobjects, obj)
}
}
exits = ScopeExits()
foreach (obj, exits) {
if (GetBoolean(obj, "lightsource") and GetString(obj, "lightstrength") = lightstrength) {
list add (lightobjects, obj)
}
}
return (lightobjects)
game.pov and not Contains(game.pov, obj)) {
list add (result, obj)
}
}
return (result)
]]>
return (ScopeVisibleForRoom(game.pov.parent))
if (room = game.pov.parent) {
return (ListCombine(ScopeVisibleNotHeldForRoom(room), ScopeInventory()))
}
else {
return (ScopeVisibleNotHeldForRoom(room))
}
return (ScopeExitsForRoom(game.pov.parent))
result = NewObjectList()
foreach (exit, AllExits()) {
if (exit.parent = room) {
if (exit.visible) {
if (GetBoolean(room, "darklevel")) {
if (GetBoolean(exit, "lightsource")) {
list add (result, exit)
}
}
else {
list add (result, exit)
}
}
}
}
return (result)
result = NewObjectList()
foreach (command, AllCommands()) {
if (command.parent = null or command.parent = game.pov.parent) {
list add (result, command)
}
}
return (result)
result = null
foreach (obj, ListParents(obj)) {
if (result = null and not CanReachThrough(obj)) {
result = obj
}
}
return (result)
null) {
parent_as_list = NewObjectList()
list add (parent_as_list, obj.parent)
result = ListCombine(parent_as_list, ListParents(obj.parent))
}
return (result)
]]>
return (ContainsAccessible(parentObj, searchObj, false))
return (ContainsAccessible(parentObj, searchObj, true))
if (not HasObject(searchObj, "parent")) {
return (false)
}
else if (not searchObj.visible) {
return (false)
}
else if (GetBoolean(parentObj, "darklevel") and not GetBoolean(searchObj, "lightsource")) {
return (false)
}
else {
if (searchObj.parent = null) {
return (false)
}
else if (searchObj.parent = parentObj) {
return (true)
}
else {
if (onlyReachable) {
canAdd = CanReachThrough(searchObj.parent)
}
else {
canAdd = CanSeeThrough(searchObj.parent)
}
if (canAdd) {
return (ContainsAccessible(parentObj, searchObj.parent, onlyReachable))
}
else {
return (false)
}
}
}
result = 0
foreach (object, GetAllChildObjects ( obj )) {
if (HasInt(object, "volume")) {
result = result + object.volume
}
}
if (allinclusive and HasInt(obj, "volume")) {
result = result + obj.volume
}
return (result)
return ((GetBoolean(obj, "transparent") or CanReachThrough(obj)) and not GetBoolean(obj, "hidechildren"))
return (GetBoolean(obj, "isopen") and not GetBoolean(obj, "hidechildren"))
return (ListContains(ScopeInventory(), obj))
if (game.enablehyperlinks) {
data = NewStringDictionary()
foreach (object, ScopeVisible()) {
dictionary add (data, object.name, Join(GetDisplayVerbs(object), "/"))
}
JS.updateObjectLinks (data)
exits = NewStringList()
foreach (exit, ScopeExits()) {
list add (exits, exit.name)
}
JS.updateExitLinks (exits)
commands = NewStringList()
foreach (cmd, ScopeCommands()) {
list add (commands, cmd.name)
}
JS.updateCommandLinks (commands)
}
" + CapFirst(GetDisplayName(game.pov.parent)) + "")
}
if (game.autodescription_youarein_newline) {
msg (desc + "
")
desc = ""
}
}
if (i = game.autodescription_youcansee) {
objects = FormatObjectList(game.pov.parent.objectslistprefix, GetNonTransparentParent(game.pov.parent), Template("And"), ".")
desc = AddDescriptionLine(desc, objects)
if (game.autodescription_youcansee_newline) {
msg (desc + "
")
desc = ""
}
}
if (i = game.autodescription_youcango) {
exits = FormatExitList(game.pov.parent.exitslistprefix, GetExitsList(), Template("Or"), ".")
desc = AddDescriptionLine(desc, exits)
if (game.autodescription_youcango_newline) {
msg (desc + "
")
desc = ""
}
}
if (i = game.autodescription_description) {
if (HasScript(game.pov.parent, descriptionfield)) {
if (LengthOf(desc) > 0) {
msg (desc)
desc = ""
}
do (game.pov.parent, descriptionfield)
if (game.autodescription_description_newline) {
msg ("")
}
}
else {
desc = AddDescriptionLine(desc, GetRoomDescription())
if (game.autodescription_description_newline) {
msg (desc + "
")
desc = ""
}
}
}
}
if (LengthOf(desc) > 0) {
msg (desc)
}
}
else {
if (HasScript(game.pov.parent, descriptionfield)) {
do (game.pov.parent, descriptionfield)
}
else {
fulldesc = GetRoomDescription()
if (LengthOf(fulldesc) > 0) {
msg (fulldesc)
}
}
}
]]>
0) {
if (LengthOf(desc) > 0) {
msg (desc)
desc = ""
}
desc = desc + line
}
return (desc)
]]>
0) {
fulldesc = game.pov.parent.darkroomdescription
}
}
}
else {
if (HasString(game.pov.parent, "description")) {
if (LengthOf(game.pov.parent.description) > 0) {
fulldesc = game.pov.parent.description
}
}
}
if (game.appendobjectdescription) {
foreach (val, ScopeVisibleNotHeld()) {
if (HasString(val, "inroomdescription")) {
if (LengthOf(val.inroomdescription) > 0 and val <> game.pov) {
fulldesc = fulldesc + " " + val.inroomdescription
}
}
}
}
return (Trim(fulldesc))
]]>
null) {
if (HasScript(oldRoom, "onexit")) {
do (oldRoom, "onexit")
}
}
}
on ready {
if ((not GetBoolean(game.pov.parent, "visited")) and HasScript(game.pov.parent, "beforefirstenter")) {
do (game.pov.parent, "beforefirstenter")
}
on ready {
if (HasScript(game.pov.parent, "beforeenter")) {
do (game.pov.parent, "beforeenter")
}
on ready {
if (game.gridmap) {
Grid_CalculateMapCoordinates (game.pov.parent, game.pov)
Grid_DrawPlayerInRoom (game.pov.parent)
}
if (IsDefined("oldRoom")) {
if (oldRoom <> null and game.changeroom_newline and not game.command_newline) {
msg ("")
}
}
request (UpdateLocation, CapFirst(GetDisplayName(game.pov.parent)))
roomFrameExists = false
if (HasString(game.pov.parent, "picture")) {
if (LengthOf(game.pov.parent.picture) > 0) {
roomFrameExists = true
SetFramePicture (game.pov.parent.picture)
}
}
if (game.clearframe and not roomFrameExists) {
ClearFramePicture
}
if (game.showdescriptiononenter) {
ShowRoomDescription
}
if (HasScript( game, "roomenter")) {
do (game, "roomenter")
}
on ready {
if ((not GetBoolean(game.pov.parent, "visited")) and HasScript(game.pov.parent, "firstenter")) {
do (game.pov.parent, "firstenter")
}
on ready {
if (HasScript(game.pov.parent, "enter")) {
do (game.pov.parent, "enter")
}
}
set (game.pov.parent, "visited", true)
}
}
}
}
]]>
game.pov and obj.visible) {
list add (result, obj)
}
}
return (result)
]]>
result = NewObjectList()
foreach (obj, list) {
if (not obj.lookonly) {
list add (result, obj)
}
}
return (result)
result = NewObjectList()
foreach (obj, list) {
if (GetBoolean(obj, "lightsource") or obj.parent = game.pov) {
list add (result, obj)
}
}
return (result)
0) {
count = 0
result = preList + " "
foreach (item, list) {
result = result + GetDisplayNameLink(item, "exit")
count = count + 1
if (count = listLength - 1) {
result = result + " " + preFinal + " "
}
else if (count < listLength) {
result = result + ", "
}
}
result = result + postList
}
return (result)
]]>
if (HasString(obj, "alias")) {
result = obj.alias
}
else {
result = obj.name
}
return (result)
return (GetDisplayNameLink(obj, ""))
null) {
verbCount = ListCount(verbs)
}
else {
verbCount = 0
}
if (type = "exit" and verbCount = 1) {
if (not game.enablehyperlinks) {
result = GetDisplayAlias(obj)
}
else {
result = "{exit:" + obj.name + "}"
}
}
else if (type = "") {
result = GetDisplayAlias(obj)
}
else {
result = "{object:" + obj.name + "}"
}
if (not GetBoolean(obj, "usedefaultprefix")) {
if (obj.prefix = null) {
prefix = ""
}
else {
prefix = obj.prefix
}
}
else if (type = "exit") {
prefix = ""
}
else {
prefix = GetDefaultPrefix(obj)
}
if (LengthOf(prefix) > 0) {
prefix = prefix + " "
}
result = prefix + result
if (not GetBoolean(obj, "usedefaultprefix") and HasString(obj, "suffix")) {
if (LengthOf(obj.suffix) > 0) {
result = result + " " + obj.suffix
}
}
return (result)
]]>
return ("{object:" + obj.name + "}")
if (HasString(obj, "listalias")) {
result = obj.listalias
}
else {
result = GetDisplayAlias(obj)
}
return (result)
0) {
roomCheckDarkness = false
}
}
else {
roomCheckDarkness = false
}
game.pov.parent.darklevel = roomCheckDarkness
return (roomCheckDarkness)
]]>
timer.enabled = true
timer.trigger = game.timeelapsed + timer.interval
timer.enabled = false
timer.interval = interval
timer.script = script
SetTimeoutID (interval, "", script)
timername = ""
if (name = "") {
timername = GetUniqueElementName("timeout")
}
else {
if (GetTimer(name) = null and GetObject(name) = null) {
timername = name
}
else {
error ("Error creating timer: There is already an existing object named " + name)
}
}
if (not timername = "") {
create timer (timername)
timer = GetTimer(timername)
SetTimerInterval (timer, interval)
timer.timeoutscript = script
SetTimerScript (timer) {
this.enabled = false
invoke (this.timeoutscript)
destroy (this.name)
}
EnableTimer (timer)
}
request (Pause, ToString(interval * 1000))
if (IsGameRunning()) {
if (game.menucallback = null) {
foreach (turnscript, AllTurnScripts()) {
if (GetBoolean(turnscript, "enabled")) {
inscope = false
if (turnscript.parent = game or turnscript.parent = null) {
inscope = true
}
else {
if (Contains(turnscript.parent, game.pov)) {
inscope = true
}
}
if (inscope) {
do (turnscript, "script")
}
}
}
}
}
turnscript.enabled = true
turnscript.enabled = false
turnscript.script = script
SetTurnTimeoutID (turncount, "", script)
= this.triggerturncount) {
this.enabled = false
invoke (this.timeoutscript)
destroy (this.name)
}
}
EnableTurnScript (turnscript)
}
]]>
status = AddStatusAttributesForElement("", game, game.statusattributes)
status = AddStatusAttributesForElement(status, game.pov, game.povstatusattributes)
status = AddStatusAttributesForElement(status, game.pov, game.pov.statusattributes)
request (SetStatus, status)
null) {
foreach (attr, statusAttributes) {
if (LengthOf(status) > 0) {
status = status + "\n"
}
status = status + FormatStatusAttribute(attr, GetAttribute(element, attr), StringDictionaryItem(statusAttributes, attr))
}
}
return (status)
]]>
if (LengthOf(format) = 0) {
return (CapFirst(attr) + ": " + value)
}
else {
if (TypeOf(value) = "int" or TypeOf(value) = "double") {
value = ToString(value)
}
if (TypeOf(value) = "null") {
value = ""
}
return (Replace(format, "!", value))
}
if (game.showscore) {
game.score = 0
if (game.statusattributes = null) {
game.statusattributes = NewStringDictionary()
}
dictionary add (game.statusattributes, "score", "Score: !")
}
if (game.showhealth) {
if (game.povstatusattributes = null) {
game.povstatusattributes = NewStringDictionary()
}
dictionary add (game.povstatusattributes, "health", "Health: !%")
}
if (not HasInt(game, "score")) {
error ("Score is not configured. To enable score, go to 'game' and tick 'Show score' on the Player tab.")
}
game.score = game.score + amount
if (not HasInt(game, "score")) {
error ("Score is not configured. To enable score, go to 'game' and tick 'Show score' on the Player tab.")
}
game.score = game.score - amount
if (not HasInt(game.pov, "health")) {
error ("Health is not configured. To enable health, go to 'game' and tick 'Show health' on the Player tab.")
}
game.pov.health = game.pov.health + amount
if (not HasInt(game.pov, "health")) {
error ("Health is not configured. To enable health, go to 'game' and tick 'Show health' on the Player tab.")
}
game.pov.health = game.pov.health - amount
data = NewDictionary()
dictionary add (data, "fulltext", text)
text = ProcessTextSection(text, data)
OutputTextRaw (text)
" + text + "
")
if (GetString(game, "commandbarformat") <> format) {
format = format + ";background:" + game.defaultbackground
game.commandbarformat = format
JS.setCommandBarStyle (format)
}
request (Speak, text)
]]>
data = NewDictionary()
dictionary add (data, "fulltext", text)
text = ProcessTextSection(text, data)
OutputTextRawNoBr (text)
" + text + "")
request (Speak, text)
]]>
0) {
style = style + "font-family:" + font + ";"
}
if (LengthOf(colour) = 0) {
if (UIOptionUseGameColours()) {
colour = game.defaultforeground
}
else {
colour = GetUIOption("OverrideForeground")
}
}
if (LengthOf(colour) > 0) {
style = style + "color:" + colour + ";"
}
if (UIOptionUseGameFont()) {
size = game.defaultfontsize
}
else {
size = ToDouble(GetUIOption("OverrideFontSize"))
}
if (size > 0) {
style = style + "font-size:" + ToString(size) + "pt;"
}
return (style)
]]>
return (GetCurrentTextFormat(GetLinkTextColour()))
value = GetUIOption("UseGameFont")
if (value = null or value = "true") {
return (true)
}
else {
return (false)
}
value = GetUIOption("UseGameColours")
if (value = null or value = "true") {
return (true)
}
else {
return (false)
}
if (UIOptionUseGameColours()) {
return (game.defaultlinkforeground)
}
else {
return (GetUIOption("OverrideLinkForeground"))
}
0) {
nestCount = 1
searchStart = open + 1
finished = false
while (not finished) {
nextOpen = Instr(searchStart, text, "{")
nextClose = Instr(searchStart, text, "}")
if (nextClose > 0) {
if (nextOpen > 0 and nextOpen < nextClose) {
nestCount = nestCount + 1
searchStart = nextOpen + 1
}
else {
nestCount = nestCount - 1
searchStart = nextClose + 1
if (nestCount = 0) {
close = nextClose
containsUnprocessedSection = true
finished = true
}
}
}
else {
finished = true
}
}
}
if (containsUnprocessedSection) {
section = Mid(text, open + 1, close - open - 1)
value = ProcessTextCommand(section, data)
text = Left(text, open - 1) + value + ProcessTextSection(Mid(text, close + 1), data)
}
return (text)
]]>
if (StartsWith(section, "if ")) {
return (ProcessTextCommand_If(section, data))
}
else if (StartsWith(section, "object:")) {
return (ProcessTextCommand_Object(section, data))
}
else if (StartsWith(section, "command:")) {
return (ProcessTextCommand_Command(Mid(section, 9), data))
}
else if (StartsWith(section, "page:")) {
return (ProcessTextCommand_Command(Mid(section, 6), data))
}
else if (StartsWith(section, "exit:")) {
return (ProcessTextCommand_Exit(section, data))
}
else if (StartsWith(section, "once:")) {
return (ProcessTextCommand_Once(section, data))
}
else if (StartsWith(section, "random:")) {
return (ProcessTextCommand_Random(section, data))
}
else if (StartsWith(section, "rndalt:")) {
return (ProcessTextCommand_RandomAlias(section, data))
}
else if (StartsWith(section, "img:")) {
return (ProcessTextCommand_Img(section, data))
}
else if (StartsWith(section, "counter:")) {
return (ProcessTextCommand_Counter(Mid(section, 9), data))
}
else if (StartsWith(section, "select:")) {
return (ProcessTextCommand_Select(section, data))
}
else {
dot = Instr(section, ".")
if (dot = 0) {
return ("{" + ProcessTextSection(section, data) + "}")
}
else {
objectname = Left(section, dot - 1)
attributename = Mid(section, dot + 1)
object = GetObject(objectname)
if (object = null) {
return ("{" + ProcessTextSection(section, data) + "}")
}
else {
if (HasAttribute(object, attributename)) {
type = TypeOf(object, attributename)
switch (type) {
case ("string", "int", "double") {
return (ToString(GetAttribute(object, attributename)))
}
case ("boolean") {
result = GetAttribute(object, attributename)
if (result) {
return ("true")
}
else {
return ("false")
}
}
default {
return ("(" + type + ")")
}
}
}
else {
return ("")
}
}
}
}
0) {
text = Mid(objectname, colon + 1)
objectname = Left(objectname, colon - 1)
}
object = GetObject(objectname)
if (object = null) {
return ("{" + ProcessTextSection(section, data) + "}")
}
else {
if (LengthOf(text) = 0) {
text = SafeXML(GetDisplayAlias(object))
}
if (game.enablehyperlinks) {
linkid = ProcessTextCommand_GetNextLinkId()
colour = ""
if (HasString(object, "linkcolour") and GetUIOption("UseGameColours") = "true") {
colour = object.linkcolour
}
else {
colour = GetLinkTextColour()
}
style = GetCurrentTextFormat(colour)
return ("" + text + "")
}
else {
return (text)
}
}
]]>
if (not HasInt(game, "lastlinkid")) {
game.lastlinkid = 0
}
game.lastlinkid = game.lastlinkid + 1
return ("verblink" + game.lastlinkid)
0) {
text = Mid(command, colon + 1)
command = Left(command, colon - 1)
}
style = GetCurrentLinkTextFormat()
candidates = NewObjectList()
foreach (cmd, ScopeCommands()) {
if (IsRegexMatch(cmd.pattern, command, cmd.name)) {
list add (candidates, cmd)
}
}
elementid = ""
if (ListCount(candidates) = 1) {
cmd = ObjectListItem(candidates, 0)
elementid = cmd.name
}
linkid = ProcessTextCommand_GetNextLinkId()
dataattrs = ""
if (game.deactivatecommandlinks) {
dataattrs = dataattrs + "data-deactivateonclick=\"true\" "
}
dataattrs = dataattrs + "data-command=\"" + command + "\""
return ("" + ProcessTextSection(text, data) + "")
]]>
" + alias + "")
}
]]>
if (not HasAttribute(game, "textprocessor_seen")) {
game.textprocessor_seen = NewDictionary()
}
fulltext = StringDictionaryItem(data, "fulltext")
if (not DictionaryContains(game.textprocessor_seen, fulltext)) {
onceSectionsInThisText = NewList()
dictionary add (game.textprocessor_seen, fulltext, onceSectionsInThisText)
}
else {
onceSectionsInThisText = DictionaryItem(game.textprocessor_seen, fulltext)
}
if (not ListContains(onceSectionsInThisText, section)) {
list add (onceSectionsInThisText, section)
return (ProcessTextSection(Mid(section, 6), data))
}
else {
return ("")
}
elements = Mid(section, 8)
elementslist = Tsplit(elements)
index = GetRandomInt(0, ListCount(elementslist) - 1)
return (ProcessTextSection(ListItem(elementslist, index), data))
= sections) {
item = Mid(splittext, startpos, i - startpos)
list add (itemlist, item)
startpos = i + 1
}
}
item = Mid(splittext, startpos)
list add (itemlist, item)
return (itemlist)
]]>
0) {
return (ListItem(object.alt, GetRandomInt(0, count - 1)))
}
else {
return ("")
}
}
]]>
0) {
operatorlength = 2
}
if (operator = 0) {
operator = Instr(condition, ">=")
if (operator <> 0) {
operatorlength = 2
}
}
if (operator = 0) {
operator = Instr(condition, "<>")
if (operator <> 0) {
operatorlength = 2
}
}
if (operator = 0) {
operator = Instr(condition, "<")
if (operator <> 0) {
operatorlength = 1
}
}
if (operator = 0) {
operator = Instr(condition, ">")
if (operator <> 0) {
operatorlength = 1
}
}
if (operator = 0) {
operator = Instr(condition, "=")
if (operator <> 0) {
operatorlength = 1
}
}
if (operator = 0) {
checkfor = true
if (StartsWith(condition, "not ")) {
checkfor = false
condition = Mid(condition, 5)
}
dot = Instr(condition, ".")
if (dot = 0) {
result = GetBoolean(game, condition)
}
else {
objectname = Left(condition, dot - 1)
attributename = Mid(condition, dot + 1)
object = GetObject(objectname)
if (object = null) {
result = false
}
else {
result = GetBoolean(object, attributename)
}
}
if (result = checkfor) {
return (ProcessTextSection(text, data))
}
else {
return ("")
}
}
else {
lhs = Left(condition, operator - 1)
rhs = Mid(condition, operator + operatorlength)
op = Mid(condition, operator, operatorlength)
dot = Instr(lhs, ".")
if (dot = 0) {
objectname = ""
attributename = ""
if (HasInt(game, lhs)) {
objectname = "game"
attributename = lhs
}
else {
return ("{if " + command + "}")
}
}
else {
objectname = Left(lhs, dot - 1)
attributename = Mid(lhs, dot + 1)
}
object = GetObject(objectname)
if (object = null) {
return ("{if " + command + "}")
}
else {
value = GetAttribute(object, attributename)
// The next three lines added by The Pixie
if (TypeOf(value) = "object") {
value = value.name
}
if (op = "=") {
if (ToString(value) = rhs) {
return (ProcessTextSection(text, data))
}
else {
return ("")
}
}
else if (op = "<>") {
if (not ToString(value) = rhs) {
return (ProcessTextSection(text, data))
}
else {
return ("")
}
}
else if (op = ">") {
if (ToDouble(ToString(value)) > ToDouble(rhs)) {
return (ProcessTextSection(text, data))
}
else {
return ("")
}
}
else if (op = "<") {
if (ToDouble(ToString(value)) < ToDouble(rhs)) {
return (ProcessTextSection(text, data))
}
else {
return ("")
}
}
else if (op = ">=") {
if (ToDouble(ToString(value)) >= ToDouble(rhs)) {
return (ProcessTextSection(text, data))
}
else {
return ("")
}
}
else if (op = "<=") {
if (ToDouble(ToString(value)) <= ToDouble(rhs)) {
return (ProcessTextSection(text, data))
}
else {
return ("")
}
}
}
}
}
]]>
")
]]>
if (HasAttribute(game, section)) {
return (ToString(GetAttribute(game, section)))
}
else {
return ("0")
}
index) or (index >= Listcount(elementslist))) {
return ("{" + ProcessTextSection(section, data) + "}")
}
else {
return (ProcessTextSection(ListItem(elementslist, index), data))
}
}
}
]]>
")
game.panelcontents = filename
]]>
request (SetPanelContents, "")
game.panelcontents = null
request (ClearScreen, "")
request (Foreground, colour)
game.defaultforeground = colour
request (Background, colour)
game.defaultbackground = colour
game.defaultfont = font
game.defaultwebfont = ""
AddExternalStylesheet ("https://fonts.googleapis.com/css?family=" + Replace(font, " ", "+"))
game.defaultwebfont = font
if (game.externalstylesheets = null) {
game.externalstylesheets = NewStringList()
}
if (not ListContains(game.externalstylesheets, stylesheet)) {
list add (game.externalstylesheets, stylesheet)
JS.addExternalStylesheet (stylesheet)
}
game.defaultfontsize = size
SetAlignment ("center")
msg (text)
SetAlignment ("left")
JS.AddYouTube (id)
JS.AddVimeo (id)
request (Wait, "")
0) {
url = Mid(url, pos + 3)
}
if (https) {
url = "https://" + url
}
else {
url = "http://" + url
}
msg ("" + text + "")
]]>
" + text + "")
]]>
return ("{command:" + cmd + ":" + text + "}")
request (Log, text)
JS.SetBackgroundImage (GetFileURL(filename))
game.backgroundimage = filename
JS.SetBackgroundOpacity (opacity)
game.backgroundopacity = opacity
game.setbackgroundopacity = true
"
}
else {
result = ""
}
foreach (item, list) {
result = result + "- " + item + "
"
}
if (numbers) {
result = result + ""
}
else {
result = result + "
"
}
msg (result)
]]>
JS.createNewDiv (align)
if (game.defaultwebfont = null) {
return (game.defaultfont)
}
else {
if (game.defaultwebfont = "") {
return (game.defaultfont)
}
else {
return ("'" + game.defaultwebfont + "', " + game.defaultfont)
}
}
JS.Grid_SetScale (scale)
null) {
if (room.grid_parent_offset_auto) {
room.grid_parent_offset_x = (room.parent.grid_width - room.grid_width) /2.0
room.grid_parent_offset_y = (room.parent.grid_length - room.grid_length) /2.0
}
Grid_SetGridCoordinateForPlayer (playerobject, room.parent, "x", Grid_GetGridCoordinateForPlayer(playerobject, room, "x") - room.grid_parent_offset_x)
Grid_SetGridCoordinateForPlayer (playerobject, room.parent, "y", Grid_GetGridCoordinateForPlayer(playerobject, room, "y") - room.grid_parent_offset_y)
Grid_SetGridCoordinateForPlayer (playerobject, room.parent, "z", Grid_GetGridCoordinateForPlayer(playerobject, room, "z"))
room.parent.grid_render = true
Grid_CalculateMapCoordinates (room.parent, playerobject)
}
// go through all exits in room, set x,y co-ordinates for the rooms they point to
foreach (exit, AllExits()) {
if (exit.parent = room and not GetBoolean(exit, "lookonly")) {
if (DoesInherit(exit, "northdirection")) {
Grid_SetGridCoordinateForPlayer (playerobject, exit, "x", Grid_GetGridCoordinateForPlayer(playerobject, room, "x") + room.grid_width/2.0 + exit.grid_offset_x)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "y", Grid_GetGridCoordinateForPlayer(playerobject, room, "y") + exit.grid_offset_y)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") - exit.to.grid_width/2.0)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "y", (Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") - exit.to.grid_length) - exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "z", Grid_GetGridCoordinateForPlayer(playerobject, room, "z"))
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x"))
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") - exit.grid_length)
exit.grid_render = true
exit.to.grid_render = true
}
else if (DoesInherit(exit, "eastdirection")) {
Grid_SetGridCoordinateForPlayer (playerobject, exit, "x", Grid_GetGridCoordinateForPlayer(playerobject, room, "x") + room.grid_width + exit.grid_offset_x)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "y", Grid_GetGridCoordinateForPlayer(playerobject, room, "y") + room.grid_length/2.0 + exit.grid_offset_y)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") + exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") - exit.to.grid_length/2.0)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "z", Grid_GetGridCoordinateForPlayer(playerobject, room, "z"))
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") + exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y"))
exit.grid_render = true
exit.to.grid_render = true
}
else if (DoesInherit(exit, "southdirection")) {
Grid_SetGridCoordinateForPlayer (playerobject, exit, "x", Grid_GetGridCoordinateForPlayer(playerobject, room, "x") + room.grid_width/2.0 + exit.grid_offset_x)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "y", Grid_GetGridCoordinateForPlayer(playerobject, room, "y") + room.grid_length + exit.grid_offset_y)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") - exit.to.grid_width/2.0)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") + exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "z", Grid_GetGridCoordinateForPlayer(playerobject, room, "z"))
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x"))
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") + exit.grid_length)
exit.grid_render = true
exit.to.grid_render = true
}
else if (DoesInherit(exit, "westdirection")) {
Grid_SetGridCoordinateForPlayer (playerobject, exit, "x", Grid_GetGridCoordinateForPlayer(playerobject, room, "x") + exit.grid_offset_x)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "y", Grid_GetGridCoordinateForPlayer(playerobject, room, "y") + room.grid_length/2.0 + exit.grid_offset_y)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "x", (Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") - exit.to.grid_width) - exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") - exit.to.grid_length/2.0)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "z", Grid_GetGridCoordinateForPlayer(playerobject, room, "z"))
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") - exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y"))
exit.grid_render = true
exit.to.grid_render = true
}
else if (DoesInherit(exit, "northwestdirection")) {
Grid_SetGridCoordinateForPlayer (playerobject, exit, "x", Grid_GetGridCoordinateForPlayer(playerobject, room, "x") + exit.grid_offset_x)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "y", Grid_GetGridCoordinateForPlayer(playerobject, room, "y") + exit.grid_offset_y)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "x", (Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") - exit.to.grid_width) - exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "y", (Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") - exit.to.grid_length) - exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "z", Grid_GetGridCoordinateForPlayer(playerobject, room, "z"))
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") - exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") - exit.grid_length)
exit.grid_render = true
exit.to.grid_render = true
}
else if (DoesInherit(exit, "northeastdirection")) {
Grid_SetGridCoordinateForPlayer (playerobject, exit, "x", Grid_GetGridCoordinateForPlayer(playerobject, room, "x") + room.grid_width + exit.grid_offset_x)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "y", Grid_GetGridCoordinateForPlayer(playerobject, room, "y") + exit.grid_offset_y)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") + exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "y", (Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") - exit.to.grid_length) - exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "z", Grid_GetGridCoordinateForPlayer(playerobject, room, "z"))
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") + exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") - exit.grid_length)
exit.grid_render = true
exit.to.grid_render = true
}
else if (DoesInherit(exit, "southwestdirection")) {
Grid_SetGridCoordinateForPlayer (playerobject, exit, "x", Grid_GetGridCoordinateForPlayer(playerobject, room, "x") + exit.grid_offset_x)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "y", Grid_GetGridCoordinateForPlayer(playerobject, room, "y") + room.grid_length + exit.grid_offset_y)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "x", (Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") - exit.to.grid_width) - exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") + exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "z", Grid_GetGridCoordinateForPlayer(playerobject, room, "z"))
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") - exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") + exit.grid_length)
exit.grid_render = true
exit.to.grid_render = true
}
else if (DoesInherit(exit, "southeastdirection")) {
Grid_SetGridCoordinateForPlayer (playerobject, exit, "x", Grid_GetGridCoordinateForPlayer(playerobject, room, "x") + room.grid_width + exit.grid_offset_x)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "y", Grid_GetGridCoordinateForPlayer(playerobject, room, "y") + room.grid_length + exit.grid_offset_y)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") + exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") + exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "z", Grid_GetGridCoordinateForPlayer(playerobject, room, "z"))
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_x", Grid_GetGridCoordinateForPlayer(playerobject, exit, "x") + exit.grid_length)
Grid_SetGridCoordinateForPlayer (playerobject, exit, "end_y", Grid_GetGridCoordinateForPlayer(playerobject, exit, "y") + exit.grid_length)
exit.grid_render = true
exit.to.grid_render = true
}
else if (DoesInherit(exit, "updirection")) {
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "x", Grid_GetGridCoordinateForPlayer(playerobject, room, "x") + room.grid_width/2.0 - exit.to.grid_width/2.0 + exit.grid_offset_x)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "y", Grid_GetGridCoordinateForPlayer(playerobject, room, "y") + room.grid_length/2.0 - exit.to.grid_length/2.0 + exit.grid_offset_y)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "z", Grid_GetGridCoordinateForPlayer(playerobject, room, "z") + exit.grid_length)
exit.grid_render = false
exit.to.grid_render = true
}
else if (DoesInherit(exit, "downdirection")) {
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "x", Grid_GetGridCoordinateForPlayer(playerobject, room, "x") + room.grid_width/2.0 - exit.to.grid_width/2.0 + exit.grid_offset_x)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "y", Grid_GetGridCoordinateForPlayer(playerobject, room, "y") + room.grid_length/2.0 - exit.to.grid_length/2.0 + exit.grid_offset_y)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "z", Grid_GetGridCoordinateForPlayer(playerobject, room, "z") - exit.grid_length)
exit.grid_render = false
exit.to.grid_render = true
}
else if (DoesInherit(exit, "indirection") or DoesInherit(exit, "outdirection")) {
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "x", Grid_GetGridCoordinateForPlayer(playerobject, room, "x") + room.grid_width/2.0 - exit.to.grid_width/2.0 + exit.grid_offset_x)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "y", Grid_GetGridCoordinateForPlayer(playerobject, room, "y") + room.grid_length/2.0 - exit.to.grid_length/2.0 + exit.grid_offset_y)
Grid_SetGridCoordinateForPlayer (playerobject, exit.to, "z", Grid_GetGridCoordinateForPlayer(playerobject, room, "z"))
exit.grid_render = false
exit.to.grid_render = true
}
}
}
]]>
if (room.grid_render) {
Grid_DrawRoom (room, false, game.pov)
player_x = Grid_GetGridCoordinateForPlayer(game.pov, room, "x") + room.grid_width/2.0
player_y = Grid_GetGridCoordinateForPlayer(game.pov, room, "y") + room.grid_length/2.0
player_z = Grid_GetGridCoordinateForPlayer(game.pov, room, "z")
// Grid_DrawPlayer(x, y, z, radius, border, borderWidth, fill)
JS.Grid_DrawPlayer (player_x, player_y, player_z, 5, "black", 2, "yellow")
}
null) {
Grid_DrawRoom (room.parent, redraw, playerobject)
}
JS.Grid_DrawBox (Grid_GetGridCoordinateForPlayer(game.pov, room, "x"), Grid_GetGridCoordinateForPlayer(game.pov, room, "y"), Grid_GetGridCoordinateForPlayer(game.pov, room, "z"), room.grid_width, room.grid_length, room.grid_border, room.grid_borderwidth, room.grid_fill, room.grid_bordersides)
if (LengthOf(room.grid_label) > 0) {
label_x = Grid_GetGridCoordinateForPlayer(game.pov, room, "x") + room.grid_width/2.0
label_y = (Grid_GetGridCoordinateForPlayer(game.pov, room, "y") + room.grid_length/2.0) - 0.5
JS.Grid_DrawLabel (label_x, label_y, Grid_GetGridCoordinateForPlayer(game.pov, room, "z"), room.grid_label)
}
foreach (exit, AllExits()) {
if (exit.grid_render and exit.parent = room and exit.grid_length > 0) {
Grid_DrawLine (Grid_GetGridCoordinateForPlayer(game.pov, exit, "x"), Grid_GetGridCoordinateForPlayer(game.pov, exit, "y"), Grid_GetGridCoordinateForPlayer(game.pov, exit, "end_x"), Grid_GetGridCoordinateForPlayer(game.pov, exit, "end_y"), "black", 1)
}
}
Grid_SetRoomBooleanForPlayer (playerobject, room, "grid_isdrawn", true)
}
}
]]>
if (visible) {
JS.Grid_ShowCustomLayer (true)
}
else {
JS.Grid_ShowCustomLayer (false)
}
JS.Grid_ClearCustomLayer ()
JS.Grid_DrawLine (x1, y1, x2, y2, border, borderWidth)
JS.Grid_DrawArrow (id, x1, y1, x2, y2, border, borderWidth)
JS.Grid_DrawGridLines (x1, y1, x2, y2, border)
JS.Grid_SetCentre (x, y)
JS.Grid_DrawSquare (id, x, y, width, height, text, fill)
JS.Grid_LoadSvg (data, id)
JS.Grid_DrawSvg (id, symbolid, x, y, width, height)
JS.Grid_DrawImage (id, url, x, y, width, height)
JS.Grid_AddNewShapePoint (x, y)
JS.Grid_DrawShape (id, border, fill, opacity)
parameters = Split(parameterstring, ";")
x = ToInt(StringListItem(parameters, 0))
y = ToInt(StringListItem(parameters, 1))
GridSquareClick (x, y)
// Copy this function into your game to handle grid square clicks
foreach (object, AllObjects()) {
if (Grid_GetRoomBooleanForPlayer(game.pov, object, "grid_isdrawn")) {
Grid_DrawRoom (object, true, game.pov)
}
}
coordinates = Grid_GetPlayerCoordinatesForRoom(playerobject, room)
if (DictionaryContains(coordinates, coordinate)) {
dictionary remove (coordinates, coordinate)
}
dictionary add (coordinates, coordinate, value * 1.0)
coordinates = Grid_GetPlayerCoordinatesForRoom(playerobject, room)
return (DictionaryItem(coordinates, coordinate))
datadictionary = Grid_GetPlayerCoordinatesForRoom(playerobject, room)
if (DictionaryContains(datadictionary, coordinate)) {
dictionary remove (datadictionary, coordinate)
}
dictionary add (datadictionary, coordinate, value)
coordinatedata = Grid_GetPlayerCoordinateDictionary(playerobject)
if (not DictionaryContains(coordinatedata, room.name)) {
return (false)
}
else {
datadictionary = Grid_GetPlayerCoordinatesForRoom(playerobject, room)
if (DictionaryContains(datadictionary, attribute)) {
return (DictionaryItem(datadictionary, attribute))
}
else {
return (false)
}
}
if (HasAttribute(playerobject, "grid_coordinates_delegate")) {
return (Grid_GetPlayerCoordinateDictionary(playerobject.grid_coordinates_delegate))
}
else {
if (not HasAttribute(playerobject, "grid_coordinates")) {
playerobject.grid_coordinates = NewDictionary()
Grid_SetGridCoordinateForPlayer (playerobject, playerobject.parent, "x", 0)
Grid_SetGridCoordinateForPlayer (playerobject, playerobject.parent, "y", 0)
Grid_SetGridCoordinateForPlayer (playerobject, playerobject.parent, "z", 0)
playerobject.parent.grid_render = true
Grid_CalculateMapCoordinates (playerobject.parent, playerobject)
}
return (playerobject.grid_coordinates)
}
coordinatedata = Grid_GetPlayerCoordinateDictionary(playerobject)
if (not DictionaryContains(coordinatedata, room.name)) {
dictionary add (coordinatedata, room.name, NewDictionary())
}
return (DictionaryItem(coordinatedata, room.name))
game.pov and HasAttribute(obj, "grid_coordinates")) {
objcoordinateowner = GetCoordinateOwner(obj)
if (coordinateowner <> objcoordinateowner) {
MapPOVCoordinates (objcoordinateowner, coordinateowner)
}
}
}
]]>
if (HasAttribute(playerobject, "grid_coordinates_delegate")) {
return (GetCoordinateOwner(playerobject.grid_coordinates_delegate))
}
else {
return (playerobject)
}
sourcecoordinates = Grid_GetPlayerCoordinateDictionary(source)
targetcoordinates = Grid_GetPlayerCoordinateDictionary(target)
xoffset = Grid_GetGridCoordinateForPlayer(target, game.pov.parent, "x") - Grid_GetGridCoordinateForPlayer(source, game.pov.parent, "x")
yoffset = Grid_GetGridCoordinateForPlayer(target, game.pov.parent, "y") - Grid_GetGridCoordinateForPlayer(source, game.pov.parent, "y")
zoffset = Grid_GetGridCoordinateForPlayer(target, game.pov.parent, "z") - Grid_GetGridCoordinateForPlayer(source, game.pov.parent, "z")
foreach (roomname, sourcecoordinates) {
coordinatedata = DictionaryItem(sourcecoordinates, roomname)
if (not DictionaryContains(targetcoordinates, roomname)) {
newroomdata = NewDictionary()
dictionary add (targetcoordinates, roomname, newroomdata)
MapPOVCoordinate (coordinatedata, newroomdata, "x", xoffset)
MapPOVCoordinate (coordinatedata, newroomdata, "y", yoffset)
MapPOVCoordinate (coordinatedata, newroomdata, "z", zoffset)
MapPOVCoordinate (coordinatedata, newroomdata, "end_x", xoffset)
MapPOVCoordinate (coordinatedata, newroomdata, "end_y", yoffset)
}
else {
newroomdata = DictionaryItem(targetcoordinates, roomname)
}
if (DictionaryContains(coordinatedata, "grid_isdrawn")) {
if (DictionaryContains(newroomdata, "grid_isdrawn")) {
dictionary remove (newroomdata, "grid_isdrawn")
}
dictionary add (newroomdata, "grid_isdrawn", DictionaryItem(coordinatedata, "grid_isdrawn"))
}
}
source.grid_coordinates_delegate = target
Grid_Redraw
Grid_DrawPlayerInRoom (game.pov.parent)
if (DictionaryContains(sourcedata, name)) {
value = DictionaryItem(sourcedata, name)
dictionary add (targetdata, name, value + offset)
}
dpos = Instr(dicetype, "d")
if (dpos = 0) {
error ("Invalid dice type: " + dicetype)
}
else {
number_string = Left(dicetype, dpos - 1)
sides_string = Mid(dicetype, dpos + 1)
if (not (IsNumeric(number_string) and IsNumeric(sides_string))) {
error ("Invalid dice type: " + dicetype)
}
else {
number = ToInt(number_string)
sides = ToInt(sides_string)
total = 0
for (i, 1, number) {
total = total + GetRandomInt(1, sides)
}
return (total)
}
}
TextFX_Typewriter_Internal (text, speed, GetCurrentFontFamily(), game.defaultforeground, game.defaultfontsize)
JS.TextFX.Typewriter (text, speed, font, color, size)
TextFX_Unscramble_Internal (text, speed, reveal, GetCurrentFontFamily(), game.defaultforeground, game.defaultfontsize)
JS.TextFX.Unscramble (text, speed, reveal, font, color, size)
null) {
foreach (stylesheet, game.externalstylesheets) {
JS.addExternalStylesheet (stylesheet)
}
}
if (game.setbackgroundopacity) {
SetBackgroundOpacity (game.backgroundopacity)
}
request (Background, game.defaultbackground)
request (Foreground, game.defaultforeground)
request (LinkForeground, game.defaultlinkforeground)
if (LengthOf(game.backgroundimage) > 0) {
SetBackgroundImage (game.backgroundimage)
}
request (SetCompassDirections, Join(game.compassdirections, ";"))
request (SetInterfaceString, "InventoryLabel=Inventory")
request (SetInterfaceString, "StatusLabel=Status")
request (SetInterfaceString, "PlacesObjectsLabel=Places and Objects")
request (SetInterfaceString, "CompassLabel=Compass")
request (SetInterfaceString, "InButtonLabel=in")
request (SetInterfaceString, "OutButtonLabel=out")
request (SetInterfaceString, "EmptyListLabel=(empty)")
request (SetInterfaceString, "NothingSelectedLabel=(nothing selected)")
request (SetInterfaceString, "TypeHereLabel=Type here...")
request (SetInterfaceString, "ContinueLabel=Continue...")
JS.SetMenuBackground (game.menubackground)
JS.SetMenuForeground (game.menuforeground)
JS.SetMenuHoverBackground (game.menuhoverbackground)
JS.SetMenuHoverForeground (game.menuhoverforeground)
JS.SetMenuFontName (game.menufont)
JS.SetMenuFontSize (game.menufontsize + "pt")
if (not game.underlinehyperlinks) {
JS.TurnOffHyperlinksUnderline ()
}
if (game.showpanes) {
request (Show, "Panes")
}
else {
request (Hide, "Panes")
}
if (game.showcommandbar) {
request (Show, "Command")
}
else {
request (Hide, "Command")
}
if (game.showlocation) {
request (Show, "Location")
}
else {
request (Hide, "Location")
}
if (HasString(game, "panelcontents")) {
SetFramePicture (game.panelcontents)
}
if (game.gridmap) {
JS.ShowGrid (game.mapsize)
Grid_SetScale (game.mapscale)
if (game.pov <> null) {
if (game.pov.parent <> null) {
Grid_Redraw
Grid_DrawPlayerInRoom (game.pov.parent)
}
}
}
InitUserInterface
]]>
" + game.gamename + "")
if (game.subtitle <> null) {
if (LengthOf(game.subtitle) > 0) {
PrintCentered ("" + game.subtitle + "")
}
}
if (game.author <> null) {
if (LengthOf(game.author) > 0) {
PrintCentered ("
by " + game.author + "")
}
}
msg ("")
JS.EndOutputSection ("title")
}
if (game.pov = null) {
playerObject = GetObject("player")
if (playerObject = null) {
if (ListCount(AllObjects()) > 0) {
firstRoom = ObjectListItem(AllObjects(), 0)
}
else {
create ("room")
firstRoom = room
}
create ("player")
player.parent = firstRoom
}
game.pov = player
}
else {
InitPOV (null, game.pov)
}
InitStatusAttributes
UpdateStatusAttributes
InitVerbsList
if (HasScript(game, "start")) {
do (game, "start")
}
UpdateStatusAttributes
UpdateObjectLinks
on ready {
if (game.gridmap) {
Grid_DrawPlayerInRoom (game.pov.parent)
}
if (game.displayroomdescriptiononstart) {
OnEnterRoom (null)
}
UpdateStatusAttributes
UpdateObjectLinks
}
]]>
set (object, flag, true)
set (object, flag, false)
if (not HasInt(object, counter)) {
set (object, counter, 0)
}
set (object, counter, GetInt(object, counter) + 1)
if (not HasInt(object, counter)) {
set (object, counter, 0)
}
set (object, counter, GetInt(object, counter) - 1)
return (GetBoolean(object, "switchedon"))
object.parent = game.pov
object.parent = parent
object.parent = game.pov.parent
object.parent = null
object.visible = true
object.visible = false
object.visible = true
object.visible = false
object.isopen = true
object.isopen = false
newobject = Clone(object)
if (not HasString(object, "alias")) {
newobject.alias = object.name
}
return (newobject)
newobject = CloneObject(object)
newobject.parent = newparent
return (newobject)
exit.locked = true
exit.locked = false
object.switchedon = true
object.switchedon = false
object.dark = true
object.dark = false
if (LengthOf(strength) = 0) {
object.lightsource = false
}
else {
object.lightsource = true
}
object.lightstrength = strength
if (LengthOf(strength) = 0) {
exit.lightsource = false
}
else {
exit.lightsource = true
}
exit.lightstrength = strength
object) {
game.pov = object
if (game.gridmap) {
JS.Grid_ClearAllLayers ()
Grid_Redraw
}
OnEnterRoom (null)
}
]]>
null) {
oldPOV.alias = oldPOV.external_alias
oldPOV.alt = oldPOV.external_alt
oldPOV.look = oldPOV.external_look
oldPOV.gender = oldPOV.external_gender
oldPOV.article = oldPOV.external_article
}
newPOV.external_alias = newPOV.alias
newPOV.external_alt = newPOV.alt
newPOV.external_look = newPOV.look
newPOV.external_gender = newPOV.gender
newPOV.external_article = newPOV.article
if (not GetBoolean(newPOV, "pov_used")) {
if (newPOV.alt = null) {
newPOV.pov_alt = newPOV.pov_alt
}
else {
newPOV.pov_alt = ListCombine(newPOV.alt, newPOV.pov_alt)
}
if (newPOV.alias <> null) {
list add (newPOV.pov_alt, newPOV.alias)
}
if (game.showhealth) {
newPOV.health = 100
newPOV.changedhealth => {
if (this.health > 100) {
this.health = 100
}
else if (this.health = 0) {
if (HasScript(game, "onhealthzero")) {
do (game, "onhealthzero")
}
}
else if (this.health < 0) {
this.health = 0
// changedhealth will be called again so the onhealthzero script will run
}
}
}
newPOV.pov_used = true
}
newPOV.alias = newPOV.pov_alias
newPOV.alt = newPOV.pov_alt
newPOV.look = newPOV.pov_look
newPOV.gender = newPOV.pov_gender
newPOV.article = newPOV.pov_article
]]>
game.verbattributes = NewStringList()
game.verbattributeslookup = NewObjectDictionary()
foreach (cmd, AllCommands()) {
if (HasString(cmd, "property")) {
list add (game.verbattributes, cmd.property)
dictionary add (game.verbattributeslookup, cmd.property, cmd)
}
}
if (Contains(game.pov, object)) {
baselist = object.inventoryverbs
}
else {
baselist = object.displayverbs
}
if (not game.autodisplayverbs or GetBoolean(object, "usestandardverblist")) {
return (baselist)
}
else {
if (HasAttribute(object, "generatedverbslist")) {
verbs = object.generatedverbslist
}
else {
verbs = NewStringList()
foreach (attr, GetAttributeNames(object, false)) {
if (ListContains(game.verbattributes, attr)) {
cmd = ObjectDictionaryItem(game.verbattributeslookup, attr)
if (HasString(cmd, "displayverb")) {
displayverb = CapFirst(cmd.displayverb)
}
else {
displayverb = CapFirst(attr)
}
if (not ListContains(baselist, displayverb)) {
list add (verbs, displayverb)
}
}
}
object.generatedverbslist = verbs
}
if (GetBoolean(object, "useindividualverblist")) {
return (verbs)
}
else {
return (ListCombine(baselist, verbs))
}
}
" + optionText + "")
}
EndOutputSection (outputsection)
game.menuoptions = options
game.menuallowcancel = allowCancel
game.menucallback = callback
game.menuoutputsection = outputsection
]]>
if (game.menucallback = null) {
error ("Unexpected menu response")
}
else {
parameters = NewStringDictionary()
dictionary add (parameters, "result", option)
script = game.menucallback
ClearMenu
invoke (script, parameters)
}
0 and number <= ListCount(game.menuoptionskeys)) {
handled = true
ShowMenuResponse (StringListItem(game.menuoptionskeys, number - 1))
}
}
return (handled)
]]>
HideOutputSection (game.menuoutputsection)
game.menuoutputsection = null
game.menuoptions = null
game.menucallback = null
if (not HasInt(game, "lastoutputsection")) {
game.lastoutputsection = 0
}
game.lastoutputsection = game.lastoutputsection + 1
name = "section" + game.lastoutputsection
JS.StartOutputSection (name)
return (name)
JS.EndOutputSection (name)
JS.HideOutputSection (name)
if (HasString(game, "currentturnoutputsection")) {
game.lastturnoutputsection = game.currentturnoutputsection
EndOutputSection (game.currentturnoutputsection)
}
game.currentturnoutputsection = StartNewOutputSection()
if (HasString(game, "lastturnoutputsection")) {
HideOutputSection (game.lastturnoutputsection)
}
options = NewStringList()
list add (options, "Yes")
list add (options, "No")
game.askcallback = callback
ShowMenu (question, options, false) {
parameters = NewDictionary()
if (result = "Yes") {
boolresult = true
}
else {
boolresult = false
}
dictionary add (parameters, "result", boolresult)
callback = game.askcallback
game.askcallback = null
invoke (callback, parameters)
}
if (HasObject(object, "key")) {
if (not HasInt(object,"keycount")) {
object.keycount = 1
object.key1 = object.key
}
if (not HasObject(object, "key1")) {
object.key1 = object.key
}
}
for (x, 1, object.keycount) {
keyname = "key" + ToString(x)
if (HasObject(object, keyname)) {
if (not ListContains(ScopeInventory(), GetAttribute(object, keyname))) {
return (false)
}
}
}
return (true)