Pokemon RPG - Beta 2.3 (Channel Fix)

By Aha2Y on Jun 09, 2011

LunaQ and Aha2Y presents.. Pokemon RPG! In this RPG you can catch every pokemon, and as long you keep using the updated version you can do more and more everytime.

Its called Pokemon RPG. And it uses .ini's (My first script with .ini's)

  1. Create PokemonRPG folder in your mIRC dir. (Im still searching a way to auto create the folder)
  2. Type alt + R in mIRC
  3. Copy paste the script
  4. Paste it script editor 5 Go to http://pastebin.com/Zp4xcZs6
  5. Save as pokemonlist.txt and put it in the PokemonRPG folder
  6. Load the script
  7. Type !setup to start the setup.
  8. Have fun.

;- PokeMart. ;- PokeCenter. ;- Health(HP). ;- Attacks. ;- Trade Center. ;- Flood Protection.

Fan design

Credits for the fan design goes to AmytiX.

;- Pokemon RPG 
;- Written by Shiny/Aha2Y
;- To get admin access, manual type /pokeadmin <nick>
;- Remember this is a BETA and there will be still some bugs on it

;- Idea's - To do
;- PokeMart.
;- PokeCenter.
;- Health(HP).
;- Attacks.
;- Trade Center.
;- Flood Protection.
;- Better admin listening systeem.

on *:load:{
  echo -at 4Pokemon RPG Beta 1.0 by Aha2Y/Shiny loaded.
  /mkdir PokemonRPG
  /mkdir PokemonRPG/accounts

}

on *:text:!setup:?:{ 
  set %rpgadmincode $rand(1,9) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9)
  echo -at 4PokemonRPG setup code: %rpgadmincode
  msg $nick Welcome to the setup of PokemonRPG.
  msg $nick Please enter the key you received on the client from your bot.
  msg $nick Use: !adminkey <the key here> 
  set %setup_progress yes
}

on *:text:!adminkey *:?:{
  if ($2 == %rpgadmincode) { 
    msg $nick AdminKey accepted.
    unset %rpgadmincode 
    echo -at 4AdminKey Confirmed! 
    msg $nick Please enter the account name you want to use with !setname <your name here>
  }
  else { 
    msg $nick Incorrect AdminKey! 
  }
}

on *:text:!setname *:?:{ 
  if (%setup_progress == yes) {
    /mkdir PokemonRPG/ $+ $nick $+ /
    msg $nick you're desired nickname is now: $2 | writeini PokemonRPG/ $+ $nick $+ /account.ini char nick $2
    msg $nick What password do you want? use: !setpassword <password> 

  }
}
on *:Text:!setpassword *:?:{
  if  (%setup_progress == yes) {
    msg $nick You're password is now $2 Don't forget it! 
    writeini PokemonRPG/ $+ $nick $+ /account.ini char password $2
    writeini PokemonRPG/ $+ $nick $+ /account.ini char registered yes
    writeini PokemonRPG/ $+ $nick $+ /account.ini char logged-in Yes
    writeini PokemonRPG/ $+ $nick $+ /account.ini char admin yes
    writeini PokemonRPG/ $+ $nick $+ /account.ini char pokemons 0
    writeini PokemonRPG/ $+ $nick $+ /account.ini char lastlogin $address($nick,2) 
    msg $nick Account created.
    msg $nick Now please tell me what channel you want to use for the RPG. use !setplaychan <channel here>
  }
}

on *:text:!setplaychan *:?:{
  if (%setup_progress == yes) {
    writeini PokemonRPG/settings.ini channel channel $2
    msg $nick Channel set. Have fun. 
    msg $nick PokemonRPG is configured, See !pokehelp. 
  }
}

on *:text:!register:$($readini(PokemonRPG/settings.ini, channel, channel)):{
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, registered) == Yes) {
  notice $chan This nick is allready a account.  } 
  else {
    notice $nick Welcome to PokemonRPG
    notice $nick You need to set a password
    notice $nick Type /msg $me register <character> <password> to create your account
  }
}

on *:text:login *:?:{
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, password) == $2) {
    notice $nick You has succesfully logged in.
    msg $readini(PokemonRPG/settings.ini, channel, channel) Player $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) has logged in.
    writeini PokemonRPG/ $+ $nick $+ /account.ini char logged-in yes 
    notice $nick Welcome back, You're last login was from $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, lastlogin)
    writeini PokemonRPG/ $+ $nick $+ /account.ini char lastlogin $address($nick,2) 
  }
}

