Java/No AWAY System

Please Register to submit score.

Average Score	6.6
Scores Submitted	5
Date Added	Feb 25, 2008
Last Updated	Feb 26, 2008
Tags	away bot channel protection

Introduction

Copy the code you want ((THERE ARE TWO VERSIONS ONE ADMON IRCOP USE AN ONE CHANNEL OP STATUS)) an paste it into your remotes section of your Script editor ALT +r an save it if you wish.Ok I thought of this early this morning an i was thinkin to myself that java users don't really get an away i mean they do get thier away message next to thier nickname on the list but nothing fancey like mIRC users.

So i was messin around an came up with this little java away code well and mIRC usrs with no Away system can use when they set away that tells when an why an then how long they where away.Users can choose to show thier away in one channel only if they want or can reject it an get it again another time.Not there are infact 2 flood controls on here for abusers of the script an one for people who come from away back to back.

I couldn't figure out how to stop the back to back to back /away command an not have it show "1990wks 4days 16hrs 14mins 31secs" so i added a var halt.The other flood protection is well away floods it will if some one sets /away away reason 4 times in 3 seconds remove an ban(oh yes wildcarded full ISP to cause we all know i love it XD) them the ban time and it will revoke there away message rites,you can change at any time along with the channel you wish to send the away messages.

