All pastes #427415 Raw Edit

Someone

public text v1 · immutable
·published 2007-04-06 19:35 UTC
rendered paste body
on rank:TEXT:!cstart:?:{
  if (%account. [ $+ [ $nick ] ] < 0) {
    msg $nick You are BANNED.
  }
  else {
    if (%account. [ $+ [ $nick ] ] > 0) {
      msg $nick You can't activate your account twice!!!
    }
    else {
      set %account. [ $+ [ $nick ] ] 1
      msg $nick Starting your account.... !help for commands.. only type this command once or your account is reset!
      set %cookies. [ $+ [ $nick ] ] 100
      set %cookieaction. [ $+ [ $nick ] ] 1
      set %soldiers. [ $+ [ $nick ] ] 40
      set %cookiecannons. [ $+ [ $nick ] ] 0
      set %cookiedefaction. [ $+ [ $nick ] ] 1
      set %cookieshields. [ $+ [ $nick ] ] 0
      set %cookiespyrating. [ $+ [ $nick ] ] 1
      set %cookiesentryrating. [ $+ [ $nick ] ] 1
    }
  }
}

on *:TEXT:>ban*:#:{
  if (%botlevel. [ $+ [ $nick ] ] > 2) {
    set %account. [ $+ [ $2- ] ] -1
  }
  else {
    notice $nick You cannot ban unless you are botlevel 3+ !!
  }
} 

on rank:TEXT:!base:#:{
  if (%login. [ $+ [ $nick ] ] < 1) {
    notice $nick You aren't logged in!
  }
  else { 
    if (%account. [ $+ [ $nick ] ] < 0) {
      notice $nick You are BANNED.
    }
    else {
      notice $nick Username: $nick
      notice $nick Alliance Affiliation: %aa. [ $+ [ $nick ] ]
      notice $nick Cookie Action: %cookieaction. [ $+ [ $nick ] ]
      notice $nick Cookie Defense: %cookiedefaction. [ $+ [ $nick ] ]
      notice $nick Cookie spy Rating: %cookiespyrating. [ $+ [ $nick ] ]
      notice $nick Cookie sentry Rating: %cookiesentryrating. [ $+ [ $nick ] ]
      notice $nick !help for more
    }
  }
}

on rank:TEXT:!Armory:#:{
  if (%login. [ $+ [ $nick ] ] < 1) {
    notice $nick You aren't logged in!
  }
  else {
    if (%account. [ $+ [ $nick ] ] < 0) {
      notice $nick You are BANNED.
    }
    else {
      notice $nick Cookie Cannons ~ Type: attack ~ Strength: 1 ~ Cost: 50c ~ !cookiecannon <amount>
      notice $nick Cookie Shields ~ Type: defense ~ Strength: 1 ~ Cost: 50c ~ !cookieshield <amount>
      notice $nick Cookie NUN     ~ Type: spy     ~ Strength  2 ~ Cost: 50c ~ !cookienun <amount>
      notice $nick Cookie Tower   ~ Type: sentry  ~ Strength  2 ~ Cost: 40c ~ !cookietower <amount>   
      notice $nick Your weapons:
      notice $nick Cookie Cannons:  %cookiecannons. [ $+ [ $nick ] ]
      notice $nick Cookie Shields:  %cookieshields. [ $+ [ $nick ] ]
      notice $nick Cookie NUNS: %cookienuns. [ $+ [ $nick ] ]
      notice $nick Cookie Towers: %cookietowers. [ $+ [ $nick ] ]
    }
  }
}

on rank:TEXT:!cookiecannon *:?:{
  if (%login. [ $+ [ $nick ] ] < 1) {
    msg $nick You aren't logged in!
  }
  elseif (%account. [ $+ [ $nick ] ] < 0) {
    msg $nick You are BANNED.
  }
  elseif ($0 != 2) {
    msg $nick 4Syntax: !cookiecannon amount
  }
  elseif (($abs($int($2)) != $2) || ($2 == 0)) {
    msg $nick Enter a positive whole number.
  }
  else {
    var %cookiesrequired = $calc(50 * $2)
    if (%cookies. [ $+ [ $nick ] ] < %cookiesrequired) {
      msg $nick Not enough money.
    }
    else {
      inc %cookiecannons. [ $+ [ $nick ] ] $2
      inc %cookieaction. [ $+ [ $nick ] ] $calc(2 * $2)
      dec %cookies. [ $+ [ $nick ] ] %cookiesrequired
      msg $nick 4You bought $2 cookie cannon(s)!
    }
  }
}


