PICK-UP SCRIPT

;-------------------------------------------------------------------------
;Autheur: Lodtripe               Mail: lodtripe@clan-ck.com
;    
;Script: Pickup Organizer                     
;-------------------------------------------------------------------------        

dialog pickup {
  title "Pick-up Script By Lodtripe"
  size -1 -1 136 191
  option dbu
  edit "", 10, 66 12 67 10
  text "Chanel du Pick-up :", 11, 5 13 54 8, center
  text "Map(s) :", 12, 5 31 54 8, center
  edit "", 13, 66 30 67 10
  edit "", 14, 66 47 67 10
  text "Ip Serveur :", 15, 5 48 54 8, center
  text "Pass Serveur:", 16, 5 64 54 8, center
  edit "", 17, 66 63 67 10
  box "Group Box", 51, -20 -125 160 255
  check "Mettre le Statut du pick-up en topic du chanel", 19, 4 133 122 10
  check "Prévenir du pick-up en /amsg", 20, 4 148 124 10
  button "Go !", 21, 19 171 37 12, ok
  link "www.lod-script.fr.st", 22, 81 178 52 8
  radio "Cs 1.5", 29, 47 96 37 10, group
  radio "Cs 1.6", 30, 92 96 36 10
  text "Version :", 31, 8 97 27 8
  check "Donner un Tag au team A et B", 1, 17 112 88 10
  text "Nombre de place :", 50, 3 79 57 8, center
  edit "", 18, 66 78 67 10
  menu "Fenetre", 9
  item "Quitter", 25, 9, cancel
}

dialog changepck {
  title "Modification du pickup"
  size -1 -1 136 128
  option dbu
  edit %chan.gather, 10, 66 12 67 10
  text "Chanel du Pick-up :", 11, 5 13 54 8, center
  text "Map(s) :", 12, 5 31 54 8, center
  edit %pick.map, 13, 66 30 67 10
  edit %pick.server, 14, 66 47 67 10
  text "Ip Serveur :", 15, 5 48 54 8, center
  text "Pass Serveur:", 16, 5 66 54 8, center
  edit %pick.pass, 17, 67 64 67 10
  button "Go !", 21, 12 107 37 12, ok
  link "www.lod-script.fr.st", 22, 74 114 52 8
  check "Modifier / Ajouter un Tag au team A et B", 40, 12 84 112 10
  menu "Fenetre", 9
  item "Quitter", 25, 9, cancel
}


dialog nteam {
  title "Tag Team"
  size -1 -1 134 77
  option dbu
  text "Tag de la team A :", 2, 4 21 52 9
  edit "", 3, 63 19 60 10
  text "Tag de la team B :", 4, 4 40 52 8
  edit "", 5, 63 38 61 10
  button "ok", 6, 48 59 37 12, ok
  text "Donner un tag au team :", 7, 4 4 66 8
}

dialog nteam2 {
  title "Tag Team"
  size -1 -1 134 77
  option dbu
  text "Tag de la team A :", 41, 4 21 52 9
  edit %namea, 42, 63 19 60 10
  text "Tag de la team B :", 43, 4 40 52 8
  edit %nameb, 44, 63 38 61 10
  button "ok", 45, 48 59 37 12, ok
  text "Donner un tag au team :", 46, 4 4 66 8
}

alias ntopic {
  if (%topic.ok == 1) { 
if (%name.on == 1) { topic %chan.gather 4Pickup %csversion en cour2 ??7 Team A 4( %pick.slotA / %place ) 14:: %namea 14:3 %a 144147 Team B 4( %pick.slotA / %place ) 14:: %nameb 14:3 %b 2?? 7Map:3 %pick.map 2?? 7Serveur:3 %pick.server }
   elseif (%name.on != 1) { topic %chan.gather 4Pickup %csversion en cour2 ??7 Team A 4( %pick.slotA / %place ) 14:3 %a 144147 Team B 4( %pick.slotB / %place ) 14:3 %b 2?? 7Map:3 %pick.map 2?? 7Serveur:3 %pick.server }
}
}

alias oldtopic { 
  if ( %topic.ok == 1) { topic %chan.gather %stopic } 
}

alias pick.amsg {
 amsg 4Pickup3 %csversion 4Lancé sur3 %chan.gather 4, Rejoint nous !!
}

alias start { msg %chan.gather 4Pickup lancé! 12Pass fournit en Pv. | pick.pass }

