en
Are you sure you want to restart the game?
again
g
There is nothing to repeat.
{=WriteVerb(game.pov, "can't")} go there.
Nothing out of the ordinary.
Looking good.
{=WriteVerb(game.pov, "can")} see
{=WriteVerb(game.pov, "can")} go
and
nothing
or
Nothing to undo!
{=WriteVerb(game.pov, "be")} not carrying anything.
{=WriteVerb(game.pov, "be")} carrying
{=WriteVerb(game.pov, "be")} in
Look at
Take
Speak to
Use
Drop
Go to
Go
Switch on
Switch off
Open
Close
Eat
it
he
she
you
they
they
they
it
him
her
yourself
them
them
them
its
his
her
your
their
their
their
me
me; myself; self
all; everything
the; a; an
false
Score
Health
Money
{=WriteVerb(game.pov, "can't")} do that.
Done.
containing
on which there is
That way is locked.
{=WriteVerb(game.pov, "do")} not have the key.
Unlocked.
Locked.
There is nothing to correct.
with; using
That doesn't work.
With which object?
On which object?
To which object?
There are no objects available to do that with.
Yes
No
by
Nothing here to take.
{=WriteVerb (game.pov, "'ve")} nothing to drop.
{=WriteVerb (game.pov, "'ve")} nothing to wear.
{=WriteVerb (game.pov, "'ve")} nothing to take off.
worn
worn
worn
worn
worn
worn
Wear
put #object# on; wear; put on; don; wear
Remove
take #object# off; remove; take off; doff
northwest
north
northeast
west
east
southwest
south
southeast
up
down
in
out
nw
n
ne
w
e
sw
s
se
u
d
o
Inventory
Status
Places and Objects
Compass
in
out
(empty)
(nothing selected)
Type here...
Continue...
.*)$|^go (?.*)$|^(?north|east|south|west|northeast|northwest|southeast|southwest|in|out|up|down|n|e|s|w|ne|nw|se|sw|o|u|d)$]]>
north|east|south|west|northeast|northwest|southeast|southwest|out|up|down|n|e|s|w|ne|nw|se|sw|o|u|d)$]]>
^look$|^l$
look at; look; x; examine; exam; ex
take; get; pick up
^undo$
^i$|^inv$|^inventory$
^quit$
drop
use
speak to; speak; talk to; talk
open
close
.*) (on to|onto|in to|into|on|in) (?.*)$]]>
.*) (from|out of|off|out) (?.*)$]]>
.*) about (?.*)$]]>
.*) about (?.*)$]]>
.*) to (?.*)$]]>
.*), (?.*)$]]>
.*)$]]>
buy; purchase
climb
drink
eat
give
.*) to (?.*)$]]>
hit
kill
kiss
knock
lick
lie on; lie upon; lie down on; lie down upon
listen to
lock
move
pull
push
read
search
show
sit on; sit upon; sit down on; sit down upon
smell; sniff
taste
throw
tie
touch
turn on; turn #object# on; switch on; switch #object# on
turn off; turn #object# off; switch off; switch #object# off
turn
unlock
untie
.*) (on|with) (?.*)$]]>
^listen$
{=WriteVerb(game.pov, "can't")} hear much.
^jump$
{=WriteVerb(game.pov, "jump,")} but nothing happens.
^sit$|^sit down$
No time for lounging about now.
^lie$|^lie down$
No time for lounging about now.
^sleep$|^rest$
No time for lounging about now.
^wait$|^z$
Time passes.
^xyzzy$
Surprisingly, absolutely nothing happens.
^help$|^\?$
^save$
Quick Help
- Objects: Try LOOK AT..., SPEAK TO..., TAKE..., DROP..., OPEN..., GIVE... TO..., USE... ON/WITH... - Inventory: See which items you are carrying by typing I, INV or INVENTORY. - Moving around: Press the compass buttons, or type GO NORTH, SOUTH, E, GO TO... - Shortcuts: Press the up arrow and down arrow to scroll through commands you have already typed in. Try X... as a shortcut for LOOK AT...]]>
^(transcript|script)( on|)$|^enable (script|transcript)$
^(transcript|script) off$|^disable (script|transcript)$
^(view|display|show) (the |)(script|transcript)$
^(version|info|about)$
That's the wrong format.
The object was not found.
That's the wrong type.
The key was not found.
The command was executed.
DevMode is not active!
FlyScript - HelpObject-Commends #take object #drop object #put object1 in object2 #open object #close object #on object #off object #to player #go room
Unlike the commands in the game, they are executed directly and without detours via intercept scripts.
"
}
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)
}
}
= a) {
result = result + r
n = n - a
}
}
return (result)
]]>
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, room.grid_label_colour)
}
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"), game.mapexitcolour, game.mapexitwidth)
}
}
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)
}
0) {
sides = ToInt(Mid(dice, p1 + 1, p2 - p1 - 1))
total = ToInt(Mid(dice, p2 + 1, p3 - p2))
}
else if (p4 > 0) {
sides = ToInt(Mid(dice, p1 + 1, p4 - p1 - 1))
total = -ToInt(Mid(dice, p4 + 1, p3 - p2))
}
else {
sides = ToInt(Mid(dice, p1 + 1, p3 - p1))
total = 0
}
for (i, 1, number) {
total = total + GetRandomInt(1, sides)
}
return (total)
]]>
n = ListCount(lst)
if (n = 0) {
return (null)
}
index = GetRandomInt(0, n - 1)
return (ObjectListItem(lst, index))
if (TypeOf(lst) = "string") {
lst = Split(lst, ";")
}
n = ListCount(lst)
if (n = 0) {
return ("")
}
index = GetRandomInt(0, n - 1)
return (StringListItem(lst, index))
return (PickOneObject(GetDirectChildren(obj)))
l = NewObjectList()
foreach (o, GetDirectChildren(room)) {
if (DoesInherit(o, typename)) {
list add (l, o)
}
}
return (PickOneObject(l))
return (PickOneObject(ScopeExitsForRoom (room)))
return (PickOneObject(ScopeUnlockedExitsForRoom (room)))
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)
object.wear_layer or obj.wear_layer = 0 or object.wear_layer = 0) {
msg (DynamicTemplate("CannotWearOver", obj))
return (false)
}
if (obj.wear_layer = object.wear_layer) {
msg (DynamicTemplate("CannotWearWith", obj))
return (false)
}
}
if (not TestGarment(object)) {
return (false)
}
WearGarment (object)
if (object.wearmsg = null) {
P (DynamicTemplate("WearSuccessful",object))
}
else {
P (object.wearmsg)
}
// do after
if (HasScript(object, "onafterwear")) {
do (object, "onafterwear")
}
else if (HasString(object, "onafterwear")) {
P (object.onafterwear)
}
AfterWear
return (true)
]]>
if (GetBoolean(object, "multistate")) {
object.multistate_status = 1
}
else {
object.multistate_status = 0
}
if (object.alias = null) {
object.alias = object.name
}
if (object.listalias = null) {
object.listalias = object.alias
}
if (object.original_alias = null) {
object.original_drop = object.drop
object.original_alias = object.alias
object.original_listalias = object.listalias
object.original_bonusatts = object.bonusatts
object.original_wearslots = object.wear_slots
object.display = GetDisplayAlias(object)
}
object.parent = _GetWornClothingLocation()
object.worn = True
object.drop = false
_SetGarmentAlias (object)
_SetMultistate (object)
SetVerbs
SetBonuses (object, true)
if (HasInt(game.pov, "maxobjects")) {
game.pov.maxobjects = game.pov.maxobjects + 1
}
// Do error checking now so item can be put on even if multistate is going to fail
if (GetBoolean(object, "multistate")) {
if (not HasAttribute(object, "multistate_descriptors")) {
error ("No descriptors for multistate clothing: " + object.name)
}
if (not HasAttribute(object, "multistate_verbs")) {
error ("No verbs for multistate clothing: " + object.name)
}
if (not HasAttribute(object, "multistate_wearslots")) {
error ("No wearslots for multistate clothing: " + object.name)
}
statecount = ListCount(object.multistate_descriptors)
if (not statecount = ListCount(object.multistate_verbs)) {
error ("Mismatch in lists for multistate clothing: " + object.name)
}
if (not statecount = ListCount(object.multistate_wearslots)) {
error ("Mismatch in lists for multistate clothing: " + object.name)
}
object.original_wearslots = object.wear_slots
}
= game.pov.maxobjects) {
msg (DynamicTemplate("MaxObjectsInInventory", object))
return (false)
}
}
obj = _GetOuterForGarment(game.pov, object)
if (not obj = null) {
if (obj.wear_layer > object.wear_layer) {
msg (DynamicTemplate("RemoveFirst", obj))
return (false)
}
}
if (not TestRemove(object)) {
return (false)
}
RemoveGarment (object)
if (object.removemsg = null) {
P (DynamicTemplate("RemoveSuccessful",object))
}
else {
P (object.removemsg)
}
// do after
if (HasScript(object, "onafterremove")) {
do (object, "onafterremove")
}
else if (HasString(object, "onafterremove")) {
P (object.onafterremove)
}
AfterRemove
return (true)
]]>")) {
object.listalias = null
do (object, "colourmylistalias")
}
else {
object.listalias = object.original_listalias
}
}
object.parent = game.pov
if (HasInt(game.pov, "maxobjects")) {
game.pov.maxobjects = game.pov.maxobjects - 1
}
SetVerbs
]]>
sl = NewStringList()
foreach (o, AllObjects()) {
if (HasAttribute(o, "wear_slots")) {
foreach (s, o.wear_slots) {
if (not ListContains(sl, s)) {
list add (sl, s)
}
}
}
}
return (sl)
0) {
prefix = prefix + " "
}
if (HasString(obj, "original_alias")) {
result = prefix + obj.original_alias
}
else {
result = prefix + obj.alias
}
if (not GetBoolean(obj, "usedefaultprefix") and HasString(obj, "suffix")) {
if (LengthOf(obj.suffix) > 0) {
result = result + " " + obj.suffix
}
}
return (result)
]]>
if (object.multistate_status = 0) {
return (" (" + object.wornmodifier + ")")
}
s = StringListItem(object.multistate_descriptors, object.multistate_status - 1)
if (s = "*") {
return (" (" + object.wornmodifier + ")")
}
return (" (" + object.wornmodifier + " " + s + ")")
ListCount(object.multistate_descriptors)) {
error ("Attempt to set state to " + state + " for " + object.name + " (max " + ListCount(object.multistate_descriptors) + ")")
}
if (not object.multistate_status = state) {
SetBonuses (object, false)
object.multistate_status = state
_SetGarmentAlias (object)
_SetMultistate (object)
SetBonuses (object, true)
SetVerbs
}
]]> garment.wear_layer) {
garment = o
}
}
return (garment)
]]>
return (_GetList(char, null))
ol = newObjectList()
foreach (s, Slots()) {
o = GetOuterFor(char, s)
if (not o = null and not ListContains(ol, o)) {
list add (ol, o)
}
}
return (ol)
total = 2 * _GetSlotArmour(char, "head") + 3 * _GetSlotArmour(char, "torso")
foreach (s, Split("feet|legs|shoulders|arms|hands", "|")) {
total = total + _GetSlotArmour(char, s)
}
return (total)
return (GetOuterFor(game.pov, slot))
return (GetArmourFor(game.pov))
foreach (o, GetAllChildObjects(game.pov)) {
if (DoesInherit(o, "wearable")) {
if (HasAttribute(o, "wear_adjverbs")) {
if (o.wear_adjverbs) {
if (HasAttribute(o, "wear_slots") and HasInt(o, "wear_layer")) {
_SetVerbsForGarment (o)
}
if (not HasString(o, "alias")) {
o.alias = o.name
}
if (not HasString(o, "listalias")) {
o.listalias = o.alias
}
}
}
}
}
count = 0
foreach (o, GetAllChildObjects(game.pov)) {
if (GetBoolean(o, "worn")) {
count = count + 1
}
}
return (count)
l = NewStringList()
foreach (obj, ListWornFor(game.pov)) {
list add (l, GetDisplayGarment(obj))
}
return (FormatList(l, ",", "and", "nothing"))
if (HasString(garment, "bonusatts")) {
foreach (att, Split(garment.bonusatts, ";")) {
bonus = 1
plusarray = Split(att, "+")
minusarray = Split(att, "-")
if (ListCount(plusarray) = 2) {
att = StringListitem(plusarray, 0)
if (not IsInt(StringListitem(plusarray, 1))) {
error ("Bonus attribute for " + garment.name + " not properly formatted: " + garment.bonusatts)
}
bonus = ToInt(StringListitem(plusarray, 1))
}
if (ListCount(minusarray) = 2) {
att = StringListitem(minusarray, 0)
if (not IsInt(StringListitem(minusarray, 1))) {
error ("Negative bonus attribute for " + garment.name + " not properly formatted: " + garment.bonusatts)
}
bonus = -ToInt(StringListitem(minusarray, 1))
}
if (not wearflag) {
bonus = -bonus
}
bonus = ClothingBonusMultiplier() * bonus
n = GetInt(game.pov, att) + bonus
set (game.pov, att, n)
}
}
SetListAlias (object, alias, alias)
object.alias = alias
object.listalias = listalias
if (Equal(object.worn, true)) {
object.original_alias = object.alias
object.original_listalias = object.listalias
object.display = GetDisplayAlias(object)
_SetGarmentAlias (object)
}
if (GetBoolean(object, "multistate")) {
ws = StringListItem(object.multistate_wearslots, object.multistate_status - 1)
if (ws = "*") {
object.wear_slots = object.original_wearslots
}
else {
object.wear_slots = Split(ws, ";")
}
wv = StringListItem(object.multistate_verbs, object.multistate_status - 1)
if (wv = "*") {
object.wornverbs = null
}
else {
object.wornverbs = wv
}
ba = StringListItem(object.multistate_bonusatts, object.multistate_status - 1)
if (ba = "*") {
object.bonusatts = object.original_bonusatts
}
else {
object.bonusatts = ba
}
}
")) {
object.listalias = null
do (object, "colourmylistalias")
}
else {
object.listalias = object.original_listalias + ext
}
}
]]>
foreach (o, GetDirectChildren(game.pov)) {
if (GetBoolean(o, "wornclothinglocation")) {
return (o)
}
}
return (game.pov)
foreach (slot, garment.wear_slots) {
obj = GetOuterFor(char, slot)
if (not obj = null and not obj = garment) {
return (obj)
}
}
return (null)
garment.inventoryverbs = list
if (not s = null) {
if (not s = "") {
foreach (s2, Split(s, ";")) {
list add (garment.inventoryverbs, s2)
}
}
}
garments = NewObjectList()
foreach (o, GetAllChildObjects(char)) {
if (HasAttribute(o, "wear_slots") and HasInt(o, "wear_layer") and GetBoolean(o, "worn")) {
if (ListContains(o.wear_slots, slot) or slot = null) {
list add (garments, o)
}
}
}
return (garments)
max) {
max = o.armour
}
}
return (total + max)
]]>
return (1)
msg (s)
if (HasString(game.pov, "notallowedtodress")) {
msg (game.pov.notallowedtotake)
return (false)
}
else {
return (true)
}
if (HasString(game.pov, "notallowedtoundress")) {
msg (game.pov.notallowedtotake)
return (false)
}
else {
return (true)
}
\\S+?)\\.(?\\S+?)(?:(?\\[|\\{)(?.*?)(?:\\]|\\}))?(?:\\s?(?\\=)\\s?(?:(?(?:\\[|\\{)?)(?.*?)(?:\\]|\\})?)(?(valkeytoken)|(?:(?.+?)\\.(?.+?))))?$"
// ----------------------------------------------------------------------------------------------------
// SUCCESS MATCH
// If the user's entry is error-free, it is validated further.
// ----------------------------------------------------------------------------------------------------
if (IsRegexMatch (regex, text)) {
result = populate (regex, text)
Log (ToString(result))
// ----------------------------------------------------------------------------------------------------
// ASSIGN RESULT
// Assign the result of the match to the appropriate object and attribute.
// ----------------------------------------------------------------------------------------------------
// Object
object = getObjectExt(result["object"])
if (TypeOf(object) = "null") {
error (DynamicTemplate("DevModeErrorCantFindObject", result["object"]))
}
// Attribute
attribute = result["attribute"]
current_value = GetAttribute(object, attribute)
if (TypeOf(current_value) = "null" and result["istoken"] <> "=") {
error (DynamicTemplate("DevModeErrorCantFindAttribute", result["attribute"]))
}
// Value
value = result["value"]
// ----------------------------------------------------------------------------------------------------
// SET VALUE
// If an actual equals sign has been set, the input is treated as an assignment.
// ----------------------------------------------------------------------------------------------------
if (result["istoken"] = "=") {
// ----------------------------------------------------------------------------------------------------
// BOOLEAN-TOKENS
// Short notation for Boolean states
// ----------------------------------------------------------------------------------------------------
if (result["value"] = "?") {
value = true
}
else if (result["value"] = "!") {
value = false
}
else if (result["value"] = "~") {
value = not GetBoolean (object, attribute)
}
else if (result["valkeytoken"] = "[") {
value = NewList ()
if (result["value"] <> "") {
list = Split(result["value"], ",")
foreach (item, list) {
list add (value, Eval(Trim(item)))
}
}
}
else if (result["valkeytoken"] = "{") {
value = NewDictionary ()
if (result["value"] <> "") {
list = Split(result["value"], ",")
foreach (assign, list) {
if (not Instr(assign, ":") = 0) {
dic = Split(assign, ":")
dickey = dic[0]
dicvalue = dic[1]
dictionary add (value, dickey, Eval(Trim(dicvalue)))
}
else {
error (Template("DevModeErrorWrongFormat"))
}
}
}
}
else if (result["valobject"] <> "") {
valobject = getObjectExt(result["valobject"])
if (TypeOf(valobject) = "null") {
error (DynamicTemplate("DevModeErrorCantFindObject", result["valobject"]))
}
// Valattribute
if (result["valattribute"] <> "") {
valattribute = result["valattribute"]
value = GetAttribute(valobject, valattribute)
if (TypeOf(value) = "null") {
error (DynamicTemplate("DevModeErrorCantFindAttribute", result["valattribute"]))
}
}
}
else {
value = Eval(result["value"])
}
// ----------------------------------------------------------------------------------------------------
// VALUE-LIST
// Creating a new list
// ----------------------------------------------------------------------------------------------------
// ----------------------------------------------------------------------------------------------------
// VALUE-DICTIONARY
// Creating a new dictionary
// ----------------------------------------------------------------------------------------------------
// ----------------------------------------------------------------------------------------------------
// VALUE-OBJECT AND VALUE-ATTRIBUTE
// Assigning an attribute from another object
// ----------------------------------------------------------------------------------------------------
// ----------------------------------------------------------------------------------------------------
// VALUE EVALUATION
// Value is evaluated
// ----------------------------------------------------------------------------------------------------
// ----------------------------------------------------------------------------------------------------
// SET-ATTRIBUTE-LIST
// Add a new item to a list or overwrite an existing one
// ----------------------------------------------------------------------------------------------------
if (result["keytoken"] = "[") {
if (TypeOf(current_value) <> "list" and TypeOf(current_value) <> "objectlist" and TypeOf(current_value) <> "stringlist") {
current_value = NewList ()
}
if (result["key"] <> "") {
if (not IsNumeric(result["key"])) {
error (Template("DevModeErrorWrongTyp"))
}
else if (ToInt(result["key"]) < ListCount(current_value)) {
list remove (current_value, ListItem(current_value, ToInt(result["key"])))
}
}
list add (current_value, value)
value = NewList ()
value = current_value
}
else if (result["keytoken"] = "{") {
if (TypeOf(current_value) <> "dictionary" and TypeOf(current_value) <> "objectdictionary" and TypeOf(current_value) <> "stringdictionary") {
current_value = NewDictionary ()
}
if (result["key"] <> "") {
if (result["key"] in current_value) {
dictionary remove (current_value, result["key"])
}
dictionary add (current_value, result["key"], value)
value = NewDictionary ()
value = current_value
}
}
// ----------------------------------------------------------------------------------------------------
// SET-ATTRIBUTE-DICTIONARY
// Add a new key to a dictionary or overwrite an existing one
// ----------------------------------------------------------------------------------------------------
// ----------------------------------------------------------------------------------------------------
// VALUE-ASSIGNMENT
// The value is assigned to the attribute and a corresponding output appears
// ----------------------------------------------------------------------------------------------------
set (object, attribute, value)
DevModeOutput (Template("DevModeComSetAttribute") + object.name + "." + attribute + "=" + ParseToFlyScript(value))
}
else {
key = ""
// ----------------------------------------------------------------------------------------------------
// GET-ATTRIBUTE-LIST
// If the attribute is a list and the specified key is in it, the content is read out.
// ----------------------------------------------------------------------------------------------------
if (result["keytoken"] = "[") {
if (TypeOf(current_value) <> "list" and TypeOf(current_value) <> "objectlist" and TypeOf(current_value) <> "stringlist") {
error (Template("DevModeErrorWrongTyp"))
}
else if (not IsNumeric(result["key"])) {
error (Template("DevModeErrorWrongTyp"))
}
else if (ToInt(result["key"]) > ListCount(current_value)-1) {
error (Template("DevModeErrorWrongKey"))
}
else {
current_value = ListItem(current_value, ToInt(result["key"]))
}
key = "[" + result["key"] + "]"
}
// ----------------------------------------------------------------------------------------------------
// GET-ATTRIBUTE-DICTIONARY
// If the attribute is a dictionary and the specified key is in it, the content is read out.
// ----------------------------------------------------------------------------------------------------
if (result["keytoken"] = "{") {
if (TypeOf(current_value) <> "dictionary" and TypeOf(current_value) <> "objectdictionary" and TypeOf(current_value) <> "stringdictionary") {
error (Template("DevModeErrorWrongTyp"))
}
else if (not result["key"] in current_value) {
error (Template("DevModeErrorWrongKey"))
}
else {
current_value = DictionaryItem(current_value, result["key"])
}
key = "{" + result["key"] + "}"
}
// ----------------------------------------------------------------------------------------------------
// VALUE-READING
// The value of the attribute is read out
// ----------------------------------------------------------------------------------------------------
DevModeOutput (Template("DevModeComGetAttribute") + object.name + "." + attribute + key + "=" + ParseToFlyScript(current_value))
}
// ----------------------------------------------------------------------------------------------------
// GET VALUE
// If no equal sign has been set, the result is treated as readout.
// ----------------------------------------------------------------------------------------------------
}
else {
error (Template("DevModeErrorWrongFormat"))
}
// ----------------------------------------------------------------------------------------------------
// FAIL MATCH
// An error message is displayed if the user's entry is incorrect.
// ----------------------------------------------------------------------------------------------------
]]>"
}
// ----------------------------------------------------------------------------------------------------
// LIST
// ----------------------------------------------------------------------------------------------------
case ("list", "stringlist", "objectlist") {
list = NewStringList()
foreach (item, text) {
switch (TypeOf(item)) {
case ("string") item = "\"" + item + "\""
case ("object") item = item.name
default item = ToString(item)
}
list add (list, item)
}
parsetext = "[" + Join (list, ",") + "]"
}
// ----------------------------------------------------------------------------------------------------
// DICTIONARY
// ----------------------------------------------------------------------------------------------------
case ("dictionary", "stringdictionary", "objectdictionary", "scriptdictionary") {
list = NewStringList()
foreach (key, text) {
item = DictionaryItem(text, key)
switch (TypeOf(item)) {
case ("string") item = "\"" + item + "\""
case ("object") item = item.name
case ("script") item = "<" + Replace(ToString(item), "Script: ", "") + ">"
default item = ToString(item)
}
list add (list, key + ":" + item)
}
parsetext = "{" + Join (list, ",") + "}"
}
// ----------------------------------------------------------------------------------------------------
// OTHER TYPES
// ----------------------------------------------------------------------------------------------------
default {
parsetext = ToString(text)
}
}
return (parsetext)
]]>" + str + "")
}
]]>" + str + "")
}
]]> {
}
scr => {
}
if (obj = null) {
error (Template("DevModeErrorObjectNotRecognised"))
}
if (HasAttribute (obj, cha)) {
scr = GetAttribute (obj, cha)
set (obj, cha, bla)
set (obj, att, val)
set (obj, cha, scr)
}
else {
set (obj, att, val)
}
]]>
if (HasAttribute(game, "devmode_active")) {
if (game.devmode_active) {
DevModeOutput (Template("DevModeActive"))
if (HasAttribute(game, "devmode_attributes") and not DictionaryCount(game.devmode_attributes) = 0) {
foreach (key, game.devmode_attributes) {
command = key + "=" + ToString(DictionaryItem(game.devmode_attributes, key))
commandOutput ("#" + command)
ParseToQuestCode (command)
}
}
if (game.devmode_changepov) {
commandOutput ("#to " + game.devmode_pov)
HandleSingleCommand ("#to " + game.devmode_pov)
}
if (game.devmode_changepovpos) {
commandOutput ("#go " + game.devmode_povpos)
HandleSingleCommand ("#go " + game.devmode_povpos)
}
if (game.devmode_setverbs) {
setVerbs
}
if (game.devmode_setinitscript and HasScript(game, "devmode_initscript")) {
msg ("")
DevModeOutput (Template("DevModeStartScript"))
do (game, "devmode_initscript")
}
msg ("")
}
}
data = NewStringList ()
list add (data, "{\"name\":\"game\"}")
foreach (obj, AllObjects()) {
list add (data, "{\"name\":\"" + obj.name + "\"}")
}
datastr = "[" + Join (data, ",") + "]"
JS.setTableData ("names", datastr)
data = NewStringList ()
obj = GetObject (name)
foreach (attr, GetAttributeNames (obj, true)) {
val = ParseToFlyScript (GetAttribute (obj, attr))
list add (data, "{\"attribute\":\"" + attr + "\",\"value\":\"" + Replace(val, "\"", "\\\"") + "\"}")
}
datastr = "[" + Join (data, ",") + "]"
JS.setTableData ("attr", datastr)
commandOutput ("#" + command)
ParseToQuestCode (command)
" + command)
]]>
verbs = game.devmode_verbs
foreach (object, AllObjects()) {
if (HasAttribute(object, "displayverbs")) {
object.displayverbs = ListCombine (object.displayverbs, verbs)
}
if (HasAttribute(object, "inventoryverbs")) {
object.inventoryverbs = ListCombine (object.inventoryverbs, verbs)
}
}
game.enablehyperlinks = true
msg ("")
DevModeOutput (Template("DevModeSetVerbs"))
obj = GetObject(name)
if (obj = null) {
foreach (sobj, AllObjects()) {
if (HasAttribute(sobj, "alias")) {
if (LCase(sobj.alias) = LCase(name)) {
return (sobj)
}
}
}
}
return (obj)
Start DevMode-Selftest...")
// ----------------------------------------------------------------------------------------------------
// TESTOBJECTS
// Generate testobjects
// ----------------------------------------------------------------------------------------------------
create ("testobject1")
create ("testobject2")
testobject1.testattribut = ""
// ----------------------------------------------------------------------------------------------------
// COMMANDS
// Generate commmands for testing
// ----------------------------------------------------------------------------------------------------
commands = NewDictionary ()
// ----------------------------------------------------------------------------------------------------
// OBJECT-COMMANDS
// Unlike the commands in the game, they are executed directly and without detours via intercept scripts
// ----------------------------------------------------------------------------------------------------
dictionary add (commands, "#take testobject1", "Got (testobject1)")
dictionary add (commands, "#drop testobject1", "Contains (game.pov.parent, testobject1)")
dictionary add (commands, "#put testobject1 in testobject2", "Contains (testobject2, testobject1)")
dictionary add (commands, "#open testobject1", "testobject1.isopen")
dictionary add (commands, "#close testobject1", "not testobject1.isopen")
dictionary add (commands, "#on testobject1", "IsSwitchedOn(testobject1)")
dictionary add (commands, "#off testobject1", "not IsSwitchedOn(testobject1)")
dictionary add (commands, "#to testobject1", "game.pov = testobject1")
dictionary add (commands, "#go testobject2", "game.pov.parent = testobject2")
// ----------------------------------------------------------------------------------------------------
// OBJECT-ATTRIBUTES
// assign and read attributes
// ----------------------------------------------------------------------------------------------------
// BOOLEAN
dictionary add (commands, "#testobject1.testattribut=true", "TypeOf(testobject1.testattribut) = \"boolean\" and testobject1.testattribut=true")
dictionary add (commands, "#testobject1.testattribut=false", "TypeOf(testobject1.testattribut) = \"boolean\" and testobject1.testattribut=false")
dictionary add (commands, "#testobject1.testattribut=?", "TypeOf(testobject1.testattribut) = \"boolean\" and testobject1.testattribut=true")
dictionary add (commands, "#testobject1.testattribut=!", "TypeOf(testobject1.testattribut) = \"boolean\" and testobject1.testattribut=false")
dictionary add (commands, "#testobject1.testattribut=~", "TypeOf(testobject1.testattribut) = \"boolean\" and testobject1.testattribut=true")
// STRING
dictionary add (commands, "#testobject1.testattribut=\"teststring\"", "TypeOf(testobject1.testattribut) = \"string\" and testobject1.testattribut=\"teststring\"")
// INTEGER
dictionary add (commands, "#testobject1.testattribut=25", "TypeOf(testobject1.testattribut) = \"int\" and testobject1.testattribut = 25")
// DOUBLE
dictionary add (commands, "#testobject1.testattribut=25.25", "TypeOf(testobject1.testattribut) = \"double\" and testobject1.testattribut = 25.25")
// OBJECT
dictionary add (commands, "#testobject1.testattribut=testobject1", "TypeOf(testobject1.testattribut) = \"object\" and testobject1.testattribut = testobject1")
// LIST
dictionary add (commands, "#testobject1.testattribut=[]", "TypeOf(testobject1.testattribut) = \"list\" and ListCount(testobject1.testattribut) = 0")
dictionary add (commands, "#testobject1.testattribut=[\"testitem1\",\"testitem2\",testobject1,testobject2]", "TypeOf(testobject1.testattribut) = \"list\" and ListCount(testobject1.testattribut) = 4 and TypeOf(ListItem(testobject1.testattribut, 0)) = \"string\" and ListItem(testobject1.testattribut, 0) = \"testitem1\" and TypeOf(ListItem(testobject1.testattribut, 1)) = \"string\" and ListItem(testobject1.testattribut, 1) = \"testitem2\" and TypeOf(ListItem(testobject1.testattribut, 2)) = \"object\" and ListItem(testobject1.testattribut, 2) = testobject1 and TypeOf(ListItem(testobject1.testattribut, 3)) = \"object\" and ListItem(testobject1.testattribut, 3) = testobject2")
dictionary add (commands, "#testobject1.testattribut[2]=\"newtestitem2\"", "TypeOf(testobject1.testattribut) = \"list\" and ListCount(testobject1.testattribut) = 4 and TypeOf(ListItem(testobject1.testattribut, 3)) = \"string\" and ListItem(testobject1.testattribut, 3) = \"newtestitem2\"")
dictionary add (commands, "#testobject1.testattribut[]=\"newtestitem5\"", "TypeOf(testobject1.testattribut) = \"list\" and ListCount(testobject1.testattribut) = 5 and ListItem(testobject1.testattribut, 4) = \"newtestitem5\"")
dictionary add (commands, "#testobject1.testattribut[1]", "")
// DICTIONARY
dictionary add (commands, "#testobject1.testattribut={}", "TypeOf(testobject1.testattribut) = \"dictionary\" and DictionaryCount(testobject1.testattribut) = 0")
dictionary add (commands, "#testobject1.testattribut={testkey1:\"testitem1\",testkey2:\"testitem2\",testkey3:testobject1,testkey4:testobject2}", "TypeOf(testobject1.testattribut) = \"dictionary\" and DictionaryCount(testobject1.testattribut) = 4 and TypeOf(DictionaryItem(testobject1.testattribut, \"testkey1\")) = \"string\" and DictionaryItem(testobject1.testattribut, \"testkey1\") = \"testitem1\" and TypeOf(DictionaryItem(testobject1.testattribut, \"testkey2\")) = \"string\" and DictionaryItem(testobject1.testattribut, \"testkey2\") = \"testitem2\" and TypeOf(DictionaryItem(testobject1.testattribut, \"testkey3\")) = \"object\" and DictionaryItem(testobject1.testattribut, \"testkey3\") = testobject1 and TypeOf(DictionaryItem(testobject1.testattribut, \"testkey4\")) = \"object\" and DictionaryItem(testobject1.testattribut, \"testkey4\") = testobject2")
dictionary add (commands, "#testobject1.testattribut{testkey4}=\"newtestitem4\"", "TypeOf(testobject1.testattribut) = \"dictionary\" and DictionaryCount(testobject1.testattribut) = 4 and TypeOf(DictionaryItem(testobject1.testattribut, \"testkey4\")) = \"string\" and DictionaryItem(testobject1.testattribut, \"testkey4\") = \"newtestitem4\"")
dictionary add (commands, "#testobject1.testattribut{testkey1}", "")
// OBJECTATTRIBUT
dictionary add (commands, "#testobject1.testattribut=testobject2.name", "TypeOf(testobject1.testattribut) = \"string\" and testobject1.testattribut=\"testobject2\"")
// ALL TYPES
dictionary add (commands, "#testobject1.testattribut", "")
// ----------------------------------------------------------------------------------------------------
// TESTING
// Testing the Commands
// ----------------------------------------------------------------------------------------------------
iserror = false
foreach (command, commands) {
if (not iserror) {
on ready {
DevModeOutput (" > " + command)
HandleSingleCommand (command)
on ready {
compare = ToString(DictionaryItem(commands, command))
if (compare <> "") {
result = Eval(compare)
}
DevModeOutput ("Quest-Presentation: testobject1.testattribut = " + ToString(testobject1.testattribut))
if (not result) {
iserror = true
DevModeOutputError (Template("DevModeComSelfTestFailed"))
Log (ToString(ListItem(testobject1.testattribut, 2)))
}
}
}
}
}
]]> null) {
foreach (stylesheet, game.externalstylesheets) {
JS.addExternalStylesheet (stylesheet)
}
}
if (game.setbackgroundopacity) {
SetBackgroundOpacity (game.backgroundopacity)
}
SetBackgroundColour (game.defaultbackground)
SetForegroundColour (game.defaultforeground)
SetLinkForegroundColour (game.defaultlinkforeground)
if (LengthOf(game.backgroundimage) > 0) {
SetBackgroundImage (game.backgroundimage)
}
JS.setCompassDirections (Join(game.compassdirections, ";"))
JS.setInterfaceString ("InventoryLabel", "Inventory")
JS.setInterfaceString ("StatusLabel", "Status")
JS.setInterfaceString ("PlacesObjectsLabel", "Places and Objects")
JS.setInterfaceString ("CompassLabel", "Compass")
JS.setInterfaceString ("InButtonLabel", "in")
JS.setInterfaceString ("OutButtonLabel", "out")
JS.setInterfaceString ("EmptyListLabel", "(empty)")
JS.setInterfaceString ("NothingSelectedLabel", "(nothing selected)")
JS.setInterfaceString ("TypeHereLabel", "Type here...")
JS.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 ()
}
ResetCommandBarFormat
if (game.showcommandbar) {
JS.uiShow ("#txtCommandDiv")
}
else {
JS.uiHide ("#txtCommandDiv")
}
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)
}
}
}
// Added by the Pixie
// Note that panesVisible in playercore.js must be updated too
// This line will get the save confirmation to appear in the right font and colour
JS.setCss ("body", "color:" + game.defaultforeground + ";font-family:" + game.defaultfont + ";font-size:" + game.defaultfontsize + "pt;")
// various new options
if (HasString(game, "bordercolour")) {
JS.setCss ("#gameBorder", "border-left:1px solid " + game.bordercolour + ";border-right:1px solid " + game.bordercolour)
}
if (not game.classiclocation) {
JS.setCss ("#status", "background-image:none")
if (HasString(game, "customlocationcolour")) {
JS.setCss ("#status", "background-color:" + game.customlocationcolour)
}
else {
JS.setCss ("#status", "background:transparent")
}
if (HasString(game, "customlocationtextcolour")) {
JS.setCss ("#status", "color:" + game.customlocationtextcolour)
}
if (HasString(game, "customlocationbordercolour")) {
JS.setCss ("#status", "border:1px solid " + game.customlocationbordercolour)
}
else {
JS.setCss ("#status", "border:none")
}
if (HasString(game, "locationbarimage")) {
if (not Trim(game.locationbarimage) = "") {
url = GetFileURL(game.locationbarimage)
JS.eval ("$('.ui-widget-header').css('background-image','url(" + url + ")');")
}
}
}
// request (Show, "Location")
if (game.showlocation) {
JS.uiShow ("#location")
JS.setCss ("#status", "display:block")
}
else {
JS.setCss ("#status", "display:none")
}
if (HasString(game, "marginscolour")) {
JS.setCss ("body", "background-color:" + game.marginscolour)
}
if (game.turnoffsavebutton) {
JS.setCss ("#controlButtons", "display:none")
}
if (game.turnoffcompass) {
JS.setCss ("#compassLabel", "display:none;")
JS.setCss ("#compassAccordion", "display:none;")
}
if (game.turnoffinventory) {
JS.setCss ("#inventoryLabel", "display:none")
JS.setCss ("#inventoryAccordion", "display:none")
}
if (game.turnoffplacesandobjects) {
JS.setCss ("#placesObjectsLabel", "display:none")
JS.setCss ("#placesObjectsAccordion", "display:none")
}
if (game.statusandcompassattop) {
JS.eval ("$('#commandPane').insertBefore('#inventoryLabel')")
JS.eval ("$('#customStatusPane').insertBefore('#inventoryLabel')")
JS.eval ("$('#statusVarsLabel').insertBefore('#inventoryLabel')")
JS.eval ("$('#statusVarsAccordion').insertBefore('#inventoryLabel')")
JS.eval ("$('#compassLabel').insertBefore('#inventoryLabel')")
JS.eval ("$('#compassAccordion').insertBefore('#inventoryLabel')")
}
if (game.showpanes and game.commandpane) {
JS.setCss ("#commandPane", "display:block")
}
if (game.showpanes and game.customstatuspane) {
JS.setCss ("#customStatusPane", "display:block")
}
if (game.colourblend) {
JS.colourBlend (game.colourblendtop, game.colourblendbottom)
}
if (game.borderlesscursor) {
JS.addScript ("")
JS.setCss ("#txtCommandDiv", "color:" + game.defaultforeground)
JS.eval ("$('#txtCommandPrompt').html('" + game.commandcursor + "')")
}
else if (game.shadowbox) {
JS.addScript ("")
}
if (game.panestheme = "Midnight") {
JS.setPanes ("white", "midnightblue", "midnightblue", "skyblue")
}
if (game.panestheme = "Nature") {
JS.setPanes ("#A1C935", "#254117", "#306754", "#A1C935", "green")
}
if (game.panestheme = "Parchment") {
JS.setPanes ("#493D26", "#FAEBD7", "#FAEBD7", "#493D26", "#C88141")
}
if (game.panestheme = "Vanilla") {
JS.setPanes ("black", "white")
}
if (game.panestheme = "Black") {
JS.setPanes ("orange", "black", "black", "orange")
}
if (game.panestheme = "Blood") {
JS.setPanes ("orange", "#800000", "#800000", "orange", "yellow")
}
if (game.panestheme = "Tranquil") {
JS.setPanes ("midnightblue", "skyblue", "white", "midnightblue", "blue")
}
if (game.respondtogridclicks) {
JS.respondToGridClicks (true)
}
//
// -----------------------------------------------------------------------
// This is in the original, but must come last
if (not game.showborder) {
JS.hideBorder ()
}
if (game.showpanes) {
JS.panesVisible (true)
}
else {
JS.panesVisible (false)
}
JS.getDivCount ()
if (not game.pov = null) {
JS.updateLocation (CapFirst(GetDisplayName(game.pov.parent)))
}
if (game.feature_devmode) {
setDevMode
}
InitUserInterface
if (HasScript(game, "inituserinterface")) {
do (game, "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")
}
foreach (obj, AllObjects()) {
if (HasScript(obj, "_initialise_")) {
do (obj, "_initialise_")
}
}
UpdateStatusAttributes
UpdateObjectLinks
on ready {
if (game.gridmap) {
Grid_DrawPlayerInRoom (game.pov.parent)
}
if (game.displayroomdescriptiononstart) {
OnEnterRoom (null)
}
UpdateStatusAttributes
UpdateObjectLinks
}
// Added by KV to use the old JS clearScreen if the transcript is disabled
if (GetBoolean(game, "notranscript")) {
JS.eval ("transcriptEnabled = false;")
}
game.runturnscripts = false
FinishTurn
]]>
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") or not HasAttribute(game, "verbattributes")) {
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))
}
}
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
oldPOV.possessive = oldPOV.external_possessive
}
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
newPOV.external_possessive = newPOV.possessive
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.showmoney and not HasInt(newPOV, "money")) {
newPOV.money = 0
}
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
newPOV.possessive = newPOV.pov_possessive
]]>
if (GetBoolean(game,"runturnscripts")) {
if (not GetBoolean(game, "suppressturnscripts")) {
RunTurnScripts
}
}
game.runturnscripts = false
game.suppressturnscripts = false
UpdateStatusAttributes
CheckDarkness
UpdateObjectLinks
game.questplatform = s
= 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)
}
}
}
]]>
if (game.boundary_lock) {
JS.uiHide ("#txtCommandDiv")
}
else {
msg (" ")
}
if (game.boundary_lock = false) {
JS.uiShow ("#txtCommandDiv")
}
else {
msg (" ")
}
0) {
// Pull the first item
current_line = ListItem(game.active_text_list, 0)
// Print it
msg (current_line)
// Remove it so the next loop gets the next line
list remove (game.active_text_list, current_line)
// Set the timer using the global delay
SetTimeout (game.active_delay_time) {
}
}
else {
if (HasScript(game, "after_dialogue_script")) {
do (game, "after_dialogue_script")
}
}
]]> 0) {
current_line = ListItem(game.active_play_text, 0)
if (IsRegexMatch (" ", current_line)) {
parts = Split(current_line, " ")
foreach (p, parts) {
TextFX_Typewriter (p, 20)
}
}
else {
TextFX_Typewriter (current_line, 20)
}
list remove (game.active_play_text, current_line)
// Set a wait
JS.eval ("$('#endWaitDiv').hide();")
JS.eval ("$('#divOutput').append(' >> ');")
wait {
JS.eval ("$('#temp-cursor').remove();")
anykey
}
}
else {
if (HasScript(game, "after_dialogue_script")) {
game.nowhere_intro = null
game.nowhere_intro = NewStringList ()
game.active_play_text = null
game.active_play_text = NewStringList ()
do (game, "after_dialogue_script")
}
}
]]> 0) {
// Pull the first item
current_line = ListItem(game.active_play_text, 0)
// Print it
// If the line contains a break tag, split it and type separately
msg ("current_line")
// Remove it so the next loop gets the next line
list remove (game.active_play_text, current_line)
// Set a wait
JS.eval ("$('#endWaitDiv').hide();")
JS.eval ("$('#divOutput').append(' >> ');")
wait {
JS.eval ("$('#temp-cursor').remove();")
anykey
}
}
else {
if (HasScript(game, "after_dialogue_script")) {
do (game, "after_dialogue_script")
}
}
]]> 5) {
altar.asdfg_valid = false
}
else if (result <> "asdfg") {
altar.asdfg_correct = false
}
else if (result = "asdfg") {
altar.asdfg_correct = true
}
}
on ready {
if (altar.asdfg_valid = false) {
msg ("You're imagining solutions that aren't real.")
}
else if (altar.asdfg_correct = false) {
msg ("You know that's not it.")
}
else if (altar.asdfg_correct = true) {
msg ("For some reason, that feels right.")
}
altar.asdfg_valid = true
altar.asdfg_correct = false
}
}
]]> 0) {
current_line = ListItem(game.active_play_text, 0)
if (IsRegexMatch (" ", current_line)) {
parts = Split(current_line, " ")
foreach (p, parts) {
msg (" ")
msg (p)
}
}
else {
msg (" ")
msg (current_line)
}
//
list remove (game.active_play_text, current_line)
//
JS.eval ("$('#endWaitDiv').hide();")
JS.eval ("$('#divOutput').append(' >> ');")
wait {
JS.eval ("$('#temp-cursor').remove();")
anykeyp
}
}
else {
if (HasScript(game, "after_dialogue_script")) {
game.active_play_text = null
game.active_play_text = NewStringList ()
game.nowhere_intro = null
game.nowhere_intro = NewStringList ()
do (game, "after_dialogue_script")
}
}
]]> 0) {
current_line = ListItem(game.active_play_text, 0)
if (IsRegexMatch (" ", current_line)) {
parts = Split(current_line, " ")
foreach (p, parts) {
TextFX_Typewriter (p, 45)
}
}
else {
TextFX_Typewriter (current_line, 45)
}
list remove (game.active_play_text, current_line)
JS.eval ("$('#endWaitDiv').hide();")
SetTimeout (5) {
JS.eval ("$('#temp-cursor').remove();")
on ready {
intheworld
}
}
}
else {
if (HasScript(game, "after_dialogue_script")) {
do (game, "after_dialogue_script")
}
}
]]> 0) {
current_line = ListItem(game.aboutsnailsweeper, 0)
msg (" ")
msg (current_line)
list remove (game.aboutsnailsweeper, current_line)
}
else {
firsttime {
msg ("Too slow and not magic enough for the average salesdriver, these machines were never all that popular. You've adjusted to the fact that you're never going to understand other people. ")
player.connection = player.connection+1
game.aboutsnailsweeper = NewStringList()
list add (game.aboutsnailsweeper, "Very few were ever even made. If this one were real, it might be the most exciting thing that ever happened to you. You've read everything there is to read about snailsweepers.")
list add (game.aboutsnailsweeper, "Supposedly the original design actually swept up the trash and stored it in an extra-large storage nose. You think they made the right choice, going with a design that actually eats trash, but you wonder what the extra-large storage nose would have looked like.")
list add (game.aboutsnailsweeper, "It won't outrun anyone, but it actually gets up to more than twice the speed of a snail its size would normally be in the wild. ")
list add (game.aboutsnailsweeper, "Snailsweepers actually use less magic proportionate to their weight compared to machines being advertised today. To make Grazing Mode work, the underside has to be bow to stern living bristle. Supposedly it takes forever to cultivate properly. As a result, it doesn't strictly need to be magical throughout the chassis.")
list add (game.aboutsnailsweeper, "You wonder how they got the lights to work. You're not sure what exactly is glowing or how that works without magic. You'd honestly thought the glowing was a magnets thing, but obviously that's not it.")
list add (game.aboutsnailsweeper, "You wonder if you should even entertain the idea that this snailsweeper had belonged to someone else. You're pretty confident Calliope would be putting more than a few trees in your path if you were stealing something.")
}
otherwise {
msg ("Too slow and not magic enough for the average salesdriver, these machines were never all that popular. You've adjusted to the fact that you're never going to understand other people. ")
game.aboutsnailsweeper = NewStringList()
list add (game.aboutsnailsweeper, "Very few were ever even made. If this one were real, it might be the most exciting thing that ever happened to you. You've read everything there is to read about snailsweepers.")
list add (game.aboutsnailsweeper, "Supposedly the original design actually swept up the trash and stored it in an extra-large storage nose. You think they made the right choice, going with a design that actually eats trash, but you wonder what the extra-large storage nose would have looked like.")
list add (game.aboutsnailsweeper, "It won't outrun anyone, but it actually gets up to more than twice the speed of a snail its size would normally be in the wild. ")
list add (game.aboutsnailsweeper, "Snailsweepers actually use less magic proportionate to their weight compared to machines being advertised today. To make Grazing Mode work, the underside has to be bow to stern living bristle. Supposedly it takes forever to cultivate properly. As a result, it doesn't strictly need to be magical throughout the chassis.")
list add (game.aboutsnailsweeper, "You wonder how they got the lights to work. You're not sure what exactly is glowing or how that works without magic. You'd honestly thought the glowing was a magnets thing, but obviously that's not it.")
list add (game.aboutsnailsweeper, "You wonder if you should even entertain the idea that this snailsweeper had belonged to someone else. You're pretty confident Calliope would be putting more than a few trees in your path if you were stealing something.")
}
}
]]> 0) {
current_line = ListItem(game.aboutyou, 0)
msg (" ")
msg (current_line)
list remove (game.aboutyou, current_line)
}
else if (player.wantskettle) {
msg ("Somehow being able to see your hands doesn't make them look more real.")
game.aboutyou = NewStringList()
list add (game.aboutyou, "You wonder what your voice sounds like. You assume it's different from the last time you heard it.")
list add (game.aboutyou, "You stare at the curtain until your eyes sting but your eyelids just keep getting wider.")
list add (game.aboutyou, "You can feel the rumble of bristles breaking down trash beneath, and you sort of wish you were out there belly-down on the ground, too.")
list add (game.aboutyou, "You try to push the hair out of your face, but that just gets it in your eyes.")
list add (game.aboutyou, "You wonder if you should've become a wizard. An empty magic tank is only the latest problem in your life that being a wizard could have solved.")
}
else {
player.wantskettle = true
player.curiosity = player.curiosity+1
msg ("Somehow being able to see your hands doesn't make them look more real.")
game.aboutyou = NewStringList()
list add (game.aboutyou, "You wonder what your voice sounds like. You assume it's different from the last time you heard it.")
list add (game.aboutyou, "You stare at the curtain until your eyes sting but your eyelids just keep getting wider.")
list add (game.aboutyou, "You can feel the rumble of bristles breaking down trash beneath, and you sort of wish you were out there belly-down on the ground, too.")
list add (game.aboutyou, "You try to push the hair out of your face, but that just gets it in your eyes.")
list add (game.aboutyou, "You wonder if you should've become a wizard. An empty magic tank is only the latest problem in your life that being a wizard could have solved.")
}
]]>Thank you for being curious. ")
on ready {
SetFontName ("'Lucida Console', Monaco, monospace")
PrintCentered ("[You found the kettle.]")
PrintCentered (" ")
}
on ready {
SetWebFontName ("Press Start 2P")
on ready {
SetTimeout (2) {
PrintCentered (" ")
game.introendcredits = 11
introendcredits
}
}
}
}
}
else {
on ready {
SetTimeout (2) {
PrintCentered (". . . .")
game.introendcredits = 11
introendcredits
}
}
}
}
else if (game.introendcredits = 2) {
PrintCentered ("Carrying you and your burdens through the long night")
SetTimeout (2) {
PrintCentered (". . . . so nobody else has to.")
SetTimeout (2) {
PrintCentered ("You can count on your snailsweeper. ")
SetTimeout (1) {
img_url = "https://i.imgur.com/qwEjfz4.jpeg"
JS.eval ("var newDiv = $(''); var img = $(''); newDiv.append(img); var last = $('#divOutput div').last(); if (last.length) { last.after(newDiv); } else { $('#divOutput').append(newDiv); } setTimeout(function() { $('#divOutput').scrollTop($('#divOutput')[0].scrollHeight); }, 50);")
PrintCentered (" To be continued . . . .")
on ready {
PrintCentered (" ")
game.introendcredits = 3
introendcredits
}
}
}
}
}
else if (game.introendcredits = 3) {
SetTimeout (2) {
SetFontName ("Lucida Console")
SetForegroundColour ("White")
on ready {
msg (" [Press any key for credits.] ")
}
JS.eval ("$('#endWaitDiv').hide();")
SetFontSize (14)
on ready {
wait {
msg (" Onion Hugs: \"Getting Started\" ")
SetTimeout (2) {
SetFontSize (12)
msg (" creation and sole responsibility of ALEX BIRCH (normaltunanoises) ")
SetTimeout (3) {
msg (" \"the sound of dial up internet\" by WTERMINI via FREESOUND.ORG, CC0.
old radio noise by DRNI via FREESOUND.ORG. CC0.
\"as silent as its shadow\" by ROLLS ROYCE, 1935. Public Domain.
\"touring or detouring\" by MARMON MOTOR CAR COMPANY, 1920s. Public Domain. ")
SetTimeout (4) {
msg (" made in QUEST 5.9 ")
SetTimeout (2) {
msg (" other software used: AUDACITY KOALA SAMURAI INKSCAPE MS PAINT WINDOWS MOVIE MAKER EZGIF.COM ")
SetTimeout (3) {
msg (" Thank you. ")
SetTimeout (5) {
msg ("DISCONNECTED")
finish
}
}
}
}
}
}
}
}
}
}
else if (game.introendcredits = 111) {
if (player.lcbcuddles=1) {
SetTimeout (1) {
PrintCentered ("Thank you for lingering.")
on ready {
SetFontName ("'Lucida Console', Monaco, monospace")
PrintCentered ("[You spent more time inside the shell.]")
PrintCentered (" ")
}
on ready {
SetWebFontName ("Press Start 2P")
on ready {
SetTimeout (2) {
PrintCentered (" ")
game.introendcredits = 1111
introendcredits
}
}
}
}
}
else {
on ready {
SetTimeout (2) {
PrintCentered (". . . .")
game.introendcredits = 111
introendcredits
}
}
}
}
else if (game.introendcredits = 1111) {
if (player.askedruok=1) {
SetTimeout (1) {
PrintCentered ("Thank you for keeping your promises. So far.")
SetFontName ("'Lucida Console', Monaco, monospace")
PrintCentered ("[You chose your magic words wisely.]")
PrintCentered (" ")
on ready {
SetWebFontName ("Press Start 2P")
on ready {
SetTimeout (2) {
PrintCentered (" ")
game.introendcredits = 2
introendcredits
}
}
}
}
}
else {
on ready {
SetTimeout (2) {
PrintCentered (". . . . ")
SetTimeout (4) {
game.introendcredits = 2
introendcredits
}
}
}
}
}
else if (game.introendcredits = 11) {
if (player.rememberverb) {
SetTimeout (2) {
PrintCentered (" Thank you for having care. ")
on ready {
SetFontName ("'Lucida Console', Monaco, monospace")
PrintCentered ("[You surfaced some memories.]")
PrintCentered (" ")
}
on ready {
SetWebFontName ("Press Start 2P")
on ready {
SetTimeout (2) {
PrintCentered (" ")
game.introendcredits = 111
introendcredits
}
}
}
}
}
else {
on ready {
SetTimeout (2) {
PrintCentered (". . . .")
game.introendcredits = 11
introendcredits
}
}
}
}
]]>[Tube of INSPIRATION] [Official Grull & Trawl Snailsweeper Operation MANUAL] [Latest PAGES] [PEN and well] [HAT without eyes] [LOOBERT CHEWBERT BOOBERT] ")
list add (game.nowhere_intro, "You can DIG in the trash if you want, and you can go back to the CONSOLE when you're done.")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
else if (game.shellventory="2") {
HelperOpenObject (Shlvl One)
game.nowhere_intro = NewStringList()
game.active_play_text = NewStringList()
list add (game.nowhere_intro, "You can keep doing what you're doing, or pick something else out of the pile:")
list add (game.nowhere_intro, " ")
list add (game.nowhere_intro, "[Fuzzy ball of PRESERVATIVE]. [Tube of INSPIRATION] Latest [PAGES] [Snailsweeper MANUAL]")
list add (game.nowhere_intro, "You can dig DEEP to find more, or you can go back to the CONSOLE.")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
else if (game.shellventory="3") {
HelperOpenObject (Shlvl One)
game.nowhere_intro = NewStringList()
game.active_play_text = NewStringList()
list add (game.nowhere_intro, "You can keep doing what you're doing, or pick something else out of the pile:")
list add (game.nowhere_intro, " ")
list add (game.nowhere_intro, "[Fuzzy ball of PRESERVATIVE]. [Tube of INSPIRATION] [Latest PAGES] [Snailsweeper MANUAL] [HAT without eyes] [PEN and well]")
list add (game.nowhere_intro, "You can dig DEEPER to find more, or you can go back to the CONSOLE.")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
else {
HelperOpenObject (Shlvl One)
game.active_play_text = NewStringList()
game.nowhere_intro = NewStringList()
list add (game.nowhere_intro, "You can keep doing what you're doing, or pick something else out of the pile:")
list add (game.nowhere_intro, "[Fuzzy ball of PRESERVATIVE]. [Tube of INSPIRATION]")
list add (game.nowhere_intro, "You can DIG to find more, or you can go back to the CONSOLE.")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
]]>You're having a realization.")
list add (game.nowhere_intro, "You can't hear the leaves against the shell anymore.")
list add (game.nowhere_intro, "It might be time to [RAISE] the [CURTAINS].")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
JS.eval ("if (window.cachedAudio7) { window.cachedAudio7.pause(); window.cachedAudio7.currentTime = 0; }")
anykey
MakeObjectVisible (Nap Head)
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
game.intro_end = true
game.introendconsole = false
game.consoleintroed = true
game.inendconsoletrigger = false
}
}
else if (game.consoleintroed) {
if (player.wantskettle) {
HelperCloseObject (Shlvl Three)
HelperCloseObject (Shlvl Two)
HelperCloseObject (Shlvl One)
msg ("You see the [MAGIC LIGHT], the [RUN LEVER], the [TILT SHIFT], the [Steering VALVES], the [NAV POINTER], the [COLOR WHEEL], the [CLAVIature], and the [KETTLE].
Most of it looks powered down, but you can still learn more [ABOUT] them.")
MakeObjectVisible (Kettle)
game.inendconsoletrigger = false
}
else {
HelperCloseObject (Shlvl Three)
HelperCloseObject (Shlvl Two)
HelperCloseObject (Shlvl One)
msg ("You see the [MAGIC LIGHT], the [RUN LEVER], the [TILT SHIFT], the [STEERING VALVES], the [NAV POINTER], the [COLOR WHEEL], the [CLAVIATURE].
Most of it looks powered down, but you can still learn more [ABOUT] them.")
game.inendconsoletrigger = false
}
}
]]>
game.fear_impact = game.player_impact-player.host_fearmod
player.host_fear = 100-game.fear_impact
game.player_impact = player.curiosity+player.care+player.connection
game.lonely_impact = game.player_impact-player.host_lonelymod
player.host_lonely = 100-game.lonely_impact
player.PingRate = player.PingBase-player.connection
// curiosity, care, connection cap out at 50 total, for 10 potential points for each chapter of the game. 5 of those should be major events, 5 minor.
// host lonelymod should be 50 at minimum and go up from there and not go down. More lonelymod more lonely.
// host fearmod should be -50 at minimum and spike up from there. More fearmod more fear.
{
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
else if (game.shellup4=2) {
// rewrite this one
game.shlvl_three = true
MoveObject (player, Shlvl One)
game.shellventory = "4"
game.shellup4 = 3
game.active_play_text = NewStringList()
game.nowhere_intro = NewStringList()
list add (game.nowhere_intro, "Why the rush to get back to the CONSOLE?")
list add (game.nowhere_intro, "Don't you like it in here?")
list add (game.nowhere_intro, "Of course you do. You love trash.")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
else if (game.shellup4=1) {
game.shlvl_three = true
MoveObject (player, Shlvl One)
game.shellventory = "4"
game.shellup4 = 2
game.active_play_text = NewStringList()
game.nowhere_intro = NewStringList()
list add (game.nowhere_intro, "What?")
list add (game.nowhere_intro, "Really?")
list add (game.nowhere_intro, "Do you really need to go back to the CONSOLE already?")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
}
else if (shlvl = 3) {
if (game.shellup3=3) {
if (game.shlvl_three) {
game.shlvl_two = true
game.shlvl_three = false
game.shellup3 = 3
game.active_play_text = NewStringList()
game.nowhere_intro = NewStringList()
list add (game.nowhere_intro, ". . . . Fine.")
list add (game.nowhere_intro, "But you're not going to hurry.")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
}
else if (game.shellup3=2) {
if (game.shlvl_three) {
game.shlvl_two = true
game.shlvl_three = false
game.shellup3 = 3
game.active_play_text = NewStringList()
game.nowhere_intro = NewStringList()
list add (game.nowhere_intro, "It's just that this is your favorite trash pile so far.")
list add (game.nowhere_intro, "You know you have to get back to the CONSOLE, but. . . .")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
}
else if (game.shellup3=1) {
if (game.shlvl_three) {
game.shlvl_two = true
game.shlvl_three = false
game.shellup3 = 2
game.active_play_text = NewStringList()
game.nowhere_intro = NewStringList()
list add (game.nowhere_intro, "You reluctantly start to get moving.")
list add (game.nowhere_intro, "You're deep in the trash, so it doesn't go great.")
list add (game.nowhere_intro, "....Yeah, if you want to get back to the CONSOLE, you're going to have to try that again.")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
}
}
else if (shlvl = 2) {
if (game.shellup2=3) {
// rewrite this one
on ready {
game.shlvl_two = false
game.shlvl_one = true
game.shellup2 = 3
}
game.active_play_text = NewStringList()
game.nowhere_intro = NewStringList()
list add (game.nowhere_intro, "It's easy to get comfortable under all this trash.")
list add (game.nowhere_intro, "Is it ever going to get easier to climb back out?")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
else if (game.shellup2=2) {
// rewrite this one
on ready {
game.shlvl_two = false
game.shlvl_one = true
game.shellup2 = 3
}
game.active_play_text = NewStringList()
game.nowhere_intro = NewStringList()
list add (game.nowhere_intro, "You don't like how hard it is to do this.")
list add (game.nowhere_intro, "Almost like the trash doesn't want you to go back to the CONSOLE.")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
else if (game.shellup2=1) {
on ready {
game.shlvl_two = false
game.shlvl_one = true
game.shellup2 = 2
}
game.active_play_text = NewStringList()
game.nowhere_intro = NewStringList()
list add (game.nowhere_intro, "You start to pull yourself back out of the trash....")
list add (game.nowhere_intro, "....It's slow going.")
list add (game.nowhere_intro, "All this to get back to the CONSOLE.")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
}
}
else if (shlvl =1) {
if (game.shellup1=1) {
on ready {
HelperCloseObject (Shlvl Three)
HelperCloseObject (Shlvl Two)
HelperCloseObject (Shlvl One)
}
game.active_play_text = NewStringList()
game.nowhere_intro = NewStringList()
list add (game.nowhere_intro, "You clamber back into the driver's seat.")
list add (game.nowhere_intro, "You can look at that CONSOLE whenever you want now.")
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
game.after_dialogue_script => {
game.active_play_text = NewStringList()
game.nowhere_intro = NewStringList()
msg ("> The snailsweeper slowly starts to move!")
MoveObject (player, Snailsweeper)
game.Boundary_Lock = false
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
}
on ready {
game.shlvl_one = false
}
}
}
]]> {
Boundary_Lock = False
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
get input {
if (LCase(result) = "yes") {
game.active_play_text = NewStringList()
game.nowhere_intro = NewStringList()
player.connection = player.connection+1
player.curiosity = player.curiosity+1
list add (game.nowhere_intro, "It's incredibly pleasant, riding in a snailsweeper.")
list add (game.nowhere_intro, "The seat is comfortable. Everything is clean.")
list add (game.nowhere_intro, "You don't even mind the smell of trees.")
list add (game.nowhere_intro, "Even without seeing them, with the curtains drawn, the smell is a green smell. ")
list add (game.nowhere_intro, "An energetic, sun-kissed green kind of smell, just this side of stinging the nostrils.")
list add (game.nowhere_intro, "It's a nice smell. Smells awake.")
list add (game.nowhere_intro, "Smells like. . . . connection.")
list add (game.nowhere_intro, "Like you're connected to something vast and breathing.")
list add (game.nowhere_intro, "Like you have everyone in the world to share roots with.")
list add (game.nowhere_intro, "Even if you're not supposed to.")
list add (game.nowhere_intro, "Even though you're not really one of them at all.")
list add (game.nowhere_intro, ". . . .")
list add (game.nowhere_intro, "You're pretty sure real trees smell the same way. ")
list add (game.nowhere_intro, "At this point you've smelled more visions than actual trees in your life.")
list add (game.nowhere_intro, "It's hard to keep track of what was real and what wasn't.")
list add (game.nowhere_intro, "The visions aren't entirely to blame.")
list add (game.nowhere_intro, "Once something's in the past, it's hard not to smudge the details.")
list add (game.nowhere_intro, "Maybe you're not giving Calliope's memory enough credit. ")
list add (game.nowhere_intro, ". . . .You wonder if the important parts are still the same.")
list add (game.nowhere_intro, ". . . .You wonder what you still [REMEMBER].")
list add (game.nowhere_intro, ". . . . ")
list add (game.nowhere_intro, "Somehow, the sound of leaves is making you feel restless again.")
game.after_dialogue_script => {
Boundary_Lock = False
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
Snailsweeper.driverstext = true
set (Snailsweeper, "driverseat", Snailsweeper.driverseat+1)
}
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
}
else {
Boundary_Lock = False
BoundaryUnlock
JS.uiShow ("#txtCommandDiv")
Snailsweeper.driverstext = true
set (Snailsweeper, "driverseat", Snailsweeper.driverseat+1)
}
}
}
foreach (item, game.nowhere_intro) {
list add (game.active_play_text, item)
}
on ready {
anykey
}
}
else if (game, "intro_end") {
set (Snailsweeper, "driverseat", Snailsweeper.driverseat+1)
}
}
]]>