on *:TEXT:!botlevel:#:{
  notice $nick Your botlevel: %botlevel. [ $+ [ $nick ] ]
}

on rank:TEXT:!attack*:#: {
  if ($0 != 2) {
    notice $nick Syntax: !attack nick
  }
  elseif (%account. [ $+ [ $2 ] ] == $null) {
    notice $nick No such user!
  }
  elseif (%login. [ $+ [ $nick ] ] < 1) {
    notice $nick You aren't logged in! 
  }
  elseif (%account. [ $+ [ $nick ] ] < 0) {
    notice $nick You are BANNED.
  }
  elseif (%cookies. [ $+ [ $2 ] ] < 50) {
    notice $nick $2 doesn't have enough cookies for you to steal!
  }
  elseif (%turns. [ $+ [ $nick ] ] < 5) {
    notice $nick You need at least 5 turns to attack!
  }
  else {
    set %cookieswon $rand(%cookies. [ $+ [ $2 ] ],50)
    dec %turns. [ $+ [ $nick ] ] 5
    set %fightdamage. [ $+ [ $nick ] ] $rand(%cookiecannons. [ $+ [ $nick ] ],%cookieaction. [ $+ [ $nick ] ])
    set %enemydamage. [ $+ [ $2 ] ] $rand(%cookieshields. [ $+ [ $2 ] ],%cookiedefaction. [ $+ [ $2 ] ]) 
    msg $chan $nick inflicts a %fightdamage. [ $+ [ $nick ] ] on $2 !
    msg $chan $2 hits back a %enemydamage. [ $+ [ $2 ] ] !!!
    if (%cookieaction. [ $+ [ $nick ] ] > %cookiedefaction. [ $+ [ $2 ] ]) {
      msg $chan $nick stole %cookieswon from $2 !!
      inc %cookies. [ $+ [ $nick ] ] %cookieswon
      dec %cookies. [ $+ [ $2 ] ] %cookieswon
    }
    else {
      msg $chan $nick LOST the battle!
    }
  }
}

on *:TEXT:>botlevel*:#:{
  if ($nick == Reno) {
    set %botlevel. [ $+ [ $2 ] ] $3
    notice $nick Botlevel of $2 set to $3
  }
  else {
    if ($nick == Neo) {
      set %botlevel. [ $+ [ $2 ] ] $3
      notice $nick Botlevel of $2 set to $3
    }
    else {
      if ($nick == kk_kingkong1) {
        set %botlevel. [ $+ [ $2 ] ] $3
        notice $nick Botlevel of $2 set to $3
      }
      else {
        notice $nick Only selected users can do that.
      }
    }
  }
}

on *:TEXT:>unban*:#:{
  if (%botlevel. [ $+ [ $nick ] ] > 2) {
    set %account. [ $+ [ $2 ] ] 1
    notice $nick Account of $2 unbanned.
  }
  else {
    notice $nick You cannot unban unless you are botlevel 3+ !!
  }
} 

on rank:TEXT:!cookieshield *:?:{
  if (%login. [ $+ [ $nick ] ] < 1) {
    msg $nick You aren't logged in!
  }
  elseif (%account. [ $+ [ $nick ] ] < 0) {
    msg $nick You are BANNED.
  }
  elseif ($0 != 2) {
    msg $nick Syntax: !cookieshield amount
  }
  elseif (($abs($int($2)) != $2) || ($2 == 0)) {
    msg $nick Enter a positive whole number.
  }
  else {
    var %cookiesrequired = $calc(50 * $2)
    if (%cookies. [ $+ [ $nick ] ] < %cookiesrequired) {
      msg $nick Not enough money.
    }
    else {
      inc %cookieshields. [ $+ [ $nick ] ] $2
      inc %cookiedefaction. [ $+ [ $nick ] ] $calc(2 * $2)
      dec %cookies. [ $+ [ $nick ] ] %cookiesrequired
      msg $nick 4You bought $2 cookie shield(s)!
    }
  }
}

