BigTaunts

[Dr.Thrax]

Script Name: BigTaunts
Script Description: Server recognizes taunts of playes and draws them in DrawText for the Team
Original Author(s): Idea by Timcrack , made by DrThrax
Core Version: 2.6.0
Code:
just a snippet

if RegExpMatch('efc|enemyflagcarrier|enemy flagger|enemies flag|enemies flagger|enemy flag',lowercase(Text)) = true then
   begin
         for i := 1 to 32 do
            begin
            if GetPlayerStat(i,'Team') = GetPlayerStat(id,'Team') then
                 begin
                 if RegExpMatch('down|low|lower|bottom|downside',lowercase(Text)) = true
                    then DrawText(i,'[EFC]^lower^Way!',(60*DURATION),iif(GetPlayerStat(i,'Team') = Alpha,RGB(255,0,0),RGB(0,0,255)),HEIGTH,POSX,POSY)
                 if RegExpMatch('mid|middle',lowercase(Text)) = true
                    then DrawText(i,'[EFC]^middle^Way!',(60*DURATION),iif(GetPlayerStat(i,'Team') = Alpha,RGB(255,0,0),RGB(0,0,255)),HEIGTH,POSX,POSY)
                 if RegExpMatch('up|upper|high|roof|upsided',lowercase(Text)) = true
                    then DrawText(i,'[EFC]^upper^Way!',(60*DURATION),iif(GetPlayerStat(i,'Team') = Alpha,RGB(255,0,0),RGB(0,0,255)),HEIGTH,POSX,POSY)
                 end;
                 end;
         end;

Script recognizes most of the efc , ffc , incomings , free flags , full base , clear and cap taunts.
The server will then answer with a standard text like in the example above with "[EFC]^upper^Way".
The player is able to set these DrawTextes on or of with "/taunts".
Maybe it can help the team to communicate in a better way:



Code:http://www.nopaste.com/p/aiodslJlS

kind regards , Thrax

[xmRipper]

Hey really good idea =) I like it.

[y0uRd34th]

Ya really good Idea, Good Work , now all will see it where EFC is..

[Bonecrusher]

i guess its set that only your team see them

[y0uRd34th]

Why not reading the script first before making useless Posts?

Code: [Select]

         for i := 1 to 32 do
            begin
            if GetPlayerStat(i,'Team') = GetPlayerStat(id,'Team') then
                 begin


[el,goog]

This could be very useful.
I find that sometimes during intensed battles (yes i do play soldat too much) I don't read what people are writing. I guess I'm getting to old.. 

[DorkeyDear]

Why not reading the script first before making useless Posts?

Code: [Select]

         for i := 1 to 32 do
            begin
            if GetPlayerStat(i,'Team') = GetPlayerStat(id,'Team') then
                 begin


No, this will make it so it shows for everybody on i's team.. going through all players, checking if player i's team is the same as the speaker's team

[Dr.Thrax]

ye only your team is able to see your big taunts because its the only way it makes sense ^^

[y0uRd34th]

DorkeyDear: That i wanted to tell him -.-
Dr.Thrax: Ya^^ Would be funny if the other Team see it and your team not Oo (no sense^^)

[JFK]

Very good concept, this could be extended to stuff like 'incoming' and 'base hot' as well. edit : oops..

If I were you I'd FIRST check the player saying 'down/middle/up' and THEN start the loop for displaying it to the whole team. Right now everytime someone mentions a flag carrier you'll be calling RegExpMatch 96 times. Also you could add the RegExp condition '^\^' to make sure the text starts with ^ and thus is for team only:

Code: [Select]

RegExpMatch('^\^.*(efc|enemyflagcarrier|enemy flagger|enemies flag|enemies flagger|enemy flag)',lowercase(Text)) or

Code: [Select]

if RegExpMatch('^\^', lowercase(Text)) then begin
  if RegExpMatch('efc|enemyflagcarrier|enemy flagger|enemies flag|enemies|flagger|enemy flag',lowercase(Text)) then begin

I might one day 'steal' this idea, that is if you wont mind

[Furai]

How about making it that it would enlarge every team chat?

[el,goog]

How about making it that it would enlarge every team chat?

hmmm... what happens if people said something at the same time and what if two people were talking to each other (team chat) in a pub?

[chutem]

Should it check whether they are in spec or not?
I'm not sure if you can draw text to specs

[Dr.Thrax]

you could add that thing , yes:

If (RegExpMatch('...',lowercase(Text)) = true) and (GetPlayerStat(id,'Team') < 3 ) then begin ...

or 


If (RegExpMatch('...',lowercase(Text)) = true) and (GetPlayerStat(id,'Team') < 5 ) then begin ...

[Furai]

How about making it that it would enlarge every team chat?

hmmm... what happens if people said something at the same time and what if two people were talking to each other (team chat) in a pub?

