simple? script help, fail to compile

[a fool]

ok, this is my first script, I have read trough manual and such.
I think the problem is related to some misplacement of ";" or with the ends... I'm used to program in C and C++, this isn't the same xD

Code: [Select]

//SNIPER TRAINER script v1
//Made by [DOT] or on the forums.soldat.pl, a fool
Procedure OnPlayerCommand(ID: Byte; Text: string): boolean;
If RegExpMatch('/level \d+', Text) Then
Begin
lvlID := StrToInt(GetPiece(Text, ' ', 1));
if not lvlID then
WriteConsole(ID, 'You have not entered a valid number, type /help1 and /help2 for help', $FF7F7F7F)
else if lvlID = 1 then
begin
//nothing yet
end
else if lvlID = 2 then
begin
//nothing yet
end
else if lvlID = 3 then
begin
//nothing yet
end
end
else if RegExpMatch('/help1', Text) then
begin
WriteConsole(ID, 'Help----------------------------------------------------------', $FF7F7F7F);
WriteConsole(ID, 'type /level #, # being the number of the level of difficulty', $FF00FFFF);
WriteConsole(ID, 'Level index---------------------------------------------------', $FF7F7F7F);
WriteConsole(ID, 'Level 1: Simple map, non moving targets.', $FF0000FF);
WriteConsole(ID, 'Level 2: Simple map, moving targets.', $FF007FFF);
WriteConsole(ID, 'Level 3: More complex map, non moving targets.', $FF00FFFF);
WriteConsole(ID, 'Level 4: More complex map, moving targets.', $FF00FF7F);
WriteConsole(ID, 'Level 5: Rather complex map, non moving targets.', $FF00FF00);
WriteConsole(ID, 'Level 6: Rather complex map, moving targets.', $FF7FFF00);
WriteConsole(ID, 'Level 7: Special level, you cant move, but the targets either.', $FFFFFF00);
WriteConsole(ID, 'Level 8: Special level, you cant move, but the targets can.' $FFFF7F00);
WriteConsole(ID, 'Level 9: Special level, you just fall and the targets cant move.' $FFFF0000);
WriteConsole(ID, 'About---------------------------------------------------------', $FF7F7F7F);
WriteConsole(ID, 'Script \"SNIPER TRAINER\" created by [DOT], version 1', $FF7F7F7F);
WriteConsole(ID, 'Contact to Game_a_gogo@hotmail.com', $FF7F7F7F)
end;
so I ask you kindly, anyone can help me please? D:

[rumpel]

you forgot many ;

[a fool]

you forgot many ;

I bet... but I played a lot with those... all the process with begin, then end confuse me and I don't know where to place those semi colons

Date Posted: July 02, 2008, 02:43:11 pmI have an idea, I will remove all those RegExpMatch... and replace them with simple if statements. going to do that soon

Date Posted: July 02, 2008, 02:53:32 pmok, so I worked on it a bit. here is what there, can anyone point out everything that I have to do...

Code: [Select]

//SNIPER TRAINER script v1
//Made by [DOT] or on the forums.soldat.pl, a fool
Procedure OnPlayerCommand(ID: Byte; Text: string): boolean;
case Text of
'/level 1': begin
//nothing yet
end;
'/level 2': begin
//nothing yet
end;
'/level 3': begin
//nothing yet
end;
'/level 4': begin
//nothing yet
end;
'/level 5': begin
//nothing yet
end;
'/level 6': begin
//nothing yet
end;
'/level 7': begin
//nothing yet
end;
'/level 8': begin
//nothing yet
end;
'/level 9': begin
//nothing yet
end;
otherwise   begin
//nothing yet
end;
end;
if Text = '/help1' then
begin
WriteConsole(ID, 'Help----------------------------------------------------------', $FF7F7F7F);
WriteConsole(ID, 'type /level #, # being the number of the level of difficulty', $FF00FFFF);
WriteConsole(ID, 'Level index---------------------------------------------------', $FF7F7F7F);
WriteConsole(ID, 'Level 1: Simple map, non moving targets.', $FF0000FF);
WriteConsole(ID, 'Level 2: Simple map, moving targets.', $FF007FFF);
WriteConsole(ID, 'Level 3: More complex map, non moving targets.', $FF00FFFF);
WriteConsole(ID, 'Level 4: More complex map, moving targets.', $FF00FF7F);
WriteConsole(ID, 'Level 5: Rather complex map, non moving targets.', $FF00FF00);
WriteConsole(ID, 'Level 6: Rather complex map, moving targets.', $FF7FFF00);
WriteConsole(ID, 'Level 7: Special level, you cant move, but the targets either.', $FFFFFF00);
WriteConsole(ID, 'Level 8: Special level, you cant move, but the targets can.' $FFFF7F00);
WriteConsole(ID, 'Level 9: Special level, you just fall and the targets cant move.' $FFFF0000);
WriteConsole(ID, 'About---------------------------------------------------------', $FF7F7F7F);
WriteConsole(ID, 'Script "SNIPER TRAINER" created by [DOT], version 1', $FF7F7F7F);
WriteConsole(ID, 'Contact to Game_a_gogo@hotmail.com', $FF7F7F7F);
end;

