CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 03 21 11:27:23

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

PICKUP BOT

Information sur la source

Note :

7,50 / 10

Catégorie :Bots Classé sous :bot, pickup Niveau :Débutant Date de création :15/06/2005 Vu :5 707

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

SERVICE GEOFRONT (PERL) par iZyTeHPariaH

TCL EGGDROP par aliassangelius

ANIMATION POUR BOT par michounou

RECORD AFFLUENCE MULTI-SALON par extarsik

LOGCHAN BY DIIMS :: POUR BOT :: TOTALEMENT CONFIGURABLE par sodims

Toutes les sources de la catégorie Bots

Sources en rapport avec celle ci

SERVICE GEOFRONT (PERL) par iZyTeHPariaH

LA CONFIGURATION D'UN EGGDROP QUI ENLÈVE LES BANS APRÈS X ... par Atok

LOGCHAN BY DIIMS :: POUR BOT :: TOTALEMENT CONFIGURABLE par sodims

BIOTECH [V1.0] par kassak1

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

Derniers Blogs

NOUVEAU SYSTèME D'AIDE POUR VISUAL STUDIO 2010 : POUR CEUX QUI N'APPRéCIENT PAS TROP L'ABSENCE D'INDEX... par coq

L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit

COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL

SQL SERVER : QUERY NOTIFICATION OU COMMENT êTRE NOTIFIé DE MODIFICATIONS DE DONNéES CôTé APPLICATION (SQLDEPENDENCY) par christian

[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson

Forum

RE : S'ENVOYER UN SEUL MP A SOIS-MêME par WorldDMT

DEMANDE D AIDE SUR UNE REMOTE par willshar

RE : S'ENVOYER UN SEUL MP A SOIS-MêME par mouah

RE : S'ENVOYER UN SEUL MP A SOIS-MêME par WorldDMT

RE : S'ENVOYER UN SEUL MP A SOIS-MêME par mouah

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Logiciels

Academy System (10.9.4.0)
ACADEMY SYSTEM (10.9.4.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)

Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...

Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)

Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...

Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)

Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...

Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)

c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...

Cliquez pour télécharger Rigs of Rods