• Our software update is now concluded. You will need to reset your password to log in. In order to do this, you will have to click "Log in" in the top right corner and then "Forgot your password?".
  • Welcome to PokéCommunity! Register now and join one of the best fan communities on the 'net to talk Pokémon and more! We are not affiliated with The Pokémon Company or Nintendo.

The Random Club!

Status
Not open for further replies.

Pikabloo

...
  • 4,628
    Posts
    19
    Years
    • Seen Sep 8, 2010
    Here you go... *Tosses a giant bottle of mustard down the cliff into the cheeze pool* o.o
     

    BobTheBlob

    Banned
  • 78
    Posts
    19
    Years
    Oo! Oo! Me wants to joinnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn! Bananas taste like qqwwqqwwMILK.
     

    bgt

    R A W R
  • 2,899
    Posts
    20
    Years
    • Age 15
    • Seen Jun 21, 2011
    omg @ this topic... lol, just the place for me... haha, and it took me this long to find the random club... lemme join. :P
     

    Pikabloo

    ...
  • 4,628
    Posts
    19
    Years
    • Seen Sep 8, 2010
    Welcome to the club! *Pours molten hot lava on everyone's head* o.o
     
  • 5,553
    Posts
    19
    Years
    Wheeee! ^_^ *posts a piece of his pkmn game's code*

    SUB WQATTK
    WQATTACK = 0: WQATTACK1 = 0: WQATTACK2 = 0: WQATTACK3 = 0: WQATTACK4 = 0: WQATTACK5 = 0: WQATTACK6 = 0: WQATTACK7 = 0: WQATTACK8 = 0: WQATTACK9 = 0: WSATTACK = 0: WSATTACK1 = 0: WSATTACK2 = 0: WSATTACK3 = 0: WSLPATTACK = 0: WSLPATTACK1 = 0
    IF (WSPEC$ <> "" AND WSPEC$ <> "FOCUS PUNCH") OR WTRUANT = 1 OR WRECHARGE = 1 OR WCOUNTDOWN > 0 OR WRAGE = 1 OR US5M > 0 OR ENPP = 0 THEN EXIT SUB
    MARK1 = 0: MARK2 = 0: MARK3 = 0: MARK4 = 0: SMARK1 = 0: SMARK2 = 0: SMARK3 = 0: SMARK4 = 0: SLPMARK1 = 0: SLPMARK2 = 0: SLPMARK3 = 0: SLPMARK4 = 0
    RUNAWAYPKMN = 0
    ATRAP = 0
    IF WABILITY("MAGNET PULL") AND (WTYPEA$ = "STEEL" OR WTYPEB$ = "STEEL") THEN ATRAP = 1
    IF WABILITY("ARENA TRAP") AND WPKABILITY$ <> "WINGS" AND WPKABILITY$ <> "LEVITATE" AND WTYPEA$ <> "FLYING" AND WTYPEB$ <> "FLYING" THEN ATRAP = 1
    IF WABILITY("SHADOW TAG") THEN ATRAP = 1
    IF FLEE <> 0 THEN RUNAWAYPKMN = INT(RND * FLEE) + 1
    IF US5M > 0 THEN RUNAWAYPKMN = 0
    IF TRAINER = 1 OR ATRAP = 1 OR WCNTR = 1 THEN RUNAWAYPKMN = 0
    IF RUNAWAYPKMN <> 0 THEN RUNAWAYPKMN = 1: EXIT SUB

    ...'nebody here know QBASIC? o.0 ... XD
     
    Status
    Not open for further replies.
    Back
    Top