Quote sysmtem

By xplo on Feb 22, 2008

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

##################################
# 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>14 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.
}

Comments

Sign in to comment.
FWC   -  Feb 16, 2011

@sunslayer thank you

 Respond  
FWC   -  Feb 16, 2011

One thing I noticed now that I'm using this otherwise great script is that it doesn't actually delete quotes. It does give the message about deletion but they remain in the DB. Anyone else experiencing this?

 Respond  
sunslayer   -  Feb 15, 2011

@FWC it should be in your mIRC directory

 Respond  
FWC   -  Feb 15, 2011

This is great. I had a newbie question. Where is the quotes.txt database stored on the computer? I can't find it.

 Respond  
Choco   -  Aug 30, 2008

Loved it. This is what I was looking for

 Respond  
Mitchell   -  Apr 13, 2008

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

 Respond  
G13AoUsTiS   -  Feb 22, 2008

cool:)

 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.