rendered paste bodyon *:LOAD:{ echo -a ***mIRC pug script by Anthony Dupont and DJSoulz LOADED*** }
on *:UNLOAD:{ echo -a ***mIRC pug script by Anthony Dupont and DJSoulz UNLOADED*** }
on *:TEXT:.addpugadmin *:#CDQpug:{
if ($ulevel == 500) {
auser -a 200 $address($2,2)
notice $nick Admin $2 as been added in the pug admin database.
}
}
on *:TEXT:.pugadminhelp:#cdqpug:{
if ($ulevel >= 200) {
timer 1 1 /notice $nick First of all, type /msg $me servip IP:PORT of the server
timer 1 2 /notice $nick Second, type /msg $me servpass PASSWORD of the server
timer 1 3 /notice $nick Third, type .start
timer 1 4 /notice $nick Now, chose the map with .map Map Here
timer 1 5 /notice $nick Wait for people to type .add ct/t ( Counter-terrorist - Terrorist )
timer 1 6 /notice $nick Then, when you are full ( 10/10 ), type .go
}
}
on *:TEXT:servip *:?:{
if ($ulevel >= 200) {
set %servip $$2-
msg $nick Your server ip for the pug as been changed to $$2-
}
}
on *:TEXT:servpass *:?:{
if ($ulevel >= 200) {
set %servpass $$2-
msg $nick Your server password for the pug as been changed to $$2-
}
}
on *:TEXT:.start:#cdqpug:{
if ($ulevel >= 200) {
set %pugadmin $nick
set %pugstart 1
topic $chan 4,1· 0Communauté du Québec PUG NETWORK 4· 0,10,1www.cdquebec.com4,1 · 0,1A PUG has been started by $nick 4,1· 0,1Map: %pugmap 4,1·
amsg 4,1· 0Communauté du Québec PUG NETWORK 4·0 A PUG has been started! Type .add ct/t in #cdqpug to JOIN for free! 4,1·
}
}
ON *:TEXT:.add*:#cdqpug:{
if (%pugstart != 1) {
msg $chan Sorry but our pug is not started yet.
}
else {
if ($2 == Terroriste) {
if (($nick isin %ctplayer.1) || ($nick isin %ctplayer.2) || ($nick isin %ctplayer.3) || ($nick isin %ctplayer.4) || ($nick isin %ctplayer.5)) {
msg $chan Sorry but you are already in our pug list.
}
else if (($nick isin %tplayer.1) || ($nick isin %tplayer.2) || ($nick isin %tplayer.3) || ($nick isin %tplayer.4) || ($nick isin %tplayer.5)) {
msg $chan Sorry but you are already in our pug list.
}
else {
if (%tplayer.1 == None) {
set %tplayer.1 $nick
msg $chan User added in T slots 1
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
}
else if (%tplayer.2 == None) {
set %tplayer.2 $nick
msg $chan User added in T slots 2
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
}
else if (%tplayer.3 == None) {
set %tplayer.3 $nick
msg $chan User added in T slots 3
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
}
else if (%tplayer.4 == None) {
set %tplayer.4 $nick
msg $chan User added in T slots 4
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
}
else if (%tplayer.5 == None) {
set %tplayer.5 $nick
msg $chan User added in T slots 5
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
}
}
}
if ($2 == Counter-Terroriste) {
if (($nick isin %tplayer.1) || ($nick isin %tplayer.2) || ($nick isin %tplayer.3) || ($nick isin %tplayer.4) || ($nick isin %tplayer.5)) {
msg $chan Sorry but you are already in our pug list.
}
else if (($nick isin %ctplayer.1) || ($nick isin %ctplayer.2) || ($nick isin %ctplayer.3) || ($nick isin %ctplayer.4) || ($nick isin %ctplayer.5)) {
msg $chan Sorry but you are already in our pug list.
}
else {
if (%ctplayer.1 == None) {
set %ctplayer.1 $nick
msg $chan User added in CT slots 1
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
}
else if (%ctplayer.2 == None) {
set %ctplayer.2 $nick
msg $chan User added in CT slots 2
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
}
else if (%ctplayer.3 == None) {
set %ctplayer.3 $nick
msg $chan User added in CT slots 3
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
}
else if (%ctplayer.4 == None) {
set %ctplayer.4 $nick
msg $chan User added in CT slots 4
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
}
else if (%ctplayer.5 == None) {
set %ctplayer.5 $nick
msg $chan User added in CT slots 5
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
}
}
}
}
}
ON *:TEXT:.kick*:#cdqpug:{
if ($ulevel == 200) {
/cs #cdqpug kick $2 $3-
if ($2 == %tplayer.1) { set %tplayer.1 None }
else if ($2 == %tplayer.2) { set %tplayer.2 None }
else if ($2 == %tplayer.3) { set %tplayer.3 None }
else if ($2 == %tplayer.4) { set %tplayer.4 None }
else if ($2 == %tplayer.5) { set %tplayer.5 None }
else if ($2 == %ctplayer.1) { set %ctplayer.1 None }
else if ($2 == %ctplayer.2) { set %ctplayer.2 None }
else if ($2 == %ctplayer.3) { set %ctplayer.3 None }
else if ($2 == %ctplayer.4) { set %ctplayer.4 None }
else if ($2 == %ctplayer.5) { set %ctplayer.5 None }
}
}
ON *:TEXT:.rem:#cdqpug:{
if (%pugstart == 1) {
if ($nick == %tplayer.1) goto tplayer1rem
else if ($nick == %tplayer.2) goto tplayer2rem
else if ($nick == %tplayer.3) goto tplayer3rem
else if ($nick == %tplayer.4) goto tplayer4rem
else if ($nick == %tplayer.5) goto tplayer5rem
else if ($nick == %ctplayer.1) goto ctplayer1rem
else if ($nick == %ctplayer.2) goto ctplayer2rem
else if ($nick == %ctplayer.3) goto ctplayer3rem
else if ($nick == %ctplayer.4) goto ctplayer4rem
else if ($nick == %ctplayer.5) goto ctplayer5rem
:tplayer1rem
set %tplayer.1 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:tplayer2rem
set %tplayer.2 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:tplayer3rem
set %tplayer.3 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:tplayer4rem
set %tplayer.4 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:tplayer5rem
set %tplayer.5 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer1rem
set %ctplayer.1 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer2rem
set %ctplayer.2 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer3rem
set %ctplayer.3 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer4rem
set %ctplayer.4 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer5rem
set %ctplayer.5 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
}
}
on *:TEXT:.map *:#cdqpug:{
if ($ulevel == 500) {
if (%pugstart == 1) {
set %pugmap $$2-
notice $nick Pug map as been changed to $$2-
topic $chan 4,1· 0Communauté du Québec PUG NETWORK 4· 0,10,1www.cdquebec.com4,1 · 0,1A PUG as been started by $nick 4,1· 0,1Map: %pugmap 4,1·
}
}
}
on *:TEXT:.go:#cdqpug:{
if ($ulevel == 500) {
notice $nick The pug as been started. The ip %servip and the pass %servpass as been sent to the players.
timer 1 1 /msg %tplayer.1 4,1· 0The PUG as been started 4,1· 0Map: %pugmap 4,1· 0Admin: %pugadmin 4,1· 0Ip: %servip 4,1· 0Password: %servpass 4,1·
timer 1 1 /msg %ctplayer.1 4,1· 0The PUG as been started 4,1· 0Map: %pugmap 4,1· 0Admin: %pugadmin 4,1· 0Ip: %servip 4,1· 0Password: %servpass 4,1·
timer 1 2 /msg %tplayer.2 4,1· 0The PUG as been started 4,1· 0Map: %pugmap 4,1· 0Admin: %pugadmin 4,1· 0Ip: %servip 4,1· 0Password: %servpass 4,1·
timer 1 2 /msg %ctplayer.2 4,1· 0The PUG as been started 4,1· 0Map: %pugmap 4,1· 0Admin: %pugadmin 4,1· 0Ip: %servip 4,1· 0Password: %servpass 4,1·
timer 1 3 /msg %tplayer.3 4,1· 0The PUG as been started 4,1· 0Map: %pugmap 4,1· 0Admin: %pugadmin 4,1· 0Ip: %servip 4,1· 0Password: %servpass 4,1·
timer 1 3 /msg %ctplayer.3 4,1· 0The PUG as been started 4,1· 0Map: %pugmap 4,1· 0Admin: %pugadmin 4,1· 0Ip: %servip 4,1· 0Password: %servpass 4,1·
timer 1 4 /msg %tplayer.4 4,1· 0The PUG as been started 4,1· 0Map: %pugmap 4,1· 0Admin: %pugadmin 4,1· 0Ip: %servip 4,1· 0Password: %servpass 4,1·
timer 1 4 /msg %ctplayer.4 4,1· 0The PUG as been started 4,1· 0Map: %pugmap 4,1· 0Admin: %pugadmin 4,1· 0Ip: %servip 4,1· 0Password: %servpass 4,1·
timer 1 5 /msg %tplayer.5 4,1· 0The PUG as been started 4,1· 0Map: %pugmap 4,1· 0Admin: %pugadmin 4,1· 0Ip: %servip 4,1· 0Password: %servpass 4,1·
timer 1 5 /msg %ctplayer.5 4,1· 0The PUG as been started 4,1· 0Map: %pugmap 4,1· 0Admin: %pugadmin 4,1· 0Ip: %servip 4,1· 0Password: %servpass 4,1·
timer 1 7 /topic $chan 4,1· 0Communauté du Québec PUG NETWORK 4· 0,10,1www.cdquebec.com4,1 · 0No PUG started.4,1 ·
timer 1 8 /set %pugmap Not Chosen
timer 1 8 /set %tplayer.1 None
timer 1 8 /set %tplayer.2 None
timer 1 8 /set %tplayer.3 None
timer 1 8 /set %tplayer.4 None
timer 1 8 /set %tplayer.5 None
timer 1 8 /set %ctplayer.1 None
timer 1 8 /set %ctplayer.2 None
timer 1 8 /set %ctplayer.3 None
timer 1 8 /set %ctplayer.4 None
timer 1 8 /set %ctplayer.5 None
timer 1 8 /set %pugadmin None
timer 1 8 /set %pugstart 0
timer 1 8 /set %servpass Not chosen
timer 1 8 /set %servip Not chosen
}
}
on *:JOIN:#CDQPUG:{
if ($ulevel >= 200) {
notice $nick Welcome to $chan ! If a pug is started, you can type .add ct or .add t
notice $nick You has been identified as a pug admin. Type .pugadminhelp to see how to start a pug.
}
else {
notice $nick Welcome to $chan ! If a pug is started, you can type .add ct or .add t
}
}