Monkeys Fortune

By ChunkieMonkey on Aug 24, 2008

I recently saw a Fortune script and I decided to make one of my own. I'm not sure if it works because I haven't really used txt files in my scripts before. I also haven't been able to test it because I am currently not at my house, so I don't have access to mIRC. So pleased don't rant about how horrible this script is, I'll re-write and add to it once I return home. Also, please don't yell at me because I didn't test it.

On 500:text:!createfortune*:#:{
 $write(Fortune.txt)
}
On 1:TEXT:!Fortune:#:{
 .Timer 1 3 Msg $chan $read(Fortune.txt)
  }
}

Comments

Sign in to comment.
guest598594   -  Aug 26, 2008

How can you expect us to cut you some slack when you admit that you didn't even test the script?

 Respond  
ChunkieMonkey   -  Aug 26, 2008

Yeh....Cut me some 'slack' though, I'm trying to learn now.

 Respond  
Eugenio   -  Aug 26, 2008

roflmfao @ $write
dont get me started
/me is nearly crying at that
ffs

 Respond  
EL   -  Aug 26, 2008

ROfl nah MD he has no alias for $write.`-.-´

 Respond  
guest598594   -  Aug 26, 2008
On 500:text:!createfortune*:#:{
 $write(Fortune.txt)
}

I donno if $write even works, but that line isn't gonna do anything without $2- or whatever.

Edit: woops, didn't realize rhasttaff made the same comment...

 Respond  
EL   -  Aug 24, 2008

//server -m irc.chatscape.net:6667 -m #mIRC_or_GTFO

 Respond  
irchainscriptz   -  Aug 24, 2008

whats ur server by the way? erm thinks me is off topic lol

 Respond  
EL   -  Aug 24, 2008

Eh yeah but i think he wants to learn so ima cut em some slack for nowlol.`-.-´

 Respond  
irchainscriptz   -  Aug 24, 2008

Well your a better person then me ..lol i wouldnt have bothered and iam sure it will be copied as i can see hes a tad lazy LOL

 Respond  
EL   -  Aug 24, 2008

EL why help someone when they dont even test a code that they post? And when asked, they respond by saying!

Quote:
I would test, got home maybe....I dunno. But I would have to get my bot up and I dun feel like it.

Cause he was on my server and i was bored so i said wtf why not.And its not a completely redone script and he better not just copy it or i wont help again,and i left things to do like th removal of the entries;p.`-.-´

 Respond  
KronicDreamer   -  Aug 24, 2008

lol got a lil growing up to do i see :/

 Respond  
irchainscriptz   -  Aug 24, 2008

EL why help someone when they dont even test a code that they post? And when asked, they respond by saying!

I would test, got home maybe....I dunno. But I would have to get my bot up and I dun feel like it.

 Respond  
beau   -  Aug 24, 2008

!createfortune $ip

 Respond  
EL   -  Aug 24, 2008

Monkey you get this yet?

 Respond  
EL   -  Aug 24, 2008
on *:text:*:#:{
  if ($nick isop $chan) && ($strip($1) == !createfortune) {
    inc -u30 $+(%,_Fortune_F,.,$nick)
    if ($($+(%,_Fortune_F,.,$nick),2) == 2) { .notice $nick Please wait;p. | halt }
    if ($($+(%,_Fortune_F,.,$nick),2) >= 3) { halt }
    if (!$strip($2)) { .notice $nick wtf make soemthing ffs. | halt }
    if ($read(Fortune.txt,r,$2-)) { notice $nick $2- already exists | halt }
    write Fortune.txt $2-
    msg $chan Added: $2-
  }
  if ($strip($1) == !fortune) {
    inc -u30 $+(%,_Fortune_F2,.,$nick)
    if ($($+(%,_Fortune_F2,.,$nick),2) == 2) { .notice $nick Please wait;p. | halt }
    if ($($+(%,_Fortune_F2,.,$nick),2) >= 3) { halt }
    .Timer 1 3 Msg $chan $read(Fortune.txt)
  }
}

Your gunan have to make a loop to remove them tho if u want;p

 Respond  
pwnisher3   -  Aug 24, 2008

lol

 Respond  
rhasttaff   -  Aug 24, 2008

sorry by this ChunkieMonkey, but this will no work.

There is NOT $write identifier on mirc.

you will have to use: /write Fortune.txt $2-

Jah Bless´´

 Respond  
Eugenio   -  Aug 24, 2008

rofl lame
your contradicting yourself

 Respond  
ChunkieMonkey   -  Aug 24, 2008

I never said the script had a point x.x I'm not going to make or try to make any good scripts until I finish up with C++

 Respond  
napa182   -  Aug 24, 2008

ChunkieMonkey said:

I would test, got home maybe....I dunno. But I would have to get my bot up and I dun feel like it.

well then if you are not going to test what you make dont post it.
just like Jamiie told you:
Jamiie said:

Well if you don't want anyone to rant and raise hell at you for it being a mediocre and not testing then don't post anything.. Common sense man.

anyways you should have made this a socket

on $*:text:/^!Fortune$/iS:#: {
  if ($sock(fo)) sockclose fo
  sockopen fo www.fortunecookiemessage.com 80
  sockmark fo msg #
}
on *:sockopen:fo: {
  sockwrite -nt $sockname GET / HTTP/1.1
  sockwrite -nt $sockname Host: $+($sock(fo).addr,$str($crlf,2))
}
on *:sockread:fo: {
  var %fo | sockread %fo
  if ($regex(%fo,/<a href=.+>(.+)<\/a><\/h1>/)) {
    $sock(fo).mark $regml(1)
    sockclose fo
  }
}
 Respond  
pwnisher3   -  Aug 24, 2008

this is a computer not a fortune cookie

 Respond  
pwnisher3   -  Aug 24, 2008

i don't really see the point in this -_-

 Respond  
ChunkieMonkey   -  Aug 24, 2008

I would test, got home maybe....I dunno. But I would have to get my bot up and I dun feel like it.

 Respond  
Jamiie   -  Aug 24, 2008

Well if you don't want anyone to rant and raise hell at you for it being a mediocre and not testing then don't post anything.. Common sense man.

 Respond  
ChunkieMonkey   -  Aug 24, 2008

W/E

 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.