いろいろ試してみましたが、
俗に言う「ぬるぽ」というエラーや、命令を解釈できない、等と言われます。
使えない命令が分からないので、ソースのっけます。
*初期化
gsel 0
cls
R = 0
G = 0
B = 0
size = 16
mousexmainasu = 3
mouseymainasu = 5
screen 0,1200,715,0,80,30
button "全部消す",*初期化
listbox colorcheck , 40 , "黒\n白\n灰\n茶"
button "保存",*save
button "筆 小さ目",*small
button "筆 大き目",*big
gsel 0,2
pos 50,1
picload "neko.jpg",1
title "ネコつく〜るVer 0.1 (ESCで終了)"
gsel 0
*main
redraw 0
if colorcheck = 0 {
R = 0
G = 0
B = 0
}
if colorcheck = 1 {
R = 255
G = 255
B = 255
}
if colorcheck = 2 {
R = 80
G = 80
B = 80
}
if colorcheck = 3{
R = 130
G = 100
B = 0
}
getkey owari,27
if owari = 1{
end
}
getkey check,16
if check = 1:goto*tobasi
getkey dotcheck,1
if dotcheck = 1{
goto*dot
}
redraw 1
*tobasi
redraw 1
await 1
goto*main
stop
*dot
if mousex < 50 {
goto*main
}
if mousex > 1100{
goto*main
}
if mousey < 50{
goto*main
}
if mousey > 650{
goto*main
}
redraw 0
font msgothic,size
color R,G,B
pos mousex-mousexmainasu,mousey-mouseymainasu
mes "●"
redraw 1
await 1
goto*main
*save
dialog "まだ実装してないぜ"
goto*main
*big
size = 50
mousexmainasu = 25
mouseymainasu = 25
goto*main
*small
size = 16
mousexmainasu = 0
mouseymainasu = 0
goto*main
HSPLetの使い方