Remember ((THERE ARE TWO VERSIONS ONE ADMON IRCOP USE AN ONE CHANNEL OP STATUS)) dont have ADMIN IRCOP status pick the BOTTOM code.Ahh just added a !addnoa (to revoke rites to the away for abuse) and !remnoa (to let them have it back).Any who thought it was a neato idea im sure its can be done cleaner an such so any and all comments an always are appreaciated an welcomed.`-.-�

Grab the Code

;;;;ADMIN/IRCOP CODE BELOW THIS;;;;;
;;;;ADMIN/IRCOP CODE BELOW THIS;;;;;
;;;;ADMIN/IRCOP CODE BELOW THIS;;;;;

on *:LOAD: {
  set %A_Chan $input(Enter The Name Of The Channel You Wish To Send The Away Notices.,e)
  set %A_BT $input(Enter The Amount Of Time The Offender Is Baned.,e)
  hmake _ANN_ 100
  hmake _ATT_ 100
  hmake _ARR_ 100
}
Menu * {
  A_Away_Notice&&Flood_Pro
  .Enable:/ .enable #Away_F_P | echo -a ( Away Notice && Protection Set to: ON $+ .Channel Set to:  $+ %A_Chan $+  $+ .Ban time set to:  $+ %A_BT $+  Seconds. )
  .Disable:/ .disable #Away_F_P | echo -a ( Away Notice && Protection Set to: OFF $+ . )
  .Channel:/ set %A_Chan $input(Enter The Name Of The Channel You Wish To Send The Away Notices.,e)
  .Ban_Time:/ set %A_BT $input(Enter The Amount Of Time The Offender Is Baned.,e)
}
#Away_F_P on
on *:Join:%A_Chan: {
  set %A_JF $nick
  .timer 1 10 unset %A_JF 
  if ($nick == $read(A_way.txt,r,%A_JF)) { halt }
  .notice $nick ( %A_Chan Away Notice. )( $nick if you would like a auto away message please type !Aaway now.If you do not type !Naway ty. )
}
on *:TEXT:*:%A_Chan: {
  set %A_A_AF $nick 
  if ($strip($1) == !Aaway) { 
    if (%A_A_AF == $read(No_way.txt,r,%A_A_AF)) { halt }
    if (%A_A_AF == $read(A_way.txt,r,%A_A_AF)) {
      write -d A_way.txt $nick 
      write A_way.txt $nick 
      halt
    }
    write -d N_way.txt $nick  
    write A_way.txt $nick 
    .notice $nick ( $nick If at any time you wish not to display your auto away type !Naway Ty. ) 
  }
  else {
    if (%A_A_AF == $read(No_way.txt,r,%A_A_AF)) { halt }
    if (%A_A_AF != $read(N_way.txt,r,%A_A_AF)) { 
      if ($strip($1) == !Naway) { 
        write -d A_way.txt $nick 
        write N_way.txt $nick 
      .notice $nick ( $nick If at any time you wish to display your auto away type !Aaway Ty. ) }
    }
    if ($nick isop %A_Chan) {   
      if ($strip($1) == !Addnoa) { 
        write -d A_way.txt $nick 
        write -d N_way.txt $nick 
        write No_way.txt $2
        .msg %A_Chan ( $nick has revoked $2 auto away message rites. ) 
      }
      if ($strip($1) == !remnoa) { 
        write -d No_way.txt $2
      .msg %A_Chan ( $nick has returned $2 auto away message rites. ) }
    }
  }
}

raw 0:*: {
  if ($nick ison %A_Chan) {
    set %A_AAF $nick 
    if (%A_AAF == $read(N_way.txt,r,%A_AAF)) { halt }
    if (%A_AAF == $read(A_way.txt,r,%A_AAF)) {
      if ($($+(%,_AAA_F,.,$nick),2) >= 1) { halt }
      inc -u3 $+(%,_Away_F,.,$nick) 1
      if ($($+(%,_Away_F,.,$nick),2) >= 4) { write -d A_way.txt $nick | write No_way.txt $nick | .enable #AA_FP | who $nick | inc %_AKB_ |  kick %A_Chan $nick ( %A_Chan Away.Flood Safeguards Enforced. )( Num: ( %_AKB_ ) Kick/Ban(ed). ) | halt }
      if ($1- !isin $1-) { set %_A_AFF $nick | _AMSG_ | inc -u5 $+(%,_AAA_F,.,$nick) 1 | halt }  
      msg %A_Chan ( %A_Chan Away Notice. )( $nick Is Marked As Away @: $time $+ .Reason For Setting Away: $1- $+ . ) 
      hadd _ANN_ $nick $nick
      hadd _ATT_ $nick  $ctime
      hadd _ARR_ $nick  $1-
    }
  }
}
alias _AMSG_ {
  set %_ATT_ $hget(_ATT_,%A_AAF)) 
  .msg %A_Chan ( %A_Chan Away Notice. )( $hget(_ANN_,%A_AAF)) Has Returned From Away At: $time $+ .Reason Away: $hget(_ARR_,%A_AAF)) $+ .Duration Away: $duration($calc($ctime - %_ATT_ )) $+ . )
}
#Away_F_P end

#AA_FP off

raw 352:*: {
  .timer 1 2 .disable #AA_FP
  var %AB_Chan %A_Chan
  mode %AB_Chan +b $replace($4 ,1, ?,3, ?,6, ?,11, ?,17, ?,a, ?,c, ?,f, ?,l, ?,s, ?,y, ?,2, ?,w, ?,8, ?)     
  .timer 1 %A_BT mode %AB_Chan -B $replace($4 ,1, ?,3, ?,6, ?,11, ?,17, ?,a, ?,c, ?,f, ?,l, ?,s, ?,y, ?,2, ?,w, ?,8, ?)     
}

#AA_FP end

;;;;CHANNEL OP CODE BELOW THIS;;;;;
;;;;CHANNEL OP CODE BELOW THIS;;;;;
;;;;CHANNEL OP CODE BELOW THIS;;;;;

raw 0:*: {
  if ($nick ison %A_Chan) {
    set %A_AAF $nick 
    if (%A_AAF == $read(N_way.txt,r,%A_AAF)) { halt }
    if (%A_AAF == $read(A_way.txt,r,%A_AAF)) {
      if ($($+(%,_AAA_F,.,$nick),2) >= 1) { halt }
      inc -u3 $+(%,_Away_F,.,$nick) 1
      if ($($+(%,_Away_F,.,$nick),2) >= 4) { write -d A_way.txt $nick | write No_way.txt $nick | mode %A_Chan +b $address($nick,4)) | .timer 1 %A_BT mode %A_Chan -b $address($nick,4)) | inc %_AKBNO_  | kick %A_Chan $nick ( %A_Chan Away.Flood Safeguards Enforced. )( Num: ( %_AKBNO_ ) Kick/Ban(ed). ) | halt }
      if ($1- !isin $1-) { set %_A_AFF $nick | _AMSG_ | inc -u5 $+(%,_AAA_F,.,$nick) 1 | halt }  
      msg %A_Chan ( %A_Chan Away Notice. )( $nick Is Marked As Away @: $time $+ .Reason For Setting Away: $1- $+ . ) 
      hadd _ANN_ $nick $nick
      hadd _ATT_ $nick  $ctime
      hadd _ARR_ $nick  $1-
    }
  }
}
alias _AMSG_ {
  set %_ATT_ $hget(_ATT_,%A_AAF)) 
  .msg %A_Chan ( %A_Chan Away Notice. )( $hget(_ANN_,%A_AAF)) Has Returned From Away At: $time $+ .Reason Away: $hget(_ARR_,%A_AAF)) $+ .Duration Away: $duration($calc($ctime - %_ATT_ )) $+ . )
}
#Away_F_P end

Comments

(19) RSS

Go to Bottom

Korvin

Comments: 241

mIRC Snippet: Java/No AWAY System
Posted on Feb 25, 2008 9:43 am

in the intro, when your words are all cramp, its hard to read... try spacing it out..

Comments: 914

mIRC Snippet: Java/No AWAY System
Posted on Feb 25, 2008 10:06 am

Quote:

in the intro, when your words are all cramp, its hard to read... try spacing it out..

Better?

Comments: 914

mIRC Snippet: Java/No AWAY System
Posted on Feb 25, 2008 3:11 pm

Well its was a good idea...Wish i knew how to code...

Comments: 914

mIRC Snippet: Java/No AWAY System
Posted on Feb 25, 2008 9:36 pm

LOL finally got it working for more then one person er happends when your testing alone an no sleep 4am etc.Oh well i hope some one tests it an gives some feed back.`-.-�

