hsp3/モジュール変数/モジュール変数の使い方例 2

  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
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

 
#enum global TYPE_UNKNOWN    = 0
#enum global TYPE_S
#enum global TYPE_N
#enum global TYPE_SN
#enum global TYPE_NNN
#enum global TYPE_SSSSS
#enum global TYPE_X
 
#module "s" type, s1
#modinit str _s1
    type    = TYPE_S
    s1        = _s1
    return
#modfunc disp_s
    mes "type="+type+",s1="+s1
    return
#global
 
#module "n" type, n1
#modinit int _n1
    type    = TYPE_N
    n1        = _n1
    return
#modfunc disp_n
    mes "type="+type+",n1="+n1
    return
#global
 
#module "sn" type, s1, n1
#modinit str _s1, int _n1
    type    = TYPE_SN
    s1        = _s1
    n1        = _n1
    return
#modfunc disp_sn
    mes "type="+type+",s1="+s1+",n1="+n1
    return
#global
 
#module "nnn" type, n1, n2, n3
#modinit int _n1, int _n2, int _n3
    type    = TYPE_NNN
    n1        = _n1
    n2        = _n2
    n3        = _n3
    return
#modfunc disp_nnn
    mes "type="+type+",n1="+n1+",n2="+n2+",n3="+n3
    return
#global
 
#module "sssss" type, s1, s2, s3, s4, s5
#modinit str _s1, str _s2, str _s3, str _s4, str _s5
    type    = TYPE_SSSSS
    s1        = _s1
    s2        = _s2
    s3        = _s3
    s4        = _s4
    s5        = _s5
    return
#modfunc disp_sssss
    mes "type="+type+",s1="+s1+",s2="+s2+",s3="+s3+",s4="+s4+",s5="+s5
    return
#global
 
#module "x" type, n1, n2, n3, n4, n5, n6, n7, n8, n9, na
#modinit
    type    = TYPE_X
    n1        = 0
    n2        = 1
    n3        = 2
    n4        = 3
    n5        = 4
    n6        = 5
    n7        = 6
    n8        = 7
    n9        = 8
    na        = 9
    return
#modfunc disp_x
    mes "type="+type+",n1="+n1+",n2="+n2+",n3="+n3+",n4="+n4+",n5="+n5+",n6="+n6+",n7="+n7+",n8="+n8+",n9="+n9+",na="+na
    return
#global
 
#module "base" type
#modinit
    type    = TYPE_UNKNOWN
    return
 
#modfunc gettype
    return type
 
#deffunc disp array v
    foreach v
        gettype v.cnt
        switch stat
        case TYPE_S        : disp_s        v.cnt : swbreak
        case TYPE_N        : disp_n        v.cnt : swbreak
        case TYPE_SN    : disp_sn        v.cnt : swbreak
        case TYPE_NNN    : disp_nnn        v.cnt : swbreak
        case TYPE_SSSSS    : disp_sssss    v.cnt : swbreak
        case TYPE_X        : disp_x        v.cnt : swbreak
        swend
    loop
    return
#global
 
    newmod v, n,        1
    newmod v, s,        "test"
    newmod v, sn,        "TEST", 1
    newmod v, nnn,        4, 5, 6
    newmod v, sssss,    "aa", "bb", "cc", "dd", "ee"
    newmod v, x
 
    disp v

  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
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
-
|
!
 
 
 
 
 
-
|
-
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

;#cmpopt optinfo	1
;#cmpopt ppout	1
 
#enum global TYPE_UNKNOWN    = 0
#enum global TYPE_FADEIN
#enum global TYPE_FADEOUT
 
#define global WND_MAIN    0
#define global WND_BG    2
#define global WND_TEMP    3
 
#define WND_W    640
#define WND_H    480
 
#module "effect_fadein" type, offset, count, col
 
#define global effect_add_fadein(%1,%2,%3)    newmod %1,effect_fadein,%2,%3
 
#modinit int _offset, int _max
    type    = TYPE_FADEIN
    offset    = _max
    count    = _max + _offset
    col        = ginfo_r, ginfo_g, ginfo_b
    return
 
#modfunc effect_fadein_do
    if count < 0 : return
    if count <= offset {
        sel_wnd = ginfo_sel
        gsel WND_TEMP
        color col(0), col(1), col(2)
        boxf
        gsel sel_wnd
        gmode 3, 0, 0, 255 * count / offset
        pos 0, 0 : gcopy WND_TEMP, 0, 0, ginfo_winx, ginfo_winy
    }
    count--
    return
 
#modfunc effect_fadein_is_finish
    if count < 0 : return 1
    return 0
 
#global
 
#module "effect_fadeout" type, offset, count, col
 
#define global effect_add_fadeout(%1,%2,%3)    newmod %1,effect_fadeout,%2,%3
 
#modinit int _offset, int _max
    type    = TYPE_FADEOUT
    offset    = _max
    count    = _max + _offset
    col        = ginfo_r, ginfo_g, ginfo_b
    return
 
#modfunc effect_fadeout_do
    if count < 0 : return
    if count <= offset {
        sel_wnd = ginfo_sel
        gsel WND_TEMP
        color col(0), col(1), col(2)
        boxf
        gsel sel_wnd
        gmode 3, 0, 0, 255 * (offset - count - 1) / offset
        pos 0, 0 : gcopy WND_TEMP, 0, 0, ginfo_winx, ginfo_winy
    }
    count--
    return
 
#modfunc effect_fadeout_is_finish
    if count < 0 : return 1
    return 0
    
#global
 
#module "effect" type
 
#modinit
    type = TYPE_UNKNOWN
    return
 
#modfunc effect_get_type@effect
    return type
 
#modfunc effect_is_finish
    if type = TYPE_FADEIN {
        effect_fadein_is_finish thismod
    } else : if type = TYPE_FADEOUT {
        effect_fadeout_is_finish thismod
    }
    return
 
#deffunc effect_do array v
    foreach v
        effect_get_type v.cnt
        if stat = TYPE_FADEIN {
            effect_fadein_do v.cnt
        } else : if stat = TYPE_FADEOUT {
            effect_fadeout_do v.cnt
        }
    loop
    return
 
#deffunc effect_calc_count array v
    n = 0
    foreach v
        effect_is_finish v.cnt
        if stat : delmod v.cnt : else : n++
    loop
    return n
 
#global
 
    buffer WND_TEMP, WND_W, WND_H
    buffer WND_BG, WND_W, WND_H
    repeat 10000
        color rnd(256), rnd(256), rnd(256)
        n = rnd(ginfo_winx + 100) - 50, rnd(ginfo_winy + 100) - 50, rnd(100), rnd(100), rnd(2)
        circle n(0), n(1), n(0) + n(2), n(1) + n(3), n(4)
    loop
 
    gsel WND_MAIN, 0
    width WND_W, WND_H
    title "start"
 
    effect_add_fadein    v,  0, 30
    effect_add_fadeout    v, 15, 30
    effect_add_fadein    v, 45, 30
 
    repeat
        await 30
    
        redraw 0
        ; 背景描画
        gmode 0
        pos 0, 0 : gcopy WND_BG, 0, 0, 640, 480
        ; エフェクト描画
        effect_do v
        ; 
        color 255, 0, 0
        pos 0, 0 : mes "frame " + strf("%3d", cnt)
        ; 再描画
        redraw 1
 
        ; エフェクト開放
        effect_calc_count v
 
        if stat < 1 : break
 
    ;	if 30 = cnt : 	effect_add_fadein	v, cnt + 15, 30
    loop
 
    title "finish"