https://wiki.soldat.pl/index.php?action=history&feed=atom&title=%21nextmap_Voting 2026-05-26T02:31:40Z Revision history for this page on the wiki MediaWiki 1.30.0 https://wiki.soldat.pl/index.php?title=!nextmap_Voting&diff=41&oldid=prev 2012-08-14T16:49:51Z

<p>Created page with &quot;===!nextmap Voting by Curt=== &lt;source lang=&quot;pascal&quot;&gt; const Color = $FFFFFFFF; VotePerc = 51; VoteTime = 30; AddTime = 5; var Go: boolean; VFor,Time: byte; Voted...&quot;</p> <p><b>New page</b></p><div>===!nextmap Voting by Curt===<br /> &lt;source lang=&quot;pascal&quot;&gt;<br /> const<br /> Color = $FFFFFFFF;<br /> VotePerc = 51;<br /> VoteTime = 30;<br /> AddTime = 5;<br /> <br /> var<br /> Go: boolean;<br /> VFor,Time: byte;<br /> Voted: array[1..32] of boolean;<br /> <br /> procedure AppOnIdle(Ticks: integer);<br /> var<br /> i: byte;<br /> begin<br /> if Time &gt; 0 then Time := Time - 1 else if Go then begin<br /> Go := false;<br /> for i := 1 to 32 do Voted[i] := false;<br /> VFor := 0;<br /> Time := 0;<br /> WriteConsole(0,'Map vote failed.',Color);<br /> end;<br /> end;<br /> <br /> procedure OnMapChange(NewMap: String);<br /> var<br /> i: byte;<br /> begin<br /> Go := false;<br /> for i := 1 to 32 do Voted[i] := false;<br /> VFor := 0;<br /> Time := 0;<br /> end;<br /> <br /> procedure OnPlayerSpeak(ID: byte; Text: string);<br /> var<br /> i: byte;<br /> begin<br /> if Text = '!nextmap' then if Voted[ID] = false then begin<br /> if Go = false then Time := VoteTime else Time := Time + AddTime;<br /> Go := true;<br /> Voted[ID] := true;<br /> VFor := VFor + 1;<br /> if VFor / NumPlayers * 100 &gt;= VotePerc then begin<br /> Go := false;<br /> for i := 1 to 32 do Voted[i] := false;<br /> VFor := 0;<br /> Time := 0;<br /> WriteConsole(0,'Map vote passed.',Color);<br /> Command('/nextmap');<br /> end else WriteConsole(0,'Voting percentage of needed people: ' + FloattoStr(RoundTo(VFor / NumPlayers * 100,2)) + '% / ' + InttoStr(VotePerc) + '%.',Color);<br /> end else WriteConsole(ID,'You have already voted.',Color);<br /> end;<br /> <br /> procedure OnLeaveGame(ID, Team: byte; Kicked: boolean);<br /> var<br /> i: byte;<br /> begin<br /> if Voted[ID] then begin<br /> Voted[ID] := false;<br /> VFor := VFor - 1;<br /> end else begin<br /> if NumPlayers &gt; 1 then if VFor / (NumPlayers - 1) * 100 &gt;= VotePerc then begin<br /> Go := false;<br /> for i := 1 to 32 do Voted[i] := false;<br /> VFor := 0;<br /> Time := 0;<br /> WriteConsole(0,'Map vote passed.',Color);<br /> Command('/nextmap');<br /> end;<br /> end;<br /> end;<br /> &lt;/source&gt;<br /> <br /> <br /> [[Category:Script Templates]]</div>

Freeman