Well this is mt first actual Script lol...It's a rpg based on magic. Some of the idead in it are from other scripts but there has been so many rips that I do not know the real creator of em, if it's you send me a message and I'll add you to my thanks section.

Put it in your bots script editor (alt+r) In the remotes and in the bots mIRC type /auser 500 [yournick]

========================================
= Created by Justin Merwin             =
= Justinmerwin18@yahoo.com             =
= irc.lucidchat.net                    =
= Edit script In any way you want      =
= Please do not rip                    =
========================================

on 1:text:`Register:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$Nick,Register) == Yes) { Notice $nick You already Made a Account! | halt }
    Notice $Nick 09,01Welcome to the ChaosRPG. To continue your registration plz identify your gender! Type `Gender Male or `Gender Female.
  }
}
on 1:Text:`Gender*:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$Nick,Register) == Yes) { Notice $nick You already Made a Account! | halt }
    if (Male == $2) {
      writeini Chaos.ini $Nick Gender Male
      Notice $Nick 09,01Now that you have identified yourself as a Male you can now choose your character! Type `Characters to see a list!
    }
    if (Female == $2) {
      writeini Chaos.ini $Nick Gender Female
      Notice $Nick09,01 09,01Now that you have identified yourself as a Female you can now choose your character! Type `Characters to see a list!
    }
  }
}
on 1:Text:`Characters:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$Nick,Gender) == Male) { notice $Nick 01,15Characters: Merlin, Arthur, Kamakaze, Mythrol. Type `Choose (Character) to complete registration! }
    if ($readini(Chaos.ini,$Nick,Gender) == Female) { notice $Nick 01,15Characters: Sieza, Merinlam . Type `Choose (Character) to complete registration! }
  }
}
on 1:Text:`Choose*:#: {
  if (%Power == On) {
    if (Merlin == $2 || Arthur == $2 || Kamakaze == $2 || Mythrol == $2) {
      Writeini Chaos.ini $Nick Character $2
      Writeini Chaos.ini $Nick Rank Apprentice
      Writeini Chaos.ini $Nick Hp 0
      Writeini Chaos.ini $Nick MHp $Rand(100,200)
      Writeini Chaos.ini $Nick ki 0
      Writeini Chaos.ini $Nick Mmagic $Rand(50,150)
      Writeini Chaos.ini $Nick ki2 0
      Writeini Chaos.ini $Nick MMagic $Rand(50,150)
      Writeini Chaos.ini $Nick Gold Coins $Rand(50,200)
      Writeini Chaos.ini $Nick Intell 10
      Writeini Chaos.ini $Nick Strength 10
      Writeini Chaos.ini $Nick NAttacks  punch kick
      Writeini Chaos.ini $Nick Magicattacks None
      Writeini Chaos.ini $Nick LvL 1
      Writeini Chaos.ini $Nick Exp 0
      Writeini Chaos.ini $Nick NExp 100
      Writeini Chaos.ini $Nick Register Yes
      Notice $Nick 09,01Registration is now complete! Type `Stats  to see your stats and `Help if you need help!
      Heal $Nick
    }
    if (Sieza == $2 || Merinlam == $2) {
      Writeini Chaos.ini $Nick Character $2
      Writeini Chaos.ini $Nick Rank Apprentice
      Writeini Chaos.ini $Nick Hp 0
      Writeini Chaos.ini $Nick MHp $Rand(100,150)
      Writeini Chaos.ini $Nick ki 0
      Writeini Chaos.ini $Nick Mmagic $Rand(50,120)
      Writeini Chaos.ini $Nick Magic 0
      Writeini Chaos.ini $Nick MMagic $Rand(50,120)
      Writeini Chaos.ini $Nick Gold Coins $Rand(50,170)
      Writeini Chaos.ini $Nick Intell 10
      Writeini Chaos.ini $Nick Strength 10
      Writeini Chaos.ini $Nick NAttacks punch kick
      Writeini Chaos.ini $Nick Magicattacks Flame      
      Writeini Chaos.ini $Nick LvL 1
      Writeini Chaos.ini $Nick Exp 0
      Writeini Chaos.ini $Nick NExp 100
      Writeini Chaos.ini $Nick Register Yes
      Notice $Nick09,01 Registration is now complete! Type `Stats  to see your stats and `Help if you need help!
      Heal $Nick
    }
  }
}
on 1:Text:`Stats:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$Nick,Register) != Yes) { Notice $nick 09,01You are not registered! Plz `Register | halt }
    Notice $Nick 09,01Character: $readini(Chaos.ini,$Nick,Character) || Hp: $readini(Chaos.ini,$Nick,Hp) / $readini(Chaos.ini,$Nick,MHp) || ki: $readini(Chaos.ini,$Nick,Magic) / $readini(Chaos.ini,$Nick,Mmagic) || Magic: $readini(Chaos.ini,$Nick,Magic) / $readini(Chaos.ini,$Nick,MMagic) || Rank: $readini(Chaos.ini,$Nick,Rank) || Level: $readini(Chaos.ini,$Nick,LvL) || Exp: $readini(Chaos.ini,$Nick,Exp) || Exp To LvL Up: $readini(Chaos.ini,$Nick,NExp)
    Notice $Nick 09,01Strength: $readini(Chaos.ini,$nick,Strength) || Intell: $readini(Chaos.ini,$nick,Intell)

  }
}
on 1:Text:`Stats*:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $nick $2 09,01is not registered! | halt }
    Notice $Nick 09,01Character: $readini(Chaos.ini,$2,Character) || Hp: $readini(Chaos.ini,$2,Hp) / $readini(Chaos.ini,$2,MHp) || ki: $readini(Ninja.ini,$2,ki) / $readini(Chaos.ini,$2,Mmagic) || Magic: $readini(Chaos.ini,$2,Magic) / $readini(Chaos.ini,$2,MMagic) || Rank: $readini(Chaos.ini,$2,Rank) || Level: $readini(Chaos.ini,$2,LvL) || Exp: $readini(Chaos.ini,$2,Exp) || Exp To LvL Up: $readini(Chaos.ini,$2,NExp)
    Notice $Nick 09,01Strength: $readini(Chaos.ini,$2,Strength) || Intell: $readini(Chaos.ini,$2,Intell) 

  }
}
on 1:Text:`Gold Coins:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick 09,01You are not registered! | halt }
    Notice $Nick 09,01Gold Coins: $readini(Chaos.ini,$nick,Gold Coins)
  }
}
on 1:Text:`Gold Coins*:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $nick $2 09,01is not registered | halt }
    Notice $Nick $2 $+ 's 09,01Gold Coins: $readini(Chaos.ini,$2,Gold Coins)
  }
}
on *:text:`Heal:#:{
  if (%Power == On) 
  if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick 09,01You are not registered! | halt }
  if ($readini(Chaos.ini,$nick,Fighting) == Yes) { /notice $nick 09,01You are Fighting! | halt }
  if ($timer(Heal $+ $nick).secs != $null) { /notice $nick 09,01You Are Already Healing | halt }
  Notice $nick 09,01You will Heal In 10 Seconds!
  Timerheal $+ $nick 1 10 /Heal $nick
}
}

