mirc auth

[HallOmyLoVe-]

хз скучно было мож комунить пригодиться o_O  :ohpalevo:

 

 

команды:

 

/addauth

/authnow

/delauth

 

в мирке Options>Perfom> (нажать enable perform on connect) если не нажато > там ниже вписать

/auth $read(auth.txt)

и нажать пробел чтобы херюшка ушла наследущую строчку o-o

потом нажать 'ok'

 

------

нажать в мирке ALT+R найти вкладу Aliases

скопировать туда ниже указанное O-o

-------

/addauth {

  if ($4 != $null) { msg $me 3too many words | return }

  if $read(auth.txt) != $null { msg $me 3u are got auth and password already,delete their first! $read(auth.txt) - this! | return }

  if ($2 == $null) && ($3 == $null) { msg $me 3Wrong! Write: '/addauth now bot pro222' - example | return }

  if ($1 != now) { msg $me 3Wrong! Where now? | return }

  write auth.txt $2 $3

  msg $me 9[14auth successfully updated now!9]

}

 

 

/authnow {

  set %authda $read(auth.txt)

  if (%authda == $null ) { msg $me 3File is Empty,u don't have any auth there. | return }

  if (%authda != $null) { msg $me 9[14 $+ $nick $+ 3@14 $+ $network 9~]14 your auth and password: %authda | return }

  hsave auth.txt

}

 

/delauth {

  set %now now

  if ($2 == $null) && ($3 == $null) { msg $me 3Wrong! '/delauth now bot pro222' - example | return }

  if ($1 != now) { msg $me 3Wrong! where now ? | return }

  if ($4 != $null) { msg $me 3too many words | return }

  set %del $2 $3

  write -dl auth.txt %del

  msg $me 9[14last auth and pass was $+ << $2 $3 $+ >> deleted now!9]

}

[Гость Venomancer]

очень ценная информация

прямо пиздец

иди на рынок продавай под прилавком.

[HallOmyLoVe-]

очень ценная информация

прямо пиздец

иди на рынок продавай под прилавком.

 

я вставлю тебе в рот хуй чтобы ты расслабился

[Гость Venomancer]

УГ

 

твоя мама срёт спидом, чтобы прокормить жену-шлюху и 8 выблядков

 

иди им рассказывай про мирку, а лучше на презервативы заработай

[4epT]

ахахахаахах Ябля жжешь

[Гость Venomancer]

ахахахаахах Ябля жжешь

Мы захватили этот топик

[4epT]

))))

[pyab]

под кунет есть лучше:

 

on *:load:{ set %auth $?:"Please type in your Q auth." | set %authpass $?*:"Please type in your Q password." | noop $input(Done. Use /qauth to change settings if needed.,uwo,Notice) }

 

on *:connect: { if ($network == Quakenet) { .msg Q@CServe.quakenet.org AUTH %auth %authpass | mode $me +x } }

 

alias -l authchans { set %authchans $addtok(%authchan,$1,44) }

 

alias QAuth { dialog $iif($dialog(QAuth),-v,-m) QAuth QAuth }

 

menu * {

  QAuth: QAuth

}

 

dialog QAuth {

  title "QAuth"

  size -1 -1 100 105

  option dbu

  text "Auth Name", 100, 36 2 26 10, nowrap

  text "Auth Pass", 99, 36 22 26 10, nowrap

  edit "", 1, 25 10 50 10, center autohs

  edit "", 2, 25 30 50 10, center pass autohs

  button "Okay!", 3, 0 93 50 10, ok

  button "Cancel!", 4, 50 93 50 10, cancel

  text "Channels", 98, 36 42 26 10, nowrap

  button "Add", 5, 6 53 25 10

  button "Remove", 6, 6 63 25 10

  list 7, 35 50 55 35, sort vsbar

  button "ClearAll", 8, 50 81 25 10

  button "AuthNow", 9, 25 81 25 10

}

on *:dialog:QAuth:*:*: {

  if ($devent == init) && ($did == 0) { did -a $dname 1 %auth | did -a $dname 2 %authpass | didtok $dname 7 44 %authchans }

  if ($devent == sclick) {

    if ($did == 3) { set %auth $did(1) | set %authpass $did(2) }

    if ($did == 4) {

      if ($did(1) != %auth || $did(2) != %authpass) {

        var %authmod $?!="Do you want to save your changes?"

        if (%authmod == $true) { set %auth $did(1) | set %authpass $did(2) }

      }

      dialog -x $dname $dname

    }

    if ($did == 5) { set %authchans $addtok(%authchans,$?="What channel would you like to add?",44) | did -r $dname 7 | didtok $dname 7 44 %authchans }

    if ($did == 6) { set %authchans $remtok(%authchans,$did(7).seltext,1,44) | did -r $dname 7 | didtok $dname 7 44 %authchans }

    if ($did == 8) { var %authmod $?!="Are you sure you want to clear everything?" | $iif(%authmod == $true,unset %auth %authpass %authchans) | dialog -x $dname $dname }

    if ($did == 9) {

      if ($address($me,4) == *!*@*.users.quakenet.org) { join %authchans }

      if (!$server) { noop $input(You are not connected to Quakenet!,uwo,Error!) }

      else { set %auth $did(1) | set %authpass $did(2) | .msg Q@CServe.quakenet.org AUTH %auth %authpass | mode $me +x }

    }

  }

}

 

raw 396:*:{ echo -a Mode +x set ( $+ $2 $+ ) | join %authchans }

 

 

так же есть универсальный, под многие ирц-сети. чуть позже выложу

