Advertisement
russotragik

[BasiEgaXorz] SEGA MEGA DRIVE / GENESIS better random seed

Sep 13th, 2018
1,099
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     seed = 0                    'definida uma variavel de seed
  2.     while joypad().7 = 0        'segura no loop enquanto o botão START não é pressionado
  3.         seed = seed + 1         'incremento seguro seed++ também é possível mas para o BEX prefiro esse modo
  4.         if seed = 65535 then    'se o seed atingir 65535(FFFFh / 1111111111111111b), ele retorna a 0
  5.              seed = 0
  6.         endif                          
  7.         randomize seed          'sempre altera o valor do seed e re-executa o chamado para encher linguiça no program counter
  8.     wend
Advertisement
RAW Paste Data Copied
Advertisement