SHARE
TWEET

[BasiEgaXorz] SEGA MEGA DRIVE / GENESIS better random sample

russotragik Sep 13th, 2018 99 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     seed = 0                    'define a variável de alimentação como 0
  2.     print "  Para obter um novo numero aleatorio"
  3.     locate 1, 10
  4.     print "pressione START"
  5. main0:
  6.     while joypad().7 = 0        'segura no loop enquanto o botão START não é pressionado
  7.         seed = seed + 1         'incremento seguro seed++ também é possível mas para o BEX prefiro esse modo
  8.         if seed = 65535 then    'se o seed atinge 65535(0xFFFFh/1111111111111111b), ele retorna a 0
  9.              seed = 0
  10.         endif                          
  11.         randomize seed          'sempre altera o valor do seed e re-executa o chamado para encher linguiça no program counter
  12.     wend
  13.     aleatorio = rnd(100)        'gera um numero aleatorio de acordo com o seed
  14.     print "Numero aleatorio da vez: ", aleatorio    'imprime na tela o numero aleatorio
  15.     sleep 10                    'para a execução por 1/6 segundo
  16.     goto main0                  'retorna para o rótulo main0 para o próximo seed
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top