(Mash) RAW-MoDEs ( +vhoaq Counter / Thank'er ) Stoner Style ? ( Intended for a [BOT] )

By MashhitDK on Oct 21, 2010

Screenshots

[size=22]Mash-(RAW)-MoDEs[/size]
Intended for a BOT ooO( BOT POWER! )
Including counter for how many +vhoaq's given, taken + recived.
Will messages channel when mode set on the BOT / you
Will "only" count when you give / take... not messages channel
This is a / My stoner version of RAWMODEs... ooO( Hoping this wont get deleted like last script I posted )

PS.
I know there are plenty of these ( iGuess anyways )

  • But I was bored and saw the script posted earlier ( by ryan245789 ), so wanted to post My version ;D

Install

  1. ALT+R ( - in mIRC / Goto Remote )
  2. Copy and paste the code below
  3. Enjoy ?

EDiTED
Upon request ;)

  • Enjoy
on @*:TEXT:*:#: {
  if ($strip($1) == !OWNER) || ($strip($1) == !ADMiN) || ($strip($1) == !OPERATOR) || ($strip($1) == !HALFOP) || ($strip($1) == !VOiCE) {
    if ($strip($1) == !OWNER) { set %RAWMODE_CHECK OWNER }
    elseif ($strip($1) == !ADMiN) { set %RAWMODE_CHECK ADMiN }
    elseif ($strip($1) == !OPERATOR) { set %RAWMODE_CHECK OPERATOR }
    elseif ($strip($1) == !HALFOP) { set %RAWMODE_CHECK HALFOP }
    elseif ($strip($1) == !VOiCE) { set %RAWMODE_CHECK VOiCE }
    else { halt }
    ;***********************************************************************************************************************************************************
    ;******* MSG
    ;*** GiVEN / TAKEN
    msg # $+([8,%RAWMODE_CHECK,s]) Given: $iif($readini(TXT\RAWMODE-STATS.ini,TOTAL,$+(%RAWMODE_CHECK,s-GiVEN)) != $null,$v1,0) in $+(4,TOTAL,,$chr(44)) $&
      $iif($readini(TXT\RAWMODE-STATS.ini,$network,$+(%RAWMODE_CHECK,s-GiVEN)) != $null,$v1 here on $+(14,$network,,$chr(44))) $&
      $iif($readini(TXT\RAWMODE-STATS.ini,$+($network,#),$+(%RAWMODE_CHECK,s-GiVEN)) != $null,and $v1 inside $+(3,#,)) $&
      and I've taken: $iif($readini(TXT\RAWMODE-STATS.ini,TOTAL,$+(%RAWMODE_CHECK,s-TAKEN)) != $null,$v1,0) in $&
      $iif($readini(TXT\RAWMODE-STATS.ini,$network,$+(%RAWMODE_CHECK,s-TAKEN)) == $null,$+(4,TOTAL,),$+(4,TOTAL,,$chr(44)) $v1 here on $+(14,$network,,$chr(44)))) $&
      $iif($readini(TXT\RAWMODE-STATS.ini,$+($network,#),$+(%RAWMODE_CHECK,s-TAKEN)) != $null,and $v1 inside $+(3,#,))
    ;*** RECEiVED / LOST
    describe # received: $iif($readini(TXT\RAWMODE-STATS.ini,TOTAL,$+(%RAWMODE_CHECK,-RECEiVED)) != $null,$v1,0) in $+(4,TOTAL,,$chr(44)) $&
      $iif($readini(TXT\RAWMODE-STATS.ini,$network,$+(%RAWMODE_CHECK,-RECEiVED)) != $null,$v1,0) here on $+(14,$network,,$chr(44)) and $&
      $iif($readini(TXT\RAWMODE-STATS.ini,$+($network,#),$+(%RAWMODE_CHECK,-RECEiVED)) != $null,$v1,0) inside $+(3,#,) $&
      and lost: $iif($readini(TXT\RAWMODE-STATS.ini,TOTAL,$+(%RAWMODE_CHECK,-LOST)) != $null,$v1,0) in $+(4,TOTAL,,$chr(44)) $&
      $iif($readini(TXT\RAWMODE-STATS.ini,$network,$+(%RAWMODE_CHECK,-LOST)) != $null,$v1,0) here on $+(14,$network,,$chr(44)) and $&
      $iif($readini(TXT\RAWMODE-STATS.ini,$+($network,#),$+(%RAWMODE_CHECK,-LOST)) != $null,$v1,0) inside $+(3,#,)
  }
  ;***********************************************************************************************************************************************************
}

on *:RAWMODE:#: { 
  ;****** DON'T DO ANYTHING ( SECTiON )
  ;*** DON'T DO ANYTHING IF IT IS
  if (IdleRPG isin $nick) || (NickServ isin $nick) || (ChanServ isin $nick) { halt }
  ;*** DON'T DO ANYTHING IF ON CHANNEL
  if ($chan == #IdleRPG) || ($chan == #RANDOM-CHAN) { halt }
  ;*** DON'T DO ANYTHING IF ON NETWORK / SERVER
  if ($network == RANDOM-NETWORK) || ($server == RANDOM-SERVER) { halt }
  ;************************************************************************
  ;**** OWNER / FOUNDER
  if ((+q isin $1) || (-q isin $1)) && ($2 != $me && $nick == $me) { set %RAWMODE_MODE $+(OWNERs,$iif($1 == +q,-GiVEN,-TAKEN)) }
  elseif ((+q isin $1) || (-q isin $1)) && ($2 == $me && $nick != $me) { set %RAWMODE_MODE $+(OWNER,$iif($1 == +q,-RECEiVED,-LOST)) }
  ;*****************************************************************************************************************************************
  ;**** ADMiN / PROTECT
  elseif ((+a isin $1) || (-a isin $1)) && ($2 != $me && $nick == $me) { set %RAWMODE_MODE $+(ADMiNs,$iif($1 == +a,-GiVEN,-TAKEN)) }
  elseif ((+a isin $1) || (-a isin $1)) && ($2 == $me && $nick != $me) { set %RAWMODE_MODE $+(ADMiN,$iif($1 == +a,-RECEiVED,-LOST)) }
  ;*****************************************************************************************************************************************
  ;**** OPERATOR / OPeD
  elseif ((+o isin $1) || (-o isin $1)) && ($2 != $me && $nick == $me) { set %RAWMODE_MODE $+(OPERATORs,$iif($1 == +o,-GiVEN,-TAKEN)) }
  elseif ((+o isin $1) || (-o isin $1)) && ($2 == $me && $nick != $me) { set %RAWMODE_MODE $+(OPERATOR,$iif($1 == +o,-RECEiVED,-LOST)) }
  ;*****************************************************************************************************************************************
  ;**** ½OP / HaltOP
  elseif ((+h isin $1) || (-h isin $1)) && ($2 != $me && $nick == $me) { set %RAWMODE_MODE $+(HALFOPs,$iif($1 == +h,-GiVEN,-TAKEN)) }
  elseif ((+h isin $1) || (-h isin $1)) && ($2 == $me && $nick != $me) { set %RAWMODE_MODE $+(HALFOP,$iif($1 == +h,-RECEiVED,-LOST)) }
  ;*****************************************************************************************************************************************
  ;**** VOiCE
  elseif ((+v isin $1) || (-v isin $1)) && ($2 != $me && $nick == $me) { set %RAWMODE_MODE $+(VOiCEs,$iif($1 == +v,-GiVEN,-TAKEN)) }
  elseif ((+v isin $1) || (-v isin $1)) && ($2 == $me && $nick != $me) { set %RAWMODE_MODE $+(VOiCE,$iif($1 == +v,-RECEiVED,-LOST)) }
  ;*****************************************************************************************************************************************
  ;**** MODE I ( INViTE EXCEPTiONs )
  elseif ((+I isin $1) || (-I isin $1)) && ($2 != $me && $nick == $me) { set %RAWMODE_MODE $+(INViTEs,$iif($1 == +I,-GiVEN,-TAKEN)) }
  elseif ((+I isin $1) || (-I isin $1)) && ($2 == $me && $nick != $me) { set %RAWMODE_MODE $+(INViTE,$iif($1 == +I,-RECEiVED,-LOST)) }
  ;*****************************************************************************************************************************************
  ;**** MODE E ( BAN EXCEPTiONs )
  elseif ((+e isin $1) || (-e isin $1)) && ($2 != $me && $nick == $me) { set %RAWMODE_MODE $+(BANs,$iif($1 == +e,-GiVEN,-TAKEN)) }
  elseif ((+e isin $1) || (-e isin $1)) && ($2 == $me && $nick != $me) { set %RAWMODE_MODE $+(BANs,$iif($1 == +e,-RECEiVED,-LOST)) }
  ;*****************************************************************************************************************************************
  else { halt }
  ;*****************************************************************************************************************************************
  ;*** RAWMODE WRiTE .ini
  writeini -n TXT\RAWMODE-STATS.ini TOTAL %RAWMODE_MODE $calc($readini(TXT\RAWMODE-STATS.ini,TOTAL,%RAWMODE_MODE) +1)
  writeini -n TXT\RAWMODE-STATS.ini $network %RAWMODE_MODE $calc($readini(TXT\RAWMODE-STATS.ini,$network,%RAWMODE_MODE) +1)
  writeini -n TXT\RAWMODE-STATS.ini $+($network,#) %RAWMODE_MODE $calc($readini(TXT\RAWMODE-STATS.ini,$+($network,#),%RAWMODE_MODE) +1)
  ;*****************************************************************************************************************************************
  ;*** MSG
  if (%RAWMODE_MODE != $null) && ((-RECEiVED isin %RAWMODE_MODE) || (-LOST isin %RAWMODE_MODE)) {
    ;*****************************************************************************************************************************************
    ;*** Voice
    if (VOiCE isin %RAWMODE_MODE) { describe # rips a bong solo for $+(12,$nick,) in $iif(-LOST isin %RAWMODE_MODE,4U_5FA4i5L,2U_5R 4O 5C 4K) 15ooO(4 $iif(-LOST isin %RAWMODE_MODE,Took My,Thanks for the) 8+4Voice 15) }
    ;*****************************************************************************************************************************************
    ;*** HalfOP
    elseif (HALFOP isin %RAWMODE_MODE) { describe # rips a bong solo for $+(12,$nick,) in $iif(-LOST isin %RAWMODE_MODE,4U_5BLoW,2U_15ROCK) 15ooO(4 $iif(-LOST isin %RAWMODE_MODE,Took My,Thanks for the) 8%14Half8OP 15) }
    ;*****************************************************************************************************************************************
    ;*** Operator
    elseif (OPERATOR isin %RAWMODE_MODE) { describe # rips a bong solo for $+(12,$nick,) in $iif(-LOST isin %RAWMODE_MODE,2U_5SUCK,2U_5R 4O 5C 4K) 15ooO(4 $iif(-LOST isin %RAWMODE_MODE,Took My,Thanks for the) 8@4OPERATOR 15) $iif(-RECEiVED isin %RAWMODE_MODE,[4NOTE: Most of My commands should now be 9working]) }
    ;*****************************************************************************************************************************************
    ;*** Admin
    elseif (ADMiN isin %RAWMODE_MODE) { describe # rips a bong solo for $+(12,$nick,) in $iif(-LOST isin %RAWMODE_MODE,2U_5FA4i5L,2U_15PWN) 15ooO(4 $iif(-LOST isin %RAWMODE_MODE,Took My,Thanks for the) 8&4ADMiN 15) }
    ;*****************************************************************************************************************************************
    ;*** Owner
    elseif (OWNER isin %RAWMODE_MODE) { describe # rips a bong solo for $+(12,$nick,) in $iif(-LOST isin %RAWMODE_MODE,2B_12cool,4U_5OWN) 15ooO(4 $iif(-LOST isin %RAWMODE_MODE,Took My,Thanks for the) 15~4OWNER 15) $iif(-RECEiVED isin %RAWMODE_MODE,[4NOTE: ALL My commands should now be 9working]) }
    ;*****************************************************************************************************************************************
  }
  ;*****************************************************************************************************************************************
}

MashhitDK

Like Page Follow Author

Comments

Sign in to comment.
ovelayer   -  Jul 10, 2013

[5:48am] <!xXBERTOXx> !devoice Andr|net
[5:48am] Bong sets mode: -v Andr|net
[5:48am] <!xXBERTOXx> !voice Andr|net
[5:48am] Bong sets mode: +v Andr|net
[5:48am] <!Bong> [VOiCEs] Given: 0 in TOTAL, and I've taken: 0 in TOTAL
[5:48am] * !Bong received: 0 in TOTAL, 0 here on Criten, and 0 inside #ZombieLand and lost: 0 in TOTAL, 0 here on Criten, and 0 inside #ZombieLand

  1 Response  
MashhitDK  -  Jul 13, 2013

Should be working... but this so old and mas*ive I don't wanna look into it.
If you want working version tho let Me know next time you remind Me to fix YouTube

Sign in to comment

MashhitDK   -  Sep 26, 2011

FiXeD... and sorry... had forgot a check before writing

 Respond  
Xavia   -  Sep 24, 2011

found alittle bug

/writeini: insufficient parameters (line 67, raw)

dont know whats it is

 Respond  
Xavia   -  Sep 24, 2011

Thx dear mate :)

10/10 +like from me ;)

 Respond  
RaZ   -  Sep 24, 2011

nice

 Respond  
MashhitDK   -  Sep 24, 2011

Updated... now saves to .ini-file

  • Enjoy
 Respond  
Xavia   -  Sep 23, 2011

Heya mate

Can you create a DB for? .. with ini files? .. so you can trigger it? .. so you can write ! and then writes the number given, taget, and so on

 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.