!Quote Script V1.3

By EliteT0kr on Aug 02, 2004

Useage: !AddQuote
!Quote = Random Quote
!Quote # = Says quote #

on *:load: { write -c C:\quotes.txt | set %QuoteN 0 } 
on *:unload: { write -c C:\quotes.txt | unset %QuoteN } 
on *:text:!AddQuote*:#: { if ($2) { inc %QuoteN 1 | write -l $+ %QuoteN C:\quotes.txt %QuoteN 7Quote5 %QuoteN $+ 1:5" $+ $2- $+ " 1- 7Set by5 $nick $+ 1 7on1 $adate $+ . | msg # 7Added quote1 "5 $+ $2- $+ 1"7 by5 $nick $+ . } 
  else { 
    msg # 3Please add a quote! 
  }
}
on *:text:!Quote*:#: { if (!$2) { msg # $read(C:\quotes.txt) 
  }
  elseif ($2) && ($2 isin $read(C:\quotes.txt,$2)) {
    msg # $read(C:\quotes.txt,$2) 
  }
  elseif ($2 !isin $read(C:\quotes.txt,$2)) {
    msg # 3Quote not found!  Please try another number!
  }
}
alias rquotes {
  .timerquote 0 4 msg # $read(C:\quotes.txt)
}

Comments

Sign in to comment.
Zsadist   -  Jan 14, 2011

Wow, just seen this right now...

elseif ($2) && ($2 isin $read(C:\quotes.txt,$2)) {

First of all, I hope you realize that it won't just be looking specifically for the number at the beginning of the quote; if there is a number in the actual quote itself, then it will get confuzzled and also try and locate the other quotes as well.

So, a solution would be:

elseif ($2) && ($read(C:\quotes.txt, s, $2)) { msg # $read(C:\quotes.txt, s, $2) }

The 's' in there scans the quotes.txt for a line beginning with $2. ~_~ Hope it helped, sorry for the late response.

 Respond  
Sanjie   -  Jan 10, 2007

cool. but it wont work...

 Respond  
DeathRyder082   -  Jul 08, 2005

The only bad thing on here that I can see is the colors :)

 Respond  
Lucifer1   -  Jan 16, 2005

how do i del a quote

 Respond  
Piiluke   -  Aug 14, 2004

lol, take and away :d

 Respond  
Piiluke   -  Aug 14, 2004

on :text:!Quote:#: { if (!$2) { msg # $read(C:\quotes.txt) - shouldnt there be :> on :text:!Quote:#: { if (!$2) { play # C:\quotes.txt

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.