on *: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
	else {
	msg $chan Sorry but you're not in our pug list.
	}
    :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
  }
}