This is just a little Naruto RPG I'm working on since all of my friends are begging me to do one. Plus I haven't posted something in a while. This is definately not done at all, I only posted it so my little brother wouldn't delete it again (Third time I've had to remake it) I'll have updates for it soon, but other than that, tell me what's wrong so far, besides that the batte portion isn't closed. I would've madfe the battle portion more complex, rather than just a simple command like !(attack) but I kind of laughed at the idea of numerous people ganging up on a single person using multiple attacks at once, so I figured I'd keep it. I've yet to make the ranking system, the random foe/random battle sequence, the travel system, and finish the battle system, so just give me some time, I've been unusually busy this month, which is kind of odd I have no time when I actually need it. I'm also aware of the misspells here and there, so you don't need to point those out. The aliases for this snippet are at http://www.hawkee.com/snippet/4700/

on *:load:{
  writeini Store.ini Uzumaki Replacement 500
  writeini Store.ini Uzumaki ShadowClone 500
  writeini Store.ini Uzumaki MultipleShadowClones 700
  writeini Store.ini Uzumaki Rasengan 800 
  writeini Store.ini Uzumaki Kyuubi 900
  writeini Store.ini Uzumaki KyuubiRasengan 1000 
  writeini Store.ini Uzumaki ClanMoves Replacement, ShadowClone, MultipleShadowClones, Rasengan, Kyuubi, KyuubiRasengan
  writeini Store.ini Uchiha Replacement 500
  writeini Store.ini Uchiha FireBall 500
  writeini Store.ini Uchiha PheonixFlower 500 
  writeini Store.ini Uchiha Chidori 600
  writeini Store.ini Uchiha Sharingan 700
  writeini Store.ini Uchiha CurseMark 700
  writeini Store.ini Uchiha CorruptChidori 1000
  writeini Store.ini Uchiha ClanMoves Replacement, FireBall, PheonixFlower, Chidori, Sharingan, CurseMark, CorruptChidori
  writeini Store.ini Hyuuga Replacement 500
  writeini Store.ini Hyuuga GentleFist 500
  writeini Store.ini Hyuuga Rotation 600
  writeini Store.ini Hyuuga Byakugan 800 
  writeini Store.ini Hyuuga 8-Trigrams 1000
  writeini Store.ini Hyuuga Protection 1000
  writeini Store.ini Hyuuga ClanMoves Replacement, GentleFist, Rotation, Byakugan, 8-Trigrams, Protection
  writeini Store.ini Clanless Replacement 500
  writeini Store.ini Clanless RockShower 600
  writeini Store.ini Clanless FireBlast 700
  writeini Store.ini Clanless MoveCopy 1000
  writeini Store.ini Clanless ClanMoves Replacement, RockShower, FireBlast, MoveCopy
  writeini Store.ini Taijutsu FaceKick 100
  writeini Store.ini Taijutsu Dodge 100
  writeini Store.ini Taijutsu SpinceCrack 100
  writeini Store.ini Taijutsu MeteorStrike 200
  writeini Store.ini Taijutsu Moves FaceKick, Dodge, SpinCrack, MeteorStrike
  writeini Store.ini Genjutsu Illusion 100
  writeini Store.ini Genjutsu Distraction 100
  writeini Store.ini Genjutsu Clones 100
  writeini Store.ini Genjutsu Moves Illusion, Distraction, Clones
  writeini Store.ini Register Clans Uzumaki, Uchiha, Hyuuga, Clanless (Clanless means you are only referred to by your last name)
  writeini Store.ini Register Villages Leaf, Sand, Rain, Rocks, Sound
}
on *:text:!register:%cham:{
  if ($readini(n.ini,$address,r)) { m $nick You've already registered, $nick $+ . }
  else { m $nick So $nick $+ , you want to be a Ninja? First lets, go through a few things, what's your name? Type !name (your name) }
}
on *:text:!name*:%cham:{
  if ($readini(n.ini,$address,name)) { m $nick You've already made a name, $nick $+ . }
  elseif (!$2) { m $nick Your name cant be nothing }
  else {
    writeini n.ini $address name $2
    m $nick So your name is $readini(n.ini,$address,name) $+ , is it? Okay then, are you a boy or a girl? Type !gender (boy or girl)
  }
}
on *:text:!gender*:%cham:{
  if ($readini(n.ini,$address,gender)) { m $Nick $nick $+ , you've already told me your gender. }
  elseif ($2 != boy && $2 != girl) { m $Nick The gender $2 is not an available gender, please put boy or girl }
  else {
    writeini n.ini $address gender $2
    m $nick So you're a $readini(n.ini,$address,gender) $+ , are you? Fantastic, so which clan are you in? Please type !clans to see the clans. 
  }
}
on *:text:!clans:%cham:{
  m $nick Here ae the clans: $readini(store.ini,register,clans)
  m $nick please type !clan (clan here)
}
on *:text:!clan*:%cham:{
  if ($readini(n.ini,$address,clan)) { m $nick You're already in a clan. }
  elseif ($2 !isin $readini(store.ini,register,clans)) { m $nick The clan $2 is not available, please select a clan from the list. }
  else {
    writeini n.ini $address clan $2
    m $nick So you're in the $2 clan...... So I guess That makes you $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name))
    m $nick Now type !villages to see the villages
  }
}
on *:text:!villages:%cham:{
  m $nick Here are the villages: $readini(store.ini,register,villages)
  m $nick Please type !village (village) to select a village
}
on *:text:!village*:%cham:{ 
  if ($readini(n.ini,$address,village)) { m $nick You're already in a village. }
  elseif ($2 !isin $readini(store.ini,register,villages)) { m $nick $2 is not a selectable village, please choose from the above list. }
  else {
    writeini n.ini $address village $2
    writeini n.ini $address r yes
    writeini n.ini $nick battle yes  
    writeini n.ini $address Ryo 500
    writeini n.ini $address HP 100
    writeini n.ini $address mHP 100
    writeini n.ini $address chakra 10
    writeini n.ini $address mchakra 10
    writeini n.ini $address battling no
    writeini n.ini $address place $readini(n.ini,$address,village)
    writeini n.ini $Address rank Student
    writeini n.ini $address level 1
    writeini n.ini $address Attack1 Punch
    writeini n.ini $address Attack2 Kick
    writeini n.ini $address Attack3 None
    writeini n.ini $address Attack4 None
    writeini n.ini $address EXP 0
    writeini n.ini $address nEXP 300
    writeini n.ini $address miss% 3
    writeini n.ini $address attacking no
    m $Nick So You're $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) of the Hidden $readini(n.ini,$address,village) Village, who is a $readini(n.ini,$address,gender) $+ , it's nice to meet you!!
    m $nick If you need help with anything, please type !help
    set %address $+ $nick $address | set %nick $nick | movelist
    if ($readini(n.ini,$address,clan) == Uzumaki) {
      writeini n.ini $address Replace off
      writeini n.ini $address Kyuubi off
      writeini n.ini $address MultiSC off
    }
    elseif ($readini(n.ini,$address,clan) == Uchiha) {
      writeini n.ini $address Replace off
      writeini n.ini $address CurseMark off
      writeini n.ini $address Sharingan off
    }
    elseif ($readini(n.ini,$address,clan) == Hyuuga) {
      writeini n.ini $address Byakugan off
      writeini n.ini $address Replacement off
      writeini n.ini $address Protection off
    }
    elseif ($readini(n.ini,$address,clan) == clanless) {
      writeini Clanless.ini m Replace off
      writeini Clanless.ini m RockShower off
    }
  }
}
on *:nick:{
  if ($newnick ison %cham) && ($readini(n.ini,$address,r)) { remini n.ini $Nick | writeini n.ini $newnick battle yes }
}
on *:text:!store*:%cham:{
  if (!$readini(n.ini,$address,r)) { m $nick Please register first, type !register }
  if (!$2) { m $nick Please choose something to see, here are the options: ClanMoves, Taijustu, and Genjutsu }
  if ($2 == ClanMoves) { 
    m $nick here are your clan moves, type !price (move) to see the price of a move, or !buy (move) if you have enough Ryo: Current Ryo £ $+ $readini(n.ini,$address,Ryo)
    m $nick $readini(Store.ini,$readini(n.ini,$Address,clan),Clanmoves)
  }
  if ($2 == Taijutsu) {
    m $nick here is your Taijutsu, type !price (move) to see the price of a move, or !buy (move) if you have enough Ryo: Current Ryo £ $+ $readini(n.ini,$address,Ryo)
    m $nick $readini(Store.ini,Taijutsu,moves)
  }
  if ($2 == genjutsu) { 
    m $nick here is your Genjutsu, type !price (move) to see the price of a move, or !buy (move) if you have enough Ryo: Current Ryo £ $+ $readini(n.ini,$address,Ryo)
    m $nick $readini(Store.ini,Genjutsu,moves)
  }
}
on *:text:!price*:%cham:{
  if (!$2) { m $Nick Please specify a move to get the price on }
  elseif (!$readini(Store.ini,$readini(n.ini,$address,clan),$2)) { goto taijutsu }
  else { m $nick The price of $2 is £ $+ $readini(Store.ini,$readini(n.ini,$address,clan),$2) | halt }
  :taijutsu
  if (!$readini(Store.ini,Taijutsu,$2)) { goto genjutsu }
  else { m $nick The price of $2 is £ $+ $readini(Store.ini,Taijutsu,$2) | halt }
  :genjutsu
  if (!$readini(Store.ini,Genjutsu,$2)) { m $nick The move $2 is not able to be purchased by you | halt }
  else { m $nick The price for $2 is £ $+ $readini(Store.ini,Genjutsu,$2) }
}
on *:text:!buy*:%cham:{
  if (!$2) { m $nick Please specify a move to buy }
  elseif ($2 ison #) { m $nick No buying slaves <_< | halt }
  elseif ($3) { m $Nick Moves are only one word long }
  elseif (!$readini(Store.ini,$readini(n.ini,$address,clan),$2)) { goto protai }
  else {
    if ($readini(n.ini,$Address,ryo) < $readini(Store.ini,$readini(n.ini,$address,clan),$2)) { m $nick You don't have enough Ryo }
    else {
      if ($readini(n.ini,$address,attack1) == none) { writeini n.ini $address Attack1 $2 |  m $nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned $readini(n.ini,$address,Attack1) $+ ! | writeini n.ini $address ryo $calc($readini(n.ini,$address,ryo) - $readini(Store.ini,$readini(n.ini,$address,clan),$2)) | m $Nick Ryo left: £ $+ $readini(n.ini,$address,ryo) | set %address $+ $nick $address | set %nick $nick | movelist }
      elseif ($readini(n.ini,$address,attack2) == none) { writeini n.ini $address Attack2 $2 | m $nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned $readini(n.ini,$address,Attack2) $+ ! | writeini n.ini $address ryo $calc($readini(n.ini,$address,ryo) - $readini(Store.ini,$readini(n.ini,$address,clan),$2)) | m $Nick Ryo left: £ $+ $readini(n.ini,$address,ryo) | set %address $+ $nick $address | set %nick $nick | movelist }
      elseif ($readini(n.ini,$address,attack3) == none) { writeini n.ini $address Attack3 $2 | m $nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned $readini(n.ini,$address,Attack3) $+ ! | writeini n.ini $address ryo $calc($readini(n.ini,$address,ryo) - $readini(Store.ini,$readini(n.ini,$address,clan),$2)) | m $Nick Ryo left: £ $+ $readini(n.ini,$address,ryo) | set %address $+ $nick $address | set %nick $nick | movelist }
      elseif ($readini(n.ini,$address,attack4) == none) { writeini n.ini $address Attack4 $2 | m $nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned $readini(n.ini,$address,Attack4) $+ ! | writeini n.ini $address ryo $calc($readini(n.ini,$address,ryo) - $readini(Store.ini,$readini(n.ini,$address,clan),$2)) | m $Nick Ryo left: £ $+ $readini(n.ini,$address,ryo) | set %address $+ $nick $address | set %nick $nick | movelist }
      else { m $Nick You already have 4 moves, please type !delete (Attack, For example: !delete Attack1) so you can learn $2 }
      halt
    }
  }
  :protai
  if (!$readini(Store.ini,Taijutsu,$2)) { goto progen }
  else {
    if ($readini(n.ini,$Address,ryo) < $readini(Store.ini,taijutsu,$2)) { m $nick You don't have enough Ryo }
    else {
      if ($readini(n.ini,$address,attack1) == none) { writeini n.ini $address Attack1 $2 |  m $nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned $readini(n.ini,$address,Attack1) $+ ! | writeini n.ini $address ryo $calc($readini(n.ini,$address,ryo) - $readini(Store.ini,Taijutsu,$2)) | m $Nick Ryo left: £ $+ $readini(n.ini,$address,ryo) | set %address $+ $nick $address | set %nick $nick | movelist }
      elseif ($readini(n.ini,$address,attack2) == none) { writeini n.ini $address Attack2 $2 | m $nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned $readini(n.ini,$address,Attack2) $+ ! | writeini n.ini $address ryo $calc($readini(n.ini,$address,ryo) - $readini(Store.ini,Taijutsu,$2)) | m $Nick Ryo left: £ $+ $readini(n.ini,$address,ryo) | set %address $+ $nick $address | set %nick $nick | movelist }
      elseif ($readini(n.ini,$address,attack3) == none) { writeini n.ini $address Attack3 $2 | m $nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned $readini(n.ini,$address,Attack3) $+ ! | writeini n.ini $address ryo $calc($readini(n.ini,$address,ryo) - $readini(Store.ini,Taijutsu,$2)) | m $Nick Ryo left: £ $+ $readini(n.ini,$address,ryo) | set %address $+ $nick $address | set %nick $nick | movelist }
      elseif ($readini(n.ini,$address,attack4) == none) { writeini n.ini $address Attack4 $2 | m $nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned $readini(n.ini,$address,Attack4) $+ ! | writeini n.ini $address ryo $calc($readini(n.ini,$address,ryo) - $readini(Store.ini,Taijutsu,$2)) | m $Nick Ryo left: £ $+ $readini(n.ini,$address,ryo) | set %address $+ $nick $address | set %nick $nick | movelist }
      else { m $Nick You already have 4 moves, please type !delete (Attack, For example: !delete Attack1) so you can learn $2 }
      halt
    }
  }
  :progen
  if (!$readini(Store.ini,Genjutsu,$2)) { m $nick $2 is not a learnable move by you }
  else {
    if ($readini(n.ini,$Address,ryo) < $readini(Store.ini,genjutsu,$2)) { m $nick You don't have enough Ryo }
    else {
      if ($readini(n.ini,$address,attack1) == none) { writeini n.ini $address Attack1 $2 |  m $nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned $readini(n.ini,$address,Attack1) $+ ! | writeini n.ini $address ryo $calc($readini(n.ini,$address,ryo) - $readini(Store.ini,Genjutsu,$2)) | m $Nick Ryo left: £ $+ $readini(n.ini,$address,ryo) | set %address $+ $nick $address | set %nick $nick | movelist }
      elseif ($readini(n.ini,$address,attack2) == none) { writeini n.ini $address Attack2 $2 | m $nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned $readini(n.ini,$address,Attack2) $+ ! | writeini n.ini $address ryo $calc($readini(n.ini,$address,ryo) - $readini(Store.ini,genjutsu,$2)) | m $Nick Ryo left: £ $+ $readini(n.ini,$address,ryo) | set %address $+ $nick $address | set %nick $nick | movelist }
      elseif ($readini(n.ini,$address,attack3) == none) { writeini n.ini $address Attack3 $2 | m $nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned $readini(n.ini,$address,Attack3) $+ ! | writeini n.ini $address ryo $calc($readini(n.ini,$address,ryo) - $readini(Store.ini,genjutsu,$2)) | m $Nick Ryo left: £ $+ $readini(n.ini,$address,ryo) | set %address $+ $nick $address | set %nick $nick | movelist }
      elseif ($readini(n.ini,$address,attack4) == none) { writeini n.ini $address Attack4 $2 | m $nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned $readini(n.ini,$address,Attack4) $+ ! | writeini n.ini $address ryo $calc($readini(n.ini,$address,ryo) - $readini(Store.ini,genjutsu,$2)) | m $Nick Ryo left: £ $+ $readini(n.ini,$address,ryo) | set %address $+ $nick $address | set %nick $nick | movelist }
      else { m $Nick You already have 4 moves, please type !delete (Attack, For example: !delete Attack1) so you can learn $2 }
      halt  
    }
  }
}
on *:text:!delete*:%cham:{
  if (!$2) { m $nick Please specify a move to delete (Attack1, Attack2, Attack3, or Attack4) }
  elseif ($2 != Attack1 && $2 != Attack2 && $2 != Attack3 && $2 != Attack4) { m $nick $2 is not a deletable item, please type either Attack1, Attack2, Attack3, or Attack4 after the !delete command }
  else { writeini n.ini $address $2 None | m $Nick $2 has been deleted | set %address $+ $nick $address | set %nick $nick | movelist }
}
on *:text:!stats*:%cham:{
  if (!$2) {
    m $nick You're $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) of the Hidden $readini(n.ini,$address,village) Villge, who is a $readini(n.ini,$address,gender) $+ .
    .timer 1 1 m $Nick Health: $readini(n.ini,$address,hp) $+ / $+ $readini(n.ini,$Address,mhp)
    .timer 1 2 m $nick Chakra: $readini(n.ini,$address,chakra) $+ / $+ $readini(n.ini,$address,mchakra)
    .timer 1 3 m $nick Rank: $readini(n.ini,$address,rank)
    .timer 1 4 m $nick Level $readini(n.ini,$address,level)
    .timer 1 5 m $nick Experience: $readini(n.ini,$address,exp)
    .timer 1 6 m $nick Accuracy: - $+ $readini(n.ini,$address,miss%)
    .timer 1 7 m $nick Attack1: $readini(n.ini,$address,Attack1)
    .timer 1 8 m $Nick Attack2: $readini(n.ini,$address,Attack2)
    .timer 1 9 m $nick Attack3: $readini(n.ini,$address,Attack3)
    .timer 1 10 m $nick Attack4: $readini(n.ini,$address,Attack4)
    .timer 1 11 m $Nick Ryo: $readini(n.ini,$address,ryo)
  }
  else {
    if (!$address($2,0)) { m $Nick $2 doesn't exist/Is not online at the moment | halt }
    if ($2 == $me) { m $nick I don't play, I have no stats | halt }   
    m $nick $2 is $iif($readini(n.ini,$remove($address($2,0),*!),clan) != clanless,$readini(n.ini,$remove($address($2,0),*!),name) $readini(n.ini,$remove($address($2,0),*!),clan),$readini(n.ini,$remove($address($2,0),*!),name)) of the Hidden $readini(n.ini,$remove($address($2,0),*!),village) Village, who is a $readini(n.ini,$remove($address($2,0),*!),gender) $+ .
    .timer 1 1 m $Nick $2 $+ 's Health: $readini(n.ini,$remove($address($2,0),*!),hp) $+ / $+ $readini(n.ini,$remove($address($2,0),*!),mhp)
    .timer 1 2 m $nick $2 $+ 's Chakra: $readini(n.ini,$remove($address($2,0),*!),chakra) $+ / $+ $readini(n.ini,$remove($address($2,0),*!),mchakra)
    .timer 1 3 m $nick $2 $+ 's Rank: $readini(n.ini,$remove($address($2,0),*!),rank)
    .timer 1 4 m $nick $2 $+ 's Level: $readini(n.ini,$remove($address($2,0),*!),level)
    .timer 1 5 m $nick $2 $+ 's Experience: $readini(n.ini,$remove($address($2,0),*!),exp)
    .timer 1 6 m $nick $2 $+ 's Accuracy: - $+ $readini(n.ini,$remove($address($2,0),*!),miss%)
    .timer 1 7 m $nick $2 $+ 's Attack1: $readini(n.ini,$remove($address($2,0),*!),Attack1)
    .timer 1 8 m $Nick $2 $+ 's Attack2: $readini(n.ini,$remove($address($2,0),*!),Attack2)
    .timer 1 9 m $nick $2 $+ 's Attack3: $readini(n.ini,$remove($address($2,0),*!),Attack3)
    .timer 1 10 m $nick $2 $+ 's Attack4: $readini(n.ini,$remove($address($2,0),*!),Attack4)
    .timer 1 11 m $Nick $2 $+ 's Ryo: $readini(n.ini,$remove($address($2,0),*!),ryo)
  }
}
on *:text:!moves:%cham:{
  m $nick $readini(n.ini,$address,ListMoves)
}
on *:text:!learn god's move:%cham:{
  if ($readini(n.ini,$address,rank) != God) { m $nick Sorry $nick $+ , you are not of God rank }
  else { writeini n.ini $address Attack4 Judgement | m $Nick $iif($readini(n.ini,$address,clan) != clanless,$readini(n.ini,$address,name) $readini(n.ini,$address,clan),$readini(n.ini,$address,name)) learned Judgment! | m $nick This is the ultimate move, congrats for getting this far | set %address $+ $nick $address | set %nick $nick | movelist }
}
on *:text:!battle:%cham:{
  if (!$readini(n.ini,$address,r)) { m $Nick Please register first (!register) }
  else { m %cham $nick wants to battle, go and fight them using !(your move) $nick }
}
on *:text:!*:%cham:{
  if ($remove($1,!) isin $readini(n.ini,$address,ListMoves)) {
    if (!$2) { m $Nick you can't attack no one | halt }
    if (!$remove($address($2,0),*!)) { m $Nick $2 isn't on the server at the moment | halt }
    if (!$readini(n.ini,$remove($address($2,0),*!),r)) { m $nick $2 hasn't registered | halt }
    if (replacement isin $1) { writeini n.ini $address Replacement on | msg %cham $nick used Replacement Jutsu, they are invulnreble for this turn! | goto Level }
    if (ShadowClone isin $1) { set %damage [ $+ [ $nick ] ] $r($readini(n.ini,$address,level),100) | msg %cham $nick used a shadowclone to cause double the damage! This caused %damage [ $+ [ $nick ] ] to $2 | writeini n.ini $remove($address($2,0),*!) HP $calc( $readini(n.ini,$remove($address($2,0),*!),HP) - %damage [ $+ [ $Nick ] ] ) | unset %damage [ $+ [ $nick ] ] | msg %cham $2 has $readini(n.ini,$remove($address($2,0),*!),HP) $+ / $+ $readini(n.ini,$remove($address($2,0),*!),mHP) left! | halt | goto level }
    :level 
  }
}