begin process at 2012 02 11 23:27:05
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Bots

 > PICKUP BOT

PICKUP BOT


 Information sur la source

Note :
7,5 / 10 - par 2 personnes
7,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Bots Classé sous :bot, pickup Niveau :Débutant Date de création :15/06/2005 Vu :6 259
Auteur : remyskater

Ecrire un message privé
Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

 Description

Ma premiere source , un pickup bot :D

Source

  • on *:text:!pickupon*:?: {
  • set %nickdeladmin $nick
  • set %chanpickup $2
  • .timer 1 3 /join %chanpickup
  • .timer 1 6 /ame Pickup lancé par %nickdeladmin sur %chanpickup
  • .timer 1 8 /msg %chanpickup 7,1<< 15,1Team A : ?-?-?-?-? 15,1Team B : ?-?-?-?-? 7,1 >>
  • set %1 ?
  • set %2 ?
  • set %3 ?
  • set %4 ?
  • set %5 ?
  • set %6 ?
  • set %7 ?
  • set %8 ?
  • set %9 ?
  • set %10 ?
  • set %nbrdegens 0
  • set %test 0
  • set %pickup 1
  • }
  • on *:text:!pickupoff*:?: {
  • set %nickdeladmin $nick
  • set %chanpickup $2
  • .timer 1 2 /msg %chanpickup 7,1<< 15,1Pickup annuler par %nickdeladmin 7,1>>
  • .timer 1 2 /leave %chanpickup
  • set %1 ?
  • set %2 ?
  • set %3 ?
  • set %4 ?
  • set %5 ?
  • set %6 ?
  • set %7 ?
  • set %8 ?
  • set %9 ?
  • set %10 ?
  • set %nbrdegens 0
  • set %test 0
  • set %pickup 0
  • }
  • on *:text:!add:%chanpickup:{
  • if (%pickup == 1) {
  • inc %nbrdegens
  • if (%nbrdegens == 1) { set %1 $nick }
  • if (%nbrdegens == 2) { set %2 $nick }
  • if (%nbrdegens == 3) { set %3 $nick }
  • if (%nbrdegens == 4) { set %4 $nick }
  • if (%nbrdegens == 5) { set %5 $nick }
  • if (%nbrdegens == 6) { set %6 $nick }
  • if (%nbrdegens == 7) { set %7 $nick }
  • if (%nbrdegens == 8) { set %8 $nick }
  • if (%nbrdegens == 9) { set %9 $nick }
  • if (%nbrdegens == 10) { set %10 $nick | .timer 1 2 /msg %chanpickup 7,1<< 15,1Team full7,1 >>
  • |
  • /notice %1 %ip %pw
  • /notice %2 %ip %pw
  • /notice %3 %ip %pw
  • /notice %4 %ip %pw
  • /notice %5 %ip %pw
  • /notice %6 %ip %pw
  • /notice %7 %ip %pw
  • /notice %8 %ip %pw
  • /notice %9 %ip %pw
  • /notice %10 %ip %pw
  • .timer 1 10 set %1 ?
  • .timer 1 10 set %2 ?
  • .timer 1 10 set %3 ?
  • .timer 1 10 set %4 ?
  • .timer 1 10 set %5 ?
  • .timer 1 10 set %6 ?
  • .timer 1 10 set %7 ?
  • .timer 1 10 set %8 ?
  • .timer 1 10 set %9 ?
  • .timer 1 10 set %10 ?
  • .timer 1 10 set %nbrdegens 0
  • .timer 1 10 set %test 0
  • .timer 1 10 set %pickup 0
  • .timer 1 3 /leave %chanpickup
  • }
  • if (%nbrdegens > 10) { halt }
  • .timer 1 2 /msg %chanpickup 7,1<< 15,1Team A : %1 - %2 - %3 - %4 - %5 15,1Team B : %6 - %7 - %8 - %9 - %10 7,1 >>
  • :full
  • }
  • } 