[Neosano]

you forgot many ;

Phail, he didn't

a fool, pascal manual is your help ^_^

[a fool]

you forgot many ;

Phail, he didn't

a fool, pascal manual is your help ^_^

I have read manual as you say... I just don't know what is wrong. I guess I will read it once again.
In both if statements, there are errors, because I can remove one or the other, and it still fail D:

[Neosano]

and what is "otherwise" ?

[a fool]

if none of the cases are true, this one will be used instead.

but ok. I fixed the first error, and what confused me the most was the second one...

these two lines:

Code: [Select]

WriteConsole(ID, 'Level 8: Special level, you cant move, but the targets can.' $FFFF7F00);
WriteConsole(ID, 'Level 9: Special level, you just fall and the targets cant move.' $FFFF0000);was making the thing fail the compile... but what the heck, I rewritten the same thing and it worked O,,o
a mistery... but anyways, it works. here it is:

Code: [Select]

//SNIPER TRAINER script v1
//Made by [DOT] or on the forums.soldat.pl, a fool
function OnPlayerCommand(ID: byte; Text: string): boolean;
begin
begin
if Text = '/level 1' then begin
//nothing yet
end
else if Text = '/level 2' then begin
//nothing yet
end
else if Text = '/level 3' then begin
//nothing yet
end
else if Text = '/level 4' then begin
//nothing yet
end
else if Text = '/level 5' then begin
//nothing yet
end
else if Text = '/level 6' then begin
//nothing yet
end
else if Text = '/level 7' then begin
//nothing yet
end
else if Text = '/level 8' then begin
//nothing yet
end

else if Text = '/level 9' then begin
//nothing yet
end;
end;

if Text = '/help1' then
begin
WriteConsole(ID, 'Help----------------------------------------------------------', $FF7F7F7F);
WriteConsole(ID, 'type /level #, # being the number of the level of difficulty', $FF00FFFF);
WriteConsole(ID, 'Level index---------------------------------------------------', $FF7F7F7F);
WriteConsole(ID, 'Level 1: Simple map, non moving targets.', $FF0000FF);
WriteConsole(ID, 'Level 2: Simple map, moving targets.', $FF007FFF);
WriteConsole(ID, 'Level 3: More complex map, non moving targets.', $FF00FFFF);
WriteConsole(ID, 'Level 4: More complex map, moving targets.', $FF00FF7F);
WriteConsole(ID, 'Level 5: Rather complex map, non moving targets.', $FF00FF00);
WriteConsole(ID, 'Level 6: Rather complex map, moving targets.', $FF7FFF00);
WriteConsole(ID, 'Level 7: Special level, you cant move, but the targets either.', $FFFFFF00);
WriteConsole(ID, 'Level 8: Special level, you cant move, but the targets can.', $FFFF7F00);
WriteConsole(ID, 'Level 9: Special level, you just fall, but the targets cant move.', $FFFF0000);
WriteConsole(ID, 'About---------------------------------------------------------', $FF7F7F7F);
WriteConsole(ID, 'Script SNIPER TRAINER created by [DOT], version 1', $FF7F7F7F);
WriteConsole(ID, 'Contact to Game_a_gogo@hotmail.com', $FF7F7F7F);
end;
Result := false;
end;

[DorkeyDear]

and what is "otherwise" ?

in pascal programming, its if none of the case statements are true; in soldat pascal, I beluive it is actualyl "else" so...

Code: [Select]

case 'test' of
  'one': WriteLn('1');
  'two': WriteLn('21');
  else begin
    WriteLn('0');
  end;
end;

[Neosano]

was making the thing fail the compile... but what the heck, I rewritten the same thing and it worked O,,o
a mistery... but anyways, it works. here it is:

not a mystery, you forgot a ' , '

[a fool]

was making the thing fail the compile... but what the heck, I rewritten the same thing and it worked O,,o
a mistery... but anyways, it works. here it is:

not a mystery, you forgot a ' , '

ha, wow O,,o
and I was looking if I missed anything of such as well -,,- dumb me lol. thank you anyway

[shantec]

a fool, i suggest you to use "case text of" instead of "if text =..."
like in your ... second(?) post

[a fool]

I'm wide aware of that. but I though that was what was making it fail. on further scripts, I will use cases when needed.