Get the F out

By xero_art on Mar 30, 2009

someone gave me a WB script(this part is the menu) on irc and I created this...if the wb was someone on here's I'll be glad to give credit...its another simple random script that can be fun...gtfo is my response to stupid spammy wb's

for the on part, %parts.list is just the chans u want thise active on. On quit does the same in a quit msg

and thx for the suggestions, I edited a bit

Image

Menu nicklist {
  Get The Fuck Out:
  .Add User:writeini GTFO.SYS.ini $1 Talk On | writeini GTFO.SYS.ini $1 GET_OUT $?="Enter GTFO Message"
  .$iif(!$readini(gtfo.sys.ini, $1, get_out), $style(2)) Change GTFO for $1:writeini GTFO.SYS.ini $1 Get_Out $?="Enter New GTFO Message"
  .$iif(!$readini(gtfo.sys.ini, $1, get_out), $style(2)) Remove GTFO for $1:$iif($?!"Are you sure you wan't to remove $1?" == $true,remini gtfo.sys.ini $1)
}

on *:part:#:{
  if ($nick != $me)
   if ( $chan isin %parts.list ) {
      if ($readini(gtfo.sys.ini,$nick,Get_Out)) msg $chan 4*GTFO*1 $readini(gtfo.sys.ini, $nick, get_out) 4*GTFO*
      else {
        set %gtfo $r(1,20) {
          if (%gtfo == 1) { msg $chan good riddens, $nick really freaks me right the fock out... }
          if (%gtfo == 2) { msg $chan I'm gonna miss that guy... bye $nick $+ ... }
          if (%gtfo == 3) { msg $chan It's a dark day when even $nick leaves us... }
          if (%gtfo == 4) { msg $chan OMG, $nick is finally gone...come on out guys... }
          if (%gtfo == 5) { msg $chan Damn, and I was gonna confess my love to $nick today...oh well... }
          if (%gtfo == 6) { msg $chan $nick won't be gone long... $chan is like a drug... }
          if (%gtfo == 7) { msg $chan $nick $+ , you can run, but you can't hide. }
          if (%gtfo == 8) { msg $chan so, $nick $+ , you just gonna leave without so much as a kind farewell? }
          if (%gtfo == 9) { msg $chan yeah, $nick $+ , you better GET RIGHT THE FOCK OUT!!!! }
          if (%gtfo == 10) { msg $chan god, I hate $nick $+ ... }
          else halt
        }
      }
    }
  }
}
on ^*:quit: {
  if ($nick == $me) { halt }
  else {
    if ($nick ison #[place chan name here]) {
      if ($chan isin %parts.list) {
        if ($readini(gtfo.sys.ini,$nick,Get_Out)) msg $chan 4*GTFO*1 $readini(gtfo.sys.ini, $nick, get_out) 4*GTFO*
        else {
          set %gtfo $r(1,20) {
            if (%gtfo == 1) { msg $chan good riddance, $nick really freaks me right the fock out... }
            if (%gtfo == 2) { msg $chan I'm gonna miss that guy... bye $nick $+ ... }
            if (%gtfo == 3) { msg $chan It's a dark day when even $nick leaves us... }
            if (%gtfo == 4) { msg $chan OMG, $nick is finally gone...come on out guys... }
            if (%gtfo == 5) { msg $chan Damn, and I was gonna confess my love to $nick today...oh well... }
            if (%gtfo == 6) { msg $chan $nick won't be gone long... $chan is like a drug... }
            if (%gtfo == 7) { msg $chan $nick $+ , you can run, but you can't hide. }
            if (%gtfo == 8) { msg $chan so, $nick $+ , you just gonna leave without so much as a kind farewell? }
            if (%gtfo == 9) { msg $chan yeah, $nick $+ , you better GET RIGHT THE FOCK OUT!!!! }
            if (%gtfo == 10) { msg $chan god, I hate $nick $+ ... }
            else halt
          }
        }
      }
    }
  }
}

Comments

Sign in to comment.
xero_art   -  Mar 30, 2009

I don't like txt files unless its alot...its easier for me to add and edited them...same reason I prefer not to use tokens

 Respond  
knoeki   -  Mar 30, 2009

To me, I don't fancy text files all over my directory.

that's why you give scripts like that their own dir. also, bigger scripts of multiple files: make a seperate data dir...

 Respond  
Jethro   -  Mar 30, 2009

To me, I don't fancy text files all over my directory. Besides, that aren't too many words to be included in script...unless the script itself gets really, really big in size.

 Respond  
Kirby   -  Mar 30, 2009

Yes, reading .txt files work well too.

I'll assume that you (xero_art) that you'll call it gtfo.txt.
You can save lots of room by using

msg $chan $read(gtfo.txt)

, in the coding itself.

 Respond  
Tamaki   -  Mar 30, 2009

why not just put all the messages in a .txt file have a $read(.txt) so it reads a random line every time that you can add on to.

 Respond  
Kirby   -  Mar 30, 2009

Those are quite mean channel messages. :d

For

    if ($nick ison #lol) || if ($nick ison #girl-ed) || if ($nick ison #blue_lover)|| if ($nick ison #vnm) {

and

      if ($chan isin %parts.list) {

, they weren't found anywhere else in this script, therefore irrelevant.

For the other "random kick message" part, you can simply use /var with tokens instead of using /set with $rand.

For example,

        set %gtfo $r(1,20) {
          if (%gtfo == 1) { msg $chan good riddens, $nick really freaks me right the fock out... }
          if (%gtfo == 2) { msg $chan I'm gonna miss that guy... bye $nick $+ ... }
          if (%gtfo == 3) { msg $chan It's a dark day when even $nick leaves us... }
          if (%gtfo == 4) { msg $chan OMG, $nick is finally gone...come on out guys... }
          if (%gtfo == 5) { msg $chan Damn, and I was gonna confess my love to $nick today...oh well... }
          if (%gtfo == 6) { msg $chan $nick won't be gone long... $chan is like a drug... }
          if (%gtfo == 7) { msg $chan $nick $+ , you can run, but you can't hide. }
          if (%gtfo == 8) { msg $chan so, $nick $+ , you just gonna leave without so much as a kind farewell? }
          if (%gtfo == 9) { msg $chan yeah, $nick $+ , you better GET RIGHT THE FOCK OUT!!!! }
          if (%gtfo == 10) { msg $chan god, I hate $nick $+ ... }

can be replaced with:

        var %gtfo good riddens, $nick really freaks me right the fock out...|I'm gonna miss that guy... bye $nick $+ ...|It's a dark day when even $nick leaves us...|OMG, $nick is finally gone...come on out guys...|Damn, and I was gonna confess my love to $nick today...oh well...|$nick won't be gone long... $chan is like a drug...|$nick $+ , you can run, but you can't hide.|so, $nick $+ , you just gonna leave without so much as a kind farewell?|yeah, $nick $+ , you better GET RIGHT THE FOCK OUT!!!!|god, I hate $nick $+ ...
        msg $chan $gettok(%gtfo,$r(1,$numtok($gtfo,124)),124)

.

        msg $chan $gettok(%gtfo,$r(1,$numtok($gtfo,124)),124)

can be also be rewritten as

        msg $chan $gettok(%gtfo,$r(1,10),124)

, since there are 10 kick messages in total.

[size=16]Use /help Token Identifiers for more information on tokens..[/size]

Needless to say, the halts are unecessary, and

  if ($nick == $me) { halt }
  else {

can be changed to

  if ($nick != $me) {
 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.