qcsrc/common/weapons/all.qh

   1 #ifndef WEAPONS_ALL_H
   2 #define WEAPONS_ALL_H
   3
   4 #include "../command/all.qh"
   5 #include "../stats.qh"
   6 #include "config.qh"
   7
   8 // weapon sets
   9 typedef vector WepSet;
  10 #ifdef SVQC
  11 void WriteWepSet(float dest, WepSet w);
  12 #endif
  13
  14 #ifdef CSQC
  15 WepSet WepSet_GetFromStat();
  16 WepSet WepSet_GetFromStat_InMap();
  17 WepSet ReadWepSet();
  18 #endif
  19
  20 #include "weapon.qh"
  21
  22 #ifndef MENUQC
  23 #include "calculations.qh"
  24 #include "../models/all.qh"
  25 #endif
  26
  27 #include "../util.qh"
  28
  29 #ifdef SVQC
  30 #include "../../server/bot/aim.qh"
  31 #endif
  32
  33 REGISTRY(Weapons, 72) // Increase as needed. Can be up to 72.
  34 #define Weapons_from(i) _Weapons_from(i, WEP_Null)
  35 REGISTER_REGISTRY(Weapons)
  36 STATIC_INIT(WeaponPickup) { FOREACH(Weapons, true, LAMBDA(it.m_pickup = NEW(WeaponPickup, it))); }
  37
  38 .WepSet m_wepset;
  39 #define WEPSET(id) (WEP_##id.m_wepset)
  40 #define WepSet_FromWeapon(it) ((it).m_wepset)
  41 WepSet _WepSet_FromWeapon(int i);
  42 STATIC_INIT(WepSets) { FOREACH(Weapons, true, LAMBDA(it.m_wepset = _WepSet_FromWeapon(it.m_id))); }
  43
  44 GENERIC_COMMAND(dumpweapons, "Dump all weapons into weapons_dump.txt") // WEAPONTODO: make this work with other progs than just server
  45 {
  46     switch(request)
  47     {
  48         case CMD_REQUEST_COMMAND:
  49         {
  50             #ifdef SVQC
  51             wep_config_file = -1;
  52             wep_config_alsoprint = -1;
  53             string filename = argv(1);
  54
  55             if(filename == "")
  56             {
  57                 filename = "weapons_dump.cfg";
  58                 wep_config_alsoprint = false;
  59             }
  60             else if(filename == "-")
  61             {
  62                 filename = "weapons_dump.cfg";
  63                 wep_config_alsoprint = true;
  64             }
  65             wep_config_file = fopen(filename, FILE_WRITE);
  66
  67             if(wep_config_file >= 0)
  68             {
  69                 Dump_Weapon_Settings();
  70                 LOG_INFO(sprintf("Dumping weapons... File located in ^2data/data/%s^7.\n", filename));
  71                 fclose(wep_config_file);
  72                 wep_config_file = -1;
  73                 wep_config_alsoprint = -1;
  74             }
  75             else
  76             {
  77                 LOG_INFO(sprintf("^1Error: ^7Could not open file '%s'!\n", filename));
  78             }
  79             #else
  80             LOG_INFO(_("Weapons dump command only works with sv_cmd.\n"));
  81             #endif
  82             return;
  83         }
  84
  85         default:
  86         case CMD_REQUEST_USAGE:
  87         {
  88             LOG_INFO(strcat("\nUsage:^3 ", GetProgramCommandPrefix(), " dumpweapons [filename]"));
  89             LOG_INFO("  Where 'filename' is the file to write (default is weapons_dump.cfg),\n");
  90             LOG_INFO("  if supplied with '-' output to console as well as default,\n");
  91             LOG_INFO("  if left blank, it will only write to default.\n");
  92             return;
  93         }
  94     }
  95 }
  96
  97 #ifdef SVQC
  98 entity W_PROP_reloader;
  99 float autocvar_w_prop_interval = 0;
 100 .void(Weapon this) wr_net;
 101 void W_PROP_reload()
 102 {
 103     SELFPARAM();
 104     this.nextthink = time + autocvar_w_prop_interval;
 105     FOREACH(Weapons, true, {
 106         it.wr_update(it);
 107         void(Weapon) f = it.wr_net;
 108         if (f) f(it);
 109     });
 110 }
 111 STATIC_INIT_LATE(W_PROP_reloader)
 112 {
 113     entity e = W_PROP_reloader = new(W_PROP_reloader);
 114     make_pure(e);
 115     WITH(entity, self, e, (e.think = W_PROP_reload)());
 116 }
 117 #endif
 118
 119 #define REGISTER_WEAPON(...) EVAL(OVERLOAD(REGISTER_WEAPON, __VA_ARGS__))
 120 #define REGISTER_WEAPON_2(id, inst) REGISTER(Weapons, WEP, id, m_id, inst)
 121 /** TODO: deprecated - remove */
 122 #define REGISTER_WEAPON_3(id, sname, inst) \
 123     REGISTER_WEAPON_2(id, inst); \
 124     [[alias("WEP_" #id)]] Weapon _wep_##sname
 125
 126 REGISTER_WEAPON(Null, NEW(Weapon));
 127
 128
 129
 130 // legacy w_prop mappings
 131 #define X(fld, T) .T fld; .T wepvar_##fld = fld;
 132 X(switchdelay_drop, float)
 133 X(switchdelay_raise, float)
 134 X(weaponreplace, string)
 135 X(weaponstartoverride, float)
 136 X(weaponstart, float)
 137 X(weaponthrowable, float)
 138 X(reload_ammo, float)
 139 .float reloading_ammo = reload_ammo;
 140 X(reload_time, float)
 141 .float reloading_time = reload_time;
 142 #undef X
 143
 144
 145
 146 #define W_PROPS(L, class, prefix) \
 147     L(W_PROP_BEGIN, W_PROP, W_PROP_END, class, prefix) \
 148     L(W_CONFIG_BEGIN, W_CONFIG, W_CONFIG_END, class, prefix) \
 149     L(W_UPDATE_BEGIN, W_UPDATE, W_UPDATE_END, class, prefix) \
 150     L(W_NET_BEGIN, W_NET, W_NET_END, class, prefix) \
 151     /**/ \
 152
 153
 154     #define W_PROP(class, wepname, fld, T, m)       W_PROP_##m(class, fld, T, wepname)
 155     #define W_PROP_NONE(class, fld, T, wepname)     _W_PROP(class, fld, T, wepname)
 156     #define W_PROP_PRI(class, fld, T, wepname)      _W_PROP(class, primary_##fld, T, wepname)
 157     #define W_PROP_SEC(class, fld, T, wepname)      _W_PROP(class, secondary_##fld, T, wepname)
 158     #define W_PROP_BOTH(class, fld, T, wepname) \
 159             W_PROP_PRI(class, fld, T, wepname) \
 160             W_PROP_SEC(class, fld, T, wepname)
 161     #define W_PROP_BEGIN(class)
 162         #define _W_PROP(class, fld, T, wepname) \
 163             /* static */ T _W_PROP_CVAR(wepname, fld); \
 164             ATTRIB(class, wepvar_##fld, T, _W_PROP_CVAR(wepname, fld));
 165         #define _W_PROP_CVAR(wepname, fld) autocvar_g_balance_##wepname##_##fld
 166     #define W_PROP_END()
 167
 168
 169
 170     #define W_CONFIG(class, wepname, fld, T, m)     W_CONFIG_##m(class, fld, T, wepname)
 171     #define W_CONFIG_NONE(class, fld, T, wepname)   _W_CONFIG(class, fld, T, wepname)
 172     #define W_CONFIG_PRI(class, fld, T, wepname)    _W_CONFIG(class, primary_##fld, T, wepname)
 173     #define W_CONFIG_SEC(class, fld, T, wepname)    _W_CONFIG(class, secondary_##fld, T, wepname)
 174     #define W_CONFIG_BOTH(class, fld, T, wepname) \
 175             W_CONFIG_PRI(class, fld, T, wepname) \
 176             W_CONFIG_SEC(class, fld, T, wepname)
 177     #define W_CONFIG_BEGIN(class) METHOD(class, wr_config, void(class this)) {
 178         #ifdef SVQC
 179             #define _W_CONFIG(class, fld, T, wepname) if (#wepname == this.netname) WEP_CONFIG_WRITE_CVARS(wepname, fld, T);
 180         #else
 181             #define _W_CONFIG(class, fld, T, wepname)
 182         #endif
 183     #define W_CONFIG_END() }
 184
 185
 186     #define W_UPDATE(class, wepname, fld, T, m)     W_UPDATE_##m(class, fld, T, wepname)
 187     #define W_UPDATE_NONE(class, fld, T, wepname)   _W_UPDATE(class, fld, T, wepname)
 188     #define W_UPDATE_PRI(class, fld, T, wepname)    _W_UPDATE(class, primary_##fld, T, wepname)
 189     #define W_UPDATE_SEC(class, fld, T, wepname)    _W_UPDATE(class, secondary_##fld, T, wepname)
 190     #define W_UPDATE_BOTH(class, fld, T, wepname) \
 191             W_UPDATE_PRI(class, fld, T, wepname) \
 192             W_UPDATE_SEC(class, fld, T, wepname)
 193     .entity baseline, baseline_target;
 194     #define W_UPDATE_BEGIN(class) \
 195         METHOD(class, wr_update, void(class this)) \
 196         { \
 197             noref entity b = this.baseline; \
 198             if (!b) \
 199             { \
 200                 b = this.baseline = new(baseline); \
 201                 make_pure(b); \
 202                 b.baseline_target = this; \
 203             }
 204         #ifdef SVQC
 205             #define _W_UPDATE(class, fld, T, wepname) \
 206                 { \
 207                     T it = _W_PROP_CVAR(wepname, fld); \
 208                     b.wepvar_##fld = this.wepvar_##fld; \
 209                     this.wepvar_##fld = it; \
 210                 }
 211         #else
 212             #define _W_UPDATE(class, fld, T, wepname)
 213         #endif
 214     #define W_UPDATE_END() }
 215
 216
 217     #define W_NET(class, wepname, fld, T, m)     W_NET_##m(class, fld, T, wepname)
 218     #define W_NET_NONE(class, fld, T, wepname)   _W_NET(class, fld, T, wepname)
 219     #define W_NET_PRI(class, fld, T, wepname)    _W_NET(class, primary_##fld, T, wepname)
 220     #define W_NET_SEC(class, fld, T, wepname)    _W_NET(class, secondary_##fld, T, wepname)
 221     #define W_NET_BOTH(class, fld, T, wepname) \
 222             W_NET_PRI(class, fld, T, wepname) \
 223             W_NET_SEC(class, fld, T, wepname)
 224     REGISTER_NET_TEMP(WeaponUpdate)
 225     #if defined(CSQC)
 226         #define W_NET_BEGIN(class) METHOD(class, wr_net, void(class this, int i)) { int n = 0;
 227             #define _W_NET(class, fld, T, wepname) \
 228             { \
 229                 if (++n == i) this.wepvar_##fld = Read_##T(); \
 230             }
 231             .void(Weapon this, int i) wr_net;
 232             NET_HANDLE(WeaponUpdate, bool isnew)
 233             {
 234                 Weapon w = Weapons_from(ReadByte());
 235                 for (int i; (i = ReadByte()); )
 236                 {
 237                     w.wr_net(w, i);
 238                 }
 239                 return true;
 240             }
 241         #define W_NET_END() }
 242     #elif defined(SVQC)
 243         #define W_NET_BEGIN(class) \
 244             METHOD(class, wr_net, void(class this)) \
 245             { \
 246                 int chan = MSG_INIT; \
 247                 for (;;) \
 248                 { \
 249                     bool commit = false; \
 250                     int i = 0;
 251         #define _W_NET(class, fld, T, wepname) \
 252                     { \
 253                         ++i; \
 254                         T it = this.wepvar_##fld; \
 255                         if (it != this.baseline.wepvar_##fld) \
 256                         { \
 257                             if (!commit) { commit = true; WriteHeader(chan, WeaponUpdate); WriteByte(chan, this.m_id); } \
 258                             WriteByte(chan, i); Write_##T(chan, it); \
 259                         } \
 260                     }
 261         #define W_NET_END() \
 262                     if (commit) WriteByte(chan, 0); \
 263                     if (chan == MSG_INIT) chan = MSG_ALL; \
 264                     else break; \
 265                 } \
 266             }
 267     #else
 268         #define W_NET_BEGIN(class)
 269             #define _W_NET(class, fld, T, wepname)
 270         #define W_NET_END()
 271     #endif
 272
 273
 274
 275 // read cvars from weapon settings
 276 #define WEP_CVAR(wepname, name) (_wep_##wepname.wepvar_##name)
 277 #define WEP_CVAR_PRI(wepname, name) WEP_CVAR(wepname, primary_##name)
 278 #define WEP_CVAR_SEC(wepname, name) WEP_CVAR(wepname, secondary_##name)
 279 #define WEP_CVAR_BOTH(wepname, isprimary, name) ((isprimary) ? WEP_CVAR_PRI(wepname, name) : WEP_CVAR_SEC(wepname, name))
 280
 281 const int WEP_FIRST = 1;
 282 #define WEP_LAST (Weapons_COUNT - 1)
 283 WepSet WEPSET_ALL;
 284 WepSet WEPSET_SUPERWEAPONS;
 285
 286 #include "all.inc"
 287
 288 // TODO: remove after 0.8.2. Retains impulse number compatibility because 0.8.1 clients don't reload the weapons.cfg
 289 #define WEP_HARDCODED_IMPULSES 20
 290
 291 // TODO: invert after 0.8.2. Will require moving 'best weapon' impulses
 292 #define WEP_IMPULSE_BEGIN 230
 293 #define WEP_IMPULSE_END bound(WEP_IMPULSE_BEGIN, WEP_IMPULSE_BEGIN + (Weapons_COUNT - 1) - 1, 253)
 294
 295 REGISTRY_SORT(Weapons, WEP_HARDCODED_IMPULSES + 1)
 296 REGISTRY_CHECK(Weapons)
 297
 298 STATIC_INIT(register_weapons_done)
 299 {
 300     FOREACH(Weapons, true, LAMBDA(
 301         it.m_id = i;
 302         WepSet set = it.m_wepset;
 303         WEPSET_ALL |= set;
 304         if ((it.spawnflags) & WEP_FLAG_SUPERWEAPON) WEPSET_SUPERWEAPONS |= set;
 305         it.weapon = it.m_id;
 306         it.weapons = set;
 307         if (it == WEP_Null) continue;
 308         int imp = WEP_IMPULSE_BEGIN + it.m_id - 1;
 309         if (imp <= WEP_IMPULSE_END)
 310             localcmd(sprintf("alias weapon_%s \"impulse %d\"\n", it.netname, imp));
 311         else
 312             LOG_TRACEF("Impulse limit exceeded, weapon will not be directly accessible: %s\n", it.netname);
 313     ));
 314     #ifdef CSQC
 315     FOREACH(Weapons, true, LAMBDA(it.wr_init(it)));
 316     #endif
 317     weaponorder_byid = "";
 318     for (int i = Weapons_MAX - 1; i >= 1; --i)
 319         if (Weapons_from(i))
 320             weaponorder_byid = strcat(weaponorder_byid, " ", ftos(i));
 321     weaponorder_byid = strzone(substring(weaponorder_byid, 1, -1));
 322 }
 323
 324 #ifndef MENUQC
 325
 326 .entity weaponchild;
 327 .entity exteriorweaponentity;
 328 .vector weaponentity_glowmod;
 329
 330 //.int weapon; // current weapon
 331 #ifdef SVQC
 332 .int switchweapon = _STAT(SWITCHWEAPON);
 333 .int switchingweapon = _STAT(SWITCHINGWEAPON);
 334 #endif
 335 .string weaponname; // name of .weapon
 336
 337 .vector spawnorigin; // for casings
 338
 339 // weapon animation vectors:
 340 .vector anim_fire1;
 341 .vector anim_fire2;
 342 .vector anim_idle;
 343 .vector anim_reload;
 344
 345 // static frame globals
 346
 347 ENUMCLASS(WFRAME)
 348 CASE(WFRAME, DONTCHANGE)
 349 CASE(WFRAME, FIRE1)
 350 CASE(WFRAME, FIRE2)
 351 CASE(WFRAME, IDLE)
 352 CASE(WFRAME, RELOAD)
 353 ENUMCLASS_END(WFRAME)
 354
 355 .WFRAME wframe;
 356
 357 vector shotorg_adjust_values(vector vecs, bool y_is_right, bool visual, int algn);
 358 void CL_WeaponEntity_SetModel(entity this, string name);
 359 #endif
 360
 361 #endif