This is kinda diffrent from the other quote...the other 1 used to only work with bots...so somebody came into my room and requested this 1...so here it is and if any1 else needs another type of 1 just do the same :)
To use just load and on a room or in prv u can rightclick and use like popups
; / \ | |
; ||| | |
; \\ | |
; ||| | |__
; \ / |____|
;server : irc.4everlost.co.za
;room : #slc
;webpage : http://slchat.50megs.com/Home.htm
;Date codded : 21/07/2004
menu channel,query {
-.-Quote V1.0 VIA Popup-.-
.AddQuote: {
set %sl.qq $?+"Please Enter you're quote"
set %sl.ql $calc($lines(quote.txt) + 1)
set %sl.qa $?!=" $+ %sl.qq $crlf will be adder to position $chr(35) $+ %sl.ql $crlf $+ Do you accept?"
if (%sl.qa == $true) {
write quote.txt %sl.qq
unset %sl.qq
unset %sl.ql
unset %sl.qa
}
if (%sl.qa == $false) {
unset %sl.qq
unset %sl.ql
unset %sl.qa
halt
}
}
.DelQuote: {
set %sl.ql $lines(quote.txt)
set %sl.qn $?="There is this amount of lines available %sl.ql $crlf Please Select between 0 - %sl.ql $+ "
set %sl.qr $read(quote.txt, %sl.qn)
set %sl.qa $?!=" $+ %sl.qr $+ $crlf Line number $chr(35) $+ %sl.ql will be removed $+ %sl.ql $crlf $+ Do you accept?"
if (%sl.qa == $true) {
write -dl $+ %sl.qn quote.txt
unset %sl.ql
unset %sl.qn
unset %sl.qa
}
if (%sl.qa == $false) {
unset %sl.ql
unset %sl.qn
unset %sl.qa
unset %sl.qr
halt
}
}
.Quote:
..Random: {
set %sl.ql $lines(quote.txt)
set %sl.qr $rand(1,%sl.ql)
set %sl.qq $read(Quote.txt, %sl.qr)
say 10,0-.-Quote $chr(35) $+ %sl.qr $+ -.- 7 $+ %sl.qq
unset %sl.ql
unset %sl.qr
unset %sl.qq
}
..Number: {
set %sl.ql $lines(quote.txt)
set %sl.qr $rand(1,%sl.ql)
set %sl.qn $?="There is this amount of lines available %sl.ql $crlf Please Select between 1 - %sl.ql $+ "
set %sl.qs $read(Quote.txt, %sl.qn)
say 10,0-.-Quote $chr(35) $+ %sl.qn $+ -.- 7 $+ %sl.qs
unset %sl.ql
unset %sl.qr
unset %sl.qn
}
}