I'm just trying to bypass problem of using proper syntax to make this big taunts work. I wish it was showing exact enlarged taunt of mine. Could it possibly check if phrase has word EFC in it?

[tehsnipah]

That... Is... Awesome!!!!! Since they don't have voice, those big letters will get players the attention!

[scarface09]

Wouldn't it get annoying or take up space when fighting in combat so you can't see your enemy?

[Xxypher]

I would love to see this in Hexer.

[y0uRd34th]

Good idea Xxhyper! Why you don't write it on Hexerpage instead of here? Maybe you've done it already^^

[Dr.Thrax]

Here an update of Timcrack himself

he changed some things you mentioned and added the possibility to change size , color and position of your individual taunts:


http://www.nopaste.com/p/aNyYsvJv5

kind regards , Drthrax and Timcrack

[Furai]

I skimmed through the script's code and I see it's well done but I have some buts ^^'. My point is that when someone (like me) have f.e. EFC and his position specified in separated lines it won't work as it should be. I'll paste here piece of my taunts file.

Code: [Select]

^<~EFC!~>
^<~On the left!~>
^<~Base HOT!~>
^<~Middle!~>
^<~Tunnel!~>
^<~High!~>
^<~Low!~>
© Furai

[Dr.Thrax]

yes this is not implemented
maybe its possible .. you would have the script to wait untill both taunts are written

[Furai]

Can it possibly write whole your phrase which you wrote?

[Dr.Thrax]

sure .. your text is saved in the "text" variable so you just have to output "text".
i was just searching for keywords in "text"

[Furai]

I see. Maybe I'll try to edit this script for my use. Of course if you don't mind.

[Dr.Thrax]

sure do it your way be free to use

[Furai]

Thanks. I don't know when I'll have time to do it, though.

[Gizd]

List of things I don't like:

1. Did you hear about type named 'boolean'? It has only 2 values: true and false, and is much more light than integer.
2. http://www.nopaste.com/p/agc9H7Bb9
Maybe you don't know that but too many RegExp's are quite(much) heavy. Putting them outside the for i:= 1 to 32 loop would help...
3. There's something named "else" that can prevent server from checking 50 if's everytime someone does /piss.
4.

Code: [Select]

if RegExpMatch('^\^.*(cap|score)',lowercase(Text)) = true then
...
                 DrawText(i,'Capture now!',(60*duration),RGB(0,255,0),iheight,iposx,iposy)Maybe "Score now!"?
5.

Code: [Select]

if (text = '/orange') then
        begin
          taunts_color := 5;
          WriteConsole(id,'BigTaunts-Color = Orange!',RGB(100,140,230));
        end;
...
if (taunts_color = 5) then
        begin
            color1 := 255;
            color2 := 150;
            color3 := 0;
        end;
What the ...? Can't you do:

Code: [Select]

if (text = '/orange') then
        begin
          color1 := 255;
          color2 := 150;
          color3 := 0;
          WriteConsole(id,'BigTaunts-Color = Orange!',RGB(100,140,230));
        end;
...and kick that variable?
Also you can use "case" instead of many ifs.
6. Why don't you use arrays in color/size/other settings?

And some good words to make you feel better even if you failed: You have some RegExp skillz

[Dr.Thrax]

I'll tell Timcrack , i didnt do anything about that new stuff but i see there is something that is really not necessary.
But Timcrack is new to the serverscripting and i think it's well done for that knowledge.
but thanks for your help

[y0uRd34th]

Code: [Select]

1. Did you hear about type named 'boolean'? It has only 2 values: true and false, and is much more light than integer.
Gizd: You only need to add '= True' or '= False' if the Result is an variant, if the Result, like in RegExpMatch is an Boolean you dont need to add it.

[tk]

y0uRd34th:
He meant using integer instead of boolean in the script:

p_taunts : array[1..32] of integer;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
if (text = '/taunts') and (p_taunts[id] = 1) then
        begin
         p_taunts[id] := 0;
         WriteConsole(id,'BigTaunts disabled',RGB(100,140,230));
         end else if (text = '/taunts') and (p_taunts[id] = 0) then
                 begin
                 p_taunts[id] := 1;
                 WriteConsole(id,'BigTaunts activated!',RGB(100,140,230));
                 end;
...

When it should be

p_taunts : array[1..32] of boolean;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
  if text = '/taunts' then
  begin
    p_taunts[id] := not p_taunts[id];
    writeconsole(id,'BigTaunts '+iif(p_taunts[id],'activated','disabled')+'!',RGB(100,140,230));
  end;
...

[y0uRd34th]

Oh, then ya.. He didn't had an example^^..

[Gizd]

Oh, then ya.. He didn't had an example^^..

Yes, that's why your post is useless.

[dragus]

Heh nice script

[Biggles]

Nice script I believe it could be quite useful for 6v6 games or higher, although I only read taunts when I'm waiting for the enemy to come into my base, otherwise I rather look around when i'm dead.