on 1:Text:`ShowStats:#: {
if (%Power == On) {
  if ($readini(Chaos.ini,$Nick,Register) != Yes) { Notice $nick 09,01You are not registered! Plz `Register | halt }
  Msg $Chan 09,01Character: $readini(Chaos.ini,$Nick,Character) || Hp: $readini(Chaos.ini,$Nick,Hp) / $readini(Chaos.ini,$Nick,MHp) || ki: $readini(Chaos.ini,$Nick,ki) / $readini(Chaos.ini,$Nick,Mmagic) || Magic: $readini(Chaos.ini,$Nick,Magic) / $readini(Chaos.ini,$Nick,MMagic) || Rank: $readini(Chaos.ini,$Nick,Rank) || Level: $readini(Chaos.ini,$Nick,LvL) || Exp: $readini(Chaos.ini,$Nick,Exp) || Exp To LvL Up: $readini(Chaos.ini,$Nick,NExp)
  Msg $Chan 09,01Strength: $readini(Chaos.ini,$nick,Strength) || Intell: $readini(Chaos.ini,$nick,Intell) 
}
}
on 1:Text:`ShowStats*:#: {
if (%Power == On) {
  if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $nick $2 09,01is not registered! | halt }
  Msg $Chan 09,01Character: $readini(Chaos.ini,$2,Character) || Hp: $readini(Chaos.ini,$2,Hp) / $readini(Chaos.ini,$2,MHp) || ki: $readini(Chaos.ini,$2,ki) / $readini(Chaos.ini,$2,Mmagic) || Magic: $readini(Chaos.ini,$2,Magic) / $readini(Chaos.ini,$2,MMagic)  || Rank: $readini(Chaos.ini,$2,Rank) || Level: $readini(Chaos.ini,$2,LvL) || Exp: $readini(Chaos.ini,$2,Exp) || Exp To LvL Up: $readini(Chaos.ini,$2,NExp)
  Msg $Chan 09,01Strength: $readini(Chaos.ini,$2,Strength) || Intell: $readini(Chaos.ini,$2,Intell) 

}
}
on *:join:#:{
if (%Power == On) {
  if ($readini(Chaos.ini,$Nick,Register) != Yes) && (%Chan == $Chan) { Notice $nick 09,01Welcome to %Chan $+ ! You Have Not Registered, Type `Register | halt }
  if ($readini(Chaos.ini,$nick,Register) == Yes) && (%Chan == $Chan) { Notice $nick 09,0109,01Welcome to %Chan $+ ! You are Registered. Please Type `Help for Help! }
}
}
on *:nick:{
if (%Power == On) {
  if ($readini(Chaos.ini,$nick,Register) != Yes) { Halt }
  Set %batlist $remtok(%batlist,$nick,1,32)
  Writeini -n Chaos.ini $Nick Fighting No
  Writeini -n Chaos.ini $Nick Attacking No
  Mode %Chan -v $nick
}
}
on *:part:#:{
if (%Power == On) {
  if ($readini(Chaos.ini,$nick,Register) != Yes) { Halt }
  Set %batlist $remtok(%batlist,$nick,1,32)
  Writeini -n Chaos.ini $Nick Fighting No
  Writeini -n Chaos.ini $Nick Attacking No
}
}
on *:Quit:{
if (%Power == On) {
  if ($readini(Chaos.ini,$nick,Register) != Yes) { Halt }
  Set %batlist $remtok(%batlist,$nick,1,32)
  Writeini -n Chaos.ini $Nick Fighting No
  Writeini -n Chaos.ini $Nick Attacking No
}
}
on 1:Text:`MagicAttacks:#: {
if (%Power == On) {
  if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $Nick You are not registered! | Halt }
  Notice $Nick Magicattacks: $readini(Chaos.ini,$nick,Magicattacks)
}
}
on 1:Text:`Items:#: {
if (%Power == On) {
  if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $Nick You are not registered! | Halt }
  Notice $nick kiPills: $readini(Chaos.ini,$nick,CPills) || MagicPills: $readini(Chaos.ini,$nick,MagicPills) || HealthPills: $readini(Chaos.ini,$nick,HPills)
}
}
on 1:Text:`Attacks:#: {
if (%Power == On) {
  if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $Nick You are not registered! | Halt }
  Notice $Nick Attacks: $readini(Chaos.ini,$nick,NAttacks)
}
}
on *:text:`Enter:#: {
if (%Power == On) {
  if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick 09,01You are not registered! | halt }
  if ($readini(Chaos.ini,$Nick,Hp) <= 0) { Notice $nick 09,01Please Heal | halt }
  if ($readini(Chaos.ini,$nick,fighting) == yes) { Notice $nick 09,01You are Already Battling! | halt }
  if ($timer(Heal $+ $nick).secs != $null) { /notice $nick 09,01You Are Healing | halt }
  Writeini Chaos.ini $nick fighting yes
  Set %batlist %batlist $nick
  Msg # $Nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ ) 09,01Enters The Battle Field!
}
}
on *:text:`Leave:#: {
if (%Power == On) {
  if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
  if ($readini(Chaos.ini,$nick,fighting) != yes) { Notice $nick You Are Not Fighting | halt }
  if ($timer(Leave $+ $nick).secs != $null) { /notice $nick You Are Already Leaving | halt }
  TimerLeave $+ $nick 1 10 /leave $nick
  Msg # $Nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ ) 09,01 is Leaving The Battle Field in 10 Seconds!
}
}
on *:text:`Entered:#: {
if (%Power == On) {
  if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
  Msg $Chan Entered: %Batlist
}
}
on 1:Text:`Lag:#: {
if (%Power == On) {
  LagTest
  Msg # Bot lag: $+($calc(($ticks - %ticks) / 1000),s)
}
}

