512 lines
11 KiB
C++
512 lines
11 KiB
C++
/*
|
|
======================================
|
|
FrikBot X (Version 0.10.0) QW
|
|
======================================
|
|
|
|
This program is in the Public Domain. My crack legal
|
|
team would like to add:
|
|
|
|
RYAN "FRIKAC" SMITH IS PROVIDING THIS SOFTWARE "AS IS"
|
|
AND MAKES NO WARRANTY, EXPRESS OR IMPLIED, AS TO THE
|
|
ACCURACY, CAPABILITY, EFFICIENCY, MERCHANTABILITY, OR
|
|
FUNCTIONING OF THIS SOFTWARE AND/OR DOCUMENTATION. IN
|
|
NO EVENT WILL RYAN "FRIKAC" SMITH BE LIABLE FOR ANY
|
|
GENERAL, CONSEQUENTIAL, INDIRECT, INCIDENTAL,
|
|
EXEMPLARY, OR SPECIAL DAMAGES, EVEN IF RYAN "FRIKAC"
|
|
SMITH HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
|
|
DAMAGES, IRRESPECTIVE OF THE CAUSE OF SUCH DAMAGES.
|
|
|
|
You accept this software on the condition that you
|
|
indemnify and hold harmless Ryan "FrikaC" Smith from
|
|
any and all liability or damages to third parties,
|
|
including attorney fees, court costs, and other
|
|
related costs and expenses, arising out of your use
|
|
of this software irrespective of the cause of said
|
|
liability.
|
|
|
|
The export from the United States or the subsequent
|
|
reexport of this software is subject to compliance
|
|
with United States export control and munitions
|
|
control restrictions. You agree that in the event you
|
|
seek to export this software, you assume full
|
|
responsibility for obtaining all necessary export
|
|
licenses and approvals and for assuring compliance
|
|
with applicable reexport restrictions.
|
|
|
|
Any reproduction of this software must contain
|
|
this notice in its entirety.
|
|
|
|
======================================
|
|
These installation instructions only apply to QuakeWorld (as does this entire
|
|
file). For Normal Quake, please refer to bot.qc
|
|
|
|
--------------------------------------
|
|
To install on a new mod, do all this:
|
|
--------------------------------------
|
|
FIXME installing and linking instrunctions here
|
|
--------------------------------------
|
|
* Change all occurrences of "self" to "@self". One way of doing this is to
|
|
pass the code through a preprocessor with "-Dself=@self"
|
|
--------------------------------------
|
|
* Comment out the following functions in defs.qc
|
|
sound, aim, setspawnparms
|
|
--------------------------------------
|
|
* Add this to worldspawn() in world.qc, right at the very top, before InitBodyQue();
|
|
BotInit(); // FrikBot
|
|
--------------------------------------
|
|
* add this line to StartFrame() in world.qc, at the very top
|
|
BotFrame(); // FrikBot
|
|
--------------------------------------
|
|
* Add this line to PlayerPostThink in client.qc at the very top
|
|
BotImpulses (); // FrikBot
|
|
--------------------------------------
|
|
* Add the following line to the very top of Client Connect in client.qc
|
|
ClientInRankings(); // FrikBot
|
|
--------------------------------------
|
|
* Add these lines to the very top of ClientDisconnect in client.qc
|
|
ClientDisconnected(); // FrikBot
|
|
--------------------------------------
|
|
* Add these lines to the very top of SpectatorConnect in spectate.qc
|
|
ClientFixRankings(); // FrikBot
|
|
--------------------------------------
|
|
*/
|
|
|
|
#include "libfrikbot.h"
|
|
#include "cmd.h"
|
|
|
|
integer []bot_way_ref;
|
|
integer []bot_move_ref;
|
|
integer []bot_chat_ref;
|
|
float []stagger_think_ref;
|
|
integer []bot_fight_ref;
|
|
|
|
void ()
|
|
bot_map_load =
|
|
{
|
|
// place your qc loaded waypoints here
|
|
switch (mapname) {
|
|
case "dm1":
|
|
map_dm1 ();
|
|
break;
|
|
case "dm2":
|
|
map_dm2 ();
|
|
break;
|
|
case "dm3":
|
|
map_dm3 ();
|
|
break;
|
|
case "dm4":
|
|
map_dm4 ();
|
|
break;
|
|
case "dm5":
|
|
map_dm5 ();
|
|
break;
|
|
case "dm6":
|
|
map_dm6 ();
|
|
break;
|
|
}
|
|
};
|
|
|
|
/*
|
|
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|
Variables and shtuff
|
|
|
|
bot.qc has become pretty much a header file
|
|
for all variable in the bot...
|
|
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|
*/
|
|
|
|
Bot [32] players;
|
|
|
|
// -------globals-----
|
|
float real_frametime;
|
|
float bot_count, b_options, lasttime;
|
|
float waypoint_mode, dump_mode;
|
|
float direct_route;
|
|
float sv_friction, sv_gravity;
|
|
float sv_accelerate, sv_maxspeed, sv_stopspeed;
|
|
Bot route_table;
|
|
integer busy_waypoints;
|
|
|
|
float coop = 0; // hack
|
|
|
|
void(entity e, float chan, string samp, float vol, float atten) frik_sound = #8;
|
|
vector(entity e, float sped) frik_aim = #44;
|
|
void(entity e) frik_setspawnparms = #78;
|
|
|
|
entity () SV_AllocClient = #0;
|
|
void (entity e) SV_FreeClient = #0;
|
|
void (entity e, string str) SV_SetUserinfo = #0;
|
|
void (entity e, integer ping) SV_SetPing = #0;
|
|
void (entity cl, float sec, vector angles, vector move, integer buttons, integer impulse) SV_UserCmd = #0;
|
|
void (entity cl) SV_Spawn = #0;
|
|
void () Break = #6;
|
|
string (integer i) itos = #112;
|
|
|
|
//----------------------------------------------------------------------------
|
|
|
|
/*
|
|
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|
Function redeclarations. These allow function
|
|
designed to work for clients (sprint, so forth)
|
|
to mainly not complain when working with a bot
|
|
|
|
Although these shouldn't be needed anymore,
|
|
as the bots truly are clients now, if you don't
|
|
stop the SZ_ buffer from filling up by disabling
|
|
direct messages to the bots, it crashes quake :-(
|
|
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|
*/
|
|
void (entity e)
|
|
setspawnparms =
|
|
{
|
|
if (((Bot)e.@this).ishuman)
|
|
frik_setspawnparms (e);
|
|
else
|
|
SetNewParms ();
|
|
};
|
|
|
|
vector (entity e, float sped)
|
|
aim =
|
|
{
|
|
((Bot)e.@this).missile_speed = sped;
|
|
return frik_aim (e, sped);
|
|
};
|
|
|
|
void (entity e, float chan, string samp, float vol, float atten)
|
|
sound =
|
|
{
|
|
frik_sound (e, chan, samp, vol, atten);
|
|
if (samp == "items/inv3.wav")
|
|
return;
|
|
else if (e.classname == "player")
|
|
((Bot)e.@this).b_sound = time + 1;
|
|
else if (other.classname == "player")
|
|
((Bot)other.@this).b_sound = time + 1;
|
|
};
|
|
|
|
/*
|
|
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|
Stuff mentioned up top
|
|
it just links the bot into the mod
|
|
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|
*/
|
|
|
|
void ()
|
|
ClientFixRankings =
|
|
{
|
|
local integer cno;
|
|
local Bot bot = @self.@this;
|
|
local entity btmp;
|
|
local Bot btmp_bot;
|
|
|
|
if (bot.switch_wallhug > time)
|
|
return;
|
|
bot.switch_wallhug = 0;
|
|
|
|
btmp = nextent (NIL);
|
|
for (cno = 0; cno < 32; cno++) {
|
|
btmp_bot = btmp.@this;
|
|
if (!btmp_bot.ishuman) {
|
|
if (players[cno])
|
|
[btmp_bot updateClient];
|
|
}
|
|
cno++;
|
|
btmp = nextent (btmp);
|
|
}
|
|
};
|
|
|
|
void ()
|
|
ClientInRankings =
|
|
{
|
|
local integer cl_no = ClientNumber (@self);
|
|
|
|
if (!players[cl_no])
|
|
players[cl_no] = [[Bot alloc] initFromPlayer:@self];
|
|
};
|
|
|
|
void ()
|
|
ClientDisconnected =
|
|
{
|
|
local integer cl_no = ClientNumber (@self);
|
|
local Bot p = NIL;
|
|
|
|
p = players[cl_no];
|
|
players[cl_no] = NIL;
|
|
if (p) {
|
|
local entity e = p.ent;
|
|
local integer i;
|
|
for (i = 0; i < 32; i++) {
|
|
if (!players[i])
|
|
continue;
|
|
if (players[i].ent.enemy == e)
|
|
[players[i] lost:p:0];
|
|
}
|
|
}
|
|
[p dealloc];
|
|
};
|
|
|
|
// BotConnect and related functions. -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|
|
|
integer (entity cl)
|
|
ClientNumber =
|
|
{
|
|
local entity e = NIL;
|
|
local integer f = -1;
|
|
|
|
do {
|
|
f++;
|
|
e = nextent (e);
|
|
} while (e != cl);
|
|
return f;
|
|
};
|
|
|
|
void (integer whatbot, integer whatskill)
|
|
BotConnect =
|
|
{
|
|
local entity cl;
|
|
local Bot bot;
|
|
local bot_data_t [] name;
|
|
|
|
cl = SV_AllocClient ();
|
|
if (!cl) {
|
|
bprint (PRINT_HIGH, "Unable to connect a bot, server is full.\n");
|
|
return;
|
|
}
|
|
|
|
if (whatbot)
|
|
name = [Bot name:whatbot];
|
|
else
|
|
name = [Bot randomName];
|
|
|
|
bot = [[Bot alloc] initWithEntity: cl named:name skill:whatskill];
|
|
[bot startTopic:1];
|
|
};
|
|
|
|
/*
|
|
Bot Impulses. Allows the player to perform bot
|
|
related functions.
|
|
*/
|
|
void () BotImpulses =
|
|
{
|
|
local integer f;
|
|
local string h;
|
|
|
|
if (@self.impulse == 100) {
|
|
h = infokey (NIL, "skill");
|
|
f = (integer) stof (h);
|
|
BotConnect (0, f);
|
|
} else if (@self.impulse == 102)
|
|
[Bot kick];
|
|
else
|
|
return;
|
|
@self.impulse = 0;
|
|
};
|
|
|
|
void ()
|
|
bot_add_f =
|
|
{
|
|
local integer whatbot = 0;
|
|
local integer skill;
|
|
local integer c = Cmd_Argc ();
|
|
|
|
if (c == 1) {
|
|
skill = (integer) stof (infokey (NIL, "skill"));
|
|
} else if (c == 2) {
|
|
skill = (integer) stof (Cmd_Argv (1));
|
|
} else {
|
|
whatbot = (integer) stof (Cmd_Argv (1));
|
|
skill = (integer) stof (Cmd_Argv (2));
|
|
}
|
|
BotConnect (whatbot, skill);
|
|
};
|
|
|
|
void ()
|
|
bot_kick_f =
|
|
{
|
|
[Bot kick];
|
|
};
|
|
|
|
// BotInit ====================================================================
|
|
|
|
void ()
|
|
BotInit =
|
|
{
|
|
[Waypoint clearAll];
|
|
bot_way_ref = &bot_way_linker;
|
|
bot_move_ref = &bot_move_linker;
|
|
bot_chat_ref = &bot_chat_linker;
|
|
stagger_think_ref = &stagger_think;
|
|
bot_fight_ref = &bot_fight_linker;
|
|
bot_map_load ();
|
|
Cmd_AddCommand ("bot_add", bot_add_f);
|
|
Cmd_AddCommand ("bot_kick", bot_kick_f);
|
|
};
|
|
|
|
/*
|
|
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|
Rankings 'utilities'. Written by Alan Kivlin,
|
|
this code just fools clients by sending precisely
|
|
the same network messages as when a real player
|
|
signs on to the server.
|
|
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|
*/
|
|
|
|
void(Waypoint e1, Waypoint e2, integer flag) DeveloperLightning = {};
|
|
|
|
@implementation Bot
|
|
- (id) init
|
|
{
|
|
return [super init];
|
|
}
|
|
|
|
- (id) initWithEntity:(entity) e named:(bot_data_t [])name skill:(integer)skill
|
|
{
|
|
local integer cl_no = ClientNumber (e);
|
|
local entity uself;
|
|
|
|
SV_Spawn (e);
|
|
|
|
if (!(self = [super initWithEntity:e]))
|
|
return NIL;
|
|
|
|
[self add];
|
|
|
|
players[cl_no] = self;
|
|
|
|
b_clientno = cl_no + 1;
|
|
b_clientflag = 1 << cl_no;
|
|
|
|
//ent.colormap = (float) (cl_no + 1);
|
|
//ent.team = b_pants + 1;
|
|
|
|
b_entertime = time;
|
|
|
|
ent.netname = name.name;
|
|
b_pants = name.pants;
|
|
b_shirt = name.shirt;
|
|
|
|
[self updateClient];
|
|
//b_num = I
|
|
bot_count++;
|
|
if (skill > 3)
|
|
skill = 3;
|
|
else if (skill < 0)
|
|
skill = 0;
|
|
b_skill = skill;
|
|
ishuman = FALSE;
|
|
|
|
uself = @self;
|
|
@self = ent;
|
|
SetNewParms ();
|
|
ClientConnect ();
|
|
PutClientInServer ();
|
|
@self = uself;
|
|
|
|
return self;
|
|
}
|
|
|
|
- (id) initFromPlayer: (entity) e
|
|
{
|
|
local integer cno;
|
|
|
|
if (!(self = [super initWithEntity:e]))
|
|
return NIL;
|
|
|
|
cno = (integer)e.colormap - 1;
|
|
b_clientno = cno;
|
|
ishuman = TRUE;
|
|
switch_wallhug = time + 1;
|
|
return self;
|
|
}
|
|
|
|
- (void) preThink
|
|
{
|
|
if (switch_wallhug)
|
|
ClientFixRankings ();
|
|
if (b_frags != ent.frags) {
|
|
if (b_frags > ent.frags) {
|
|
if (pointcontents (ent.origin) == CONTENT_LAVA)
|
|
[self startTopic:10];
|
|
else
|
|
[self startTopic:9];
|
|
} else
|
|
[self startTopic:2];
|
|
b_frags = ent.frags;
|
|
}
|
|
[self dynamicWaypoint];
|
|
}
|
|
|
|
- (void) postThink
|
|
{
|
|
local entity uself;
|
|
|
|
uself = @self;
|
|
@self = ent;
|
|
PlayerPostThink ();
|
|
@self = uself;
|
|
}
|
|
|
|
-(void)disconnect
|
|
{
|
|
local entity uself;
|
|
|
|
uself = @self;
|
|
@self = ent;
|
|
ClientDisconnect ();
|
|
@self = uself;
|
|
|
|
bot_count--;
|
|
|
|
SV_FreeClient (ent);
|
|
}
|
|
|
|
-(void)frame
|
|
{
|
|
[self obstacles];
|
|
[self preThink];
|
|
[self sendMove];
|
|
[self AI];
|
|
}
|
|
|
|
-(void) updateClient
|
|
{
|
|
local string bottomcolor = ftos (b_pants);
|
|
local string topcolor = ftos (b_shirt);
|
|
|
|
SV_SetPing (ent, 100 * (3 - b_skill));
|
|
SV_SetUserinfo (ent, "\\bottomcolor\\" + bottomcolor
|
|
+ "\\topcolor\\" + topcolor
|
|
+ "\\team\\bot\\skin\\base\\name\\" + ent.netname);
|
|
// FIXME: do teams properly
|
|
}
|
|
|
|
-(integer)ishuman
|
|
{
|
|
return ishuman;
|
|
}
|
|
@end
|
|
|
|
void ()
|
|
BotFrame =
|
|
{
|
|
local string h;
|
|
local integer i;
|
|
|
|
h = infokey (NIL, "bot_options");
|
|
b_options = stof (h);
|
|
|
|
// for the sake of speed
|
|
sv_maxspeed = cvar ("sv_maxspeed");
|
|
sv_gravity = cvar ("sv_gravity");
|
|
sv_friction = cvar ("sv_friction");
|
|
sv_accelerate = cvar ("sv_accelerate");
|
|
sv_stopspeed = cvar ("sv_stopspeed");
|
|
real_frametime = time - lasttime; // in QW frametime is fuxx0red
|
|
lasttime = time;
|
|
|
|
for (i = 0; i < 32; i++) {
|
|
if (players[i] && !players[i].ishuman)
|
|
[players[i] frame];
|
|
}
|
|
};
|