caosVM_time.cpp

   1 /*
   2  *  caosVM_time.cpp
   3  *  openc2e
   4  *
   5  *  Created by Alyssa Milburn on Sat Jun 05 2004.
   6  *  Copyright (c) 2004 Alyssa Milburn. All rights reserved.
   7  *
   8  *  This library is free software; you can redistribute it and/or
   9  *  modify it under the terms of the GNU Lesser General Public
  10  *  License as published by the Free Software Foundation; either
  11  *  version 2 of the License, or (at your option) any later version.
  12  *
  13  *  This library is distributed in the hope that it will be useful,
  14  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  *  Lesser General Public License for more details.
  17  *
  18  */
  19
  20 #include "caosVM.h"
  21 #include "World.h"
  22 #include "Engine.h"
  23 #include "Backend.h"
  24 #include <time.h> // gmtime and strftime
  25
  26 /**
  27  PACE (float)
  28  %status maybe
  29
  30  return speed factor of last ten ticks.
  31
  32  < 1.0 = engine is ticking faster than BUZZ rating. > 1.0 = engine is ticking slower.
  33
  34  You might want to use this to reduce the amount of agents created or the amount of processing done if the speed factor is above 1.0.
  35 */
  36 void caosVM::v_PACE() {
  37         result.setFloat(world.pace);
  38 }
  39
  40 /**
  41  BUZZ (command) interval (integer)
  42  %status maybe
  43 */
  44 void caosVM::c_BUZZ() {
  45         VM_PARAM_INTEGER(interval)
  46
  47         world.ticktime = interval;
  48 }
  49
  50 /**
  51  BUZZ (integer)
  52  %status maybe
  53 */
  54 void caosVM::v_BUZZ() {
  55         result.setInt(world.ticktime);
  56 }
  57
  58 /**
  59  DATE (integer)
  60  %status maybe
  61
  62  Returns the day in the season of the current game world, starting at 0.
  63 */
  64 void caosVM::v_DATE() {
  65         result.setInt(world.dayofseason);
  66 }
  67
  68 /**
  69  HIST DATE (integer) tick (integer)
  70  %status stub
  71
  72  Returns the day in the season of the current game world at the specified world tick, starting at 0. See DATE.
  73 */
  74 void caosVM::v_HIST_DATE() {
  75         VM_PARAM_INTEGER(tick)
  76
  77         result.setInt(0); // TODO
  78 }
  79
  80 /**
  81  SEAN (integer)
  82  %status maybe
  83  %pragma variants c2 cv c3
  84
  85  Returns the current game world season. 0 is spring, 1 is summer, 2 is autumn and 3 is winter.
  86 */
  87 void caosVM::v_SEAN() {
  88         result.setInt(world.season);
  89 }
  90
  91 /**
  92  HIST SEAN (integer) tick (integer)
  93  %status stub
  94
  95  Returns the current game world season at the specified world tick. 0 is spring, 1 is summer, 2 is autumn and 3 is winter. See SEAN.
  96 */
  97 void caosVM::v_HIST_SEAN() {
  98         VM_PARAM_INTEGER(tick)
  99
 100         result.setInt(0); // TODO
 101 }
 102
 103 /**
 104  TIME (integer)
 105  %status maybe
 106
 107  Returns the time of day in the current game world. 0 is dawn, 1 is morning, 2 is afternoon, 3 is evening and 4 is night.
 108 */
 109 void caosVM::v_TIME() {
 110         result.setInt(world.timeofday);
 111 }
 112
 113 /**
 114  HIST TIME (integer) tick (integer)
 115  %status stub
 116
 117  Returns the time of day in the current game world at the specified world tick. 0 is dawn, 1 is morning, 2 is afternoon, 3 is evening and 4 is night. See TIME.
 118 */
 119 void caosVM::v_HIST_TIME() {
 120         VM_PARAM_INTEGER(tick)
 121
 122         result.setInt(0); // TODO
 123 }
 124
 125 /**
 126  YEAR (integer)
 127  %status maybe
 128  %pragma variants c2 cv c3
 129
 130  Returns the number of game years elapsed in the current world.
 131 */
 132 void caosVM::v_YEAR() {
 133         result.setInt(world.year);
 134 }
 135
 136 /**
 137  HIST YEAR (integer) tick (integer)
 138  %status stub
 139
 140  Returns the number of game years elapsed at the specified world tick. See YEAR.
 141 */
 142 void caosVM::v_HIST_YEAR() {
 143         VM_PARAM_INTEGER(tick)
 144
 145         result.setInt(0); // TODO
 146 }
 147
 148 /**
 149  MSEC (integer)
 150  %status maybe
 151 */
 152 void caosVM::v_MSEC() {
 153         result.setInt(engine.backend->ticks());
 154 }
 155
 156 /**
 157  WPAU (command) paused (integer)
 158  %status stub
 159
 160  If paused is 0, enable world ticks, otherwise (1) disable them.
 161 */
 162 void caosVM::c_WPAU() {
 163         VM_PARAM_INTEGER(paused)
 164
 165         // TODO
 166 }
 167
 168 /**
 169  WPAU (integer)
 170  %status stub
 171
 172  Returns 1 if world ticks are paused, or 0 otherwise.
 173 */
 174 void caosVM::v_WPAU() {
 175         result.setInt(0); // TODO
 176 }
 177
 178 /**
 179  PAUS (command) paused (integer)
 180  %status maybe
 181
 182  If paused is 0, unpause target agent, otherwise (1) pause it.
 183 */
 184 void caosVM::c_PAUS() {
 185         VM_PARAM_INTEGER(paused)
 186
 187         valid_agent(targ);
 188
 189         targ->paused = paused;
 190 }
 191
 192 /**
 193  PAUS (integer)
 194  %status maybe
 195
 196  Returns 1 if target agent is paused, or 0 otherwise.
 197 */
 198 void caosVM::v_PAUS() {
 199         valid_agent(targ);
 200
 201         if (targ->paused)
 202                 result.setInt(1);
 203         else
 204                 result.setInt(0);
 205 }
 206
 207 /**
 208  RTIF (string) timestamp (integer) format (string)
 209  %status maybe
 210
 211  Returns the result of strftime with the current timestamp and format.
 212 */
 213 void caosVM::v_RTIF() {
 214         VM_PARAM_STRING(format)
 215         VM_PARAM_INTEGER(timestamp)
 216
 217         char buffer[1000]; // no idea what maximum length should be.. we can't really do this dynamically
 218         time_t tstamp = timestamp;
 219         strftime(buffer, 1000, format.c_str(), gmtime(&tstamp)); // TODO: does gmtime return null?
 220
 221         result.setString(buffer);
 222 }
 223
 224 /**
 225  RTIM (integer)
 226  %status maybe
 227 */
 228 void caosVM::v_RTIM() {
 229         result.setInt(time(0));
 230 }
 231
 232 /**
 233  WTIK (integer)
 234  %status maybe
 235 */
 236 void caosVM::v_WTIK() {
 237         result.setInt(world.worldtickcount);
 238 }
 239
 240 /**
 241  RACE (integer)
 242  %status maybe
 243 */
 244 void caosVM::v_RACE() {
 245         result.setInt(world.race);
 246 }
 247
 248 /**
 249  ETIK (integer)
 250  %status maybe
 251 */
 252 void caosVM::v_ETIK() {
 253         result.setInt(world.tickcount);
 254 }
 255
 256 /**
 257  ASEA (command)
 258  %status stub
 259  %pragma variants c2
 260 */
 261 void caosVM::c_ASEA() {
 262         // TODO
 263 }
 264
 265 /**
 266  TMOD (integer)
 267  %status maybe
 268  %pragma variants c2
 269 */
 270 void caosVM::v_TMOD() {
 271         result.setInt(world.timeofday); // TODO
 272 }
 273
 274 /**
 275  SEAV (integer)
 276  %status maybe
 277  %pragma variants c2
 278 */
 279 void caosVM::v_SEAV() {
 280         // TODO: hardcoding bad?
 281         result.setInt((world.dayofseason * 4) + world.timeofday);
 282 }
 283
 284 /**
 285  DAYT (integer)
 286  %status stub
 287 */
 288 void caosVM::v_DAYT() {
 289         result.setInt(0); // TODO
 290 }
 291
 292 /**
 293  MONT (integer)
 294  %status stub
 295 */
 296 void caosVM::v_MONT() {
 297         result.setInt(0); // TODO
 298 }
 299
 300 /* vim: set noet: */