I have worked on this script for months.
Now its finally done, So i want to show you all what i have build.
Its called Pokemon RPG.
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
6. Save as pokemonlist.txt and put it in the PokemonRPG folder
7. Load the script
8. Change #TestRPG to your Channel.
8. Type /Pokeadmin <your name> in the client.
9. Have fun.
Hope you like it.
And if you find a bug please comment it.
;- Removed flee timer.
;- Fixed alias pokeadmin.
;- 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) {
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> | writeini PokemonRPG/ $+ $nick $+ /account.ini char password $2
}
}
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 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
msg $nick Account created.
msg $nick Now please tell me what channel you want to use for the RPG. use !setrpgchan <channel here>
}
}
on *:text:!setrpgchan *:?:{
if (%setup_progress == yes) {
set %pkmnrpgchan $2
msg $nick Channel set. Have fun.
msg %pknmrpgchan PokemonRPG is configured, See !pokehelp.
}
}
on *:text:!register:%pkmnrpgchan:{
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 %pkmnrpgchan Player $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) has logged in.
writeini PokemonRPG/ $+ $nick $+ /account.ini char logged-in yes
}
}
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 %pkmnrpgchan New player: $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) has joined PokemonRPG
mode %pkmnrpgchan +v $nick
notice $nick Type !pokehelp for the commands
}
on *:text:!pokehelp:#:{
notice $nick Avaible 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:%pkmnrpgchan:{
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 %pkmnrpgchan +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 *:%pkmnrpgchan:{
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 %pkmnrpgchan 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 %pkmnrpgchan 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 %pkmnrpgchan 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:%pkmnrpgchan:{
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:%pkmnrpgchan:{
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 *:%pkmnrpgchan:{
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:%pkmnrpgchan:{
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:%pkmnrpgchan:{
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 %pkmnrpgchan Player $readini(PokemonRPG/accounts.ini, $nick, nick) logged out.
}
}
on *:text:!Release *:%pkmnrpgchan:{
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 %pkmnrpgchan Player: $readini(PokemonRPG/ $+ $nick $+ /account.ini, char, nick) Released $2 $+ .
}
else {
notice $nick You $nick aren't logged in
}
}
;; Admin ;;
on *:text:!reset *:%pkmnrpgchan:{
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 %pkmnrpgchan 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 *:%pkmnrpgchan:{
if (($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, admin) == Yes) && ($readini(PokemonRPG/ $+ $3 $+ /account.ini, char, registered) == yes)) {
msg %pkmnrpgchan 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 *:%pkmnrpgchan:{
if (($readini(PokemonRPG/ $+ $nick $+ /account.ini, char, admin) == Yes) && ($readini(PokemonRPG/ $+ $3 $+ /account.ini, char, registered)) {
msg %pkmnrpgchan Admin: $readini(PokemonRPG/ $+ $nick $+ /account.ini, $nick, nick) Removed $3 as Pokemon RPG Admin.
writeini PokemonRPG/ $+ nick $+ /account.ini char admin No
}
}