on *:text:register *:?:{
  /mkdir PokemonRPG/ $+ $nick 
  writeini PokemonRPG/ $+ $nick $+ /account.ini char nick $2
  writeini PokemonRPG/ $+ $nick $+ /account.ini char password $3
  writeini PokemonRPG/ $+ $nick $+ /account.ini char registered yes
  writeini PokemonRPG/ $+ $nick $+ /account.ini char logged-in Yes
  writeini PokemonRPG/ $+ $nick $+ /account.ini char admin No
  writeini PokemonRPG/ $+ $nick $+ /account.ini char pokemons 0
  notice $nick password set.
  msg $readini(PokemonRPG/settings.ini, channel, channel) New player: $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick)  has joined PokemonRPG
  mode $readini(PokemonRPG/settings.ini, channel, channel) +v $nick 
  notice $nick Type !pokehelp for the commands
}

on *:text:!pokehelp:$($readini(PokemonRPG/settings.ini, channel, channel)):{
  notice $nick Available commands for Pokemon RPG
  notice $nick !search - Search for a Pokemon.
  notice $nick !catch - Catch a Pokemon.
  notice $nick !Release - Release a Pokemon
  notice $nick !pokemons - Shows your pokemons.
  notice $nick !whoami - Shows you who you are.
  notice $nick !whois - Shows whois of a user.
  notice $nick !logout - Logs you out.
}

on *:join:$($readini(PokemonRPG/settings.ini, channel, channel)):{
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, logged-in) == Yes) {
    writeini PokemonRPG/ $+ $nick $+ /account.ini char logged-in yes 
    msg $chan $nick is now online from nickname $nick
  mode $readini(PokemonRPG/settings.ini, channel, channel) +v $nick  }
  else {
  notice $nick Hello $nick $+ , You can register a account with !register }
}

on *:text:!whoami:#:{
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, logged-in) == Yes) {
  msg $chan $nick $+ : Nick: $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) 7- Pokemons: $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, pokemons) 7- Admin: $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, admin) }
  else {
    notice $nick You aren't logged in. 
  }
}

on *:text:!whois *:$($readini(PokemonRPG/settings.ini, channel, channel)):{
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, logged-in) == Yes) {
  msg $chan $nick $+ : Nick: $readini(PokemonRPG/ $+ $2 $+ /account.ini, char, nick) 7- Pokemons: $readini(PokemonRPG/ $+ $2 $+ /account.ini, char, pokemons) 7- Admin: $readini(PokemonRPG/ +$ $2 +$ /account.ini, char, admin) } 
  else { 
    notice $nick You aren't logged in.
  }
}
on *:quit:{
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, $char, logged-in) == Yes) {
    msg $readini(PokemonRPG/settings.ini, channel, channel) Player $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) Automatic logged out.
    writeini PokemonRPG/ $+ $nick $+ /account.ini char, logged-in no 
  }
}
on *:nick:{
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, logged-in) == Yes) {
    msg $readini(PokemonRPG/settings.ini, channel, channel) Player $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick)) Automatic logged out.
    writeini PokemonRPG/ $+ $nick $+ /account.ini char logged-in no 
  }
}
on *:part:*:{
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, logged-in) == Yes) {
    msg $readini(PokemonRPG/settings.ini, channel, channel) Player $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) Automatic logged out.
    writeini PokemonRPG/ $+ $readini(PokemonRPG/ $+ $nick $+ /account.ini char logged-in no 

  }
}

on *:Text:!search:$($readini(PokemonRPG/settings.ini, channel, channel)):{ 
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, logged-in) == Yes) {
    writeini PokemonRPG/ $+ $nick $+ /account.ini char pokemon-found $read(PokemonRPG/pokemonlist.txt)
  msg $chan $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) found a wild $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, pokemon-found) | notice $nick use !catch to catch the pokemon }
  else { notice $nick You aren't logged in
  }
}

alias genderchoice { 
  set %genderchoicecount $rand(1,2)
  if (%genderchoicecount == 1) { set %genderchoice Female }
  if (%genderchoicecount == 2) { set %genderchoice Male }
}

