Umbreon Attacker Mini Rpg

By CYber_Mewthree on Aug 21, 2007

Well its just riht's m1 grand script except instead it has a pokemon umbreon attacker the only thing is that it still has a few bugs cause im still new to mirc scripting the bug is when you use the giant oran berry to restore your pp it has 3 of em. anyway you just save it in your mirc then you load it ctrl+l and there it is. and still thx for the m1 grand script riht 2 =D

Update now it has no bugs thanks to napa thx for helping me =)

On *:Load: {
  set %Level 1
  set %PP 8
  set %Exp 0
}
Menu Nicklist,Query {
  .Umbreon Attacker
  ..Shadowball {
    if (%Exp > $Calc( %Level * 150) ) && (%PP > 0) && ($1 != $Me) {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      inc %Level
      set %Exp 0
      me 15,1Creates a shadow ball comming out of his mouth and fires it at $1 doing ( %Damage ) Damage!  He also gains ( %Gained ) exp!
      .timer.Level^1 1 1 set %Exp 0
      .timer.Level^2 1 2 inc %Level
      .timer.Level^3 1 3 me  12,1( $+ 7Level up! $+ 12) has leveled up to level ( %Level )! 12,1( $+ 7Level up! $+ 12)
    }
    if (%Exp < $Calc( %Level * 150) ) && (%PP > 0) && ($1 != $Me)  {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      me 15,1creates a shadow ball comming out of his mouth and shoots it at $1 doing ( %Damage ) Damage!  He also gains ( %Gained ) exp!
    }
    if (%PP <= 0) && ($1 != $Me)  {
      echo -a You are out of PP!
      halt
    }
    if ($1 = $Me) {
      echo -a You cannot Attack yourself!
    }
  }
  ..Quick-attack {
    if (%Exp > $Calc( %Level * 150) ) && (%pp > 0) && ($1 != $Me) {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      inc %Level
      set %Exp 0
      me 15,1quickly attacks 41 doing  ( %Damage ) Damage!  He also gains ( %Gained ) exp!
      .timer.Level^1 1 1 set %Exp 0
      .timer.Level^2 1 2 inc %Level
      .timer.Level^3 1 3 me  12,1( $+ 7Level up! $+ 12) has leveled up to level ( %Level )! 12,1( $+ 7Level up! $+ 12)
    }
    if (%Exp < $Calc( %Level * 150) ) && (%pp > 0) && ($1 != $Me)  {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      me 15,1Quickly attacks $1 doing ( %Damage ) Damage!  He also gains ( %Gained ) exp!
    }
    if (%pp <= 0) && ($1 != $Me)  {
      echo -a You are out of PP!
      halt
    }
    if ($1 = $Me) {
      echo -a You cannot Attack yourself!
    }
  }
  ..Bite {
    if (%Exp > $Calc( %Level * 150) ) && (%pp > 0) && ($1 != $Me) {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      inc %Level
      set %Exp 0
      me bites $1 doing ( %Damage ) Damage!  He also gains ( %Gained ) exp!
      .timer.Level^1 1 1 set %Exp 0
      .timer.Level^2 1 2 inc %Level
      .timer.Level^3 1 3 me  12,1( $+ 7Level up! $+ 12) has leveled up to level ( %Level )! 12,1( $+ 7Level up! $+ 12)
    }
    if (%Exp < $Calc( %Level * 150) ) && (%pp > 0) && ($1 != $Me)  {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      me 15,1bites $1 doing ( %Damage ) Damage!  He also gains ( %Gained ) exp!
    }
    if (%pp <= 0) && ($1 != $Me)  {
      echo -a You are out of PP!
      halt
    }
    if ($1 = $Me) {
      echo -a You cannot Attack yourself!
    }
  }
  ..Take Down {
    if (%Exp > $Calc( %Level * 150) ) && (%pp > 0) && ($1 != $Me) {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      inc %Level
      set %Exp 0
      me 15,1take downs $1 really hard doing( %Damage ) Damage!  They also gain ( %Gained ) exp!
      .timer.Level^1 1 1 set %Exp 0
      .timer.Level^2 1 2 inc %Level
      .timer.Level^3 1 3 me  12,1( $+ 7Level up! $+ 12) has leveled up to level ( %Level )! 12,1( $+ 7Level up! $+ 12)
    }
    if (%Exp < $Calc( %Level * 150) ) && (%pp > 0) && ($1 != $Me)  {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      me Take 15,1downs $1 really hard doing ( %Damage ) Damage!  He  also gains ( %Gained ) exp!
    }
    if (%pp <= 0) && ($1 != $Me)  {
      echo -a You are out of PP!
      halt
    }
    if ($1 = $Me) {
      echo -a You cannot Attack yourself!
    }
  }
  .Giant-Oran-Berry {
    .timer.Reload1 1 30 set %pp 8
    .timer.Reload2 1 2 me 15,1eats a giant oran berry
    .timer.Reload3 1 31 me 15,1is done eating it and is refreshed as ever!
  }
}

CYber_Mewthree

Like Page Follow Author

Comments

Sign in to comment.
Riht_2   -  Nov 11, 2007

GodZilla, I gave him permission to use the basic buildup of my M1-Grand script. >_>

 Respond  
napa182   -  Aug 23, 2007

here..