on *:text:!pickupon*:?: { 
  set %nickdeladmin $nick 
  set %chanpickup $2
  .timer 1 3 /join %chanpickup
  .timer 1 6 /ame Pickup lancé par %nickdeladmin sur %chanpickup
  .timer 1 8 /msg %chanpickup 7,1<< 15,1Team A : ?-?-?-?-? 15,1Team B : ?-?-?-?-? 7,1 >>
  set %1 ?
  set %2 ?
  set %3 ?
  set %4 ?
  set %5 ?
  set %6 ?
  set %7 ?
  set %8 ?
  set %9 ?
  set %10 ?
  set %nbrdegens 0
  set %test 0
  set %pickup 1
}
on *:text:!pickupoff*:?: { 
  set %nickdeladmin $nick 
  set %chanpickup $2
  .timer 1 2 /msg %chanpickup 7,1<< 15,1Pickup annuler par %nickdeladmin 7,1>>
  .timer 1 2 /leave %chanpickup
  set %1 ?
  set %2 ?
  set %3 ?
  set %4 ?
  set %5 ?
  set %6 ?
  set %7 ?
  set %8 ?
  set %9 ?
  set %10 ?
  set %nbrdegens 0
  set %test 0
  set %pickup 0
}
on *:text:!add:%chanpickup:{
  if (%pickup == 1) {
    inc %nbrdegens
    if (%nbrdegens == 1) { set %1 $nick }
    if (%nbrdegens == 2) { set %2 $nick }
    if (%nbrdegens == 3) { set %3 $nick }
    if (%nbrdegens == 4) { set %4 $nick }
    if (%nbrdegens == 5) { set %5 $nick }
    if (%nbrdegens == 6) { set %6 $nick }
    if (%nbrdegens == 7) { set %7 $nick }
    if (%nbrdegens == 8) { set %8 $nick }
    if (%nbrdegens == 9) { set %9 $nick }
    if (%nbrdegens == 10) { set %10 $nick | .timer 1 2 /msg %chanpickup 7,1<< 15,1Team full7,1 >>
      | 
      /notice %1 %ip %pw
      /notice %2 %ip %pw
      /notice %3 %ip %pw
      /notice %4 %ip %pw
      /notice %5 %ip %pw
      /notice %6 %ip %pw
      /notice %7 %ip %pw
      /notice %8 %ip %pw
      /notice %9 %ip %pw
      /notice %10 %ip %pw
      .timer 1 10 set %1 ?
      .timer 1 10 set %2 ?
      .timer 1 10 set %3 ?
      .timer 1 10 set %4 ?
      .timer 1 10 set %5 ?
      .timer 1 10 set %6 ?
      .timer 1 10 set %7 ?
      .timer 1 10 set %8 ?
      .timer 1 10 set %9 ?
      .timer 1 10 set %10 ?
      .timer 1 10 set %nbrdegens 0
      .timer 1 10 set %test 0
      .timer 1 10 set %pickup 0
      .timer 1 3 /leave %chanpickup  
    }
    if (%nbrdegens > 10) { halt }
    .timer 1 2 /msg %chanpickup 7,1<< 15,1Team A : %1 - %2 - %3 - %4 - %5 15,1Team B : %6 - %7 - %8 - %9 - %10 7,1 >>  
    :full
  }
}

 Conclusion

definir %ip et %pw


 Sources de la même categorie

Source avec Zip GESTION.BOT V2.0 FINAL par aliassangelius
EXEMPLE DE TCL EN DCC par aliassangelius
Source avec Zip SERVICE GEOFRONT (PERL) par iZyTeHPariaH
Source avec Zip TCL EGGDROP par aliassangelius
ANIMATION POUR BOT par michounou
Toutes les sources de la catégorie Bots

 Sources en rapport avec celle ci

Source avec Zip SERVICE GEOFRONT (PERL) par iZyTeHPariaH
LA CONFIGURATION D'UN EGGDROP QUI ENLÈVE LES BANS APRÈS X ... par Atok
Source avec Zip Source avec une capture LOGCHAN BY DIIMS :: POUR BOT :: TOTALEMENT CONFIGURABLE par sodims
Source avec Zip BIOTECH [V1.0] par kassak1
Source avec Zip SYSTÈME SEEN par Niamor7