on *:text:!catch:$($readini(PokemonRPG/settings.ini, channel, channel)):{ 
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, logged-in) == Yes) {
    if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, pokemon-found) == $null) { notice $nick You haven't searched, try !search | halt }
    msg $chan $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) threw a pokeball to $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, pokemon-found)
    set %catchchance $rand(1,3)
    if (%catchchance == 1) { msg $chan $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) $+ : You had it almost!  }
    if (%catchchance == 2) { msg $chan $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) $+ : Wild $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, pokemon-found) fled | remini PokemonRPG/ $+ $nick $+ /account.ini char pokemon-found }
    if (%catchchance == 3) { notice $nick Congratulations you've caught a $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, pokemon-found) | msg $chan Congratulation $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) caught a $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, pokemon-found)
      set %pokemon-catched. [ $+ [ $nick ] ] $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, pokemons)
      inc %pokemon-catched. [ $+ [ $nick ] ]
      set %choicenick $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick)
      writeini PokemonRPG/ $+ $nick $+ /account.ini char pokemons %pokemon-catched. [ $+ [ $nick ] ]
      notice $nick You have now $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, pokemons) Pokemons.
      unset %pokemon-catched. [ $+ [ $nick ] ]
      inc %pokemoncatched. [ $+ [ $nick ] ]
      writeini PokemonRPG/ $+ $nick $+ /pokemons.ini list %pokemoncatched. [ $+ [ $nick ] ] $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, pokemon-found)
      genderchoice
      writeini PokemonRPG/ $+ $nick $+ /pokemons.ini %pokemoncatched. [ $+ [ $nick ] ] Name $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, pokemon-found)
      writeini PokemonRPG/ $+ $nick $+ /pokemons.ini %pokemoncatched. [ $+ [ $nick ] ] Gender %genderchoice

      remini PokemonRPG/ $+ $nick $+ /account.ini char pokemon-found
    }
  }
}

on *:text:!pokemon *:$($readini(PokemonRPG/settings.ini, channel, channel)):{
  if ($readini(PokemonRPG/accounts.ini, $nick, logged-in) == Yes) {
    notice $nick Name: $readini(PokemonRPG/ $+ $nick $+ /pokemons.ini, $2, Name)
    notice $nick Gender: $readini(PokemonRPG/ $+ $nick $+ /pokemons.ini, $2, gender)

  }
}

on *:text:!list:$($readini(PokemonRPG/settings.ini, channel, channel)):{
  if ($readini(PokemonRPG/accounts.ini, $nick, logged-in) == Yes) {
    var %i = 1
    while (%i <= 10) {
      notice $nick $readini(PokemonRPG/ $+ $nick $+ /pokemons.ini, list, %i)
      inc %i
    } 
    else { notice $nick You aren't logged in }
  }
}

on *:text:!logout:$($readini(PokemonRPG/settings.ini, channel, channel)):{ 
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, logged-in) == Yes) {
    writeini PokemonRPG/ $+ $readini(PokemonRPG/accounts.ini, $nick, nick) $+ /account.ini $nick logged-in no 
    msg $readini(PokemonRPG/settings.ini, channel, channel) Player $readini(PokemonRPG/accounts.ini, $nick, nick) logged out.
  }
}

on *:text:!Release *:$($readini(PokemonRPG/settings.ini, channel, channel)):{
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, logged-in) == Yes) {
    set %pokemon-catched. [ $+ [ $nick ] ] $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, pokemons)
    writeini PokemonRPG/ $nick $+ /account.ini char pokemons %pokemon-catched. [ $+ [ $nick ] ]
    unset %pokemon-catched. [ $+ [ $nick ] ]
    remini PokemonRPG/ $+ $nick $+ /pokemons.ini $2 *
    notice $nick $2 Released succesfull.
    desc %pokemoncatched. [ $+ [ $2 ] ]
    msg $readini(PokemonRPG/settings.ini, channel, channel) Player: $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) Released $2 $+ .
  }
  else { 
    notice $nick You $nick aren't logged in
  }
}

;; Admin ;;
on *:text:!reset *:$($readini(PokemonRPG/settings.ini, channel, channel)):{
  if ($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, admin) == Yes) {
    writeini PokemonRPG/ $+ $nick $+ /account.ini char pokemons 0
    remini PokemonRPG/pokemons.ini $2
    unset %pokemoncatched. [ $+ [ $2 ] ]
    remini PokemonRPG/accounts.ini $2 pokemons
    /remove $qt(PokemonRPG\ $+ $2 $+ \pokemons.ini)
  msg $readini(PokemonRPG/settings.ini, channel, channel) Admin: $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) Removed all pokemons of $2 }
  else {
    notice $nick You aren't a Administrator.
  }
}

