SassIRC: (multi-line) quote script 2

Translator

Welcome

Chatbox

You must be logged in to post comments on this site - please either log in or if you are not registered click here to signup

Hamtara
08 Sep : 03:48
lol, believe it or not, I used to not be able to access this site from school computers. It was labeled as "Adult site/Pornography"

PuNkTuReD
08 Sep : 01:48
your class is watching a movie and your on sassirc.... love it.

Hamtara
07 Sep : 16:00
omg, class is so boring

we are watching a lame movie...

cursed_angel
07 Sep : 12:41
Me too =/

[[^KiTTy_KaT^]]
07 Sep : 09:35

chat is fucking with me!!!!!!!!!!!!

[[^KiTTy_KaT^]]
07 Sep : 09:28
who? lol

cursed_angel
07 Sep : 09:24
Lol So innocent....

[[^KiTTy_KaT^]]
07 Sep : 09:10
its a fucking conspiracy!

[[^KiTTy_KaT^]]
07 Sep : 09:08
oh lol muffins n damnit my swearing is hidden :(

cursed_angel
07 Sep : 08:59
Rofl. Sorry sweetheart, i made triple choc muffins instead ..mmm muffin

[[^KiTTy_KaT^]]
07 Sep : 08:18
lmfao now where the [censored] are my cookies?! lol

cursed_angel
07 Sep : 08:05
FINALLY! You have come to the dark side =)I'm so proud of you baby!

[[^KiTTy_KaT^]]
07 Sep : 07:04
/me gets excited lol

cursed_angel
06 Sep : 22:33
/gropes [[^KiTTy_KaT^]]

[[^KiTTy_KaT^]]
06 Sep : 09:52
RaWrrr oh n boys pokemon sucks!

Hamtara
05 Sep : 03:46
Nuk3d, dont listen to sk68. You're awesome!

Hamtara
03 Sep : 20:09
--v

sk68
03 Sep : 19:37
no one likes you D:

Nuk3d
02 Sep : 04:09
why isnt anyone talking ;o

Nuk3d
31 Aug : 23:20
/me slaps aucun again

xD

Hamtara
31 Aug : 23:12
:p

Nuk3d
31 Aug : 19:29
not to punktured

lol

Hamtara
31 Aug : 15:04
Is it bad that im coming here when im at school... o,o;

Nuk3d
31 Aug : 05:51
which is actually pretty good

Nuk3d
31 Aug : 05:51
huckleberry :P

View all posts (1330)

Snippet System

Teamspeak 3 IRC Bot
SassIRC Script Downloader
Ninja Bot mIRC socket bot v1.0
Shinys rawr database (38)
mIRC Bot !peak system
Pokemon Catch alias (V2)
Simple AwayMSG reply.
Pokemon Catch alias
Battle Field Bad Company 2 Stats
Nicklist Info

Post A Snippet
Search Snippets
List All Snippets (176)
Comment/Rate Activity (358)

Link To Us

Copy & Paste

Need a chatroom for your site?
Simply fill in the channel name, width and height and you can be chatting in no time.
Chatroom For Your Site

Best Viewed In

CodeAve.com (JavaScript: Select All)

(multi-line) quote script 2

Snippet Author: Nuk3d
Email: Hidden By Request.
Posted On: 2010-03-07
Type: mIRC
Useable by: Bots

Please LogIn to Rate this snippet

Image: http://nuk3d.com/nak3d.gif

Description

Same as my last one lol, wanted to do it with txt since i realized i couldnt add !findquote the way i had the other script.