Commentaires et avis

Commentaire de MaX_62 le 15/06/2005 07:17:11

Petits détails au niveau du code :
- la balise "full" a la fin ne sert a rien, elle n'est utilisée nulle part dans le code.
- les slash sont inutiles devant les commandes, tu peux mettre des "." devant les notices
- tu peux regrouper certaines parties du code :
    if (%nbrdegens == 1) { set %1 $nick }
    if (%nbrdegens == 2) { set %2 $nick }
    if (%nbrdegens == 3) { set %3 $nick }
devient
    if (%nbrdegens isnum 1-10) { set % [ $+ [ %nbrdgens ] ] $nick }
-  .timer 1 3 /leave %chanpickup  >> /leave ? j'connaissais pas... (/part)
- essaie de mettre des noms de variables plus longs car sinon tu pourrais avoir les memes noms de variables dans 2 scripts différents =/
Voila, j'aime pas trop ce genre de bots, je note pas.
Bonne continuation ;)

Commentaire de clem54 le 15/06/2005 08:19:18

et aussi, faudrai mettre une description pour les n00b ^^

Commentaire de Huitre le 15/06/2005 08:34:28

Tant de set pour si peu d option possible, surtout qu un pick up bot a ete posté il y a peu. Je ne note pas non plus sinon on va te descendre en fleche...

Commentaire de remyskater le 15/06/2005 11:20:13

Oops jai deleter un truck je saver pas que sa server a ca dsl :x
->pour les réponses : je ne poste pas pour les points mais pour me faire corriger et apprendre ,j'ai vu les autres pickup script mais je voulais faire le mien ^^

Commentaire de talking le 15/06/2005 12:25:47

Je remarque de gros soucis niveau optimisation. Je vois que c'est ta première source donc je ne te critique pas, je te donne des conseils. Tu peux largement réduire le code grace à des boucles. Exemple :
set %1 ?
  set %2 ?
  set %3 ?
  set %4 ?
  set %5 ?
  set %6 ?
  set %7 ?
  set %8 ?
  set %9 ?
  set %10 ?


Ici tu pourrais faire un alias qui sets les variable avec une boucle while :

;on déclare l'alias que l'on met en local ( -l )
alias -l setvar {
; on donne 11 à la variable temporaire %i
var %i 1
; ensuite on boucle jusqu'à que 1 soit inférieur ou égale à 10
while (%i <= 10) {
puis on déclare va variable %i à ?
set $+(%,%i) ?
; on n'oublie d'incrémenter %i de 1
inc %i
}
}

Voilà en faisant /setvar dans ton code ça va te mettre toutes tes variable %1 %2 %3 ... à ?

Bonne continuation

Commentaire de Nolson le 15/06/2005 13:18:14

Très optimisable.
Mais si c'est ta première source, c'est normal.
On utilise souvent au début la technique des variables pour le stockage des données, mais ensuite on passe aux fichiers txt, ini ou aux hash tables.
Pour ta source l'utilisation d'un petit fichier ini suffirait à l'optimiser grandement.

Sinon il manque des vérifications et des brides.
En l'état actuel :
- n'importe qui peut faire join ton bot sur un chan (gare aux debordements et abus).
- la même personne peut se !add 10 fois.
- regroupe tes evenements ON TEXT car par exemple pour ton !pickupon et !pickupoff il y a beaucoup de commandes similaires donc des doublons inutiles.

Commentaire de clem54 le 15/06/2005 14:16:30

un pickup c'est quoi ? -_-

Commentaire de Nolson le 15/06/2005 15:22:29

Un pickup c'est ça :
http://minilien.com/?v56O4YnZXi

:-p :-p

Commentaire de remyskater le 15/06/2005 22:40:02

thx pour l'astuce des i :d

Commentaire de go29 le 01/07/2005 13:07:38