alias lagtest { 
set %ticks $ticks | .raw PING 123 
} 
on 1:Text:`Train*:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
    if ($2 == Intell) { 
      Set %Useage $Calc($3 * 20)
      if ($readini(Chaos.ini,$nick,ki) <= %Useage) { Notice $Nick You do not have enough ki! | Halt }
      if ($readini(Chaos.ini,$nick,Magic) <= %Useage) { Notice $Nick You do not have enough Magic! | Halt }
      writeini Chaos.ini $Nick Intell $Calc($readini(Chaos.ini,$nick,Intell) + $3)
      writeini Chaos.ini $Nick ki $Calc($readini(Chaos.ini,$nick,ki) - %Useage)
      writeini Chaos.ini $Nick Magic $Calc($readini(Chaos.ini,$nick,Magic) - %Useage)
      Msg #  $nick 09,01Trained his $2 $3 Times!
    }
    if ($2 == Strength) { 
      Set %Useage $Calc($3 * 20)
      if ($readini(Chaos.ini,$nick,ki) <= %Useage) { Notice $Nick You do not have enough ki! | Halt }
      if ($readini(Chaos.ini,$nick,ki) <= %Useage) { Notice $Nick You do not have enough Magic! | Halt }
      writeini Chaos.ini $Nick Strength $Calc($readini(Chaos.ini,$nick,Strength) + $3)
      writeini Chaos.ini $Nick ki $Calc($readini(Chaos.ini,$nick,ki) - %Useage)
      writeini Chaos.ini $Nick Magic $Calc($readini(Chaos.ini,$nick,Magic) - %Useage)
      Msg #  $nick Trained his $2 $3 Times!
    }
  }
}
on 1:TEXT:`White flame*:*:{
  if (%Power == On) {
    if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
    if ($readini(Chaos.ini,$nick,Magic) <= 10) { Notice $nick You do not have enough Magic! | Halt }
    if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
    if ($readini(Chaos.ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
    if ($readini(Chaos.ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
    if ($readini(Chaos.ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
    Set %Attacks $readini(Chaos.ini,$nick,NAttacks)
    if ($istok(%attacks,punch,32) == $true) {
      set %base.power [ $readini Chaos.ini $Nick Strength ]
      set %ExpGain $Rand(1,5000)
      set %defense.power [  $readini Chaos.ini $2 Strength ]
      set %attack.power [  $readini Chaos.ini $Nick Strength ]  
      set %Damage $calc( %base.power + (%attack.power - %defense.power))
      if (%Damage < 500) { set %Damage 500 }
      msg $Chan $nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ )4 shoots $2 $+ ( $+ $readini(Ninja.ini,$2,Character) $+ ) a White flame  dealling $bytes(%damage,b) damage! (Gained %ExpGain Exp) 
      writeini Chaos.ini $2 Hp $calc($readini(Chaos.ini,$2,Hp) - %Damage)
      writeini Chaos.ini $nick Exp $calc($readini(Chaos.ini,$Nick,Exp) + %ExpGain)
      writeini Chaos.ini $nick Magic $Calc($readini(Chaos.ini,$Nick,Magic) - 10)
      LvLCheck $Nick
      DeadCheck $Nick $2 
    }
  }
}
on 1:TEXT:`Insaneflare *:*:{
  if (%Power == On) {
    if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
    if ($readini(Chaos.ini,$nick,Magic) <= 10) { Notice $nick You do not have enough Magic! | Halt }
    if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
    if ($readini(Chaos.ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
    if ($readini(Chaos.ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
    if ($readini(Chaos.ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
    Set %Attacks $readini(Chaos.ini,$nick,NAttacks)
    if ($istok(%attacks,punch,32) == $true) {
      set %base.power [ $readini Chaos.ini $Nick Strength ]
      set %ExpGain $Rand(1,5000)
      set %defense.power [  $readini Chaos.ini $2 Strength ]
      set %attack.power [  $readini Chaos.ini $Nick Strength ]  
      set %Damage $calc( %base.power + (%attack.power - %defense.power))
      if (%Damage < 500) { set %Damage 500 }
      msg $Chan $nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ )4 shoots $2 $+ ( $+ $readini(Ninja.ini,$2,Character) $+ ) a Insaneflare dealling $bytes(%damage,b) damage! (Gained %ExpGain Exp) 
      writeini Chaos.ini $2 Hp $calc($readini(Chaos.ini,$2,Hp) - %Damage)
      writeini Chaos.ini $nick Exp $calc($readini(Chaos.ini,$Nick,Exp) + %ExpGain)
      writeini Chaos.ini $nick Magic $Calc($readini(Chaos.ini,$Nick,Magic) - 10)
      LvLCheck $Nick
      DeadCheck $Nick $2 
    }
  }
}
on 1:TEXT:`punch*:*:{
  if (%Power == On) {
    if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
    if ($readini(Chaos.ini,$nick,Magic) <= 10) { Notice $nick You do not have enough Magic! | Halt }
    if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
    if ($readini(Chaos.ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
    if ($readini(Chaos.ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
    if ($readini(Chaos.ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
    Set %Attacks $readini(Chaos.ini,$nick,NAttacks)
    if ($istok(%attacks,punch,32) == $true) {
      set %base.power [ $readini Chaos.ini $Nick Strength ]
      set %ExpGain $Rand(1,500)
      set %defense.power [  $readini Chaos.ini $2 Strength ]
      set %attack.power [  $readini Chaos.ini $Nick Strength ]  
      set %Damage $calc( %base.power + (%attack.power - %defense.power))
      if (%Damage < 1) { set %Damage 1 }
      msg $Chan $nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ )4 punchs $2 $+ ( $+ $readini(Ninja.ini,$2,Character) $+ ) in the back of the head doing $bytes(%damage,b) damage! (Gained %ExpGain Exp) 
      writeini Chaos.ini $2 Hp $calc($readini(Chaos.ini,$2,Hp) - %Damage)
      writeini Chaos.ini $nick Exp $calc($readini(Chaos.ini,$Nick,Exp) + %ExpGain)
      writeini Chaos.ini $nick Magic $Calc($readini(Chaos.ini,$Nick,Magic) - 10)
      LvLCheck $Nick
      DeadCheck $Nick $2 
    }
  }
}
on 1:TEXT:`kick*:*:{
  if (%Power == On) {
    if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
    if ($readini(Chaos.ini,$nick,Sp) <= 10) { Notice $nick You do not have enough Sp! | Halt }
    if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
    if ($readini(Chaos.ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
    if ($readini(Chaos.ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
    if ($readini(Chaos.ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
    Set %Attacks $readini(Chaos.ini,$nick,NAttacks)
    if ($istok(%attacks,kick,32) == $true) {
      set %base.power [ $readini Chaos.ini $Nick Strength ]
      set %ExpGain $Rand(1,30)
      set %defense.power [  $readini Chaos.ini $2 Strength ]
      set %attack.power [  $readini Chaos.ini $Nick Strength ]  
      set %Damage $calc( %base.power + (%attack.power - %defense.power))
      if (%Damage < 1) { set %Damage 1 }
      msg $Chan $nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ )4 kicks $2 $+ ( $+ $readini(Ninja.ini,$2,Character) $+ )4 in the  head doing $bytes(%damage,b) damage! (Gained %ExpGain Exp) 
      writeini Chaos.ini $2 Hp $calc($readini(Chaos.ini,$2,Hp) - %Damage)
      writeini Chaos.ini $nick Exp $calc($readini(Chaos.ini,$Nick,Exp) + %ExpGain)
      writeini Chaos.ini $nick Magic $Calc($readini(Chaos.ini,$Nick,Magic) - 10)
      LvLCheck $Nick
      DeadCheck $Nick $2 
    }
  }
} 
on 1:TEXT:`orange Flame*:*:{
  if (%Power == On) {
    if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
    if ($readini(Chaos.ini,$nick,Sp) <= 10) { Notice $nick You do not have enough Sp! | Halt }
    if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
    if ($readini(Chaos.ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
    if ($readini(Chaos.ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
    if ($readini(Chaos.ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
    Set %Attacks $readini(Chaos.ini,$nick,NAttacks)
    if ($istok(%attacks,kick,32) == $true) {
      set %base.power [ $readini Chaos.ini $Nick Strength ]
      set %ExpGain $Rand(1,30)
      set %defense.power [  $readini Chaos.ini $2 Strength ]
      set %attack.power [  $readini Chaos.ini $Nick Strength ]  
      set %Damage $calc( %base.power + (%attack.power - %defense.power))
      if (%Damage < 1) { set %Damage 1 }
      msg $Chan $nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ )4 Casts Orange Flame at $2 $+ ( $+ $readini(Chaos.ini,$2,Character) $+ )4  doing $bytes(%damage,b) damage! (Gained %ExpGain Exp) 
      writeini Chaos.ini $2 Hp $calc($readini(Chaos.ini,$2,Hp) - %Damage)
      writeini Chaos.ini $nick Exp $calc($readini(Chaos.ini,$Nick,Exp) + %ExpGain)
      writeini Chaos.ini $nick Magic $Calc($readini(Chaos.ini,$Nick,Magic) - 10)
      LvLCheck  $Nick $2
      DeadCheck $Nick $2 

    }
  }
}
on 500:Text:`Power*:#: {
  if ($2 == On) {
    Set %Power On
    cs Topic %Chan 14||| 15ChaosRPG Status:12 Online 14|||
    Msg # ChaosRPG has now been activated!
  } 
  if ($2 == Off) {
    Set %Power Off
    cs Topic %Chan 14||| 15ChaosRPG Status:12 Offline 14|||
    Msg # ChaosRPG is now Deactivated
  }
}
on 500:Text:`AddAdmin*:#:{
  if (%Power == On) {
    Auser 400 $2
    cs Sop # add $2
    cs protect # $2
    Msg # $2 has been added as an Admin of the ChaosRPG Bot!
  }
}
on 500:Text:`RemAdmin*:#:{
  if (%Power == On) {
    Ruser $2
    cs Sop # del $2
    cs Deprotect # $2
    Msg # $2 has been Removed of his Admin powers!
  }
}
on 400:Text:`Set*:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $nick $2 is not registered! | halt }
    Writeini Chaos.ini $2 $3 $4-
    Msg # $2 $+ 's $3 was set to $4- by $nick $+ !
  }
}
on 400:Text:`AddGold Coins*:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $nick $2 is not registered! | halt }
    Writeini Chaos.ini $2 Gold Coins $Calc($readini(Chaos.ini,$2,Gold Coins) + $3)
    Msg # $nick added $3 Gold Coins to $2 $+ 's Account!
  }
}
on 400:Text:`RemGold Coins*:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $nick $2 is not registered! | halt }
    Writeini Chaos.ini $2 Gold Coins $Calc($readini(dbzi,$2,Gold Coins) - $3)
    Msg # $nick Removed $3 Gold Coins $2 $+ 's Account!
  }
}
on 200:Text:`Fenter*:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $Nick $2 is not registered! | halt }

    Writeini Chaos.ini $2 Fighting Yes
    Set %batlist %batlist $2
    Msg # $2 was force entered by $Nick
  }
}
on 200:Text:`Fleave*:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $Nick $2 is not registered! | halt }
    writeini Chaos.ini $2 Fighting No
    Set %batlist $remtok(%batlist,$2,1,32)
    Msg # $2 was force out of battle by $Nick
  }
}
on 200:Text:`Fheal*:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $Nick $2 is not registered! | halt }

    writeini Chaos.ini  $2 Hp $readini(Chaos.ini,$2,MHp)
    writeini Chaos.ini $2 Magic $readini(Chaos.ini,$2,MMagic)
    writeini Chaos.ini $2 ki $readini(Chaos.ini,$2,Mmagic)
    Msg # $2 was healed by $Nick
  }
}
on *:text:`help:#: {
  notice $Nick Help:battling:healling:Gold Coins:attacks:type `help <topic>
  Notice $Nick to battle type `enter  to leave type  `leave  
  notice $nick to heal type `heal 
  notice $Nick to see ranks type `ranks
  notice $Nick too look at Gold Coins type `Gold Coins 
  notice $Nick to look at attacks type `attacks 
  notice $Nick to look at ki attack type `Magicattacks.
  notice $Nick to register type `register
  notice $Nick `bags to see the bags entered
  notice $Nick to shop for Magicattacks type `Mshop
  notice $Nick if your a admin type `adminhelp admin's are sop's and up
}

on *:text:`adminhelp:#: {
  notice $Nick`fenter to make people enter
  notice $Nick `fleave to make people leave 
  notice $Nick `fheal to make people heal
}
on *:text:`Bots:#: {
  notice $nick 4bags entered:EnemyMagician
}
on 1:Text:`Mshop:#: {
  if (%Power == On) {
    if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
    if ($readini(Chaos.ini,$nick,Fighting) == Yes) { /notice $nick You are Fighting! | halt }
    Notice $Nick Jutsus: Insaneflare(1000), White flame(1500), ki blast(1500). Type `Learn (ki name) to learn the kiattack, If you have the Gold Coins for them! 
  }
}
on 1:Text:`Learn*:#: {
  if (%Power != On) { halt }
  if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
  if ($readini(Chaos.ini,$nick,Fighting) == Yes) { notice $nick You are Fighting! | halt }
  if (White flame == $2) {
    if ($readini(Chaos.ini,$nick,FJ) == Yes) { Notice $Nick You already know Insaneflare | halt }
    if ($readini(Chaos.ini,$nick,Gold Coins) <= 999) { Notice $Nick You do not have enough Gold Coins! | halt }
    Var %Magicattacks $readini(Chaos.ini,$nick,Magicattacks)
    Var %Magicattacks %Magicattacks White flame
    writeini Chaos.ini $Nick Magicattacks %Magicattacks
    writeini Chaos.ini $Nick FJ Yes
    writeini Chaos.ini $Nick Gold Coins $Calc($readini(Chaos.ini,$nick,Gold Coins) - 1500)
    Notice $Nick You have now learned White flame
  }
  if (Insaneflare == $2) {
    if ($readini(Chaos.ini,$nick,FJ) == Yes) { Notice $Nick You already know Insaneflare | halt }
    if ($readini(Chaos.ini,$nick,Gold Coins) <= 999) { Notice $Nick You do not have enough Gold Coins! | halt }
    Var %Magicattacks $readini(Chaos.ini,$nick,Magicattacks)
    Var %Magicattacks %Magicattacks Insaneflare
    writeini Chaos.ini $Nick Magicattacks %Magicattacks
    writeini Chaos.ini $Nick FJ Yes
    writeini Chaos.ini $Nick Gold Coins $Calc($readini(Chaos.ini,$nick,Gold Coins) - 1000)
    Notice $Nick You have now learned Insaneflare!

  }              
}
}
}
}
}
}
}
on *:text:`ranks:#: {
msg $chan 4ranks are Apprentice, spellcaster, Magician, Sage, SuperMage/^\
}
on *:text:`learn Insaneflare:#: {
msg $nick when Artemis_Fowl see you have got it he will add it
}
on *:text:`learn White flame:#: {
msg $Nick when Artemis_Fowl see you bought it he will add it
}

Aliases

Heal {
notice $1 You Have Fully Healed!
writeini Chaos.ini $1 Hp $readini(Chaos.ini,$1,MHp)
writeini Chaos.ini $1 Magic $readini(Chaos.ini,$1,MMagic)
writeini Chaos.ini $1 ki $readini(Chaos.ini,$1,Mmagic)
}
Leave {
if ($readini(Chaos.ini,$1,Fighting) != yes) { halt }
Writeini Chaos.ini $1 fighting no
Writeini Chaos.ini $1 attacking no
Set %batlist $remtok(%batlist,$1,1,32)
Msg %Chan $1 $+ ( $+ $readini(Chaos.ini,$1,Character) $+ ) Has Left The Battle Field!
}
LvLCheck {
set %Exp [ $readini Chaos.ini $1 Exp ]
set %NExp [ $readini Chaos.ini $1 NExp ]
set %Level [ $readini Chaos.ini $1 Lvl ]
If (%Exp >= %NExp) {
Msg %Chan $1 $+ ( $+ $readini(Chaos.ini,$1,Character) $+ ) Grew a Level!
if ($readini(Chaos.ini,$1,Gender) == Male) {

Set %Intell $Rand(1,4)
Set %Strength $Rand(1,4)
Set %MHp $Rand(10,20)
Set %MMagic $Rand(10,15)
Set %Mmagic $Rand(10,15)
writeini Chaos.ini $1 Lvl $calc($readini(Chaos.ini,$1,Lvl) + 1)
writeini Chaos.ini $1 MMagic $calc($readini(Chaos.ini,$1,MMagic) + %MMagic)
writeini Chaos.ini $1 Mmagic $calc($readini(Chaos.ini,$1,Mmagic) + %Mmagic)
writeini Chaos.ini $1 MHp $calc($readini(Chaos.ini,$1,MHp) + %MHp)
writeini Chaos.ini $1 NExp $calc($readini(Chaos.ini,$1,NExp) + 200)
writeini Chaos.ini $1 Strength $calc($readini(Chaos.ini,$1,Strength) + %Strength)
writeini Chaos.ini $1 Intell $calc($readini(Chaos.ini,$1,Intell) + %Intell)
Notice $1 You Gained %MHp Hp || %Mmagic ki || %MMagic ki || %Strength Strength || %Intell Intell || 
Heal $1
}
if ($readini(Chaos.ini,$1,Gender) == Female) {
Set %Intell $Rand(1,5)
Set %Strength $Rand(1,5)
Set %MHp $Rand(10,30)
Set %MMagic $Rand(10,25)
Set %Mmagic $Rand(10,25)
writeini Chaos.ini $1 Lvl $calc($readini(Chaos.ini,$1,Lvl) + 1)
writeini Chaos.ini $1 MMagic $calc($readini(Chaos.ini,$1,MMagic) + %MMagic)
writeini Chaos.ini $1 Mmagic $calc($readini(Chaos.ini,$1,Mmagic) + %Mmagic)
writeini Chaos.ini $1 MHp $calc($readini(Chaos.ini,$1,MHp) + %MHp)
writeini Chaos.ini $1 NExp $calc($readini(Chaos.ini,$1,NExp) + 200)
writeini Chaos.ini $1 Strength $calc($readini(Chaos.ini,$1,Strength) + %Strength)
writeini NChaos.ini $1 Intell $calc($readini(Chaos.ini,$1,Intell) + %Intell)
Notice $1 You Gained %MHp Hp || %Mmagic ki || %MMagic ki || %Strength Strength || %Intell Intell || 
Heal $1
RankCheck
}
}
}
DeadCheck {
if ($readini(Chaos.ini,$2,Hp) <= 0) {
if ($readini(Chaos.ini,$2,fighting) != yes) { halt }
timerattack $+ $2 off
set %Gold Coins $rand(30,40)
set %Exp $calc(%ExpGain % 2)
writeini Chaos.ini $1 Exp $calc($readini(Chaos.ini,$1,exp) + %Exp)
writeini Chaos.ini $1 wins $calc($readini(Chaos.ini,$1,wins) + 1)  
writeini Chaos.ini $2 Losses $calc($readini(Chaos.ini,$2,Losses) + 1) 
writeini Chaos.ini $1 Gold Coins $calc($readini(Chaos.ini,$1,Gold Coins) + %Gold Coins) 
writeini Chaos.ini $2 fighting no
writeini Chaos.ini $2 Attacking no
set %batlist $remtok(%batlist,$2,1,32)
Msg $Chan $Nick $+ ( $+ $readini(Chaos.ini,$Nick,Character) $+ ) Defeated $2 $+ ( $+ $readini(Chaos.ini,$2,Character) $+ ) $+ ! $Nick $+ ( $+ $readini(Chaos.ini,$Nick,Character) $+ ) Gains %Gold Coins Gold Coins and %Exp Exp!
LvLCheck $1
RankCheck $1
OutLaw
Dragon
}    
}

OutLaw {
if ($readini(Chaos.ini,OutLaw,fighting) != yes) {
  Heal OutLaw
  Writeini Chaos.ini OutLaw Fighting Yes
  set %batlist %batList OutLaw
  Msg $Chan OutLaw Enters The Battle Field!
}
}
Dragon {
if ($readini(Chaos.ini,Dragon,fighting) != yes) {
  Heal Dragon
  Writeini Chaos.ini Dragon Fighting Yes
  set %batlist %batList Dragon
  Msg $Chan Dragon Enters The Battle Field!
}
}

RankCheck {
if ($readini(Chaos.ini,$1,Rank) == Apprentice) {
  if ($readini(Chaos.ini,$1,LvL) >= 100) {
    Msg $Chan Congrats $Nick $+ ( $+ $readini(Chaos.ini,$Nick,Character) $+ ) $+ , You are now a spellcaster rank Reach lvl 850 to be Magician!
    Writeini Chaos.ini $1 Rank spellcaster
    Writeini Chaos.ini $1 LvL 100
    Writeini Chaos.ini $1 MHp $Calc($readini(Chaos.ini,$1,MHp) + 200)
    Writeini Chaos.ini $1 MMagic $Calc($readini(Chaos.ini,$1,MMagic) + 200)
    Writeini Chaos.ini $1 Mmagic $Calc($readini(Chaos.ini,$1,Mmagic) + 200)
    Writeini Chaos.ini $1 Gold Coins $Calc($readini(Chaos.ini,$1,Gold Coins)+100)
    Writeini Chaos.ini $1 Intell $Calc($readini(Chaos.ini,$1,Intell) + 100)
    Writeini Chaos.ini $1 Strength $Calc($readini(Chaos.ini,$1,Strength) + 100)
    Heal $1
  }
  if ($readini(Chaos.ini,$1,Rank) == spellcaster) {
    if ($readini(Chaos.ini,$1,LvL) >= 500) {
      Msg $Chan Congrats $Nick $+ ( $+ $readini(Chaos.ini,$Nick,Character) $+ ) $+ , You are now a Mage rank reach lvl 1000 to be Magician!
      Writeini Chaos.ini $1 Rank Mage
      Writeini Chaos.ini $1 LvL 100
      Writeini Chaos.ini $1 MHp $Calc($readini(Chaos.ini,$1,MHp) + 200)
      Writeini Chaos.ini $1 MMagic $Calc($readini(Chaos.ini,$1,MMagic) + 200)
      Writeini Chaos.ini $1 Mmagic $Calc($readini(Chaos.ini,$1,Mmagic) + 200)
      Writeini Chaos.ini $1 Gold Coins $Calc($readini(Chaos.ini,$1,Gold Coins)+100)
      Writeini Chaos.ini $1 Intell $Calc($readini(Chaos.ini,$1,Intell) + 100)
      Writeini Chaos.ini $1 Strength $Calc($readini(Chaos.ini,$1,Strength) + 100)
      Heal $1
    }
    if ($readini(Chaos.ini,$1,Rank) == Mage) {
      if ($readini(Chaos.ini,$1,LvL) >= 850) {
        Msg $Chan Congrats $Nick $+ ( $+ $readini(Chaos.ini,$Nick,Character) $+ ) $+ , You are now a SuperAdroid rank reach lvl 1000 to be Magician!
        Writeini Chaos.ini $1 Rank SuperMage
        Writeini Chaos.ini $1 LvL 100
        Writeini Chaos.ini $1 MHp $Calc($readini(Chaos.ini,$1,MHp) + 200)
        Writeini Chaos.ini $1 MMagic $Calc($readini(Chaos.ini,$1,MMagic) + 200)
        Writeini Chaos.ini $1 Mmagic $Calc($readini(Chaos.ini,$1,Mmagic) + 200)
        Writeini Chaos.ini $1 Gold Coins $Calc($readini(Chaos.ini,$1,Gold Coins)+100)
        Writeini Chaos.ini $1 Intell $Calc($readini(Chaos.ini,$1,Intell) + 100)
        Writeini Chaos.ini $1 Strength $Calc($readini(Chaos.ini,$1,Strength) + 100)
        Heal $1
      }
      if ($readini(Chaos.ini,$1,Rank) == SuperMage) {
        if ($readini(Chaos.ini,$1,LvL) >= 1000) {
          Msg $Chan Congrats $Nick $+ ( $+ $readini(Chaos.ini,$Nick,Character) $+ ) $+ , You are now a Magician!
          Writeini Chaos.ini $1 Rank Magician
          Writeini Chaos.ini $1 LvL 850
          Writeini Chaos.ini $1 MHp $Calc($readini(Chaos.ini,$1,MHp) + 200)
          Writeini Chaos.ini $1 MMagic $Calc($readini(Chaos.ini,$1,MMagic) + 200)
          Writeini Chaos.ini $1 Mmagic $Calc($readini(Chaos.ini,$1,Mmagic) + 200)
          Writeini Chaos.ini $1 Gold Coins $Calc($readini(Chaos.ini,$1,Gold Coins)+100)
          Writeini Chaos.ini $1 Intell $Calc($readini(Chaos.ini,$1,Intell) + 100)
          Writeini Chaos.ini $1 Strength $Calc($readini(Chaos.ini,$1,Strength) + 100)
          Heal $1
        }
      }
    }
  }