¬ 10:35:44pm| SKy: [Quote #1.1] test
¬ 10:35:44pm| SKy: [Quote #1.2] blagh
¬ 10:35:44pm| SKy: [Quote #1.3] ehriwaekjrta;'593428
¬ 10:35:44pm| SKy: [Quote #1.4] ehriwaekjrta;

commands:
!addquote (text) - adds the quote
!appquote (Quote number) (text) - adds another line to a quote you say
!delquote (quote number) - deletes it
!delquote (quote number [appendage] - deletes a line from quote
!quote - shows a random quote or the one you say (number)
!quote count - total quotes
!findquote [number found] (text to search)

if theres more than  1 quote found on findquote you can show the other ones with the number before the search text
shows the actual quote number

¬ 09:59:34pm| ~Nuk3d: !findquote aucun
¬ 09:59:34pm| ~SKy: [Quote] Search matched: 2 quotes.
¬ 09:59:34pm| ~SKy: [Quote #6.1] @Aucun i got raped
¬ 09:59:34pm| ~SKy: [Quote #6.2] ~Nuk3d and he liked it.

Code

alias -l _quotepre { return 14[Quote14] }
alias -l _quotepre2 { return 14[Quote $+($chr(35),$1,.,$2,14]) }
alias -l _quotepre-ran { return 14[Random Quote $+($chr(35),$1,.,$2,14]) }

on *:TEXT:*:#: {
  if ($1 == !addquote) {
    if (!$2) { msg $chan $_quotepre You need to specify a quote to add. }
    else {
      var %a 1
      while (%a <= $lines(Quotes\Quotes.txt)) {
        if ($left($read(Quotes\Quotes.txt,%a),1) != %a) { var %_quotewriteold %a | goto quotewriting }
        inc %a
      }
      :quotewriting
      if (%_quotewriteold) {
        write -il $+ %a Quotes\Quotes.txt %_quotewriteold $2-
        msg $chan $_quotepre Quote $chr(35) $+ %_quotewriteold was added in place of a deleted quote.
      }
      else {
        write Quotes\Quotes.txt $iif($read(Quotes\Quote-total.txt,s,1),$read(Quotes\Quote-total.txt,s,1),1) $2-
        msg $chan $_quotepre Quote $chr(35) $+ $iif($read(Quotes\Quote-total.txt,s,1),$read(Quotes\Quote-total.txt,s,1),1) was added.
        write -l1 Quotes\Quote-total.txt 1 $iif($read(Quotes\Quote-total.txt,s,1),$calc($read(Quotes\Quote-total.txt,s,1) + 1),2)
      }
    }
  }
  if ($1 == !appquote) {
    if (!$2) { msg $chan $_quotepre You need to specify a quote to append. }
    if (!$read(Quotes\Quotes.txt,$2) { msg $chan $_quotepre That quote does not exist. }
    else {
      write $+(-ls,$2) Quotes\Quotes.txt $read(Quotes\Quotes.txt,$2) $chr(182) $3-
      msg $chan $_quotepre Quote $+($chr(35),$2) has been appended.
    }
  }
  if ($1 == !delquote) {
    if ($regex($nick($chan,$nick).pnick,/[~&@]/)) {
      if (!$2) { msg $chan $_quotepre You need to specify a quote number or appendage to delete. }
      if (!$read(Quotes\Quotes.txt,s,$2)) { msg $chan $_quotepre $+($chr(35),$2) does not exist. }
      else {
        if ($3) {
          if (!$gettok($read(Quotes\Quotes.txt,s,$2),$3,182) { msg $chan $_quotepre That quote appendage does not exist. }
          else {
            write $+(-ls,$2) Quotes\Quotes.txt $deltok($read(Quotes\Quotes.txt,s,$2),$3,182)
            msg $chan $_quotepre Quote $+($chr(35),$2,'s) appendage $+($chr(40),$3,$chr(41)) was deleted.
          }
        }
        else {
          if (!$read(Quotes\Quotes.txt,s,$2)) { msg $chan $_quotepre That quote does not exist. }
          else {
            write $+(-ds,$2) Quotes\Quotes.txt
            msg $chan $_quotepre Quote $+($chr(35),$2) was deleted.
          }
        }
      }
    }
    else { msg $chan $_quotepre Access denied. }
  }
  if ($1 == !quote) {
    if ($2 == count) { msg $chan $_quotepre Total count: $lines(Quotes\Quotes.txt) }
    if (!$2) {
      var %quote.r $r(1,$lines(Quotes\Quotes.txt))
      var %quote.r $r(1,$lines(Quotes\Quotes.txt))
      :ranquotereturn
      if (!$read(Quotes\Quotes.txt,s,%quote.r)) { var %quote.r $r(1,$lines(Quotes\Quotes.txt)) | goto ranquotereturn }
      else {
        var %quote.tok 1
        while (%quote.tok <= $numtok($read(Quotes\Quotes.txt,s,%quote.r),182)) {
          if ($read(Quotes\Quotes.txt,s,%quote.r)) { msg $chan $_quotepre-ran(%quote.r,%quote.tok) $gettok($read(Quotes\Quotes.txt,s,%quote.r),%quote.tok,182) }
          inc %quote.tok
        }
      }
    }
    elseif ($2 isnum) {
      if ($read(Quotes\Quotes.txt,s,$2)) {
        var %quote.tok 1
        while (%quote.tok <= $numtok($read(Quotes\Quotes.txt,s,$2),182)) {
          msg $chan $_quotepre2($2,%quote.tok) $gettok($read(Quotes\Quotes.txt,s,$2),%quote.tok,182)
          inc %quote.tok
        }
      }
      else { msg $chan $_quotepre $+($chr(35),$2) does not exist. }
    }
  }
  if ($1 == !Findquote) {
    write -c Quotes\Quotes-search.txt
    if (!$2) { msg $chan $_quotepre Please enter a word or part of a quote to search. }
    var %quote.s 1
    while (%quote.s <= $lines(Quotes\Quotes.txt)) {
      if ($2 !isnum) {
        if ($read(Quotes\Quotes.txt,w,* $+ $3- $+ *,%quote.s)) {
          if (!$read(Quotes\Quotes-search.txt,w,* $+ $read(Quotes\Quotes.txt,w,* $+ $2- $+ *,%quote.s) $+ *)) { write Quotes\Quotes-search.txt $read(Quotes\Quotes.txt,w,* $+ $2- $+ *,%quote.s) }
        }
      }
      else {
        if ($read(Quotes\Quotes.txt,w,* $+ $3- $+ *,%quote.s)) {
          if (!$read(Quotes\Quotes-search.txt,w,* $+ $read(Quotes\Quotes.txt,w,* $+ $3- $+ *,%quote.s) $+ *)) { write Quotes\Quotes-search.txt $read(Quotes\Quotes.txt,w,* $+ $3- $+ *,%quote.s) }
        }
      }
      inc %quote.s
    }
    if ($2 !isnum) {
      msg $chan $_quotepre Search matched: $lines(Quotes\Quotes-search.txt) quotes.
      if ($lines(Quotes\Quotes-search.txt) != 0) {
        var %a 1
        var %_q-num $left($read(Quotes\Quotes-search.txt,1),1)
        while (%a <= $numtok($read(Quotes\Quotes-search.txt,1),182)) {
          msg $chan $_quotepre2(%_q-num,%a) $remove($gettok($read(Quotes\Quotes-search.txt,1),%a,182),%_q-num)
          inc %a
        }
      }
    }
    if ($lines(Quotes\Quotes-search.txt) == 0) { msg $chan $_quotepre No quotes found matching: $iif($2 isnum,$qt($3-),$qt($2-)) | halt }
    elseif ($2 isnum 1- $+ $lines(Quotes\Quotes-search.txt)) {
      var %a 1
      var %_q-num $left($read(Quotes\Quotes-search.txt,$2),1)
      while (%a <= $numtok($read(Quotes\Quotes-search.txt,$2),182)) {
        msg $chan $_quotepre(%_q-num,%a) $remove($gettok($read(Quotes\Quotes-search.txt,$2),%a,182),%_q-num)
        inc %a
      }
    }
    elseif ($2 isnum) && ($2 !isnum 1- $+ $lines(Quotes\Quotes-search.txt)) && ($lines(Quotes\Quotes-search.txt) != 0) msg $chan $_quotepre Please use a number between 1 and $lines(Quotes\Quotes-search.txt) $+ .
  }
}

Posted By Aucun on 2010-03-07

Nuk3d's < Aucun's

Posted By Nuk3d on 2010-03-07

mine > anything you make <.<