Show je... > Scripts

[mIRC] Pokemon RPG. (Voor Bot)

(1/2) > >>

Jordy:
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.
And it uses .ini's (My first script with .ini's)

How to install
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. Change #TestRPG to your Channel.
8. Type /Pokeadmin <your name> in the client.
9. Have fun.


Idea's - To do
;- PokeMart
;- PokeCenter
;- Health(HP)
;- Attacks
;- Trade Center
;- Flood Protection

Hope you like it.

And if you find a bug please comment it.

I didn't stole this somewhere, I wrote it all my self

Change log
;- Removed flee timer.
;- Fixed alias pokeadmin.

Sorry voor engels geen zin om het te vertalen :P

Code:

--- Code: ---
;- 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
  }
}
 



--- Einde van code ---

Goo:
Nice, ook leuk om aan te knutselen!

doglord007:
Zeker nice hoor :).

Jordy:
Update

'- No more /pokeadmin, Use the /msg <bot nick> !setup and follow the instructions.
- Added following commands: !adminkey, !setup, !setname, !setpassword, !setrpgchan
- Fixed the nickname on !catch.

digital ownage:
dus dit is een pokemon game, ik snap he tniet helemaal lol'd

Navigatie

[0] Berichtenindex

[#] Volgende pagina

Naar de volledige versie