Advertisement
masaakiNakamura

AlphaGo-Kifu-Playback

Mar 30th, 2016
1,860
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 'igo kifu
  2. 100 L=#A5:M=#E8:N=#900:Q=19:CLS:FORX=1TOQ:FORY=1TOQ:POKEN+Y*32+X,L:NEXT:NEXT:S=3814:B=0:T=760
  3. 160 IFS>#1000THEN?"END":END
  4. 170 X=PEEK(S):IFX<#F0Y=(X&#F)+1:X=(X>>4)+1ELSES=S+1:Y=PEEK(S):X=(X<<3+Y>>5)&#1f+1:Y=Y&#1F+1
  5. 180 C=N+Y*32+X
  6. 190 GSB610
  7. 200 S=S+1:GOTO160
  8. 610 POKEC,M+B:B=B^1:FORX=1TOQ:FORY=1TOQ:C=N+Y*32+X
  9. 620 IFPEEK(C)=B|MPOKEC,B|#F8
  10. 660 NEXT:NEXT
  11. 670 F=0:FORX=1TOQ:FORY=0TOQ:C=N+Y*32+X
  12. 700 IFPEEK(C)<#F8GOTOT
  13. 710 D=PEEK(C-1):IF(D=L)|(D=M+B)POKEC,M+B:F=1:GOTOT
  14. 720 D=PEEK(C+1):IF(D=L)|(D=M+B)POKEC,M+B:F=1:GOTOT
  15. 730 D=PEEK(C+32):IF(D=L)|(D=M+B)POKEC,M+B:F=1:GOTOT
  16. 740 D=PEEK(C-32):IF(D=L)|(D=M+B)POKEC,M+B:F=1
  17. 760 NEXT:NEXT:IFFGOTO670
  18. 770 FORX=1TOQ:FORY=1TOQ:C=N+Y*32+X
  19. 780 D=PEEK(C):IFD&#FE=#F8:POKEC,L
  20. 790 NEXT:NEXT:RTN
  21.  
  22. 'kifu
  23.  
  24. POKE3814,241,227,240,111,35,242,15,241,207,241,208,241,176,241,240,45
  25. POKE3830,240,176,241,143,242,13,130,57,241,238,242,14,240,79,240,80
  26. POKE3846,240,48,46,240,47,30,240,112,240,143,62,29,240,113,44,241
  27. POKE3862,47,38,67,242,5,242,4,241,229,211,241,232,233,232,217,199
  28. POKE3878,240,207,240,208,61,60,94,240,239,126,78,77,93,76,75,92
  29. POKE3894,109,91,110,74,58,59,43,71,56,241,233,242,8,242,37,242
  30. POKE3910,38,163,125,236,242,36,242,35,242,69,88,106,124,141,123,174
  31. POKE3926,241,79,98,53,131,146,100,54,37,39,23,55,24,115,116,99
  32. POKE3942,83,114,84,66,103,82,104,136,122,138,139,140,137,155,153,133
  33. POKE3958,172,171,185,186,190,184,169,40,41,201,241,177,241,145,241,112
  34. POKE3974,241,111,241,144,241,175,241,113,188,167,118,242,2,242,3,242
  35. POKE3990,34,241,226,242,67,102,36,19,242,1,120,150,121,225,241,225
  36. POKE4006,241,224,209,52,68,105,119,73,213,197,196,242,42,87,75,215
  37. POKE4022,214,182,183,198,230,166,216,151,208,168,200,152,210,193,227,194
  38. POKE4038,226,241,81,241,146,142,241,15,158,157,241,17,240,241,242,11
  39. POKE4054,242,43,242,12,242,44,14,28,189,173,206,20,4,5,3,192
  40. POKE4070,176,224,51,22,177,241,237,237,240,145,240,81,240,175,241,16
  41. POKE4086,240,240,242,9,242,41,241,82,242,148
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement