data/qcsrc/server/verbstack.qc

   1 /// This global gets set to the verb in question each time the stack manager calls verb_call\r
   2 entity verb;\r
   3 //.entity current_verb;\r
   4 //.float verb_done;\r
   5 \r
   6 /// Execure this verb\r
   7 #define VCM_DO     0\r
   8 /// Return the value of this verb. Return VS_CALL_REMOVE to delete it.\r
   9 #define VCM_EVAL   1\r
  10 /// This verb is beeing removed NOW (not sent when verb_call returns VS_CALL_REMOVE)\r
  11 #define VCM_REMOVE 2\r
  12 \r
  13 /// Verb callback\r
  14 .float(float message) verb_call;\r
  15 \r
  16 /// Points to this verb's stack.\r
  17 .entity  verbstack;\r
  18 \r
  19 /// Static value of this verb\r
  20 .float verb_static_value;\r
  21 \r
  22 /// verb_call returns this when a verb in not doable\r
  23 #define VS_CALL_NO        0\r
  24 /// verb_call(VCM_DO) returns this when a verb is executing\r
  25 #define VS_CALL_YES_DOING -1\r
  26 /// verb_call(VCM_DO) returns this when a verb did execure and is done\r
  27 #define VS_CALL_YES_DONE  -2\r
  28 /// verb_call(VCM_DO) returns this when a verb should be deleted by the stack manager\r
  29 #define VS_CALL_REMOVE    -3\r
  30 \r
  31 /*\r
  32 void verbstack_updatechain(entity stack)\r
  33 {\r
  34     entity vrb, v;\r
  35     if not (stack)\r
  36         return;\r
  37 \r
  38     dprint("verbstack_updatechain\n");\r
  39 \r
  40     vrb = findchainentity(verbstack, stack);\r
  41     if not (vrb)\r
  42     {\r
  43         stack.vchain = world;\r
  44         return;\r
  45     }\r
  46 \r
  47     stack.vchain = vrb;\r
  48     v = vrb;\r
  49 \r
  50     while(vrb)\r
  51     {\r
  52         vrb = vrb.chain;\r
  53 \r
  54 \r
  55     }\r
  56 }\r
  57 \r
  58 void verbstack_remove(entity vverb)\r
  59 {\r
  60     entity vstack;\r
  61     dprint("verbstack_remove\n");\r
  62 \r
  63     vstack = verb.verbstack;\r
  64     remove(vverb);\r
  65     vverb.verbstack = world;\r
  66     verbstack_updatechain(vstack);\r
  67 \r
  68     //vverb.think = SUB_Remove;\r
  69     //vverb.nextthink = time;\r
  70 }\r
  71 \r
  72 void verbstack_thinkremove()\r
  73 {\r
  74     dprint("verbstack_thinkremove\n");\r
  75     verbstack_remove(self);\r
  76 }\r
  77 */\r
  78 \r
  79 /**\r
  80     Push a new verb onto the specified stack. Set vrb_life to make it time-limited.\r
  81 **/\r
  82 entity verbstack_push(entity stack, float(float eval) vrb_call, float val_static, float vrb_life,entity verb_owner)\r
  83 {\r
  84     entity vrb;\r
  85 \r
  86     if not(stack)\r
  87         return world;\r
  88 \r
  89     if not(vrb_call)\r
  90         return world;\r
  91 \r
  92     vrb                   = spawn();\r
  93     vrb.owner             = verb_owner;\r
  94     vrb.verbstack         = stack;\r
  95     vrb.verb_call         = vrb_call;\r
  96     vrb.verb_static_value = val_static;\r
  97 \r
  98     vrb.classname         = "verb";\r
  99     stack.classname       = "verbstack";\r
 100 \r
 101     if(vrb_life)\r
 102     {\r
 103         //vrb.think     = verbstack_thinkremove;\r
 104         vrb.think     = SUB_Remove;\r
 105         vrb.nextthink = time + vrb_life;\r
 106     }\r
 107 \r
 108     //verbstack_updatechain(stack);\r
 109 \r
 110     return vrb;\r
 111 }\r
 112 \r
 113 /**\r
 114     Find the best verb in this stack and execurte it.\r
 115     ALso remove any verbs returning VS_CALL_REMOVE on VCM_EVAL or VCM_DO\r
 116 **/\r
 117 float verbstack_pop(entity stack)\r
 118 {\r
 119     entity vrb, bestverb, oldself;\r
 120     float  value, bestvalue;\r
 121 \r
 122     oldself = self;\r
 123 \r
 124     vrb = findchainentity(verbstack,stack);\r
 125     //vrb = stack.vchain;\r
 126     //dprint("owner:", stack.owner.classname, " vsn:", stack.classname,"\n");\r
 127     while(vrb)\r
 128     {\r
 129         //dprint("vn:", vrb.classname,"\n");\r
 130         verb  = vrb;\r
 131         vrb   = vrb.chain;\r
 132         self  = verb.owner;\r
 133         value = verb.verb_call(VCM_EVAL);\r
 134 \r
 135         if(value < 0)\r
 136         {\r
 137             if(value == VS_CALL_REMOVE)\r
 138                 remove(verb);\r
 139         }\r
 140         else\r
 141         {\r
 142             if(value > bestvalue)\r
 143             {\r
 144                 bestverb  = verb;\r
 145                 bestvalue = value;\r
 146             }\r
 147         }\r
 148     }\r
 149 \r
 150     if(bestverb)\r
 151     {\r
 152         verb  = bestverb;\r
 153         self  = verb.owner;\r
 154         value = verb.verb_call(VCM_DO);\r
 155 \r
 156         if(value == VS_CALL_REMOVE)\r
 157             remove(bestverb);\r
 158     }\r
 159 \r
 160     self = oldself;\r
 161 \r
 162     return value;\r
 163 }\r
 164 \r
 165 float verbstack_popfifo(entity stack)\r
 166 {\r
 167     entity oldself;\r
 168     float ret;\r
 169 \r
 170     oldself = self;\r
 171     verb = findentity(stack,verbstack,stack);\r
 172     if not (verb)\r
 173         ret = 0;\r
 174     else\r
 175     {\r
 176         self = verb.owner;\r
 177         ret = verb.verb_call(VCM_DO);\r
 178 \r
 179         if(ret == VS_CALL_REMOVE)\r
 180             remove(verb);\r
 181     }\r
 182 \r
 183     self = oldself;\r
 184     return ret;\r
 185 }\r
 186 \r
 187 /**\r
 188     Find the best verb in this stack and return it.\r
 189     ALso remove any verbs returning VS_CALL_REMOVE on VCM_EVAL.\r
 190 **/\r
 191 entity verbstack_pull(entity stack)\r
 192 {\r
 193     entity vrb;\r
 194     entity bestverb, oldself;\r
 195     float  value, bestvalue;\r
 196 \r
 197     oldself = self;\r
 198 \r
 199     vrb = findchainentity(verbstack,stack);\r
 200     while(vrb)\r
 201     {\r
 202         self = vrb.owner;\r
 203 \r
 204         verb  = vrb;\r
 205         vrb   = vrb.chain;\r
 206         value = verb.verb_call(VCM_EVAL);\r
 207 \r
 208         if(value < 0)\r
 209         {\r
 210             if(value == VS_CALL_REMOVE)\r
 211                 remove(verb);\r
 212         }\r
 213         else\r
 214         {\r
 215             if(value > bestvalue)\r
 216             {\r
 217                 bestverb = verb;\r
 218                 bestvalue = value;\r
 219             }\r
 220         }\r
 221     }\r
 222 \r
 223     self = oldself;\r
 224 \r
 225     return bestverb;\r
 226 }\r
 227 \r
 228 entity verbstack_pullfifo(entity stack)\r
 229 {\r
 230     return findentity(stack,verbstack,stack);\r
 231 }\r
 232 \r
 233 /**\r
 234     Delete every verb on this stack, signaling them with VCM_REMOVE first.\r
 235 **/\r
 236 void verbstack_flush(entity stack)\r
 237 {\r
 238     entity vrb, oldself;\r
 239 \r
 240     oldself = self;\r
 241 \r
 242     vrb = findchainentity(verbstack,stack);\r
 243     while(vrb)\r
 244     {\r
 245         self = vrb.owner;\r
 246 \r
 247         verb = vrb;\r
 248         vrb  = vrb.chain;\r
 249         verb.verb_call(VCM_REMOVE);\r
 250         remove(verb);\r
 251     }\r
 252 \r
 253     self = oldself;\r
 254 \r
 255     //stack.vchain = world;\r
 256 }\r
 257 \r
 258 void verbstack_doverb(entity vrb)\r
 259 {\r
 260     float value;\r
 261 \r
 262     verb  = vrb;\r
 263     self  = verb.owner;\r
 264     value = verb.verb_call(VCM_DO);\r
 265 \r
 266     if(value == VS_CALL_REMOVE)\r
 267         remove(vrb);\r
 268 }\r