Predict warpzones
[xonotic/xonotic-data.pk3dir.git] / qcsrc / common / triggers / teleporters.qc
1 #include "teleporters.qh"
2
3 #if defined(CSQC)
4 #elif defined(MENUQC)
5 #elif defined(SVQC)
6     #include "../../lib/warpzone/common.qh"
7     #include "../../lib/warpzone/util_server.qh"
8     #include "../../lib/warpzone/server.qh"
9     #include "../constants.qh"
10         #include "../triggers/subs.qh"
11     #include "../util.qh"
12     #include "../../server/weapons/csqcprojectile.qh"
13     #include "../../server/autocvars.qh"
14     #include "../../server/constants.qh"
15     #include "../../server/defs.qh"
16     #include "../deathtypes/all.qh"
17     #include "../turrets/sv_turrets.qh"
18     #include "../vehicles/all.qh"
19     #include "../mapinfo.qh"
20     #include "../../server/anticheat.qh"
21 #endif
22
23 float check_tdeath(entity player, vector org, vector telefragmin, vector telefragmax)
24 {
25         if (IS_PLAYER(player) && !PHYS_DEAD(player))
26         {
27                 TDEATHLOOP(org)
28                 {
29                 #ifdef SVQC
30                         if (!(teamplay && autocvar_g_telefrags_teamplay && head.team == player.team))
31                 #endif
32                                 if(IS_PLAYER(head))
33                                         if(!PHYS_DEAD(head))
34                                                 return 1;
35                 }
36         }
37         return 0;
38 }
39
40 #ifdef SVQC
41
42 void trigger_teleport_link(entity this);
43
44 void tdeath(entity player, entity teleporter, entity telefragger, vector telefragmin, vector telefragmax)
45 {
46         TDEATHLOOP(player.origin)
47         {
48                 if (IS_PLAYER(player) && player.health >= 1)
49                 {
50                         if (!(teamplay && autocvar_g_telefrags_teamplay && head.team == player.team))
51                         {
52                                 if(IS_PLAYER(head))
53                                         if(head.health >= 1)
54                                                 ++tdeath_hit;
55                                 Damage (head, teleporter, telefragger, 10000, DEATH_TELEFRAG.m_id, head.origin, '0 0 0');
56                         }
57                 }
58                 else // dead bodies and monsters gib themselves instead of telefragging
59                         Damage (telefragger, teleporter, telefragger, 10000, DEATH_TELEFRAG.m_id, telefragger.origin, '0 0 0');
60         }
61 }
62
63 void spawn_tdeath(vector v0, entity e, vector v)
64 {
65         tdeath(e, e, e, '0 0 0', '0 0 0');
66 }
67
68 #endif
69
70 void TeleportPlayer(entity teleporter, entity player, vector to, vector to_angles, vector to_velocity, vector telefragmin, vector telefragmax, float tflags)
71 {SELFPARAM();
72         entity telefragger;
73         vector from;
74
75         if(teleporter.owner)
76                 telefragger = teleporter.owner;
77         else
78                 telefragger = player;
79
80         makevectors (to_angles);
81
82 #ifdef SVQC
83         if(player.teleportable == TELEPORT_NORMAL) // don't play sounds or show particles for anything that isn't a player, maybe change later to block only observers
84         {
85                 if(self.pushltime < time) // only show one teleport effect per teleporter per 0.2 seconds, for better fps
86                 {
87                         if(tflags & TELEPORT_FLAG_SOUND)
88                                 sound (player, CH_TRIGGER, SND_TELEPORT, VOL_BASE, ATTEN_NORM);
89                         if(tflags & TELEPORT_FLAG_PARTICLES)
90                         {
91                                 Send_Effect(EFFECT_TELEPORT, player.origin, '0 0 0', 1);
92                                 Send_Effect(EFFECT_TELEPORT, to + v_forward * 32, '0 0 0', 1);
93                         }
94                         self.pushltime = time + 0.2;
95                 }
96         }
97 #endif
98
99         // Relocate the player
100         // assuming to allows PL_MIN to PL_MAX box and some more
101 #ifdef SVQC
102         from = player.origin;
103         setorigin (player, to);
104         player.oldorigin = to; // don't undo the teleport by unsticking
105         player.angles = to_angles;
106         player.fixangle = true;
107         player.velocity = to_velocity;
108         BITXOR_ASSIGN(player.effects, EF_TELEPORT_BIT);
109
110         makevectors(player.angles);
111         Reset_ArcBeam(player, v_forward);
112         UpdateCSQCProjectileAfterTeleport(player);
113 #elif defined(CSQC)
114         from = player.move_origin;
115         player.move_origin = to;
116         player.move_angles = to_angles;
117         player.move_velocity = to_velocity;
118         player.move_flags &= ~FL_ONGROUND;
119         player.iflags |= IFLAG_TELEPORTED | IFLAG_V_ANGLE | IFLAG_ANGLES;
120         player.csqcmodel_teleported = 1;
121         player.v_angle = to_angles;
122         setproperty(VF_ANGLES, player.move_angles);
123         setproperty(VF_CL_VIEWANGLES, player.move_angles);
124
125         makevectors(player.move_angles);
126 #endif
127
128 #ifdef SVQC
129         if(IS_PLAYER(player))
130         {
131                 if(tflags & TELEPORT_FLAG_TDEATH)
132                         if(player.takedamage && player.deadflag == DEAD_NO && !g_race && !g_cts && (autocvar_g_telefrags || (tflags & TELEPORT_FLAG_FORCE_TDEATH)))
133                                 tdeath(player, teleporter, telefragger, telefragmin, telefragmax);
134
135                 // player no longer is on ground
136                 player.flags &= ~FL_ONGROUND;
137
138                 // reset tracking of oldvelocity for impact damage (sudden velocity changes)
139                 player.oldvelocity = player.velocity;
140
141                 // reset tracking of who pushed you into a hazard (for kill credit)
142                 if(teleporter.owner)
143                 {
144                         player.pusher = teleporter.owner;
145                         player.pushltime = time + autocvar_g_maxpushtime;
146                         player.istypefrag = player.BUTTON_CHAT;
147                 }
148                 else
149                 {
150                         player.pushltime = 0;
151                         player.istypefrag = 0;
152                 }
153
154                 player.lastteleporttime = time;
155         }
156 #endif
157 }
158
159 entity Simple_TeleportPlayer(entity teleporter, entity player)
160 {
161         vector locout;
162         entity e;
163         float p;
164
165         // Find the output teleporter
166         if(teleporter.enemy)
167         {
168                 e = teleporter.enemy;
169         }
170         else
171         {
172                 RandomSelection_Init();
173                 for(e = world; (e = find(e, targetname, teleporter.target)); )
174                 {
175                         p = 1;
176                         if(STAT(TELEPORT_TELEFRAG_AVOID, player))
177                         {
178                         #ifdef SVQC
179                                 locout = e.origin + '0 0 1' * (1 - player.mins.z - 24);
180                         #elif defined(CSQC)
181                                 locout = e.origin + '0 0 1' * (1 - player.mins.z - 24);
182                         #endif
183                                 if(check_tdeath(player, locout, '0 0 0', '0 0 0'))
184                                         p = 0;
185                         }
186                         RandomSelection_Add(e, 0, string_null, (e.cnt ? e.cnt : 1), p);
187                 }
188                 e = RandomSelection_chosen_ent;
189         }
190
191 #ifdef SVQC
192         if(!e) { sprint(player, "Teleport destination vanished. Sorry... please complain to the mapper.\n"); }
193 #elif defined(CSQC)
194         if(!e) { LOG_INFO("Teleport destination could not be found from CSQC.\n"); }
195 #endif
196
197         makevectors(e.mangle);
198
199 #ifdef SVQC
200         if(e.speed)
201                 if(vlen(player.velocity) > e.speed)
202                         player.velocity = normalize(player.velocity) * max(0, e.speed);
203 #elif defined(CSQC)
204         if(e.speed)
205                 if(vlen(player.move_velocity) > e.speed)
206                         player.move_velocity = normalize(player.move_velocity) * max(0, e.speed);
207 #endif
208
209 #ifdef SVQC
210         if(STAT(TELEPORT_MAXSPEED, player))
211                 if(vlen(player.velocity) > STAT(TELEPORT_MAXSPEED, player))
212                         player.velocity = normalize(player.velocity) * max(0, STAT(TELEPORT_MAXSPEED, player));
213 #elif defined(CSQC)
214         if(STAT(TELEPORT_MAXSPEED, player))
215                 if(vlen(player.move_velocity) > STAT(TELEPORT_MAXSPEED, player))
216                         player.move_velocity = normalize(player.move_velocity) * max(0, STAT(TELEPORT_MAXSPEED, player));
217 #endif
218
219 #ifdef SVQC
220         locout = e.origin + '0 0 1' * (1 - player.mins.z - 24);
221
222         TeleportPlayer(teleporter, player, locout, e.mangle, v_forward * vlen(player.velocity), '0 0 0', '0 0 0', TELEPORT_FLAGS_TELEPORTER);
223 #elif defined(CSQC)
224         locout = e.origin + '0 0 1' * (1 - player.mins.z - 24);
225
226         TeleportPlayer(teleporter, player, locout, e.mangle, v_forward * vlen(player.move_velocity), '0 0 0', '0 0 0', TELEPORT_FLAGS_TELEPORTER);
227 #endif
228
229         return e;
230 }
231
232 void teleport_findtarget()
233 {
234         int n = 0;
235         entity e;
236         for(e = world; (e = find(e, targetname, self.target)); )
237         {
238                 ++n;
239 #ifdef SVQC
240                 if(e.movetype == MOVETYPE_NONE)
241                         waypoint_spawnforteleporter(self, e.origin, 0);
242                 if(e.classname != "info_teleport_destination")
243                         LOG_INFO("^3MAPPER ERROR: teleporter does target an invalid teleport destination entity. Angles will not work.\n");
244 #endif
245         }
246
247         if(n == 0)
248         {
249                 // no dest!
250                 objerror ("Teleporter with nonexistant target");
251                 return;
252         }
253         else if(n == 1)
254         {
255                 // exactly one dest - bots love that
256                 self.enemy = find(e, targetname, self.target);
257         }
258         else
259         {
260                 // have to use random selection every single time
261                 self.enemy = world;
262         }
263
264         // now enable touch
265 #ifdef SVQC
266         self.touch = Teleport_Touch;
267
268         trigger_teleport_link(self);
269 #elif defined(CSQC)
270         self.move_touch = Teleport_Touch;
271 #endif
272 }
273
274 entity Teleport_Find(vector mi, vector ma)
275 {
276         entity e;
277         for(e = world; (e = find(e, classname, "trigger_teleport")); )
278                 if(WarpZoneLib_BoxTouchesBrush(mi, ma, e, world))
279                         return e;
280         return world;
281 }
282
283 void WarpZone_PostTeleportPlayer_Callback(entity pl)
284 {SELFPARAM();
285 #ifdef SVQC
286         makevectors(pl.angles);
287         Reset_ArcBeam(pl, v_forward);
288         UpdateCSQCProjectileAfterTeleport(pl);
289         {
290                 WITH(entity, self, pl, anticheat_fixangle());
291         }
292 #endif
293         // "disown" projectiles after teleport
294         if(pl.owner)
295         if(pl.owner == pl.realowner)
296         {
297         #ifdef SVQC
298                 if(!(pl.flags & FL_PROJECTILE))
299         #elif defined(CSQC)
300                 if(!(pl.move_flags & BIT(15))) // FL_PROJECTILE
301         #endif
302                         LOG_INFO("A non-projectile got through a warpzone and its owner cleared. It's a ", pl.classname, ".\n");
303                 pl.owner = world;
304         }
305         if(IS_PLAYER(pl))
306         {
307                 // reset tracking of oldvelocity for impact damage (sudden velocity changes)
308         #ifdef SVQC
309                 pl.oldvelocity = pl.velocity;
310         #endif
311                 // reset teleport time tracking too (or multijump can cause insane speeds)
312                 pl.lastteleporttime = time;
313         }
314 }