Advertisement
russotragik

[BasiEgaXorz] SEGA MEGA DRIVE / GENESIS better random sample

Sep 13th, 2018
2,365
0
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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement