daily pastebin goal
53%
SHARE
TWEET

2K、3K、4K衰弱・クリア画面サブプログラム t-gmmctsub2.bas

basictomonokai Oct 3rd, 2016 (edited) 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. fn.def tpbox1$(htdata2$,gm1$,gm2$,gm3$)
  2.  
  3. console.title "神経衰弱クリア画面の表示"
  4.  
  5. grabfile outhtml$,htdata2$,1
  6.  
  7. nxttesta:
  8.  
  9. HTML.OPEN
  10.  
  11. HTML.LOAD.string outhtml$
  12.  
  13. xnextUserActiona:
  14.  
  15. ! loop until data$ is not ""
  16.  
  17. DO
  18.  HTML.GET.DATALINK data$
  19. UNTIL data$ <> ""
  20.  
  21. type$ = LEFT$(data$, 4)
  22.  
  23. data$ = MID$(data$,5)
  24.  
  25. ! Act on the data type
  26. ! Shown are all the current data types
  27.  
  28. SW.BEGIN type$
  29.  
  30.  ! Back Key hit.
  31.  ! if we can go back then do it
  32.  SW.CASE "BAK:"
  33.   PRINT "BACK key: " + data$
  34.   popup "終了します",0,0,0
  35.   pause 2000
  36.   end
  37.   SW.BREAK
  38.  
  39.  ! A hyperlink was clicked on
  40.  SW.CASE "LNK:"
  41.   PRINT "Hyperlink selected: "+ data$
  42.   popup "リンク先をロード中",0,0,1
  43. !  HTML.LOAD.URL data$
  44.   browse data$
  45.  
  46.  
  47.   SW.BREAK
  48.  
  49.  ! An error occured
  50.  SW.CASE "ERR:"
  51.   PRINT "Error: " + data$
  52.   popup "エラーが発生しました 終了します",0,0,0
  53.   pause 2000
  54.   exit
  55.   SW.BREAK
  56.  
  57.  ! User data returned
  58.  SW.CASE "DAT:"
  59.   PRINT "User data: " + data$
  60.  
  61.   ! Check for Exit
  62.   IF data$ = "//x//"
  63.    PRINT "User ended demo."
  64.    HTML.CLOSE
  65.    popup "終了します",0,0,0
  66.    pause 1000
  67.    end
  68.   else
  69.    pause 2000
  70.    if htdata2$="tpindex3.html" then
  71.       msx$="これでゲームは終了です"
  72.       popup msx$,0,0,0
  73.       pause 2000
  74.       msall$="2K衰弱==> "+gm1$+"回\n3K衰弱==> "+gm2$+"回\n4K衰弱==> "+gm3$+"回"
  75.       Dialog.message "ゲームの結果",msall$,selx,"終了"
  76.    else
  77.       msx$="つぎの画面に行きます"
  78.       popup msx$,0,0,0
  79.    endif
  80.    html.close
  81.   ENDIF
  82.   SW.BREAK
  83.  
  84.  ! Form data returned.
  85.  ! Note: Form data returning
  86.  ! always exits the html.
  87.  
  88.  SW.CASE "FOR:"
  89.   PRINT "Form data: "+data$
  90.   popup "終了します",0,0,0
  91.   pause 2000
  92.   exit
  93.   SW.BREAK
  94.  
  95.  
  96.  
  97.  SW.DEFAULT
  98.   PRINT "Unexpected data type:", type$ + data$
  99.   popup "終了します",0,0,0
  100.   pause 2000
  101.   exit
  102.  
  103. SW.END
  104.  
  105.  
  106.  
  107. fn.rtn data$
  108.  
  109. fn.end
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