on *:text:!admin add *:$($readini(PokemonRPG/settings.ini, channel, channel)):{
  if  (($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, admin) == Yes) && ($readini(PokemonRPG/ $+ $3 $+ /account.ini, char, registered) == yes)) {
    msg $readini(PokemonRPG/settings.ini, channel, channel) Admin: $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) Promoted $3 with Admin access.
    writeini PokemonRPG/ $+ $nick $+ /account.ini char admin Yes 
  }
}

on *:text:!admin del *:$($readini(PokemonRPG/settings.ini, channel, channel)):{
  if  (($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, admin) == Yes) && ($readini(PokemonRPG/ $+ $3 $+ /account.ini, char, registered)) {
    msg $readini(PokemonRPG/settings.ini, channel, channel) Admin: $readini(PokemonRPG/ $+ $nick $+ /account.ini, $nick, nick) Removed $3 as Pokemon RPG Admin.
    writeini PokemonRPG/ $+ nick $+ /account.ini char admin No 
  }
}
Sign in to comment.
FreakServ   -  May 22, 2012

Ok! @cptpan

 Respond  
cptpan   -  May 22, 2012

nah bro don't have the time

 Respond  
FreakServ   -  May 20, 2012

@cptpan : Wanna work on it with me?

 Respond  
cptpan   -  May 18, 2012

I don't even

 Respond  
FreakServ   -  May 18, 2012

Yep It just do that :/

 Respond  
cptpan   -  May 17, 2012

Do you just !search and !catch? Is that it?

 Respond  
FreakServ   -  Apr 27, 2012

Stop playing and tell me the IRC network as you are not at atleast KottNet, BitsJoint, XD2k, MassIrc, NanoNet, CooNET, IndIRC so tell me :P

 Respond  
Aha2Y   -  Apr 27, 2012

Are you kidding me, I am on 32 IRC network. Under the nickname Aha2Y, Search harder!

 Respond  
FreakServ   -  Apr 27, 2012

Hey i can't find you Aha2y :P

 Respond  
Aha2Y   -  Apr 27, 2012

Oh... I was trying to be sercastic but ok :P

 Respond  
FreakServ   -  Apr 27, 2012

Lol ok here i come :)

 Respond  
Aha2Y   -  Apr 27, 2012

@FreakServ Yes, this script is very outdated. I'm thinking of making a new one in the feature, If you want to help me.. You know where you can find me.

 Respond  
FreakServ   -  Apr 27, 2012

Ok Aha2y here we go : 1) Command to see !pokemon & !pokemons 2) Command !list 3) Command !whoami 4) Command !whois

:P Help

 Respond  
Aha2Y   -  Apr 27, 2012

Start with telling me what exactly is broken :p

 Respond  
FreakServ   -  Apr 24, 2012

Aha2y : So can't you still fix it, as it's quite good and works fine (only few parts)

 Respond  
Aha2Y   -  Apr 17, 2012

This script is damn old :<

 Respond  
FreakServ   -  Apr 17, 2012

Commands : !pokemons (not written) !pokemon and !list - not working What's the use of HP bar and other things? TODO? Doesn't find any use?

 Respond  
Sachit Reddy   -  Sep 19, 2011

i am havin so many scripts in my bot

 Respond  
Sachit Reddy   -  Sep 19, 2011

i want to play it with my bot name

 Respond  
Frenetic   -  Sep 18, 2011

Sachit, save it as pbot.mrc then load it

 Respond  
Sachit Reddy   -  Sep 18, 2011

aha the script not workin if i save it like this CrAzY-ReBeL.ini

 Respond  
Sachit Reddy   -  Sep 18, 2011

aha2y need ur help can i save the thing as .BOT extension

 Respond  
jc987   -  Jul 26, 2011

you may need this: http://www.smogon.com/dp/articles/damage_formula

i always quit mt bots when it came time to make algorithms for things like damage, exp gain, etc...

nice job so far

 Respond  
AmytiX   -  Jul 25, 2011

^_^

 Respond  
Aha2Y   -  Jul 25, 2011

Thanks for the good support AmytiX.

 Respond  
AmytiX   -  Jul 25, 2011

Very nice Aha2Y :D

 Respond  
AmytiX   -  Jul 23, 2011

And you can also Xploit register a channel then you can ASSIGN a bot into your channel :D (Free)

 Respond  
AmytiX   -  Jul 23, 2011

Xploit let your PC on 24/24 or use Shell BNC (eggdrop)

 Respond  
Xploit   -  Jul 23, 2011

how? to make your own 24/7 bot??

 Respond  
AmytiX   -  Jul 21, 2011

^^

 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.