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

fn.def tpbox1$(htdata2$,gm1$,gm2$,gm3$)

console.title "神経衰弱クリア画面の表示"

grabfile outhtml$,htdata2$,1

nxttesta:

HTML.OPEN

HTML.LOAD.string outhtml$

xnextUserActiona:

! loop until data$ is not ""

DO
 HTML.GET.DATALINK data$
UNTIL data$ <> ""

type$ = LEFT$(data$, 4)

data$ = MID$(data$,5)

! Act on the data type
! Shown are all the current data types

SW.BEGIN type$

 ! Back Key hit.
 ! if we can go back then do it
 SW.CASE "BAK:"
  PRINT "BACK key: " + data$
  popup "終了します",0,0,0
  pause 2000
  end
  SW.BREAK

 ! A hyperlink was clicked on
 SW.CASE "LNK:"
  PRINT "Hyperlink selected: "+ data$
  popup "リンク先をロード中",0,0,1
!  HTML.LOAD.URL data$
  browse data$


  SW.BREAK

 ! An error occured
 SW.CASE "ERR:"
  PRINT "Error: " + data$
  popup "エラーが発生しました 終了します",0,0,0
  pause 2000
  exit
  SW.BREAK

 ! User data returned
 SW.CASE "DAT:"
  PRINT "User data: " + data$

  ! Check for Exit
  IF data$ = "//x//"
   PRINT "User ended demo."
   HTML.CLOSE
   popup "終了します",0,0,0
   pause 1000
   end
  else
   pause 2000
   if htdata2$="tpindex3.html" then
      msx$="これでゲームは終了です"
      popup msx$,0,0,0
      pause 2000
      msall$="2K衰弱＝＝＞　"+gm1$+"回\n3K衰弱＝＝＞　"+gm2$+"回\n4K衰弱＝＝＞　"+gm3$+"回"
      Dialog.message "ゲームの結果",msall$,selx,"終了"
   else
      msx$="つぎの画面に行きます"
      popup msx$,0,0,0
   endif
   html.close
  ENDIF
  SW.BREAK

 ! Form data returned.
 ! Note: Form data returning
 ! always exits the html.

 SW.CASE "FOR:"
  PRINT "Form data: "+data$
  popup "終了します",0,0,0
  pause 2000
  exit
  SW.BREAK



 SW.DEFAULT
  PRINT "Unexpected data type:", type$ + data$
  popup "終了します",0,0,0
  pause 2000
  exit

SW.END



fn.rtn data$

fn.end