Pokemon RPG - Beta 2.3 (Channel Fix)

Platform:  mIRC
Published  Jun 09, 2011
Updated  Jul 25, 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
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
}
}

Comments

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.