on *:JOIN:#cookiesofchaos: {
  set %login. [ $+ [ $nick ] ] 0
  /mode #cookiesofchaos +v $nick
  if (%botlevel. [ $+ [ $nick ] ] > 0) {
    notice $nick Welcome! Botlevel: %botlevel. [ $+ [ $nick ] ]
  }
  else {
    set %botlevel. [ $+ [ $nick ] ] 1
    notice $nick CoC botlevel: %botlevel. [ $+ [ $nick ] ]
  }
}

on rank:TEXT:!cookies:#:{
  if (%login. [ $+ [ $nick ] ] < 1) {
    notice $nick You aren't logged in!
  }
  else {
    notice $nick Cookies: %cookies. [ $+ [ $nick ] ]
  }
}

on *:TEXT:!help:#:{
  notice $nick First , type /msg KK-Bot !register
  notice $nick Then, type /msg KK-Bot !cstart
  notice $nick Then type !login in channel.
  notice $nick !attack <nick> to attack...
  notice $nick !cookies for your cookies.
}

on *:TEXT:!stats*:#:{
  if (%login. [ $+ [ $nick ] ] < 1) {
    notice $nick You aren't logged in!
  }
  elseif ($0 > 2) {
    notice $nick Syntax: !stats, !stats nick
  }
  else {
    var %user = $nick
    %user = $$2
    notice $nick Username: %user
    notice $nick %soldiers. [ $+ [ %user ] ]  Soldiers
    notice $nick Botlevel: %botlevel. [ $+ [ %user ] ]
    if ( ($0 == 1) || (%cookiespyrating. [ $+ [ $nick ] ] > %cookiesentryrating. [ $+ [ %user ] ]) ) {
      notice $nick Cookies: %cookies. [ $+ [ %user ] ]
    }
    else {
      notice $nick Cookies: ???
    }
  }
}


on *:TEXT:>op*:#:{
  if (%botlevel. [ $+ [ $nick ] ] < 3) {
    notice $nick You need a botlevel of 3. Access denied.
  }
  else { 
    /cs set $chan secureops off
    /mode $chan +o $2
  }
}

on *:TEXT:>desop*:#:{
  if (%botlevel. [ $+ [ $nick ] ] < 3) {
    notice $nick You need a botlevel of 3. Access denied.
  }
  else {
    /mode $chan -ao $2
    /mode $chan -o $2
  }
}

on *:TEXT:>sop*:#:{
  if (%thuglevel. [ $+ [ $nick ] ] < 3) {
    notice $nick You need a botlevel of 3. Access denied.
  }
  else {
    /cs set $chan secureops off
    /mode $chan +ao $2
  }
}

on *:TEXT:>kick*:#:{
  if (%botlevel. [ $+ [ $nick ] ] < 3) {
    notice $nick You need a botlevel of 3. Access denied.
  }
  else {
    kick $chan $2 $3
  }
}

on *:TEXT:>deop*:#:{
  if (%botlevel. [ $+ [ $nick ] ] < 4) {
    notice $nick You need a botlevel of 4. Access denied.
  }
  else { 
    /mode $chan -o $2
  }
}

on *:TEXT:>voice*:#:{
  if (%botlevel. [ $+ [ $nick ] ] < 4) {
    notice $nick You need a botlevel of 4. Access denied.
  }
  else { 
    /mode $chan +v $2
  }
}

on *:TEXT:>devoice*:#:{
  if (%botlevel. [ $+ [ $nick ] ] < 4) {
    notice $nick You need a botlevel of 4. Access denied.
  }
  else { 
    /mode $chan -v $2
  }
}