Ca me fais penser que j'avais fait un script pas mal pour gather, j'avais copier le fonctionnement du bot de #cs.gather.fr (j'était a l'époque admin et le bot était souvent down), faudra que je la finisse un de ces 4.
pour clem54 un pickup c'est un match (en général 5 contre 5) ou ce sont des inconnues qui joue avec toi, en tappant '!add' ils s'ajoutent à la liste, et quand le compte est bon (10 joueurs en général), le bot t'envoie l'ip du serveur et le password.

Commentaire de JaMyGG le 31/12/2006 00:25:21

MaX_62 a dit :
Petits détails au niveau du code :
- la balise "full" a la fin ne sert a rien, elle n'est utilisée nulle part dans le code.
- les slash sont inutiles devant les commandes, tu peux mettre des "." devant les notices
- tu peux regrouper certaines parties du code :
    if (%nbrdegens == 1) { set %1 $nick }
    if (%nbrdegens == 2) { set %2 $nick }
    if (%nbrdegens == 3) { set %3 $nick }
devient
- essaie de mettre des noms de variables plus longs car sinon tu pourrais avoir les memes noms de variables dans 2 scripts différents =/
Voila, j'aime pas trop ce genre de bots, je note pas.
Bonne continuation ;)


>> d'une chose l'une !
1 ! c'est quoi la diference entre taper un . ou un / ?
2 ! "    if (%nbrdegens isnum 1-10) { set % [ $+ [ %nbrdgens ] ] $nick }
-  .timer 1 3 /leave %chanpickup  >> /leave ? j'connaissais pas... (/part)
" je trouve sa plus long a la compresion du code ou a la re-lecture pour gagner quelques lignes, de plus c'est souvent l'objet d'erreur !

voila :) moi je te dit continue ramyskater !! :)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

bot pickup [ par Goofa ] Salut, je souhaite creer ou trouver un bot irc afin d'organiser des pickup , si qqn pouvais m'expliquer comment faire, thx. bot pickup [ par Solisoft ] Bonjour,J'ai vu qu'il y avais pas mal de demande as propos de script/bots pickup ici donc c'est pour vous annoncer que j'ai fait des eggdrop pickup ma pickup bot pr quake4 [ par gribouts ] bonjour a tous, juste un petit message pour savoir si quelqu'un aurait un pickup bot pour quake 4. Je n'aurais juste besoin que d'un bot basique, 8sl problème avec un isop [ par pikadri ] Bonjour, j'ai fait un petit sript en remote sur mIRC pour me faire oper par le bot. or ce bot change parfois de nom donc j'ai rajouté une autre condi Demande d'aide [ par zekhe33 ] Bonjour , je vien juste demander une aide à quelqu'un qui sait très bien scripter pour un projet de bot car mes connaissance en scripting ne sont pas autoop [ par NeOkira ] Bonjour , existe t'il un addons ou autre qui pe me op des le bot quit ou decovoilla jai 2 bot je voudrais des que un qui quit ou deco qui me autoop et S'identifier aupres d'un bot [ par MaN93 ] bonjour tout le monde,j'ai pu trouver un code pour pouvoir s'identifier auprès d'un bot mais j'aimerais pouvoir le modifier.en effet cette identificat Au secours ! [ par Demonalis ] Bonsoir tout le monde,Alors voila mon problème :J'ai un eggdrop ou plutot un windrop basé sur celui de cheekybilly pour ceux qui connaissent. Mon prob besoin d'aide sur plusieur petit points.. [ par mdk1killer1 ] Bonjour,bon et bien moi jai commencer a scripter un "bot" mais bon je sais pas si on peut appeller sa comme sa.Mon problème sais que quand les personn enregistrer scripts sur un bnc [ par oliver7 ] bjrJ'aimerai savoir s'il est possible de memoriser les scripts irc sur son bnc (pour qu'il devienne comme une sorte de bot) ?Ou sinon comment heberger


Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Beautiful woman in a bikini meditating on the beach
Photo Photo aérienne de Saintes Maries de la Mer 

Visiter la photothèque
 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 5,257 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)