Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PICK-UP SCRIPT


Information sur la source

Catégorie :AddOns Niveau : Débutant Date de création : 12/05/2004 Date de mise à jour : 12/05/2004 14:18:25 Vu / téléchargé: 4 275 / 464

Note :
Aucune note

Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

Description

Voila un gestionnaire de Pick-up cs 1.5 et 1.6.

Particularité:

Statut du pick-up sur le topic
Rétablissement du topic a la fin du pick-up ou le désactivant
Change automatiquement le pseudo d'une personne qui change de nick
Suppression d'un nick après être partit du channel ou a été kicker
Possibilité de mettre le tag team
Un Message avertit à la personne qui rentre sur le channel que le pick-up est lancé
Possibilité de préciser si le pick-up est 1.5 ou 1.6
Peut lancer un amsg au début du pick-up
Fournit en pv le serveur + pass après avoir taper !start

 

Source

  • ;-------------------------------------------------------------------------
  • ;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 }
  • }
;-------------------------------------------------------------------------
;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 } 
}

Conclusion

Fonctionnement + instalation et detailé dans le .txt du zip
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de lsteven le 12/05/2004 08:52:24

Voila je suis encore débutant, alors je suis pres a recevoir vos critique mais soyez pas trop mechant non plus :) .

signaler à un administrateur
Commentaire de Solisoft le 12/05/2004 12:17:31

Salut,
Je n'ai pas essayer ton script je n'ai fait que lire ce que tu as mis mais j'ai vu ici 1 autre script pickup ou il fallais tapper !start mais pourquoi mettre cet option? c'est tres embetent car c'est obligé qu'il y ai toujour 1 admin qui sois la pour le tapper :s

autre chose, d'apres ce que tu as mis il n'y as pas 1 command pour quand quelqu'un tappe: !place que le bot dise combien il y en manque encore

3 eme et derniere je n'ai pas vu non plus qu'il y ai la possibilité de faire le pickup avec le nombre de joueurs voullu (pickup 4/6/8/10 personnes)

Bonne continuation, je recherche justement ce genre de script [:)]

signaler à un administrateur
Commentaire de lsteven le 12/05/2004 12:45:09

ba moi j'ai preferais mettre une commande !start juste car c'est pas aprce ke lon est 10 inscrit que tout le monde est pret ....

sinon pour le nombre de place pourkoi pas ... je vais faire ca ;)

signaler à un administrateur
Commentaire de SornDrixer le 12/05/2004 13:07:41 administrateur CS

ON *:TEXT:!remove:$( $+ %chan.gather $+ ):{ }
Puis un peu plus loin :
on *:TEXT:!pickup:%chan.gather:{ }

Pourquoi ne pas avoir fait pareil que !pickup pour le remove ?
Et tu aurais pu regrouper tout tes événements identiques, ca réduirais considérablement le code.
Aussi, tu utilises pas mal de variables, et ca fait pas très 'propre'.
Fais ca avec un fichier .ini, ou en hashtable pour que ton code soit plus rapide.

Je ne comprends pas non plus l'utilité du dialog nteam2
Tu aurais pu te passer de ce dialog, car nteam est similaire niveau items. Ou bien, tu aurais pu faire un seul dialog avec par exemple un système d'onglet pour chaque team.

Voila, sinon c'est vraiment pas mal.
Tiens une autre idée pour la suite :
Au lieu de faire gèrer ce système de pick-up par ton propre mIRC, fais ca avec un bot en socket ;)

Allez, bonne continuation.

signaler à un administrateur
Commentaire de lsteven le 12/05/2004 14:31:58

bon G ajouter la possibilité de modifier le nombre de place par team....
et dans le topic ainsi ke dans la commande !statut le rajout de (nombre_de_place_prise / nombre_de_place_dispo)

Sinon SornDrixer Tu a pas mal raison ... mais je debute et j améliorerais mon script, mais la c vrai que C foutoire, parce ke je lé refais plusieur fois et G apprit pour ce script les token et les dialog

donc voila ;)

signaler à un administrateur
Commentaire de tofu le 12/05/2004 16:58:58

essais d'améliorer le code en regroupant les events (genre mettre un seul "on text" et un seul "on dialog") puis utiliser des petites choses genre $iif etc..

signaler à un administrateur
Commentaire de maxxoucs le 21/06/2004 10:31:02

Kikoo,
tout d'abord fabuleux ce script !! gg !
Mais j'ai un tout petit soucis ( 'my connais pas en script )
La premeire fois que j'ai lancer le script il n'y a pas u de problemes :
- changement du topic ok
- les add ok
- les removes aussi
- pichup ancé etcc...

le pickup fini, je fais desactiver.

a partir de la deuxieme utilisation lorsque j'active le pick apres avoir mofifié les divers parametres le topic ne se change plus !

Impossible depuis

voila :)

Erreur du script ?

A bientot

signaler à un administrateur
Commentaire de lsteven le 05/08/2004 11:44:12

non normalement ca devrais pas

signaler à un administrateur
Commentaire de GzD le 27/12/2004 17:38:16

l'archive que je recois et systématiquement erronée .... :s

est ce que qq1 peut me fournir une URL valide svp ?

Merci d'avance

A+
  GzD

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


LG KP501

Entre 9€ et 159€


Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 1,591 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.