SnoooP

Comments: 348

mIRC Snippet: Java/No AWAY System
Posted on Feb 29, 2008 4:40 pm

well it works obviously... ive seen it in action lol.... still dont like it though =)

Comments: 914

mIRC Snippet: Java/No AWAY System
Posted on Feb 29, 2008 4:51 pm

Yeah yeah it pwnz an you know it :P

napa182

Comments: 797

mIRC Snippet: Java/No AWAY System
Posted on Feb 29, 2008 5:00 pm

rofl

TheGioMan

Comments: 5

mIRC Snippet: Java/No AWAY System
Posted on Mar 12, 2008 5:36 am

This seems to be cool for Java users,not too shabby.;P

Comments: 914

mIRC Snippet: Java/No AWAY System
Posted on Mar 12, 2008 5:44 am

Yeah got a few ppl on the server that use it so its all good.mite make themes opinional soon as well some color an shoot ya kno wmake it all fancey crazy:P.Thanks for the rate an not the hate Gio.`-.-�

Comments: 914

mIRC Snippet: Java/No AWAY System
Posted on Jun 6, 2008 7:30 pm

So im being told i ripped this code from some kid that is a real ripper.Anyone that knows me or my coding style knows this is my work fricken morons look at it ffs or find some proof not that you will he prolly got it here an posted it as his own on his network damn lamers.Futher more my java way system is flawed and anyone that tested it or has used it has found that out i havent got to fixing it after starting other codes an bots and full script but now ima fix it and maybe shut these lame fuks up for good i mean really look at all my codes you morons have nothing to do with other people's scripts or your crappy ripped scripts go play and leave the coding to those who have class.`-.-´

mountaindew

Comments: 1,422

mIRC Snippet: Java/No AWAY System
Posted on Jun 6, 2008 9:07 pm

Yea, you're not a ripper ;)

Comments: 914

mIRC Snippet: Java/No AWAY System
Posted on Jun 6, 2008 9:29 pm

Thanks Mountaindew I think they just liek to piss me off rofl cause my bots owned them so many times ;x

mentalglitch

Comments: 27

mIRC Snippet: Java/No AWAY System
Posted on Jun 14, 2008 9:37 am

lol! not mIRC botz are they? =/ epic fail if so =\

but neat script! gj i have a sim. TCL version to this.. but its fer eggdrops and works slightly different

Comments: 914

mIRC Snippet: Java/No AWAY System
Posted on Jun 14, 2008 9:44 am

mIRC bots = epic fail? How so? my bots work just fine sure i need to update codes but work for me.I dont know TCL so i do what i can.`-.-´

mentalglitch

Comments: 27

mIRC Snippet: Java/No AWAY System
Posted on Jun 14, 2008 10:14 am

lol fair enough i spose people do gotta start somewhere XD but yes mIRC flooders are phail =/ they can't continuously stream information to the ircd without lagging.. doesnt matter how good your net is or how bad ass your computer is! the scripting engine inside mIRC runs @ very low speeds compared to most other programming languages. thus a bot in mIRC will always come up short in the end! but.. lol it would take 30-40 mIRC bots to equal the power of just 10 eggdrops(since they can be easily interlinked and talk to each other) I am curious though id like to see your bots :P msg m3h the address to the ircd your on?
i'll let ya flood me LOL if ya don;t wanna give m3h the addr to your ircd i'll start mine you can show me there

Comments: 914

mIRC Snippet: Java/No AWAY System
Posted on Jun 14, 2008 10:25 am

Dude im not on ircD im on chatspace style server and just read my sig and i dont flood people its lame i code against malicious kiddie crap like that and i have only one security bot and one game-bot no idea why ppl whine about my one bot.Another note i don't take coding seriously its a hobby theres no money in it hence no time an effort well as far as mIRC is concerned an i have no desire to learn any other coding languages this is for fun:P `-.-´

mentalglitch

Comments: 27

mIRC Snippet: Java/No AWAY System
Posted on Jun 14, 2008 10:30 am

haha im by no means tryin to put ya down or anything i admire your ambition to learn, this is all just my personal opinion since i don't like windoze and am a 100% linux/GNU user

mentalglitch

Comments: 27

mIRC Snippet: Java/No AWAY System
Posted on Jun 14, 2008 10:39 am

LOL ok sir check it out! ircd is the server daemon ALL irc servers are "ircd's" ircd as i understand it = internet relay chat daemon
o lol and i agree flooding is retarded.. i don't do it myself despite having a nice botnet i use them purely to test my ircd's

Comments: 914

mIRC Snippet: Java/No AWAY System
Posted on Jun 14, 2008 10:43 am

What ever works I suppose.`-.-´

Java/No AWAY System

Introduction

Grab the Code

Comments

EL

My Snippet Tags

Contact

Friends (26)

Sponsors

		Freelance artist...
Last seen: Jul 24, 2008 Profile \| Website Friends (26) Snippets (22) Images (21) Comments Received (427) Comments Submitted (914) Forum Posts (50)