Hotspots: Admin Pages | Turn-in Site |
Current Links: Case Final Project Summer 2007
The Central World
"Still sort of formless..."
center _ AGRoom named: 'center'.
center description: 'The center of things'.
center longDescription: 'The center of things, both physically and psychologically'.
north _ AGRoom named: 'the north'.
north description: 'The north state of mind'.
north longDescription: 'The northern state of mind, embodied by a loneliness'.
center to: #north attach: north.
north to: #south attach: center.
cowboy _ AGCharacter named: 'cowboy'.
cowboy description: 'a standard western style cowboy'.
cowboy longDescription: 'a cowboy sitting long and lean, shiny and rough'.
pistol _ AGObject named: 'pistol'.
pistol description: 'a shiny cowboy pistol'.
cowboy add: pistol.
sign _ AGObject named: 'sign'.
sign description: 'a rugged wooden sign'.
sign longDescription: '"the west: where cowboys are made..."'.
west _ AGRoom named: 'western day'.
west description: 'The western day'.
west longDescription: 'The dry and dirty western day'.
west to: #east attach: center.
center to: #west attach: west.
west verbMatch: 'make cowboy'
do: [:player :me :world | me add: cowboy. world print: 'Poof! A cowboy.'].
west add: sign.
chill _ AGDaemon named: 'chill'.
chill description: 'A chill'.
chill longDescription: 'A bone-chilling chill'.
chill stepDo: [:me | (me container) = (me world player container)
ifTrue: [me world print: 'You feel a chill...']].
north contain: chill.
north verbMatch: 'spin' do: [:player :me :world | chill visible: true].
axis _ AGObject named: 'axis'.
axis description: 'an axis'.
axis longDescription: 'an evil dusty axis'.
axis when:
[:player :me :world | (player contents includes: axis) & ((me flag: #nazi) ~= true)]
do: [:player :me :world |
world print: 'You hear the charge of noble Teutonic knights in the distance.'.
world objects do: [:each | each flag: #nazi value: true].
world stepWhenDo].
axis.
south _ AGRoom named: 'old south'.
south description: 'The old south'.
south longDescription: 'The old south. You smell peaches...'.
south add: axis.
center to: #south attach: south.
south to: #north attach: center.
south when: [:player :me :world | ((me flag: #nazi) = true)]
do: [:player :me :world | me name: 'rhineland'.
me description: 'The rhineland'.
me longDescription: 'The occupied rhineland'].
centraWorld _ AGWorld named: 'The Central World'.
centraWorld startAt: center.
centraWorld add: north.
centraWorld add: west. "add an error when room is not added to world!"
centraWorld add: south.
centraWorld start.
Link to this Page