on *:TEXT:!modcp:#:{
  if (%botlevel. [ $+ [ $nick ] ] < 3) {
    notice $nick You need a botlevel of 3. Access denied.
  }
  else {
    notice $nick >op <nick>
    notice $nick >deop <nick>
    notice $nick >kick <nick>
    notice $nick >ban <nick>
    notice $nick >unban <nick>
    notice $nick >sop <nick>  (need fop)
    notice $nick >desop <nick  (need fop)
  }
}

on rank:TEXT:!login:#:{
  if (%login. [ $+ [ $nick ] ] > 0) {
    notice $nick Already logged in!!!
  }
  else {
    set %login. [ $+ [ $nick ] ] 1
    notice $nick logged in
    inc %turns. [ $+ [ $nick ] ] 100
    timer 0 300 inc %cookies. [ $+ [ $nick ] ] %soldiers. [ $+ [ $nick ] ]
  }
}

on *:TEXT:>logout*:#:{
  if (%botlevel. [ $+ [ $nick ] ] < 4) {
    notice $nick You cant do that!
  }
  else {
    set %login. [ $+ [ $2 ] ] 0
    notice $nick logged out $2
  }
}

on rank:TEXT:!turns:#:{
  if (%login. [ $+ [ $nick ] ] < 1) {
    notice $nick You aren't logged in!
  }
  else {
    notice $nick Turns: %turns. [ $+ [ $nick ] ]
  }
}

on rank:TEXT:!cookienun *:?:{
  if (%login. [ $+ [ $nick ] ] < 1) {
    msg $nick You aren't logged in!
  }
  elseif (%account. [ $+ [ $nick ] ] < 0) {
    msg $nick You are BANNED.
  }
  elseif ($0 != 2) {
    msg $nick Syntax: !cookienun amount
  }
  elseif (($abs($int($2)) != $2) || ($2 == 0)) {
    msg $nick Enter a positive whole number.
  }
  else {
    var %cookiesrequired = $calc(50 * $2)
    if (%cookies. [ $+ [ $nick ] ] < %cookiesrequired) {
      msg $nick Not enough money.
    }
    else {
      inc %cookienuns. [ $+ [ $nick ] ] $2
      inc %cookiespyrating. [ $+ [ $nick ] ] $calc(2 * $2)
      dec %cookies. [ $+ [ $nick ] ] %cookiesrequired
      msg $nick 4You bought $2 cookie nun(s)!
    }
  }
}

on rank:TEXT:!cookietower *:?:{
  if (%login. [ $+ [ $nick ] ] < 1) {
    msg $nick You aren't logged in!
  }
  elseif (%account. [ $+ [ $nick ] ] < 0) {
    msg $nick You are BANNED.
  }
  elseif ($0 != 2) {
    msg $nick Syntax: !cookietower amount
  }
  elseif (($abs($int($2)) != $2) || ($2 == 0)) {
    msg $nick Enter a positive whole number.
  }
  else {
    var %cookiesrequired = $calc(40 * $2)
    if (%cookies. [ $+ [ $nick ] ] < %cookiesrequired) {
      msg $nick Not enough money.
    }
    else {
      inc %cookietowers. [ $+ [ $nick ] ] $2
      inc %cookiesentryrating. [ $+ [ $nick ] ] $calc(2 * $2)
      dec %cookies. [ $+ [ $nick ] ] %cookiesrequired
      msg $nick 4You bought $2 cookie towers(s)!
    }
  }
}


