Idea for a script, is it feasible?

[Londonbrig0]

Go "if Winner Then", instead of "if Winner = True". Same thing for "Leader[Victim] = True". Go "if Leader[Victim] Then"..

Ah yes, good advice, thank you.

About the Script, I don't understand quite what you're asking.

1. Basically, I'm not sure when I shouldn't have semicolons in the middle of if then else statements.
2. I want to know how to combine some text and a string variable into one string, for example the variable VTeam[Killer] and the text 'wins!'
3. Can I end the game by setting TimeLeft to 0?

[squiddy]

[...]

1. Basically, I'm not sure when I shouldn't have semicolons in the middle of if then else statements.
2. I want to know how to combine some text and a string variable into one string, for example the variable VTeam[Killer] and the text 'wins!'
3. Can I end the game by setting TimeLeft to 0?

1 - You just don't use ";" after:

If,Else,Begin,Then,Try,Except,Const,Type,Var.

You DO use ";" after ")", and everything else.

//~~~

2 - You mean like..

Code: (pascal) [Select]


[...]

 if VTeam[Killer] = 'Blablabla' Then WriteConsole(Killer,'Wins!',$FFFFFF);

Like that? I still don't got it

//~~~

3 - To end the game, just go "Command('/nextmap');

[DarkCrusade]

Just go for

Code: (pascal) [Select]

const
  White = $FFFFFF;

Procedure OnPlayerSpeak(ID:Byte; Text:String);
var Disable:Boolean; 
  begin
    WriteConsole(ID,'Text1' + ' Text2', White);      // Will display the text "Text1 Text2"
    WriteConsole(ID,IDToName(ID) + '''s name is cool!', White); // Displays "<XXX>'s name is cool!" ('' = ' in text')
    if LowerCase(Text) = '!disable' then begin
      Disable := not Disable;
      WriteConsole(ID,'Script got ' + iif(Disable=true,'enabled','disabled') + '.', White);
    end;
  end;

Last text will display "Script got enabled." if Disable is true and "Script got disabled." when it's false.

[squiddy]

Just go for

[...]

You forgot a "+" in the "IDToName()" Stuff.

And, iif(Disable,'en','dis')+'abled' should be better.

Despite that, everything's good.

[DarkCrusade]

The '+' is there for ages, Squiddy ... or I don't get what you are trying to state.

[squiddy]

Code: (pascal) [Select]

    WriteConsole(ID,IDToName(ID) +'''s name is cool!', White);


Should be:

WriteConsole(ID,IDToName(ID)+'''+'s name is cool!',White);

See?

[DarkCrusade]

Yeah I see your mistake. You don't need to seperate it.

[squiddy]

Wow, just noticed what I did.

Thanks DC.

Although, I'm still curious.

Why do you have '''s name ...', instead of 's name ...' ?

:O

[dnmr]

Wow, just noticed what I did.

Thanks DC.

Although, I'm still curious.

Why do you have '''s name ...', instead of 's name ...' ?

:O

http://en.wikipedia.org/wiki/Apostrophe#General_principles_for_the_possessive_apostrophe


and if you guys want to be really anal about the code,

Code: (pascal) [Select]

WriteConsole(ID,'Script got ' + iif(Disable,'dis','en') + 'abled.', White);and from the looks of it, disabled should be a global var ._.

[squiddy]

I agree.

Usually, all my scripts has a "TurnedON" Boolean.

I'm far too busy to make some other person's scritps perfect

Good luck with the script, though.

[Londonbrig0]

1 - You just don't use ";" after:

If,Else,Begin,Then,Try,Except,Const,Type,Var.

You DO use ";" after ")", and everything else.

Makes sense to me, thanks.

3 - To end the game, just go "Command('/nextmap');

Oh right, duh, thanks 

Just go for

[...]

Last text will display "Script got enabled." if Disable is true and "Script got disabled." when it's false.

Thanks a ton, now I know how it's supposed to look.

[DarkCrusade]

-A way to tell who is on your team (have your clothes change to look the same as your leader? have people on your team emit flames?)

You can create an interface that shows you the people on your team. I attached something you can work with.

[Londonbrig0]

You can create an interface that shows you the people on your team. I attached something you can work with.

Thank you, could you explain what it does basically?

[DarkCrusade]

Basically it's an inferface that will show up for everyone on the server. Everything in the procedure AppOnIdle gets called every second. If we want to work with everyones ID on the server we use a for loop:

I is a variable of type byte that you need to declare before, just look at my script.

Code: (pascal) [Select]

for I := 1 to 32 do [...]
But the problem is, that there are probably not 32 slots in use and it'd return us an error when we try to draw a text for a player who is not even there. We check now whether he's online or not:

Code: (pascal) [Select]

for I := 1 to 32 do              // Start the loop
  if GetPlayerStat(I,'Active') = true then     // Check ID
    AllDraw(I)                                // Draw the text

The following will be a little bit more diificult. You will have 12 players at the maximum on your server, right? So I called one string for every possible ID. Now I loop through all IDs again and check whether they are in the same 'team' as the of the ID we checked in AppOnIdle. If that's so the next string will contain his name and will be drawn. Don't think much about '+ #13 + #10', it's just a nice thing that'll place one line above another instead of having one big line.

But a very important thing at least:

Code: (pascal) [Select]

Type XXX = Record
  Team: Byte;
end;

var
  Player: Array[1..32] of XXX;
It is very similiar to classes in Java, I hope you get the point. You can put more variables you want to use into the type XXX and to use it use

Code: (pascal) [Select]

<ArrayName>[<ID>].<Variable>   // Note the dot!

Now what you need to do with the script I gave you.

-You need to save the original teams of each player in an array
-You need to save ones team in an array when being killed
-You need to modify my script so it'll show up the leader of the team, too
-You need to find a solution for changing the map after one team contains all IDs that are connected to the server at that moment.

[Londonbrig0]

Thanks a ton, I'll see what I can do to work it in.