[Vizakenjack]

лол блять

 

поясните для чего все это когда есть стандартный perform

[Гость juse]

мой дота слап >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> этого

[HallOmyLoVe-]

on *:START: { echo -s 12*** 05Title 14script coded by 12artcore|essencz 14successfully loaded... }

on *:TEXT:*:#: {

  var %w = $wildtok($1-,http://*,0,32)

  if %w {

    var %i = 1, %l, %u, %a, %p = 80, %t = $replace($1-,\,/), %g

    while %i <= %w {

      set %u $wildtok(%t,http://*,%i,32)

      if !$istok(%l,%u,32) {

        set %l %l %u

        set %a $remove(%u,http://)

        var %c = 30

        while %c >= 1 {

          set %a $replace(%a,$str(/,%c),/)

          dec %c

        }

        set %g $gettok(%a,2-,47)

        set %a $gettok(%a,1,47)

        if $gettok(%a,2,58) isnum {

          set %p $v1

          set %a $gettok(%a,1,58)

        }

        sockopen title. $+ %i $+ . $+ $chan $+ . $+ $nick $+ .1 %a %p

        sockmark title. $+ %i $+ . $+ $chan $+ . $+ $nick $+ .1 %a %p $ticks %g

      }

      inc %i

    }

  }

}

on *:SOCKOPEN:title.*: {

  if $gettok($sockname,-1,46) > 6 {

    notice $me $gettok($sockname,3- $+ $calc($numtok($sockname,46) - 2),46) $chr(3) $+ 14 $+ $chr(91) $+ $gettok($sock($sockname).mark,1,32) $+ $iif($gettok($sock($sockname).mark,2,32) != 80,: $+ $v1) $+ $chr(93) $+ $chr(3) 3Endless Redirection...

    return

  }

  if !$sockerr { sockwrite -n $sockname GET / $+ $gettok($sock($sockname).mark,4-,32) HTTP/1.0 $+ $crlf $+ User-Agent: Opera/9.62 (X11; Linux i686; U; en) Presto/2.1.1 $+ $crlf $+ Host: $gettok($sock($sockname).mark,1,32) $+ $crlf $+ $crlf }

  else {

    notice $me $gettok($sockname,3- $+ $calc($numtok($sockname,46) - 2),46) $chr(3) $+ 14 $+ $chr(91) $+ $gettok($sock($sockname).mark,1,32) $+ $iif($gettok($sock($sockname).mark,2,32) != 80,: $+ $v1) $+ $chr(93) $+ $chr(3) 3Could not connect to server...

    return

  }

}

on *:SOCKREAD:title.*: {

  sockread & $+ $sockname

  if $bfind(& $+ $sockname,1,13 10 13 10) {

    if $bfind(& $+ $sockname,1,Location:) {

 

    }

  }

  if $sock($sockname).rcvd > 11264 {

    sockclose $sockname

    return

  }

  if $bfind(& $+ $sockname,1,<title>) {

    var %i = 1, %t = $replace($bvar(& [ $+ [ $sockname ] ],$calc($bfind(& [ $+ [ $sockname ] ],1,<title>) + 7),$calc($bfind(& [ $+ [ $sockname ] ],1,</title>) - $bfind(& [ $+ [ $sockname ] ],1,<title>) - 7)).text,",",&,&,<,<,>,>, ,$chr(32),©,©,«,<,»,>,®,®)

    if %t {

      while %i <= 31 {

        set %t $remove(%t,$chr(%i))

        inc %i

      }

      notice $me $gettok($sockname,3- $+ $calc($numtok($sockname,46) - 2),46) $chr(3) $+ 14 $+ $chr(91) $+ $gettok($sock($sockname).mark,1,32) $+ $iif($gettok($sock($sockname).mark,2,32) != 80,: $+ $v1) $+ $chr(93) Title ( $+ $calc(($ticks - $gettok($sock($sockname).mark,3,32)) / 1000) $+ sec): $+ $chr(3) $chr(3) $+ 12 $+ %t $+ $chr(3)

      if !$read(channels\title.txt,n,$gettok($sock($sockname).mark,1,32) $+ / $+ $gettok($sock($sockname).mark,4-,32) *) { write channels\title.txt $gettok($sock($sockname).mark,1,32) $+ / $+ $gettok($sock($sockname).mark,4-,32) $ctime $gettok($sockname,3- $+ $calc($numtok($sockname,46) - 2),46) $gettok($sockname,-2,46) %t }

      sockclose $sockname

    }

  }

}

 

-посылает вам сообщение когда ктонибудь выкинет ссылку в чат (что по ссылке,без открытия вами ее)

 

УГ

 

твоя мама срёт спидом, чтобы прокормить жену-шлюху и 8 выблядков

 

иди им рассказывай про мирку, а лучше на презервативы заработай

 

я лучше выебу тебя,сожгу в аду потом 2 мои собаки выжрут твои глаза

[Moped]

нехуя не понятно

[Гость Venomancer]

лол блять

 

поясните для чего все это когда есть стандартный perform

через задницу же веселее

[Гость juse]

ты сам их пишешь? скрипты?

[HallOmyLoVe-]

ты сам их пишешь? скрипты?

 

угу,изучаю мирк скриптинг :O он легкий

[Mamatehc]

ты сам их пишешь? скрипты?

 

угу,изучаю мирк скриптинг :O он легкий

выебнулся.

[Гость Venomancer]

ты сам их пишешь? скрипты?

 

угу,изучаю мирк скриптинг :O он легкий

выебнулся.

мирк-скриптеры очень высокоплачиваемы