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

Ce site au démarrage

begin process at 2010 02 09 23:38:05

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 645

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

ANIMATION POUR BOT par michounou

RECORD AFFLUENCE MULTI-SALON par extarsik

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

SALON TRADUCTION par CsDarkman

BOT DE SUPPORT (HELPSERV) par Maxou1012

Toutes les sources de la catégorie Bots

Sources en rapport avec celle ci

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

SIMPLE QUIZZ par Kentix

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

TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice

[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice

Forum

RE : ON RAWMODE par WorldDMT

RE : PROBLEME AVEC UN QUIZZ par vincent67190

RE : PROBLèME FLAG IRCOP par WebiK

AVERTISSMENT ET KIKK par mouhcine951990

RE : PROBLèME FLAG IRCOP par Benjamin37

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5