SHARE
TWEET

Untitled

a guest Jul 17th, 2017 41 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. menu channel {
  2.   @clone scan: /vs
  3. }
  4.  
  5. alias vs {
  6.   hmake clones 500
  7.   var %x = 1, %c = $iif($1 ischan,$1,$active),%ticks = $ticks,%clones
  8.   if ($window(@clones)) window -c @clones
  9.   window @clones
  10.   if (%c ischan) && ($ialchan(*,%c,0) != $nick(%c,0)) { .enable #clones | aline @clones S tò a nalizzando l a I AL .. | .ial on | who %c }
  11.   while ($nick(%c,%x)) {
  12.     var %i = $ifmatch
  13.     if ($hget(clones,$address(%i,2)) == $null) && ($ialchan($address(%i,2),%c,0) > 1) {
  14.       inc %clones $ialchan($address(%i,2),%c,0)
  15.       hadd clones $address(%i,2) $address(%i,2)
  16.       var %temp,%a = 1
  17.       while ($ialchan($address(%i,2),%c,%a)) {
  18.         set %temp %temp $+ $chr(44) $ialchan($address(%i,2),%c,%a).nick
  19.         inc %a
  20.       }
  21.       privmsg $chan $ialchan($address(%i,2),%c,0) 4Cloni che hanno come Indirizzo: 11 $address(%i,2) $+ :
  22.       privmsg $chan - Nick del Clone: 9 $mid(%temp,2,$calc($len(%temp) - 1))
  23.     }
  24.     inc %x
  25.   }
  26.   privmsg $chan -
  27.   privmsg $chan - -- ---- C onnessioni c on C loni R ilevate: $hmatch(clones,*,0)
  28.   privmsg $chan - -- ---- In tutto ci sono n° %clones cloni
  29.   privmsg $chan - -- ---- P er t rovarli c i h o m esso: $duration($calc(($ticks - %ticks) / 1000)) $gettok($calc(($ticks - %ticks) / 1000),2,46) $+ millisecs
  30.   hfree clones
  31. }
  32. #clones off
  33. raw 315:*: vs $2 | .disable #clones
  34. #clones end
  35.  
  36. on *:connect: .disable #clones
  37. on *:TEXT:*:*:{
  38. if ($1 == !cloni) { vs }
  39. }
RAW Paste Data
Top