Auteur Topic: [mIRC] Pokemon RPG. (Voor Bot)  (gelezen 4475 keer)

0 leden en 1 gast bekijken dit topic.

Jordy

  • DigitalPlace Lid
  • *
  • Berichten: 469
  • Karma: 2
    • Bekijk profiel
    • http://direct-dpf.snowkat.nl
[mIRC] Pokemon RPG. (Voor Bot)
« Gepost op: juni 09, 2011, 10:41:06 pm »
  • [+1]0
  • [-1]0
  • 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:
    ;- 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
      }
    }
     


    « Laatst bewerkt op: juli 17, 2011, 10:07:04 pm door Jordy »

    Goo

    • DigitalPlace Guru
    • ****
    • Berichten: 3269
    • Karma: 2
      • Bekijk profiel
    Re: [mIRC] Pokemon RPG. (Voor Bot)
    « Reactie #1 Gepost op: juni 10, 2011, 01:34:27 pm »
  • [+1]0
  • [-1]0
  • Nice, ook leuk om aan te knutselen!
    « Laatst bewerkt op: januari 01, 1970, 01:00:00 am door Guest »
    You can\'t argue with stupid people. They just drag you down to their level, and beat you with experience.

    doglord007

    • Actief DigitalPlace Lid
    • **
    • Berichten: 1457
    • Karma: 18
      • Bekijk profiel
      • http://www.digitalplace.nl
    Re: [mIRC] Pokemon RPG. (Voor Bot)
    « Reactie #2 Gepost op: juni 20, 2011, 11:10:23 pm »
  • [+1]0
  • [-1]0
  • Zeker nice hoor :).
    « Laatst bewerkt op: januari 01, 1970, 01:00:00 am door Guest »
    14:16   dr-cult   streep moet ergens zijn mannelijkheid kunnen laten gelden, want bij mij lukt dat niet
    Nyanyanyanyanyanyanya!

    Jordy

    • DigitalPlace Lid
    • *
    • Berichten: 469
    • Karma: 2
      • Bekijk profiel
      • http://direct-dpf.snowkat.nl
    Re: [mIRC] Pokemon RPG. (Voor Bot)
    « Reactie #3 Gepost op: juli 17, 2011, 10:10:41 pm »
  • [+1]0
  • [-1]0
  • 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.
    « Laatst bewerkt op: januari 01, 1970, 01:00:00 am door Guest »

    digital ownage

    • DigitalPlace Guru
    • ****
    • Berichten: 3398
    • Karma: 19
      • Bekijk profiel
    Re: [mIRC] Pokemon RPG. (Voor Bot)
    « Reactie #4 Gepost op: juli 17, 2011, 11:23:07 pm »
  • [+1]0
  • [-1]0
  • dus dit is een pokemon game, ik snap he tniet helemaal lol'd
    « Laatst bewerkt op: januari 01, 1970, 01:00:00 am door Guest »

    pr0n

    zoramaz

    • DigitalPlace Lid
    • *
    • Berichten: 19
    • Karma: 0
      • Bekijk profiel
    Re: [mIRC] Pokemon RPG. (Voor Bot)
    « Reactie #5 Gepost op: januari 05, 2012, 02:14:50 pm »
  • [+1]0
  • [-1]0
  • Citaat van: "digital ownage"
    dus dit is een pokemon game, ik snap he tniet helemaal lol'd

    Wat snap je niet?

    [mod=Faperdaper:11qrdwbh]Dit topic is al behoorlijk oud, gelieve niet meer te reageren.[/mod:11qrdwbh]
    « Laatst bewerkt op: januari 01, 1970, 01:00:00 am door Guest »
    wie zijn gat brand... mag blij zijn dat hij niet andersom lag...