SHARE
TWEET

ズンドコキヨシ

basictomonokai Mar 23rd, 2016 108 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. rem スンドコキヨシ
  2. b$=""
  3. e$="off"
  4.  
  5. cls
  6.  
  7. do
  8.  
  9.   a=rnd()*10
  10.  
  11.   if a > 5 then
  12.     c$="ズン"
  13.   else
  14.     c$="ドコ"
  15.   endif
  16.  
  17.   print c$;" ";
  18.  
  19.   b$=b$+c$
  20.  
  21.   if len(b$) > 10 then
  22.     b$=right$(b$,10)
  23.   endif
  24.  
  25.   if b$="ズンズンズンズンドコ" then
  26.     print "キ・ヨ・シ!"
  27.     e$="on"
  28.   endif
  29.  
  30. until e$="on"
  31.  
  32. end
RAW Paste Data
Top