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
6. Save as pokemonlist.txt and put it in the PokemonRPG folder
7. Load the script
8. Type !setup to start the setup.
9. 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
}
}