API tools faq
paste
Advertisement
Guest User

Mix Script

a guest
Dec 31st, 2014
365
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 29.21 KB | None | 0 0
raw download clone embed print report
  1. const
  2.     GOOD = $00FF99;
  3.     BAD = $FF6666;
  4.  
  5. var
  6.     Mix, Anty: byte;    //Mix 0 - No Match, Mix 1 - 1v1, Mix 2 - 2v2, Mix 3 - 3v3, Mix 4 - 4v4
  7.     PlayerInMix, voter: array [1..32] of boolean;
  8.     prewteam: array [1..32] of integer;
  9.     MixList: array [1..8] of string;
  10.     Time, Votes, Votes2, Votes3, Votes4, pause, a, b: integer;
  11.     Voterr, VoteO, VoterM, VoteN, matchon, mixteams: boolean;
  12.     InGameSup, SupWait, Move: array [1..32] of boolean;
  13.     PlayerList: array of integer;
  14.  
  15. function Explode(Source: string; const Delimiter: string): array of string;
  16. var Position, DelLength, ResLength: integer;
  17. begin
  18.     DelLength := Length(Delimiter);
  19.     Source := Source + Delimiter;
  20.     repeat
  21.         Position := Pos(Delimiter, Source);
  22.         SetArrayLength(Result, ResLength + 1);
  23.         Result[ResLength] := Copy(Source, 1, Position - 1);
  24.         ResLength := (ResLength + 1);
  25.         Delete(Source, 1, Position + DelLength - 1);
  26.     until (Position = 0);
  27.     SetArrayLength(Result, ResLength - 1);
  28. end;
  29.  
  30. procedure ResVar(ID:byte);
  31. begin
  32.     InGameSup[id] := false;
  33.     SupWait[id] := false;
  34.     PlayerInMix[id] := false;
  35.     voter[id] := false;
  36.     Move[id] := false;
  37. end;
  38.  
  39. function GetTeamArray(const Team: byte): Array of byte;
  40. var i,x: integer;
  41. begin
  42.     i := 1;
  43.     x := 0;
  44.     while (i < 32) do begin
  45.         if (GetPlayerStat(i, 'Active') = true) then if (GetPlayerStat(i, 'Team') = Team) then begin
  46.             SetArrayLength(Result, x + 1);
  47.             Result[x] := i;
  48.             inc(x,1);
  49.         end;
  50.         inc(i,1);
  51.     end;
  52. end;
  53.  
  54. procedure Balance();
  55. var i,Difference: integer;
  56.     Players: Array of byte;
  57. begin
  58.     Difference:=(a-b);
  59.     if (Difference > 1) and (a > 1) then begin
  60.         Players := GetTeamArray(1);
  61.         while (true) do begin
  62.             i := Players[Random(1, GetArrayLength(Players) - 1)];
  63.             if (GetPlayerStat(i, 'Flagger') = false) then break;
  64.         end;
  65.         Move[i]:=true;
  66.         Command('/setteam2 ' + inttostr(i));
  67.         dec(a,1);
  68.         WriteConsole(i, 'You were balanced due to unbalanced teams.', GOOD);
  69.     end;
  70.     if (Difference < -1) and (b > 1) then begin
  71.         Players := GetTeamArray(2);
  72.         while (true) do begin
  73.             i := Players[Random(1, GetArrayLength(Players) - 1)];
  74.             if (GetPlayerStat(i,'Flagger') = false) then break;
  75.         end;
  76.         Move[i]:=true;
  77.         Command('/setteam1 ' + inttostr(i));
  78.         dec(b,1);
  79.         WriteConsole(i, 'You were balanced due to unbalanced teams.', GOOD);
  80.     end;
  81.     Difference:=(a-b);
  82.     if (Difference > 1) or (Difference < -1) then Balance() else WriteConsole(0, 'Teams balanced. If you see no result teams are balanced.', GOOD);
  83. end;
  84.  
  85. function RandomizeArray(arrayy: array of integer): array of integer;
  86. var len, high ,i, rand : integer;
  87. begin
  88.     len := GetArrayLength(arrayy);
  89.     setArrayLength(result, len)
  90.     high := (len-1);
  91.     for i := 0 to (len-1) do begin
  92.         rand := Random(0, high);
  93.         result[i] := arrayy[rand];
  94.         arrayy[rand] := arrayy[high];
  95.         dec(high, 1);
  96.     end;
  97. end;
  98.  
  99. procedure MixTeam();
  100. var c,x:integer;  ranlist: array of integer;
  101. begin
  102.     c := 1;
  103.     x := 0;
  104.     while (c < 32) do begin
  105.         if (GetPlayerStat(c, 'Active') = true) then if (PlayerInMix[c] = true) then begin
  106.             SetArrayLength(PlayerList, x + 1);
  107.             PlayerList[x] := c;         //Stworz liste graczy uczestniczacych w meczu
  108.             inc(x,1);
  109.         end;
  110.         inc(c,1);
  111.     end;
  112.  
  113.     ranlist := RandomizeArray(PlayerList);      //randomizuj liste
  114.  
  115.     x:=0;   mixteams:=true;
  116.     for c := 0 to (GetArrayLength(ranlist)-1) do begin
  117.         if(x=0) then begin
  118.             if (GetPlayerStat(ranlist[c],'Team')<>1) then Command('/setteam1 '+inttostr(ranlist[c]));       //Moving players
  119.             x:=1;
  120.         end else begin
  121.             if (GetPlayerStat(ranlist[c],'Team')<>2) then Command('/setteam2 ' + inttostr(ranlist[c]));
  122.             x:=0;
  123.         end;
  124.     end;
  125.     mixteams:=false;
  126. end;
  127.  
  128. Procedure CheckVotes();
  129. var i:byte; c:integer;
  130. begin
  131.     c:=0;
  132.     for i := 1 to (mix*2) do if (MixList[i] <> '') then inc(c,1);
  133.     if (Votes > 0) then begin
  134.         if (Votes>=iif(c>=mix,mix,c)) then begin
  135.             DrawTextEx(0,51,'Vote to OFF - Successfully!',140,GOOD,0.075,180,2);
  136.             Voteo := false;
  137.             Votes := 0;
  138.             Time := 0;
  139.             Mix := 0;
  140.             matchon := false;
  141.             for i := 1 to 32 do if (GetPlayerStat(i, 'Active')=true) and (PlayerInMix[i]=true) then ResVar(i);
  142.             for i := 1 to 8 do MixList[i] := '';
  143.         end;
  144.     end;
  145.     if (Votes2 > 0) then begin
  146.         if (Votes2>=iif(c>=mix,mix,c)) then begin
  147.             DrawTextEx(0,51,'Vote to restart - Successfully!',140,GOOD,0.075,180,2);
  148.             Voterr := false;
  149.             Votes2 := 0;
  150.             Time := 0;
  151.             Anty:=1;
  152.             Command('/restart');
  153.             for i := 1 to 32 do if (GetPlayerStat(i, 'Active')=true) then voter[i] := false;
  154.         end;
  155.     end;
  156.     if (Votes3 > 0) then begin
  157.         if (Votes3>=iif(c>=mix,mix,c)) then begin
  158.             DrawTextEx(0,51,'Vote to mix teams - Successfully!',140,GOOD,0.075,180,2);
  159.             VoterM := false;
  160.             Votes3 := 0;
  161.             Time := 0;
  162.             MixTeam();
  163.             for i := 1 to 32 do if (GetPlayerStat(i, 'Active')=true) then voter[i] := false;
  164.         end;
  165.     end;
  166.     if (Votes4 > 0) then begin
  167.         if (Votes4>=iif(c>=mix,mix,c)) then begin
  168.             DrawTextEx(0,51,'Vote to nextmap - Successfully!',140,GOOD,0.075,180,2);
  169.             DrawTextEx(0,55,'                ('+NextMap+')',140,GOOD,0.075,180,16);
  170.             VoteN := false;
  171.             Votes4 := 0;
  172.             Time := 0;
  173.             Anty:=1;
  174.             Command('/nextmap');
  175.             for i := 1 to 32 do if (GetPlayerStat(i, 'Active')=true) then voter[i] := false;
  176.         end;
  177.     end;
  178. end;
  179.  
  180. procedure SubCheck(ID,y:byte; l:boolean; m:byte);
  181. var i,b:byte; t,t2:integer;
  182. begin
  183.     if (m=1) then begin
  184.         for i:= 1 to 32 do if (GetPlayerStat(i,'active')=true) then begin
  185.             if (i<>ID) then if (InGameSup[i]=true) then begin
  186.                 t:=GetPlayerStat(i,'Team');
  187.                 t2:=GetPlayerStat(id,'Team');
  188.                 Move[id]:=true;
  189.                 Move[i]:=true;
  190.                 Command('/setteam'+inttostr(t2)+' '+inttostr(i));
  191.                 Command('/setteam'+inttostr(t)+' '+inttostr(id));
  192.                 InGameSup[id]:=false;
  193.                 InGameSup[i]:=false;
  194.                 WriteConsole(0,'Successfully changed players: '+GetPlayerStat(ID,'name')+' and '+GetPlayerStat(i,'name')+'.',GOOD);
  195.                 Exit;
  196.             end;
  197.             if (SupWait[i]=true) then begin
  198.                 t:=GetPlayerStat(ID,'Team');
  199.                 if (l=true) then begin
  200.                     ResVar(ID);
  201.                     Command('/setteam5 '+inttostr(ID));
  202.                 end;
  203.                 ResVar(i);                                  //Zamiana
  204.                 Move[i] := true;
  205.                 PlayerInMix[i] := true;
  206.                 for b := 1 to (Mix*2) do if (MixList[b]='') then begin
  207.                     MixList[b] := GetPlayerStat(i,'Name');
  208.                     break;
  209.                 end;
  210.                 Command('/setteam'+inttostr(t)+' '+inttostr(i));
  211.                 if (y=1) then if (Mix=1) then WriteConsole(0,iif(Mix=1,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2],'-=2=-'),''),GOOD) else if (Mix=2) then WriteConsole(0,iif(Mix=2,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2]+',','-=2=-')+' '+iif(MixList[3]<>'',MixList[3]+',','-=3=-')+' '+iif(MixList[4]<>'',MixList[4],'-=4=-'),''),GOOD) else if (Mix=3) then WriteConsole(0,iif(Mix=3,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2]+',','-=2=-')+' '+iif(MixList[3]<>'',MixList[3]+',','-=3=-')+' '+iif(Mix=3,iif(MixList[4]<>'',MixList[4]+',','-=4=-')+' '+iif(MixList[5]<>'',MixList[5]+',','-=5=-')+' '+iif(MixList[6]<>'',MixList[6],'-=6=-'),''),''),GOOD) else if (Mix=4) then WriteConsole(0,iif(Mix=4,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2]+',','-=2=-')+' '+iif(MixList[3]<>'',MixList[3]+',','-=3=-')+' '+iif(MixList[4]<>'',MixList[4]+',','-=4=-')+' '+iif(Mix=4,iif(MixList[5]<>'',MixList[5]+',','-=5=-')+' '+iif(MixList[6]<>'',MixList[6]+',','-=6=-')+' '+iif(MixList[7]<>'',MixList[7]+',','-=7=-')+' '+iif(MixList[8]<>'',MixList[8],'-=8=-'),''),''),GOOD);
  212.                 if (l=true) then WriteConsole(0,'Successfully changed players: '+GetPlayerStat(ID,'name')+' and '+GetPlayerStat(i,'name')+'.',GOOD) else WriteConsole(i,'Into the game per: '+GetPlayerStat(ID,'name')+'.',GOOD);
  213.                 break;
  214.             end;
  215.         end;
  216.     end;
  217.     if (m=2) then begin        
  218.         for i:= 1 to 32 do if (GetPlayerStat(i,'active')=true) then begin
  219.             if (InGameSup[i]=true) then begin
  220.                 t:=GetPlayerStat(i,'Team');
  221.                 ResVar(i);
  222.                 Command('/setteam5 '+inttostr(i));
  223.                 ResVar(ID);
  224.                 PlayerInMix[ID] := true;                                //Zamiana
  225.                 Move[ID]:=true;
  226.                 for b := 1 to (Mix*2) do if (MixList[b]='') then begin
  227.                     MixList[b] := GetPlayerStat(ID,'Name');
  228.                     break;
  229.                 end;
  230.                 Command('/setteam'+inttostr(t)+' '+inttostr(id));
  231.                 WriteConsole(0,'Successfully changed players: '+GetPlayerStat(ID,'name')+' and '+GetPlayerStat(i,'name')+'.',GOOD);
  232.                 break;
  233.             end;
  234.         end;
  235.     end;
  236. end;
  237.  
  238. Procedure MixR(ID:byte);
  239. var i,t:byte; c,b,a:integer;
  240. begin
  241.     if (PlayerInMix[ID] = false) then begin
  242.         c:=0;
  243.         for i := 1 to (mix*2) do if (MixList[i]='') then inc(c,1);
  244.         if (c>0) then begin
  245.             if (matchon=true) then Move[ID] := true;
  246.             PlayerInMix[ID] := true;    a:=0; b:=0;
  247.             for t := 1 to 32 do if (GetPlayerStat(t,'Active')=true) and (PlayerInMix[t]=true) then begin
  248.                 if (GetPlayerStat(t,'Team')=1) then inc(a,1);
  249.                 if (GetPlayerStat(t,'Team')=2) then inc(b,1);
  250.             end;
  251.             if (a<=b) then begin
  252.                 if ((b=1) and (a=1)) or ((a=0) and (b=0)) then begin
  253.                     if (GetPlayerStat(ID,'Team')=5) then Command('/setteam2 '+inttostr(ID));
  254.                 end else if (a<b) then if (GetPlayerStat(ID,'Team')<>1) then Command('/setteam1 '+inttostr(ID));
  255.             end else if (GetPlayerStat(ID,'Team')<>2) then Command('/setteam2 '+inttostr(ID));
  256.             for i := 1 to (mix*2) do if (MixList[i]='') then begin//By Dominik
  257.                 MixList[i] := GetPlayerStat(ID,'Name');
  258.                 dec(c,1);
  259.                 break;
  260.             end;
  261.             if (Mix=1) then WriteConsole(0,iif(Mix=1,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2],'-=2=-'),''),GOOD) else if (Mix=2) then WriteConsole(0,iif(Mix=2,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2]+',','-=2=-')+' '+iif(MixList[3]<>'',MixList[3]+',','-=3=-')+' '+iif(MixList[4]<>'',MixList[4],'-=4=-'),''),GOOD) else if (Mix=3) then WriteConsole(0,iif(Mix=3,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2]+',','-=2=-')+' '+iif(MixList[3]<>'',MixList[3]+',','-=3=-')+' '+iif(Mix=3,iif(MixList[4]<>'',MixList[4]+',','-=4=-')+' '+iif(MixList[5]<>'',MixList[5]+',','-=5=-')+' '+iif(MixList[6]<>'',MixList[6],'-=6=-'),''),''),GOOD) else if (Mix=4) then WriteConsole(0,iif(Mix=4,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2]+',','-=2=-')+' '+iif(MixList[3]<>'',MixList[3]+',','-=3=-')+' '+iif(MixList[4]<>'',MixList[4]+',','-=4=-')+' '+iif(Mix=4,iif(MixList[5]<>'',MixList[5]+',','-=5=-')+' '+iif(MixList[6]<>'',MixList[6]+',','-=6=-')+' '+iif(MixList[7]<>'',MixList[7]+',','-=7=-')+' '+iif(MixList[8]<>'',MixList[8],'-=8=-'),''),''),GOOD);
  262.             if (c=0) then begin
  263.                 for i := 1 to 32 do if (GetPlayerStat(i,'Active')=true) then if (PlayerInMix[i] = false) and (GetPlayerStat(i,'team')<>5) then Command('/setteam5 '+inttostr(i));
  264.                 matchon := true;
  265.                 Anty := 1;
  266.                 Command('/restart');
  267.                 DrawTextEx(0,51,'The match started!',140,GOOD,0.075,180,2);
  268.             end;
  269.         end else WriteConsole(ID,'Now takes the game '+inttostr(Mix)+'vs'+inttostr(Mix)+'. There are no places to join!',BAD);
  270.     end else WriteConsole(ID,'You have been already added to the game.',BAD);
  271. end;
  272.  
  273. Procedure MixON(ID, Typ:byte);
  274. var i:byte; c:integer;
  275. begin
  276.     if (Mix=0) then begin
  277.         Mix := Typ;
  278.         MixR(ID);
  279.         for i := 1 to 32 do if (GetPlayerStat(i, 'Active')=true) then if (i<>ID) then WriteConsole(i,'Enter !add to join!',GOOD);
  280.     end else
  281.     begin
  282.         c := 0;
  283.         for i := 1 to (mix*2) do if (MixList[i]='') then inc(c,1);
  284.         if (c=0) then WriteConsole(ID,'Now takes the game '+inttostr(Mix)+'vs'+inttostr(Mix)+'!'+iif(PlayerInMix[id]=true,'',' Enter !sub to join the queue.'),BAD) else WriteConsole(ID,'Takes already match '+inttostr(Mix)+'vs'+inttostr(Mix)+'!'+iif(PlayerInMix[id]=true,'',' Write !add to join the game.'),BAD);
  285.     end;
  286. end;
  287.  
  288. procedure OnJoinGame(ID, Team: byte);
  289. begin
  290.     ResVar(ID);
  291.     DrawTextEx(ID,52,'!mix - Play Match!',350,GOOD,0.200,30,340);
  292. end;
  293.  
  294. Procedure OnJoinTeam(ID, Team: byte);
  295. var i: byte; c:integer;
  296. begin
  297.     if (Team=1) or (Team=2) then if (matchon=true) then begin
  298.         if (PlayerInMix[ID] = false) then begin
  299.             Command('/setteam5 '+inttostr(ID));
  300.             c:=0;
  301.             for i := 1 to (mix*2) do if (MixList[i] = '') then inc(c,1);            //Daj info graczowi jak dolaczyc ponnownie
  302.             if (c<>0) then WriteConsole(ID,' ---> Write !add to join game. <---',BAD) else WriteConsole(ID,' ---> Write !sub to join the queue. <---',BAD);
  303.             prewteam[ID] := 5;
  304.             exit;
  305.         end else
  306.         begin
  307.             if (mixteams=false) then if (Move[ID]=false) then begin
  308.                 if (prewteam[ID]<>Team) then begin
  309.                     Move[id] := true;
  310.                     Command('/setteam'+inttostr(prewteam[ID])+' '+inttostr(id));
  311.                     prewteam[ID] := prewteam[ID];
  312.                     WriteConsole(ID,' ---> You can not change the team during the match. <---',BAD);
  313.                     WriteConsole(ID,' ---> Use !sub to turn into a team with other players. <---',BAD);
  314.                     exit;
  315.                 end;
  316.             end else if (move[id]=true) then begin
  317.                 Move[id] := false;
  318.                 prewteam[ID] := GetPlayerStat(id,'team');
  319.                 exit;
  320.             end;
  321.         end;
  322.     end;
  323.     if (Team=5) then begin
  324.         if (PlayerInMix[ID] = true) then begin
  325.             ResVar(ID);                                                 //Usun gracza z listy i zresetuj zmienne
  326.             for i := 1 to (Mix*2) do if (MixList[i] = GetPlayerStat(ID,'Name')) then MixList[i] := '';
  327.  
  328.             c:=0;
  329.             for i := 1 to 8 do if (MixList[i] = '') then inc(c,1);      //Sprawdz czy mix aktywny
  330.             if (c=8) then begin
  331.                 Mix:=0;
  332.                 matchon:=false;
  333.             end;
  334.  
  335.             SubCheck(ID,1,false,1);         //Dodaj innego
  336.  
  337.             if (voter[id] = true) then begin
  338.                 if (Votes > 0) then dec(Votes,1);               //Jesli glosowal, usun jego glos
  339.                 if (Votes2 > 0) then dec(Votes2,1);
  340.                 if (Votes3 > 0) then dec(Votes3,1);
  341.                 if (Votes4 > 0) then dec(Votes4,1);
  342.                 CheckVotes();
  343.             end;
  344.  
  345.             c:=0;
  346.             for i := 1 to (mix*2) do if (MixList[i] = '') then inc(c,1);    //Daj info graczowi jak dolaczyc ponnownie
  347.             if (c<>0) then WriteConsole(ID,' ---> Write !add to join game. <---',BAD) else WriteConsole(ID,' ---> Write !sub to join the queue. <---',BAD);
  348.         end;
  349.     end;
  350.     prewteam[ID] := GetPlayerStat(id,'team');
  351. end;
  352.  
  353. procedure OnPlayerSpeak(ID: byte; Text: string);
  354. var i:byte; mapy: TStringArray; c:integer;
  355. begin   //!del !add !off !status !p !up !bal
  356.     if regExpMatch('^!(balance|bal|teams)$',lowercase(Text)) then begin
  357.         if (PlayerInMix[ID] = true) then begin
  358.             a:=AlphaPlayers;
  359.             b:=BravoPlayers;
  360.             Balance();
  361.         end else WriteConsole(ID,'You must participate in the game to balance teams.',BAD);
  362.     end;
  363.  
  364.     if regExpMatch('^!(sub)$',lowercase(Text)) then begin
  365.         if (Mix<>0) then begin
  366.             if (PlayerInMix[ID] = true) then begin
  367.                 if (InGameSup[ID] = false) then begin
  368.                     InGameSup[ID] := true;                                                  //Dodanie do kolejki aby sie zmienic w grze
  369.                     WriteConsole(ID,'You have been added to the queue to change.',GOOD);
  370.                 end else WriteConsole(ID,'You`re already in the queue to change!',BAD);
  371.                 SubCheck(ID,0,true,1);
  372.             end else
  373.             begin
  374.                 if (SupWait[ID] = false) then begin
  375.                     SupWait[ID] := true;                                //dodaj do kolejki
  376.                     WriteConsole(ID,'You have been added to the queue.',GOOD);
  377.                 end else WriteConsole(ID,'You`re already to play match!',BAD);
  378.                 SubCheck(ID,0,true,2);
  379.             end;
  380.         end else WriteConsole(ID,'Currently not take any match!',BAD);
  381.     end;
  382.  
  383.     if regExpMatch('^!(delsub)$',lowercase(Text)) then begin
  384.         if (InGameSup[ID] = true) or (SupWait[ID] = true) then begin
  385.             InGameSup[ID] := false;
  386.             SupWait[ID] := false;
  387.             WriteConsole(ID,'You have been removed from the queue.',GOOD);
  388.         end else WriteConsole(ID,'You`re not in the queue!',BAD);
  389.     end;
  390.  
  391.     if regExpMatch('^!(ranmap)$',lowercase(Text)) then if (PlayerInMix[ID] = true) then begin
  392.         mapy := Explode(ReadFile('mapslist.txt'),chr(13)+chr(10));
  393.         Command('/map '+mapy[Random(0,GetArrayLength(mapy)-1)]);
  394.         Anty:=1;
  395.     end else WriteConsole(ID,'You can`t change the map not being in while of the match.',BAD);
  396.  
  397.     if MaskCheck(lowercase(Text),'!map *') then if (PlayerInMix[ID] = true) then begin
  398.         delete(Text,1,5);
  399.         if (Text<>'') then begin
  400.             mapy := Explode(ReadFile('mapslist.txt'),chr(13)+chr(10));
  401.             for i:= 1 to (GetArrayLength(mapy)-1) do begin
  402.                 if (ContainsString(lowercase(mapy[i-1]),lowercase(Text))=true) then begin
  403.                     if (mapy[i-1] <> '') then begin
  404.                         Command('/map '+mapy[i-1]);
  405.                         Anty:=1;
  406.                     end else WriteConsole(ID,'No maps found!',BAD);
  407.                     break;
  408.                 end;
  409.             end;
  410.         end else WriteConsole(ID,'You must enter the name of map or a part thereof.',BAD);
  411.     end else WriteConsole(ID,'You can`t change the map not being in while the match.',BAD);
  412.  
  413.     if regExpMatch('^!(mix|cmdmix|mixcmd|cmdsmix|mixcmds)$',lowercase(Text)) then begin
  414.         WriteConsole(ID,'While Match:',BAD);
  415.         WriteConsole(ID,'            !del    - Exit from the match, !ub - Unbanlast.        ',BAD);
  416.         WriteConsole(ID,'            !p      - Enable pause,        !up - Disable pause.    ',BAD);
  417.         WriteConsole(ID,'            !bal    - Balance teams,       !mixteams - Mixed teams.',BAD);
  418.         WriteConsole(ID,'            !off !r - Votes per: Disable match | Restart match.    ',BAD);
  419.         WriteConsole(ID,'            !map <name> - Change map name, !ranmap - Randommap.    ',BAD);
  420.         WriteConsole(ID,'            !nextmap    - Vote for nextmap.                        ',BAD);
  421.         WriteConsole(ID,'Normally:',GOOD);
  422.         WriteConsole(ID,'            !add - Add to the match, !status - Match status.       ',GOOD);
  423.         WriteConsole(ID,'            !sub - Add queue, !delsub - Exit from queue.           ',GOOD);
  424.         WriteConsole(ID,'            !1v1 !2v2 - Beginning game 1v1 or 2v2.                 ',GOOD);
  425.         WriteConsole(ID,'            !3v3 !4v4 - Beginning game 3v3 or 4v4.                 ',GOOD);
  426.         WriteConsole(ID,'Script Creator: dominikk26                                         ',$FFCCFF);
  427.     end;
  428.  
  429.     if regExpMatch('^!(1v1)$',lowercase(Text)) then MixON(ID,1);
  430.     if regExpMatch('^!(2v2)$',lowercase(Text)) then MixON(ID,2);
  431.     if regExpMatch('^!(3v3)$',lowercase(Text)) then MixON(ID,3);
  432.     if regExpMatch('^!(4v4)$',lowercase(Text)) then MixON(ID,4);
  433.  
  434.     if regExpMatch('^!(add)$',lowercase(Text)) then if (Mix <> 0) then MixR(ID) else WriteConsole(ID,'Currently not take none match!',BAD);
  435.  
  436.     if regExpMatch('^!(del)$',lowercase(Text)) then if (Mix <> 0) then Command('/setteam5 '+inttostr(ID)) else WriteConsole(ID,'Currently not take none match!',BAD);
  437.  
  438.     if regExpMatch('^!(off)$',lowercase(Text)) then if (PlayerInMix[ID] = true) then begin
  439.         if (Voterr=false) then begin
  440.             if (VoterM = false) then begin
  441.                 if (VoteN=false) then begin
  442.                     if (voter[id] = false) then begin
  443.                         c:=0;
  444.                         for i := 1 to (mix*2) do if (MixList[i] <> '') then inc(c,1);
  445.                         if (Voteo=false) then begin
  446.                             Voteo := true;
  447.                             Time := 15;
  448.                         end else inc(Time,5);
  449.                         voter[id] := true;
  450.                         inc(Votes,1);
  451.                         DrawTextEx(0,51,'Vote to OFF - '+inttostr(Votes)+'/'+inttostr(iif(c>=mix,mix,c))+' ('+inttostr(time)+'s)',140,GOOD,0.075,180,2);
  452.                         CheckVotes();
  453.                     end else WriteConsole(0,'You have already voted!',BAD);
  454.                 end else WriteConsole(ID,'Takes vote per next one map.',BAD);
  455.             end else WriteConsole(ID,'Currently, the vote per mixing teams.',BAD);
  456.         end else WriteConsole(ID,'Takes vote per restarting the match.',BAD);
  457.     end else WriteConsole(ID,'You can`t disable match, when you don`t participate in match.',BAD);
  458.  
  459.     if regExpMatch('^!(r|reset|restart)$',lowercase(Text)) then if (PlayerInMix[ID] = true) then begin
  460.         if (Voteo = false) then begin
  461.             if (VoterM = false) then begin
  462.                 if (VoteN=false) then begin
  463.                     if (voter[id] = false) then begin
  464.                         c:=0;
  465.                         for i := 1 to (mix*2) do if (MixList[i] <> '') then inc(c,1);
  466.                         if (Voterr=false) then begin
  467.                             Voterr := true;
  468.                             Time := 15;
  469.                         end else inc(Time,5);
  470.                         voter[id] := true;
  471.                         inc(Votes2,1);
  472.                         DrawTextEx(0,51,'Vote to restart - '+inttostr(Votes2)+'/'+inttostr(iif(c>=mix,mix,c))+' ('+inttostr(time)+'s)',140,GOOD,0.075,180,2);
  473.                         CheckVotes();
  474.                     end else WriteConsole(0,'You have already voted!',BAD);
  475.                 end else WriteConsole(ID,'Takes vote per nextmap.',BAD);
  476.             end else WriteConsole(ID,'Currently, the vote per mixing teams.',BAD);
  477.         end else WriteConsole(ID,'Currently, the vote for the off match.',BAD);
  478.     end else WriteConsole(ID,'You can`t restart the game if you don`t participate in match!',BAD);
  479.  
  480.     if regExpMatch('^!(ub|unbanlast)$',lowercase(Text)) then if (PlayerInMix[ID] = true) then Command('/unbanlast') else WriteConsole(ID,'You can`t unban players if you don`t participate in match!',BAD);
  481.  
  482.     if regExpMatch('^!(status)$',lowercase(Text)) then begin
  483.         if (Mix<>0) then begin
  484.             WriteConsole(ID,'Match ON '+inttostr(Mix)+'vs'+inttostr(Mix)+': ',GOOD);
  485.             if (Mix=1) then WriteConsole(0,iif(Mix=1,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2],'-=2=-'),''),GOOD) else if (Mix=2) then WriteConsole(0,iif(Mix=2,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2]+',','-=2=-')+' '+iif(MixList[3]<>'',MixList[3]+',','-=3=-')+' '+iif(MixList[4]<>'',MixList[4],'-=4=-'),''),GOOD) else if (Mix=3) then WriteConsole(0,iif(Mix=3,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2]+',','-=2=-')+' '+iif(MixList[3]<>'',MixList[3]+',','-=3=-')+' '+iif(Mix=3,iif(MixList[4]<>'',MixList[4]+',','-=4=-')+' '+iif(MixList[5]<>'',MixList[5]+',','-=5=-')+' '+iif(MixList[6]<>'',MixList[6],'-=6=-'),''),''),GOOD) else if (Mix=4) then WriteConsole(0,iif(Mix=4,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2]+',','-=2=-')+' '+iif(MixList[3]<>'',MixList[3]+',','-=3=-')+' '+iif(MixList[4]<>'',MixList[4]+',','-=4=-')+' '+iif(Mix=4,iif(MixList[5]<>'',MixList[5]+',','-=5=-')+' '+iif(MixList[6]<>'',MixList[6]+',','-=6=-')+' '+iif(MixList[7]<>'',MixList[7]+',','-=7=-')+' '+iif(MixList[8]<>'',MixList[8],'-=8=-'),''),''),GOOD);
  486.         end else WriteConsole(ID,'Match OFF.',GOOD);
  487.     end;
  488.  
  489.     if regExpMatch('^!(p|pause|pauza|stop)$',lowercase(Text)) then if (PlayerInMix[ID] = true) then begin
  490.         if (pause=0) then begin
  491.             Command('/pause');
  492.             WriteConsole(0,GetPlayerStat(ID,'name')+' turned on the paused!',GOOD);
  493.             WriteConsole(0,'Pause is automatically turned off after 1:30 min.',GOOD);
  494.             pause:=91;
  495.         end else WriteConsole(ID,'Pause is already switched on!',BAD);
  496.     end else WriteConsole(ID,'You can`t give pause without being in the course of the match.',BAD);
  497.  
  498.     if regExpMatch('^!(up|unpause|unpauze|play)$',lowercase(Text)) then if (PlayerInMix[ID] = true) then begin
  499.         if (pause>0) then begin
  500.             if (pause<=4) then WriteConsole(ID,'Takes off pause.',BAD) else pause:=4;
  501.         end else WriteConsole(ID,'Pause is not switched on!',BAD);
  502.     end else WriteConsole(ID,'You can`t cancel without being paused during the match.',BAD);
  503.  
  504.     if regExpMatch('^!(mixt|mixteam|mixteams|mt)$',lowercase(Text)) then if (PlayerInMix[id]=true) then begin
  505.         if (Voteo = false) then begin
  506.             if (Voterr=false) then begin
  507.                 if (VoteN=false) then begin
  508.                     if (voter[id] = false) then begin
  509.                         c:=0;
  510.                         for i := 1 to (mix*2) do if (MixList[i] <> '') then inc(c,1);
  511.                         if (Voterm=false) then begin
  512.                             Voterm := true;
  513.                             Time := 15;
  514.                         end else inc(Time,5);
  515.                         voter[id] := true;
  516.                         inc(Votes3,1);
  517.                         DrawTextEx(0,51,'Vote to mix teams - '+inttostr(Votes3)+'/'+inttostr(iif(c>=mix,mix,c))+' ('+inttostr(time)+'s)',140,GOOD,0.075,180,2);
  518.                         CheckVotes();
  519.                     end else WriteConsole(0,'You have already voted!',BAD);
  520.                 end else WriteConsole(ID,'Takes vote per nextmap.',BAD);
  521.             end else WriteConsole(ID,'Takes vote per restarting the match.',BAD);
  522.         end else WriteConsole(ID,'Currently, the vote for the off match.',BAD);
  523.     end else WriteConsole(ID,'You can`t vote per mixing teams without being in the course of the match.',BAD);
  524.    
  525.     if regExpMatch('^!(next|nextmap|votemap|nextvote)$',lowercase(Text)) then if (PlayerInMix[ID] = true) then begin
  526.         if (Voteo = false) then begin
  527.             if (VoterM = false) then begin
  528.                 if (Voterr=false) then begin
  529.                     if (voter[id] = false) then begin
  530.                         c:=0;
  531.                         for i := 1 to (mix*2) do if (MixList[i] <> '') then inc(c,1);
  532.                         if (VoteN=false) then begin
  533.                             VoteN := true;
  534.                             Time := 15;
  535.                         end else inc(Time,5);
  536.                         voter[id] := true;
  537.                         inc(Votes4,1);
  538.                         DrawTextEx(0,51,'Vote to nextmap - '+inttostr(Votes4)+'/'+inttostr(iif(c>=mix,mix,c))+' ('+inttostr(time)+'s)',140,GOOD,0.075,180,2);
  539.                         DrawTextEx(0,55,'                ('+NextMap+')',140,GOOD,0.075,180,16);
  540.                         CheckVotes();
  541.                     end else WriteConsole(0,'You have already voted!',BAD);
  542.                 end else WriteConsole(ID,'Takes vote per restarting the match.',BAD);
  543.             end else WriteConsole(ID,'Currently, the vote per mixing teams.',BAD);
  544.         end else WriteConsole(ID,'Currently, the vote for the off match.',BAD);
  545.     end else WriteConsole(ID,'You can`t vote for nextmap, without being in the match.',BAD);
  546. end;
  547.  
  548. procedure OnLeaveGame(ID, Team: byte; Kicked: boolean);
  549. var i: byte; c: integer;
  550. begin
  551.     if (PlayerInMix[ID] = true) then begin
  552.  
  553.         for i := 1 to 8 do if (MixList[i] = GetPlayerStat(ID,'Name')) then MixList[i] := '';    //Usun z listy
  554.  
  555.         c:=0;
  556.         for i := 1 to 8 do if (MixList[i] = '') then inc(c,1); 
  557.         if (c=8) then begin                 //By Dominik
  558.             Mix:=0;                         //Wylacz mix gdy brak graczy
  559.             matchon:=false;
  560.         end;
  561.  
  562.         SubCheck(ID,1,false,1);                     //Dodaj innego
  563.  
  564.         if (voter[id] = true) then begin
  565.             if (Votes > 0) then dec(Votes,1);               //Jesli glosowal, usun jego glos
  566.             if (Votes2 > 0) then dec(Votes2,1);
  567.             if (Votes3 > 0) then dec(Votes3,1);
  568.             if (Votes4 > 0) then dec(Votes4,1);
  569.             CheckVotes();
  570.         end;
  571.     end;
  572.     ResVar(ID);                                     //Reset zmiennych
  573.  
  574.     if (Mix=1) then WriteConsole(0,iif(Mix=1,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2],'-=2=-'),''),GOOD) else if (Mix=2) then WriteConsole(0,iif(Mix=2,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2]+',','-=2=-')+' '+iif(MixList[3]<>'',MixList[3]+',','-=3=-')+' '+iif(MixList[4]<>'',MixList[4],'-=4=-'),''),GOOD) else if (Mix=3) then WriteConsole(0,iif(Mix=3,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2]+',','-=2=-')+' '+iif(MixList[3]<>'',MixList[3]+',','-=3=-')+' '+iif(Mix=3,iif(MixList[4]<>'',MixList[4]+',','-=4=-')+' '+iif(MixList[5]<>'',MixList[5]+',','-=5=-')+' '+iif(MixList[6]<>'',MixList[6],'-=6=-'),''),''),GOOD) else if (Mix=4) then WriteConsole(0,iif(Mix=4,iif(MixList[1]<>'',MixList[1]+',','-=1=-')+' '+iif(MixList[2]<>'',MixList[2]+',','-=2=-')+' '+iif(MixList[3]<>'',MixList[3]+',','-=3=-')+' '+iif(MixList[4]<>'',MixList[4]+',','-=4=-')+' '+iif(Mix=4,iif(MixList[5]<>'',MixList[5]+',','-=5=-')+' '+iif(MixList[6]<>'',MixList[6]+',','-=6=-')+' '+iif(MixList[7]<>'',MixList[7]+',','-=7=-')+' '+iif(MixList[8]<>'',MixList[8],'-=8=-'),''),''),GOOD);
  575. end;
  576.  
  577. procedure AppOnIdle(Ticks: integer);
  578. var i: byte; c:integer;
  579. begin
  580.     DrawTextEx(0,49,'MIX '+iif((mix<>0),'ON','OFF')+'!',140,iif((mix<>0),GOOD,BAD),0.075,705,2);    //Mix on off prawy rog 553 dol 545
  581.     if (mix<>0) then DrawTextEx(0,50,'('+inttostr(mix)+'vs'+inttostr(mix)+')',140,iif((mix<>0),GOOD,BAD),0.075,719,13);
  582.    
  583.     if (Time>0) then begin
  584.         dec(time,1);
  585.  
  586.         c:=0;
  587.         for i := 1 to (mix*2) do if (MixList[i] <> '') then inc(c,1);
  588.  
  589.         if (Votes<>0) then DrawTextEx(0,51,'Vote to OFF - '+inttostr(Votes)+'/'+inttostr(iif(c>=mix,mix,c))+' ('+inttostr(time)+'s)',140,GOOD,0.075,180,2);
  590.         if (Time=0) then begin
  591.             Voteo := false;
  592.             Votes := 0;
  593.             for i := 1 to 32 do if (GetPlayerStat(i, 'Active')=true) then voter[i] := false;
  594.             DrawTextEx(0,51,'Vote to OFF - Failure!',140,BAD,0.075,180,2);
  595.         end;
  596.         if (Votes2<>0) then DrawTextEx(0,51,'Vote to Restart - '+inttostr(Votes2)+'/'+inttostr(iif(c>=mix,mix,c))+' ('+inttostr(time)+'s)',140,GOOD,0.075,180,2);
  597.         if (Time=0) then begin
  598.             Voterr := false;
  599.             Votes2 := 0;
  600.             for i := 1 to 32 do if (GetPlayerStat(i, 'Active')=true) then voter[i] := false;
  601.             DrawTextEx(0,51,'Vote to Reset - Failure!',140,BAD,0.075,180,2);
  602.         end;
  603.         if (Votes3<>0) then DrawTextEx(0,51,'Vote to mix teams - '+inttostr(Votes3)+'/'+inttostr(iif(c>=mix,mix,c))+' ('+inttostr(time)+'s)',140,GOOD,0.075,180,2);
  604.         if (Time=0) then begin
  605.             Voterm := false;
  606.             Votes3 := 0;
  607.             for i := 1 to 32 do if (GetPlayerStat(i, 'Active')=true) then voter[i] := false;
  608.             DrawTextEx(0,51,'Vote to mix teams - Failure!',140,BAD,0.075,180,2);
  609.         end;
  610.         if (Votes4<>0) then begin
  611.             DrawTextEx(0,51,'Vote to nextmap - '+inttostr(Votes4)+'/'+inttostr(iif(c>=mix,mix,c))+' ('+inttostr(time)+'s)',140,GOOD,0.075,180,2);
  612.             DrawTextEx(0,55,'               ('+NextMap+')',140,GOOD,0.075,180,16);
  613.         end;
  614.         if (Time=0) then begin
  615.             VoteN := false;
  616.             Votes4 := 0;
  617.             for i := 1 to 32 do if (GetPlayerStat(i, 'Active')=true) then voter[i] := false;
  618.             DrawTextEx(0,51,'Vote to nextmap - Failure!',140,BAD,0.075,180,2);  DrawTextEx(0,55,'',140,GOOD,0.075,180,16);
  619.         end;
  620.     end;
  621.  
  622.     if (pause > 0) then begin
  623.         dec(pause,1);
  624.         if (pause = 3) then WriteConsole(0,'Unpausing!',GOOD);
  625.         if (pause > 0) and (pause < 4) then WriteConsole(0,inttostr(pause)+'...', GOOD) else begin
  626.             if (pause = 0) then begin
  627.                 WriteConsole(0,'GO GO GO!',GOOD);
  628.                 Command('/unpause');
  629.             end;
  630.         end;
  631.     end;
  632. end;
  633.  
  634. procedure SerRes();
  635. var i:byte;
  636. begin
  637.     Mix := 0;
  638.     for i := 1 to 32 do if (GetPlayerStat(i, 'Active')=true) then begin
  639.         ResVar(i);
  640.         prewteam[i] := GetPlayerStat(i,'Team');
  641.     end;
  642.     for i := 1 to 8 do MixList[i] := '';
  643.     Votes := 0;
  644.     Votes2 := 0;
  645.     Votes3 := 0;
  646.     Votes4 := 0;
  647.     Voteo := false;
  648.     Voterr := false;
  649.     VoterM := false;
  650.     VoteN := false;
  651.     matchon := false;
  652.     Anty:=0;
  653.     mixteams:=false;
  654. end;
  655.  
  656. procedure OnMapChange(NewMap: String);
  657. begin
  658.     if (Anty<>1) then SerRes();
  659.     Anty:=0;
  660. end;
  661.  
  662. procedure ActivateServer();
  663. begin
  664.     SerRes();
  665. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!