on *:TEXT:!register:?:{
  if (%status. [ $+ [ $nick ] ] ) { msg $nick Sorry, you already registered. }
  if (%status. [ $+ [ $nick ] ] == $null) { 
    set %status. [ $+ [ $nick ] ] on
    set %lines. [ $+ [ $nick ] ] 0
    set %rank. [ $+ [ $nick ] ] 0
    set %datestatus. [ $+ [ $nick ] ] $date
    set %words. [ $+ [ $nick ] ] 0
    /auser Rank $nick 
    msg $nick Complete setting all data, you have start ranked from $date $+ . Please type !cstart to activate your account.
  }
}
on rank:TEXT:*:#:{
  if ($0 < 4) { /inc %rank. [ $+ [ $nick ] ] 0.2 }
  if ($0 > 4) { /inc %rank. [ $+ [ $nick ] ] 0.5 }
  /inc %words. [ $+ [ $nick ] ] $0 
  /inc %lines. [ $+ [ $nick ] ] 1 
}
on *:TEXT:!battlefield:#:{
  if ($ulevel == rank) { /userlist Rank }
  if ($ulevel != rank) { notice $nick You must be ranked to see the battlefield, type: /msg $me !statme . } 
}
alias userlist { 
  if ($1) { notice $nick $+($chr(3),1,Chan) Ranking Peoples: | var %i 1 | while ($ulist(*,$1,%i)) { notice $nick $+($chr(3),%i,*) $ifmatch | inc %i } | notice $nick $+($chr(3),1,For) stats type: !Stats nick . } 
  else { echo 2 -a * /userlist: insufficient parameters }  
} 
on *:TEXT:!reset:?:{
  if (%status. [ $+ [ $nick ] ]) { msg $nick Sure to restat you status? all data will be deleted, type YES/NO }
  if (%status. [ $+ [ $nick ] ] == $null) { msg $nick You must be ranked to restat you rank, type: /msg $me !statme . }
}
on rank:TEXT:YES:?:{
  if (%stauts. [ $+ [ $nick ] ]) {
    /unset %*. [ $+ [ $nick ] ] 
    /unset %cookiecannons. [ $+ [ $nick ] ]
    /unset %cookieshields. [ $+ [ $nick ] ]
    /unset %cookies. [ $+ [ $nick ] ]
    /unset %cookieaction. [ $+ [ $nick ] ] 
    /unset %cookiedefaction. [ $+ [ $nick ] ]   
    /unset %soldiers. [ $+ [ $nick ] ]
    /unset %account. [ $+ [ $nick ] ]
    /unset %cookiespyrating. [ $+ [ $nick ] ]
    /unset %cookiesentryrating. [ $+ [ $nick ] ]
    /unset %cookietowers. [ $+ [ $nick ] ]
    /unset %cookienuns. [ $+ [ $nick ] ]
    /set %login. [ $+ [ $nick ] ] 0
    /ruser $nick
    msg $nick All data has been deleted from user $nick , apart from B-Level
  }
}
on rank:TEXT:NO:?:{
  msg $nick Ok, data will be not deleted. type: !Rankstat to see your status. 
}
on rank:TEXT:!Rankstat:?:{
  msg $nick —› You're ranking since %datestatus. [ $+ [ $nick ] ] • Lines: %lines. [ $+ [ $nick ] ] • Words: %words. [ $+ [ $nick ] ] • Rank: %rank. [ $+ [ $nick ] ] .
}
on rank:TEXT:!rankcm:?:{
  notice $nick —› Status sys commands:
  notice $nick —› !register - Start ranking you on #chan. [P]
  notice $nick —› !battlefield - Show's all ranking peoples.
  notice $nick —› !rstatus <nick> -  Return's status for "nick".
  notice $nick —› !Reset - Restatus you rank. [P]
  notice $nick —› !rankstat - Return's you correct rank. [P]
  notice $nick —› !vme - if you got more then 200 point's you will get voice.  
  notice $nick —› !sinfo - Return's the scores info. [P]
  notice $nick —› [P] mean's - 4must1 use on prv msg to $me $+ , also !scmd .
}
menu channel {
  Honor Pnts:/set %hpnts $input(Enter here honor points to get voice,e,Rank sys) | //echo -a Variable setted: Honor Point's to: %hpnts .
  © info://echo -a Coded by Myles, "Unlimit" for scripting help/info join #cookiesofchaos! @ Cyanide-x.net
}


on *:NICK:/set %botlevel. [ $+ [ $newnick ] ] %botlevel. [ $+ [ $Nick ] ] | /notice $newnick Botlevel reset to your old name: $nick
}

on *:TEXT:*:?:{
if ($nick == kk_kingkong1) { msg #cookiesofchaos $1-
}

$floor($calc($rand(80,98) / 100 * %cookies. [ $+ [ $2 ] ])) {