Insult Script (Random Insult Generator)

mIRC Code

+ 1 likes

Please Register to submit score.

Average Score	8.0 (of 1 scores)
Date Added	Jul 07, 2009
Last Updated	Jul 07, 2009
Tags	bot generator ini insult random socket

Introduction

My first script where i experimented with writeini and readini
Seemed to have worked out pretty well :D
Pulls insults from http://www.randominsults.net/
If you have any improvements at all please post

!insult = Insult Your self xD
!insult <nick> = Insult that person

Eg:

<~ES> !insult
<~^o0^> • ES: Save your breath... you'll need it to blow up your date. • [Times Insulted: 12]
<~ES> !insult ^o0^
<^o0^> • ^o0^: Your face reminds me of a movie star. Lassie! • [Times Insulted: 1]

Grab the Code

on *:TEXT:!insult*:#: {
  sockopen insulter www.randominsults.net 80
  if ($rand(1,10) == 1) set %insultee $nick
  elseif ($2) set %insultee $2-
  else set %insultee $nick
  set %insulterchan $chan
  writeini insult.ini insults %insultee $calc($readini(insult.ini,insults,%insultee) + $chr(49))
  set %timesinsul $readini(insult.ini,insults,%insultee)
} 
on *:sockopen:insulter: {
  sockwrite -n $sockname GET / HTTP/2.0
  sockwrite -n $sockname Host: www.randominsults.net
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
} 
on *:sockread:insulter: {
  sockread %insulterpage
  if (<i> isin %insulterpage) {
    set %insulterquote $nohtml(%insulterpage)
  } 
}
on *:sockclose:insulter: {
  msg %insulterchan 10•04 %insultee $+ $chr(58)  %insulterquote 10• 14[Times Insulted: %timesinsul $+ $chr(93)
}
alias nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}

Comments

(1) RSS

Go to Bottom

uneek

Comments: 26

mIRC Snippet: Insult Script (Random Insult Generator)
Posted on Jul 8, 2009 12:28 am

Works as described..I also really like the keeping track of times insulted.

Thanks

ES


Last seen: Aug 26, 2009 Profile Likes (1) Snippets (3) Comments (19)

My Snippet Tags

Contact

Add to Friends

Send Private Message