quakeforge/tools/qfcc/test/old/membarray.r
Bill Currie 49ca09a64f Clean up qfcc's test directory.
I don't remember what half these tests were for :/
2012-11-22 21:58:52 +09:00

58 lines
757 B
R

#include "Entity.h"
@class Waypoint;
@class Bot;
struct bot_data_t = {
string name;
float pants, shirt;
};
typedef struct bot_data_t bot_data_t;
@interface Target: Entity
{
@public
Waypoint current_way;
Target _last;
}
@end
@interface Waypoint: Target
{
@public
Waypoint [4] links;
Waypoint []list;
unsigned count;
unsigned b_sound;
}
-(void)fix;
-(void)clearRouteForBot:(Bot)bot;
@end
@interface Bot: Target
{
@public
integer b_clientflag;
}
@end
@implementation Target
@end
@implementation Waypoint
-(void)fix
{
//local integer i = 2, tmp;
unsigned u;
//tmp = (integer)links[i];
for (u = 0; u < count; u++)
[list[u] fix];
}
-(void)clearRouteForBot:(Bot)bot
{
local integer flag;
flag = bot.b_clientflag;
b_sound &= ~flag;
}
@end