NEW CS LAUNCHER

;Codé Par _NicX_

menu channel,menubar,status {
  [Cs_LauncheR]:dialog -mr cs cs 
}

dialog cs {
  title "Cs "
  size -1 -1 149 178
  option dbu
  box "Counter-Strike Launcher", 1, 1 1 147 62
  text "IP", 2, 4 11 17 8, center
  edit "", 3, 24 10 121 10
  text "L'annoncer en public ?", 5, 15 35 76 8, center
  text "Pseudo en absence ?", 8, 7 48 62 8, center
  edit %pseudocs, 9, 72 47 69 10
  button "Fermer", 10, 111 167 36 10, ok
  button "HL Répertoire", 11, 75 148 70 15
  list 12, 2 65 70 101, size hsbar vsbar
  button "Ajouter Aux favoris", 13, 95 22 50 10
  box "", 14, 73 64 74 51
  button "Ajouter", 15, 75 69 70 21
  button "Enlever", 16, 75 92 70 21
  box "", 17, 73 115 74 50
  button "Se connecter", 18, 75 120 70 15
  edit "", 19, 2 167 107 10, read
  button "Se connecter", 20, 25 22 37 10
  button "Annoncer en public", 21, 75 136 70 11
  button "On", 22, 94 34 14 9
  button "Off", 23, 109 34 14 9
}


on *:dialog:cs:init:0: { loadbuf 1-100 -o cs 12 Serverscs.jcvd | did -r cs 9 | did -a cs 9 $me | did -r cs 19 | did -a cs 19 %csRep 
}

on *:dialog:cs:sclick:22: { enable #annoncs | set %ipancs $did(cs,3) 
  if (%ipancs == $null) { echo -a Tu n'as pas entré d'ip }
  else { amsg 7,1C4,1ounter 7,1S4,1trike 7,1 IP : 4,1 %ipancs }
  set %pseudocss $did(cs,9) 
  nick %pseudocss
  unset %pseudocss
  set %pseudocsa $me
}


on *:dialog:cs:sclick:23: { disable #annoncs | /nick %pseudocsa }
on *:dialog:cs:sclick:11: { /set %csRep $sfile(c:) }
on *:dialog:cs:sclick:20: { /set %ipCs $did(cs,3) | set %pseudocss $did(cs,9) | nick %pseudocss | unset %pseudocss | /run %csRep -console -game cstrike +connect %ipCs | unset %ipCs    }
on *:dialog:cs:sclick:21: { annoncsp }
on *:dialog:cs:sclick:15: { ajoutcs }
on *:dialog:cs:sclick:16: { virecs }
on *:dialog:cs:sclick:18: { conncs }
on *:dialog:cs:sclick:13: { ajoutvcs }
on *:dialog:cs:sclick:11: { set %csRep $sfile(c:) 
  did -r cs 19 |
  did -a cs 19 %csRep 
}

on *:dialog:cs:dclick:12: { set %ipCsd $did(12).seltext | /run %csRep -console -game cstrike +connect %ipCsd | unset %ipCsd
  set %pseudocss $did(cs,9) 
  nick %pseudocss
  unset %pseudocss
}

alias ajoutvcs { 
  /write serverscs.jcvd $did(cs,3) 
  /did -a cs 12 $did(cs,3)
}

alias ajoutcs { 
  set %ipaj $$?="Entre l'ip"
  write serverscs.jcvd %ipaj
  echo -a L'ip %ipaj a bien été ajoutée à la liste
  did -a cs 12 %ipaj
  unset %ipaj
}

alias annoncsp { 
  set %anncs $did(12).seltext
  if (%anncs == $null) { echo -a Tu n'as rien sélectionné ! }
  else {
    amsg 7,1C4,1ounter 7,1S4,1trike 7,1 IP : 4,1 %anncs
    unset %anncs
  }
}

alias virecs { 
  set %vircs $did(12).sel
  if (%vircs == $null) { echo -a Tu n'as rien sélectionné ! }
  else {
    write -dw"* $+ $did(12,$did(12).sel).text $+ *" serverscs.jcvd
    echo -a L'ip $did(12).seltext a bien été effacée de la liste
    did -d cs 12 $did(12).sel
    unset %vircs
  }
}

alias conncs { 
  set %ipcsl $did(12).seltext
  if (%ipcsl == $null) { echo -a Tu n'as rien sélectionné ! }
  else {
    set %pseudocss $did(cs,9) 
    nick %pseudocss
    run %csRep -console -game cstrike +connect %ipCsl
    unset %ipcsl
    unset %pseudocss
  }
}

#annoncs on

on 1:text:!server:#: {
  if (%ipancs == $null) { //notice $nick $me ne joue pas à 7,1C4,1ounter 7,1S4,1trike }
  if (%ipancs != $null) { //notice $nick 7,1C4,1ounter 7,1S4,1trike 7,1 IP : 4,1 %ipancs
  }
}

#annoncs end