Hopefully this is the first WTF Facts script. yea yea, i know i should have used sockets to connect, but honestly, anyone wants, they can create a socket for it. besides its based on my old script JokeBot. Im really not that good with sockets :/ But Hey, as long as im first, thats all i care for!!
on 1:LOAD: /echo 4,1-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-__-_
on 1:LOAD: /echo 4,1Hawkee's First What The F*** Facts!-_ Made by Assasin
on 1:LOAD: /echo 4,1-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-__-_
on *:connect: {
if ($network == *@lucidchat*) {
window -k0 @commands
}
}
on *:text:*:#: {
;-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-__-_
;Hawkee's First What The F*** Facts!-_ Made by Assasin
;-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-__-_
if (!newfact == $1) {
@commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
if ($2 != $null) {
if ($numtok($2-,32) < 3) {
msg $chan $nick $+ : Your Fact has to be more than 3 words, otherwise its not a Fact.
}
else {
var %topic = $ini(facts.ini,0) + 1
writeini facts.ini %topic fact $2-
msg $chan Added new Fact by $nick : $2-
}
}
else {
msg $chan $nick $+ : It's not usefull fact if you dont input any text you know 3,4(:
}
}
elseif (!deletefact == $1) {
@commands ( $+ $time $+ ) 4 $+ $nick used $1 ( $+ $1- $+ )
if ($2 != $null) {
if ($2 isnum) {
if ($readini(facts.ini, $2, author) != $null) {
if ($nick >= 5) {
writeini facts.ini $2 Fact $2 has been pushed down the window
msg $chan Fact $2 has been pushed down the window by $nick
}
else {
msg $chan $nick $+ : You do not meet the required hostmask to use this command
}
}
else {
msg $chan $nick $+ : No such Fact to delete.
}
}
else {
msg $chan $nick $+ : Specify a number, ya fool! }
}
}
elseif (!delfact == $1) {
@commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
if ($2 != $null) {
if ($2 isnum) {
if ($readini(facts.ini, $2, author) == $nick) {
writeini facts.ini $2 Fact Sorry, Fact no. $2 has been deleted by $nick because it does not exist.
msg $chan Sorry, Fact no. $2 has been deleted by $nick because it doesnt exist.
/dec %facts 1
}
else {
msg $chan $nick $+ : You didnt submit that fact - Type !factinfo $2 to see who thought of it
}
}
else {
msg $chan $nick $+ : Didnt you read the instructions? Looks like your spectacles are dirty -- e.g: !delfact 2
}
}
}
elseif (!fact == $1) {
@commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
if ($2 != $null) {
if ($readini(facts.ini, $2, author) == $null) {
msg $chan Have you forgotten the count? the numbers dont go that big $2
}
else {
msg $chan fact $2 $+ : $readini(facts.ini, n, $2, fact)
}
}
else {
msg $chan Random Fact: $readini(facts.ini, n, $rand(1,$ini(facts.ini,0)), fact)
}
}
elseif (!facts == $1) {
@commands ( $+ $time $+ ) $nick used $1
if ($ini(facts.ini,0) > 1) {
msg $chan There are currently $ini(facts.ini,0) facts
}
else {
msg $chan There is currently $ini(facts.ini,0) facts
}
}
elseif (!randomfact == $1) {
@commands $nick used $1
msg $chan Random fact: $readini(facts.ini, n, $rand(1,$ini(facts.ini,0)), fact)
}
elseif (!factinfo == $1) {
@commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
if ($2 != $null) {
if ($readini(facts.ini, $2, author) == $null) {
msg $chan There is no fact $2
}
else {
msg $chan fact no. $2 was stored in $chan on $readini(facts.ini, $2, date) at $readini(facts.ini, $2, time) by $readini(facts.ini, $2, author)
}
}
else {
msg $chan Please specify a fact no. you'd like to look up the info for.
}
}
elseif (!findfact == $1) {
@commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
var %x = 0
while (%x <= $ini(facts.ini,0)) {
if ($2- isin $readini(facts.ini, %x, facts)) {
set %facts %facts + %x
}
inc %x
}
if ($replace($replace(%facts, +, |), |, $null) == $null) {
msg $chan " $+ $2- $+ " was not found in any facts
unset %facts
}
else {
msg $chan " $+ $2- $+ " was found in fact(s): $replace(%facts, +, |) $chr($asc(|))
unset %facts
}
}
}
That's because this is a copy of that script, but this is an old thread that doesn't need to be dug up. :P