Simple problem...

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Pascal and Delphi section within the Software Development category of DaniWeb, a massive community of 426,496 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,212 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Pascal and Delphi advertiser: Programming Forums

Thread Tools Display Modes

Views: 452 | Replies: 2 | Solved

Previous Post in Thread

Next Post in Thread

•

Join Date: May 2008

Posts: 2

Reputation: jamesbond110 is an unknown quantity at this point

Rep Power: 0

Solved Threads: 0

jamesbond110 jamesbond110 is offline

Offline

Newbie Poster

Simple problem...

May 8th, 2008

Man, I'm so new. I'm trying to script something for a game. so here's what I got:

Help with Code Tags

(Toggle Plain Text)

program twars;

const
  Color = $FFFFFFFF;

  FISTS   =  0;
  DEAGLES =  1;
  MP5     =  2;
  AK74    =  3;
  STEYR   =  4;
  SPAS    =  5;
  RUGER   =  6;
  M79     =  7;
  BARRETT =  8;
  MINIMI  =  9;
  MINIGUN = 10;
  SOCOM   = 11;
  KNIFE   = 12;
  SAW     = 13;
  LAW     = 14;
  FLAME   = 15;
  ARROW   = 16;

 


type

       tClasses = record
                name,info,tip: string;
                weap: array[0..16] of boolean;
              end;

var
           c: tClasses;


procedure placekeeper;
begin
end;

begin
c[1].name   := 'Pyro';
c[1].info   := 'Flame';
c[1].tip    := 'burn';
c[1].weap   := [false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false];
end;

This doesn't work apparently. =\
thanks for reading!