テキストルーレット | Codetter（こーどったー）

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
#cmpopt varinit 1
#packopt name "txtLret"
#packopt xsize 600,ysize 400
#include "XorShift.as"
new@XorShift rand
#module GUI
    #deffunc GUIMain
        screen 0,600,400
        title "テキストルーレット!"
        color 51,153,255
        boxf 0
        color 0,0,153
        font "Meiryo UI",16
        objmode 2
    
        pos 210,15
        mes "ルーレットしたい値を入れてね。"
    
        pos 10,40
        sdim txtList,0x7FFF
        #enum txtListID=0
        mesbox txtList,580,260
        pos 140,310
        objsize 200,24
        #enum onclickLretID
        button gosub "Let's ルーレット!",*onclickLret
        pos 350,310
        objsize 100,24
        #enum onclickDefaultID
        button gosub "デフォルト",*onclickDefault
    
        pos 10,345
        sdim resultList,0xFF
        #enum resultListID
        input resultList,580,25
    return
*onclickLret
        lretMain
    return
*onclickDefault
        lretDefault
    return
#global
#module Lret
    #deffunc lretMain
        sdim txtListValue
        split txtList@GUI,"\n",txtListValue
        objprm resultListID@GUI,txtListValue(xsRandInt(rand@,0,length(txtListValue)-1))
    return
    #deffunc lretDefault
        mhList={"大剣
            太刀
            片手剣
            双剣
            ランス
            ガンランス
            ハンマー
            狩猟笛
            操虫棍
            穿龍棍
            ライトボウガン
            ヘビィボウガン
            弓"}
        objprm txtListID@GUI,mhList
    return
#global
GUIMain
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX