New cs launcher

Contenu du snippet

Cs launcher codé en 2 heures (le code n'est pas optimisé mais il fonctionne)
gère une liste de favoris permet de changer de pseudo etc..c'est en dialogs

Source / Exemple :


;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

Conclusion :


faites ce que vous voulez vous pouvez ripper je m'en fou mais laissez au moins mon pseudo..

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.