alias pick.pass {
    var %zi 0
    :suivant
    inc %zi
    msg $wildtok(%pick.nick,*,%zi,59) 14Le Pickup ready, 6IP:4 %pick.server 3- 6Pass:4 %pick.pass
    msg $wildtok(%pick.nick,*,%zi,59) 2Team 4A 3::4Tag: %namea 3::4 %a 14?4? 4?14? 2Team 7B 3::7Tag: %nameb 3::7 %b
    if ( %zi >= $wildtok(%pick.nick,*,0,59) ) goto end
    else goto suivant
    :end
    reset
}

alias reset { oldtopic | unset %pick.slotA | unset %pick.slotB | unset %name.on | set %namea Team-A | set %nameb Team-B | unset %csversion | unset %a | unset %topic.ok | unset %pick.on | unset %b | unset %pick.nick | unset %pick.map | set %nombre-placeA 5 | set %nombre-placeB 5 | set %chan.gather Pas_de_pickup_actif | unset %pick.server | unset %pick.pass }


alias adda1 {
 if (%nombre-placeA == 0) { msg $chan %namea complet }
  elseif (%nombre-placeA >= 0) {
if ( %adda1 !isin %pick.nick && %adda1 ison %chan.gather ) { dec %nombre-placeA | inc %pick.slotA | set %pick.nick $addtok(%pick.nick,%adda1,59) | msg $chan 6Playeur %adda1 Ajouté au groupe A :4Tag: %namea 3:: 6Reste7 %nombre-placeA places6 dans le Groupe A | set %a $addtok(%a,%adda1,59) | ntopic }
    elseif ( %adda1 !ison %chan.gather ) { echo -a 4 Attention Pseudo %adda1 n'est pas présent sur %chan.gather , ou il est mal taper. Réessayer !! }
    elseif ( %adda1 isin %pick.nick ) { echo -a 4 Le pseudo %adda1 est deja present dans le pickup }
}
}

alias addb1 {
 if (%nombre-placeB == 0) { msg $chan %nameb complet }
  elseif ( %nombre-placeB >= 0 ) {
if ( %addb1 !isin %pick.nick && %addb1 ison %chan.gather ) { dec %nombre-placeB | inc %pick.slotB | set %pick.nick $addtok(%pick.nick,%addb1,59) | msg $chan 6Playeur %addb1 Ajouté au groupe B :4Tag: %nameb 3:: 6Reste7 %nombre-placeB places6 dans le Groupe B | set %b $addtok(%b,%addb1,59) | ntopic }
    elseif ( %addb1 !ison %chan.gather ) { echo -a 4 Attention Pseudo %addb1 n'est pas présent sur %chan.gather , ou il est mal taper. Réessayer !! }
    elseif ( %addb1 isin %pick.nick ) { echo -a 4 Le pseudo %addb1 est deja présent dans le pickup }
}
}

alias supa1 {
if (%supa1 isin %pick.nick) {
 if ( %supa1 isin %a ) { inc %nombre-placeA | dec %pick.slotA | set %a $replace(%a, %supa1, $chr(256)) }
  if ( $nick isin %b ) { inc %nombre-placeB | dec %pick.slotB | set %b $replace(%b, %supa1, $chr(256)) }
  set %pick.nick $replace(%pick.nick, %supa1, $chr(256))
  msg $chan 4 %supa1 à été effacé 
 ntopic
 }
else echo -a 4 Impossible de supprimer %supa1, car pseudo non enregistré. Taper le pseudo exactement comme il a été rentré.
 }



on 1:dialog:pickup:sclick:21:{

 set %chan.gather $did(10)
 set %pick.map $did(13)
 set %pick.server $did(14)
 set %pick.pass $did(17)
 set %nombre-placeA $did(18)
 set %nombre-placeB $did(18)
 set %place $did(18)
 set %pick.on 1
 set %stopic $chan(%chan.gather).topic
   if ($did(pickup,19).state == 0) { set %topic.ok 0 }
  elseif ($did(pickup,19).state == 1) { set %topic.ok 1 }
   if ($did(pickup,20).state == 1) { pick.amsg }
   if ($did(pickup,29).state == 1) { set %csversion Cs 1.5 }
   if ($did(pickup,30).state == 1) { set %csversion Cs 1.6 }
 echo -a 4 Pickup Lancé sur %chan.gather 
msg %chan.gather 4Pickup7 %csversion 4Lancé 3?? 2Aide6 avec commande !pickup
}

on 1:dialog:changepck:sclick:21:{

 set %chan.gather $did(10)
 set %pick.map $did(13)
 set %pick.server $did(14)
 set %pick.pass $did(17)
 set %pick.on 1
echo -a 4 Modification du Pickup pour %chan.gather effectué 
msg %chan.gather 4Pickup %csversion Lancé 3?? 2Aide6 avec commande !pickup
}

on 1:dialog:pickup:sclick:1:{ dialog -md nteam nteam }

on 1:dialog:changepck:sclick:40:{ dialog -md nteam2 nteam2 }

on 1:dialog:nteam:sclick:6:{

 set %namea $did(3)
 set %nameb $did(5)
 set %name.on 1
}

on 1:dialog:nteam2:sclick:45:{

 set %namea $did(42)
 set %nameb $did(44)
 set %name.on 1
}


on *:PART:%chan.gather:{

if ( $nick isin %pick.nick ) {
 if ( $nick isin %a ) { inc %nombre-placeA | set %a $replace(%a, $nick, $chr(256)) }
  if ( $nick isin %b ) { inc %nombre-placeB | set %b $replace(%b, $nick, $chr(256)) }
  set %pick.nick $replace(%pick.nick, $nick, $chr(256))
  msg %chan.gather 4 $nick quit %chan.gather
  msg %chan.gather 4 $nick à été supprimer du pickup
 }
}

on *:QUIT:{

 if ( $chan == %chan.gather ) {
if ( $nick isin %pick.nick ) {
 if ( $nick isin %a ) { inc %nombre-placeA | set %a $replace(%a, $nick, $chr(256)) }
  if ( $nick isin %b ) { inc %nombre-placeB | set %b $replace(%b, $nick, $chr(256)) }
  set %pick.nick $replace(%pick.nick, $nick, $chr(256))
  msg %chan.gather 4 $nick quit %chan.gather
  msg %chan.gather 4 $nick  à été supprimer du pickup
 }
}
 }

ON *:JOIN:%chan.gather: { 

  notice $nick 4 Pick-up En cours , tape !pickup pour obtenir l'aide
}

on *:KICK:%chan.gather:{

if ( $knick  isin %pick.nick ) {
 if ( $knick  isin %a ) { inc %nombre-placeA | set %a $replace(%a, $knick, $chr(256)) }
  if ( $knick  isin %b ) { inc %nombre-placeB | set %b $replace(%b, $knick, $chr(256)) }
  set %pick.nick $replace(%pick.nick, $knick, $chr(256))
  msg %chan.gather 4 $knick  à été kicker de %chan.gather
  msg %chan.gather 4 $knick  à été supprimer du pickup 
 }
}

on *:NICK:{ 

if ( $nick isin %a ) { set %adda1 $newnick | set %pick.nick %pick.nick %adda1 | msg %chan.gather 7 $nick 6est remplacer par3 $newnick | set %a %a %adda1 | set %a $replace(%a, $nick, $chr(256)) | set %pick.nick $replace(%pick.nick, $nick, $chr(256)) }
if ( $nick isin %b ) { set %addb1 $newnick | set %pick.nick %pick.nick %addb1 | msg %chan.gather 7 $nick 6est remplacer par3 $newnick | set %b %b %addb1 | set %b $replace(%b, $nick, $chr(256)) | set %pick.nick $replace(%pick.nick, $nick, $chr(256)) }
  }

ON *:TEXT:!add *:%chan.gather:{

  if ( %nombre-placeA == 0 ) { msg $chan %namea complet }
  elseif ( %nombre-placeA >= 0 ) {
if ( $2 == a ) {
if ( $nick !isin %pick.nick ) { dec %nombre-placeA | inc %pick.slotA | set %pick.nick $addtok(%pick.nick,$nick,59) | msg $chan 6Playeur $nick Ajouté au goupe A :4Tag: %namea 3:: 6Reste7 %nombre-placeA places6 dans le Groupe A | set %a $addtok(%a,$nick,59) | ntopic }
 else /notice $nick 4On ne s'inscrit pas 2 fois merci.
 }
 }

  if ( %nombre-placeB == 0 ) { msg $chan %nameb complet }
  elseif ( %nombre-placeB >= 0 ) {
if ( $2 == b ) {
if ( $nick !isin %pick.nick ) { dec %nombre-placeB | inc %pick.slotB | set %pick.nick $addtok(%pick.nick,$nick,59) | msg $chan 6Playeur $nick Ajouté au groupe B :4Tag: %nameb 3:: 6Reste7 %nombre-placeB places6 dans le Groupe B | set %b $addtok(%b,$nick,59) | ntopic }
 else notice $nick 4Tu es deja inscrit.
 }
  }
if ($2 == $null) { notice $nick 4Rentre !add a ou !add b pour faire etre ajouté a l'un des groupes }
 }

on *:INPUT:%chan.gather:{

 if ($1 == !add_a) { set %adda1 $me | adda1 }
  if ($1 == !add_b) { set %addb1 $me | addb1 }
   if ($1 == !remove) { set %supa1 $me | supa1 }
  if ($1 == !statut) { pick.statut }
 if ($1 == !start) { start }
if ($1 == !pickup) { echo -a 4L'aide est disponible que pour les personnes extérieures et en pv. }
}

ON *:TEXT:!remove:%chan.gather:{

if ( $nick isin %pick.nick ) {
 if ( $nick isin %a ) { inc %nombre-placeA | dec %pick.slotA | set %a $replace(%a, $nick, $chr(256)) }
  if ( $nick isin %b ) { inc %nombre-placeB | dec %pick.slotB | set %b $replace(%b, $nick, $chr(256)) }
  set %pick.nick $replace(%pick.nick, $nick, $chr(256))
  msg $chan 4 $nick supprimé du pickup. 
 ntopic 
 }
else notice $nick 4Tu n'es pas encore inscrit au pickup.
 }


on *:TEXT:!pickup:%chan.gather:{

  msg $nick 4Pickup help 3: 
  msg $nick 4 
  msg $nick 6T'ajouter a la %namea 3::7 !add a 
  msg $nick 6T'ajouter a la %nameb 3::7 !add b 
  msg $nick 6Te supprimer des teams 3::7 !remove 
  msg $nick 6Statut des teams 3::7 !Statut
  msg $nick 4 
  msg $nick 2[ 6Pickup Script by 4Lodtripe3 ??7 http://www.lod-script.fr.st 2] 
 }



on *:TEXT:!statut:%chan.gather:{ pick.statut }

alias pick.statut {  

if (%name.on == 1) {
  msg %chan.gather 4 Team 7A 4( %pick.slotA / %place ) 14:6 %namea 3::7 %a 
  msg %chan.gather 4 Team 7B 4( %pick.slotB / %place ) 14:6 %nameb 3::7 %b 
  msg %chan.gather 4Info pickup 3:: 6Maps:7 %pick.map 14|12|14| 6Serveur %csversion :7 %pick.server
  }
elseif (%name.on != 1) {
  msg %chan.gather 4 %namea ( %pick.slotA / %place ) 3::7 %a 
  msg %chan.gather 4 %nameb ( %pick.slotB / %place ) 3::7 %b 
  msg %chan.gather 4Info pickup 3:: 6Maps:7 %pick.map 14|12|14| 6Serveur %csversion :7 %pick.server 
}
}

on *:load:{ unset %a | unset %pick.slotA | unset %pick.slotB | set %namea Team-A | set %nameb Team-B | unset %b | unset %pick.nick | set %chan.gather Pas_de_pickup_actif | set %nombre-placeA 5 | set %nombre-placeB 5 | echo -a 4 Pickup Organizer est maintenant chargé | echo -a 4Script by Lodtripe }



menu menubar,channel {
-
:: Pickup organizer ::
.Activer:{ dialog -md pickup pickup | set %nombre-placeA 5 | set %nombre-placeB 5 }
.Modifier pickup Actif:{ if (%pick.on == 1) { dialog -md changepck changepck } | else echo -a 4 Aucun Pickup Actif }
.Désactiver:{ reset | echo -a 4 Pickup arreté sur %chan.gather }
.-
.Reset:{ reset | echo -a 4Toutes les valeurs du pickup organizer sont effacé ! }
.-
.Mode Manuelle          
..Ajouter
...Team A:{ set %adda1 $$?="Playeur name" | adda1 } 
...Team B:{ set %addb1 $$?="Playeur name" | addb1 }
..Effacer:{ set %supa1 $$?="Playeur name" | supa1 } 
}