HSP講座/基本的なスクリプトのパターン

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25

;
;	アニメーション画面
;
 
;初期設定
    screen 0, 200, 30
    font msgothic, 20, 1
    x = 0 : y = 0
 
;メインループ
 *main
    redraw 0
    color 255,255,255 : boxf : color : pos 0,0    ;画面初期化
    ;↓中身はここから
 
    pos x, y
    mes "メッセージ"
    mx = ginfo(14) ;メッセージの出力Xサイズ
    x++
    if x > ginfo_winx : x = -mx
 
    ;↑中身はここまで
    redraw 1
    await 16
    goto *main

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11

// cls命令で画面初期化するとどうなるか？サンプルスクリプト
 *main
    redraw 0
    pos 30, 30
    color 255
    font msgothic, 24, 2
    cls
    mes "ちかちかさせず、赤く斜体で表示したいのに…"
    redraw 1
    wait 1
    goto *main

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66

;
;	アニメーション画面　その２
;		画像ファイルを用いたサンプル
 
;===========================================================
;初期化
;===========================================================
 
;画像ファイル使用のため、HSPのサンプルが置いてあるフォルダをカレントにする。
chdir dirinfo(1)+"\\sample\\demo"
 
 
;===========================================================
;ウィンドウを準備する
;===========================================================
 
;===================
;ウィンドウID 1
screen 1 : title "背景画像用サブウィンドウ"
buffer 1    ;普通はscreenの代わりにbuffer命令を使用してウィンドウを見えなくします。
picload "sky_bg.jpg"
wsizex.1 = ginfo_winx    ;画像サイズを取得する
wsizey.1 = ginfo_winy
 
;===================
;ウィンドウID 2
screen 2 : title "移動キャラクター用サブウィンドウ"
buffer 2    ;普通はscreenの代わりにbuffer命令を使用してウィンドウを見えなくします。
picload "efx.bmp"
wsizex.2 = ginfo_winx    ;画像サイズを取得する
wsizey.2 = ginfo_winy
 
;===================
;ウィンドウID 0
screen 0
 
 
;===========================================================
;メインループ
;===========================================================
 *main
    redraw 0
 
    ;--- 入力処理 ---
    ;自機の操作
    m = 5
    stick key, 15
    if key&1 : x -= m
    if key&2 : y -= m
    if key&4 : x += m
    if key&8 : y += m
 
    ;--- 描画処理 ---
    ;画面の初期化（背景画像で初期化する。）
    gmode 0
    pos 0,0
    gcopy 1, 0, 0, wsizex.1, wsizey.1
 
    ;自機の描画
    gmode 5,,,255
    pos x, y
    gcopy 2, 0, 0, wsizex.2, wsizey.2
 
    redraw 1
    await 16
    goto *main

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47

; 基本的なスクリプトのパターン
; 〜 ツールの基本 その1 〜
 
;####################################
; 初期化
    message = ""
 
; 画面の作成
    mes "ボタンを並べる"
    button gosub "ボタン１", *btn1
    idBtn1 = stat               // オブジェクトIDを代入
 
    button gosub "ボタン２", *btn2
    idBtn2 = stat
 
    button gosub "ボタン３", *btn3
    idBtn3 = stat
 
    input message, 300
    idInput1 = stat
 
    button goto "終了", *owari
    onexit goto *owari          // ウィンドウ右上の×をクリックしたらowariラベルにジャンプ
 
    stop
 
;####################################
; サブルーチン
 
*btn1
    dialog "ボタン１が押された！\nボタン１のオブジェクトID = " + idBtn1
    return
 
*btn2
    objprm idInput1, "ボタン２のオブジェクトID = " + idBtn2
    return
 
*btn3
    objprm idInput1, "ボタン３のオブジェクトID = " + idBtn3
    return
 
;####################################
; プログラムを終了
 
*owari
    dialog "プログラムを終了します"
    end