On *:Load: {
  set %Level 1
  set %PP 8
  set %Exp 0
}
Menu Nicklist,Query {
  .Umbreon Attacker 
  ..Shadowball {
    if (%Exp > $Calc( %Level * 150) ) && (%PP > 0) && ($1 != $Me) {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      inc %Level
      set %Exp 0
      me 15,1Creates a shadow ball comming out of his mouth and fires it at $1 doing ( %Damage ) Damage!  He also gains ( %Gained ) exp!
      .timer.Level^1 1 1 set %Exp 0
      .timer.Level^2 1 2 inc %Level
      .timer.Level^3 1 3 me  12,1( $+ 7Level up! $+ 12) has leveled up to level ( %Level )! 12,1( $+ 7Level up! $+ 12)
    }
    if (%Exp < $Calc( %Level * 150) ) && (%PP > 0) && ($1 != $Me)  {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      me 15,1creates a shadow ball comming out of his mouth and shoots it at $1 doing ( %Damage ) Damage!  He also gains ( %Gained ) exp!
    }
    if (%PP <= 0) && ($1 != $Me)  {
      echo -a You are out of PP!
      halt
    }
    if ($1 = $Me) {
      echo -a You cannot Attack yourself!
    }
  }
  ..Quick-attack {
    if (%Exp > $Calc( %Level * 150) ) && (%pp > 0) && ($1 != $Me) {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      inc %Level
      set %Exp 0
      me 15,1quickly attacks 41 doing  ( %Damage ) Damage!  He also gains ( %Gained ) exp!
      .timer.Level^1 1 1 set %Exp 0
      .timer.Level^2 1 2 inc %Level
      .timer.Level^3 1 3 me  12,1( $+ 7Level up! $+ 12) has leveled up to level ( %Level )! 12,1( $+ 7Level up! $+ 12)
    }
    if (%Exp < $Calc( %Level * 150) ) && (%pp > 0) && ($1 != $Me)  {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      me 15,1Quickly attacks $1 doing ( %Damage ) Damage!  He also gains ( %Gained ) exp!
    }
    if (%pp <= 0) && ($1 != $Me)  {
      echo -a You are out of PP!
      halt
    }
    if ($1 = $Me) {
      echo -a You cannot Attack yourself!
    }
  }
  ..Bite {
    if (%Exp > $Calc( %Level * 150) ) && (%pp > 0) && ($1 != $Me) {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      inc %Level
      set %Exp 0
      me bites $1 doing ( %Damage ) Damage!  He also gains ( %Gained ) exp!
      .timer.Level^1 1 1 set %Exp 0
      .timer.Level^2 1 2 inc %Level
      .timer.Level^3 1 3 me  12,1( $+ 7Level up! $+ 12) has leveled up to level ( %Level )! 12,1( $+ 7Level up! $+ 12)
    }
    if (%Exp < $Calc( %Level * 150) ) && (%pp > 0) && ($1 != $Me)  {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      me 15,1bites $1 doing ( %Damage ) Damage!  He also gains ( %Gained ) exp!
    }
    if (%pp <= 0) && ($1 != $Me)  {
      echo -a You are out of PP!
      halt
    }
    if ($1 = $Me) {
      echo -a You cannot Attack yourself!
    }
  }
  ..Take Down {
    if (%Exp > $Calc( %Level * 150) ) && (%pp > 0) && ($1 != $Me) {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      inc %Level
      set %Exp 0
      me 15,1take downs $1 really hard doing( %Damage ) Damage!  They also gain ( %Gained ) exp!
      .timer.Level^1 1 1 set %Exp 0
      .timer.Level^2 1 2 inc %Level
      .timer.Level^3 1 3 me  12,1( $+ 7Level up! $+ 12) has leveled up to level ( %Level )! 12,1( $+ 7Level up! $+ 12)
    }
    if (%Exp < $Calc( %Level * 150) ) && (%pp > 0) && ($1 != $Me)  {
      set %Damage $Calc( %Level * $rand(1,15) )
      dec %pp
      set %Gained $Rand(10,20)
      inc %Exp %Gained
      me Take 15,1downs $1 really hard doing ( %Damage ) Damage!  He  also gains ( %Gained ) exp!
    }
    if (%pp <= 0) && ($1 != $Me)  {
      echo -a You are out of PP!
      halt
    }
    if ($1 = $Me) {
      echo -a You cannot Attack yourself!
    }
  }
  .Giant-Oran-Berry {
    .timer.Reload1 1 30 set %pp 8
    .timer.Reload2 1 2 me 15,1eats a giant oran berry
    .timer.Reload3 1 31 me 15,1is done eating it and is refreshed as ever!
  }
}
 Respond  
napa182   -  Aug 22, 2007

oops i got that backwards lmao... take out all the %bullets one and leave the other and then fix all the dec %Bullets into dec %pp and change all %Bullets into %pp

 Respond  
napa182   -  Aug 22, 2007

it does it 3 times cuz you have this in thier 3 times.. so take 2 of those out..

.Giant Oran Berry {
    .timer.Reload1 1 30 set %Bullets 8
    .timer.Reload2 1 2 me 15,1eats a giant oran berry!
    .timer.Reload3 1 31 me 15,1gets done eating it and is refreshed as ever!

and you have this in there that does noting in the script..and take this out..

.Giant-Oran-Berry {
    .timer.Reload1 1 30 set %PP 8
    .timer.Reload2 1 2 me is 15,1eating a giant oran berry
    .timer.Reload3 1 31 me 15,1Gets down eating it and is refreshed as ever
  }
}
 Respond  
Godzilla   -  Aug 21, 2007

Those exactly arn\'t called RPG\'s, but well done..

 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.