Quote sysmtem

Please Register to submit score.

Average Score	5.5
Scores Submitted	2
Date Added	Feb 22, 2008
Last Updated	Feb 22, 2008
Tags	.aq .q addquote quote

Introduction

Heya, its me again....
Today, i was looking for a quote script for my bot ... BUT since i didn't find anything that actually works good... i made one from scratch.. i hope you like it..

to install it. copy the code in your mIRC Scripts Editor, then save it :p

remember... this code was design for a bot, not for yourself... well .. some other people could still use it from your script but not you ( just to be clear) :p

Grab the Code

##################################
# XQS (XploreR's Quote System)   #
# #IRC-Addicts & #mIRCScripting  #
#       XploreR@Live.Ca          #
##################################
on *:load:{
  timer 1 1 echo -a 14You Have 9Succesfully14 Loaded the XQS System
  timer 1 2 echo -a 14F.y.i. XQS Stands for XploreR's Quote System. :p 
  timer 1 3 echo -a 14This Addon Is Made For A Bot, So If You Added It To Your Script, You Can't Use It....
  timer 1 4 echo -a 14For More Help Join #IRC-Addicts And Talk To XploreR
  timer 1 5 echo -a 4THE END! :p
}
on *:unload:{
  timer 1 1 echo -a 14You Have 9Succesfully14 Unloaded the XQS System
  timer 1 2 echo -a 14I Hope you Will Use It Again.
}
on *:TEXT:.q:#: { 
  inc -u8 %xpf 1
  if (%xpf > 3) { ignore -u30 $nick | msg $chan $nick 14Is Ignored for 30 sec. Slow Down With The Commands.. } 
  set %quote $read(quotes.txt) 
  msg $chan $chr(91) $+ $chr(35) $+ $readn $+ $chr(92) $+ $lines(Quotes.txt) $+ $chr(93) 4 $+ %quote 
}
on *:TEXT:.q *:#: { 
  inc -u8 %xpf 1
  if (%xpf > 3) { ignore -u30 $nick | msg $chan $nick 14Is Ignored for 30 sec. Slow Down With The Commands.. } 
  if ($2 isalnum) && ($2 <= $lines(Quotes.txt)) { 
    msg $chan Quote $chr(91) $+ $chr(35) $+ $2 $+ $chr(92) $+ $lines(Quotes.txt) $+ $chr(93) 4 $+ $read(quotes.txt, $2) 
  } 
}
on *:TEXT:.qadd *:#: { 
  inc -u8 %xpf 1
  if (%xpf > 3) { ignore -u30 $nick | msg $chan $nick 14Is Ignored for 30 sec. Slow Down With The Commands.. } 
  write quotes.txt 12Quote added by $nick on $date $+ : 4 $+ $2- 
  msg $chan 14 Your quote was Succesfully Added. 
}
on *:TEXT:.qdel *:#: { 
  inc -u8 %xpf 1
  if (%xpf > 3) { ignore -u30 $nick | msg $chan $nick 14Is Ignored for 30 sec. Slow Down With The Commands.. } 
  if ($nick isop $chan) { 
    write -dl$2 quotes.txt 
    msg $chan 14 Quote $chr(35) $+ $2 has been deleted. 
  }
  else msg $chan 14 You Need to be a 12@p14 to Delete a quote.
}
on *:TEXT:.qlines:#: { 
  inc -u8 %xpf 1
  if (%xpf > 3) { ignore -u30 $nick | msg $chan $nick 14Is Ignored for 30 sec. Slow Down With The Commands.. } 
  msg $chan 14 $+ Total number of quotes: 12 $+ $lines(Quotes.txt) 
}
on *:TEXT:.qlast:#: { 
  inc -u8 %xpf 1
  if (%xpf > 3) { ignore -u30 $nick | msg $chan $nick 14Is Ignored for 30 sec. Slow Down With The Commands.. } 
  msg $chan 14Last quote: 12 $+ $read(Quotes.txt, $lines(Quotes.txt)) 
}
on *:TEXT:.qhelp:#: {
  inc -u8 %xpf 1
  if (%xpf > 1) { ignore -u90 $nick | msg $chan $nick 14Is Ignored for 90 sec. Slow Down With The Commands.. } 
  .timer 1 1 notice $nick 14 $+ XQS 12 $+ .q 14Will show a random Quote From The DB.
  .timer 1 2 notice $nick 14 $+ XQS 12 $+ .q <numberᡆ Will Shom you a specific Quote.
  .timer 1 3 notice $nick 14 $+ XQS 12 $+ .qadd <text> 14 Will Add a Quote.
  .timer 1 4 notice $nick 14 $+ XQS 12 $+ .qdell <number> 14 Will Delete a Specific Quote.
  .timer 1 5 notice $nick 14 $+ XQS 12 $+ .qlines 14 Will Tell You How Many Quotes There Is On The DB.
  .timer 1 6 notice $nick 14 $+ XQS 12 $+ .qlast 14 Will Tell you The Last Quote Added To The DB.
}

Enjoy :p

Comments

(2) RSS

Go to Bottom

G13AoUsTiS

Comments: 38

mIRC Snippet: Quote sysmtem
Posted on Feb 22, 2008 1:17 pm

cool:)

Mitchell

Comments: 22

mIRC Snippet: Quote sysmtem
Posted on Apr 13, 2008 8:08 am

Very nice :) I like the part where people can add their own quotes, very useful

Quote sysmtem

Introduction

Grab the Code

Comments

Xpl0reR

My Snippet Tags

Contact

Friends (6)

Sponsors

		IRC Gatineau, Quebec, Canada
Last seen: Jul 05, 2008 Profile \| Website Friends (6) Snippets (13) Images (7) Comments Received (94) Comments Submitted (51)