電霊 BBS

このBBSは 電子の言霊 に関する 意見、質問、感想、ソフトの不具合報告
などを書き込む場所です。なんでも思った事を書き込んで行ってください。雑談なんかも歓迎です!

投稿の際 ふさわしいトピックが無い場合は
新規投稿から書き込みをしてください。新しくトピックが作られます。

自分も相手も嫌な気持ちにならないよう心がけましょう。



1件 〜 4 件(全 31 件表示)
< | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | >
No.555 作品投稿スレver0.2 Date: 2015/07/20(月) 15:16
Name :y.tack  7SM67tY6bA  HOME [このトピックに書き込む]
このスレは HSPコンテストに関するスレッド の後継スレッドです

まずは HSPコンテストに関するスレッド の中のTOOLに関する記述をまとめます

HSPコンテストに関するスレッド の中のTOOLに関する記述を収集してたら
HSPコンテストに関するスレッドを一通り目を通してしまいましたさw

必殺!チラウラスレ のエディタ作成に関するスレもこっちに移動します

ちなみに 相談気分でも ここにUPすることは宣言みたくなって
実行出来ないことが多いので
報告気分で「やってること」「やったこと」を書くかんじで利用するのがいいかんじです

No.698 RE:作品投稿スレver0.2 Date: 2016/08/30(火) 03:12
Name :Y_repeat  7SM67tY6bA  HOME
別exe簡単インタプリタ ver0.0.3

流してみたw

main

sdim _4note,4000
exec "hsptmp.exe",0
notesel _4note
button "A",*l_A
button "B",*l_B
button "C",*l_C
button "clear",*l_clear
stop
*l_A
_4note="push A\n"+_4note
notesave "dat_file.dat"
goto *l_do
*l_B
_4note="push B\n"+_4note
notesave "dat_file.dat"
goto *l_do
*l_C
_4note="push C\n"+_4note
notesave "dat_file.dat"
goto *l_do
*l_clear
_4note=""
notesave "dat_file.dat"
goto *l_do
*l_do
notesave "dat_file.dat"
stop


No.697 RE:作品投稿スレver0.2 Date: 2016/08/30(火) 03:08
Name :Y_repeat  7SM67tY6bA  HOME
別exe簡単インタプリタ ver0.0.2

オウム返しではなくなったかもw

main

sdim _4note,4000
exec "hsptmp.exe",0
notesel _4note
button "A",*l_A
button "B",*l_B
button "C",*l_C
stop
*l_A
_4note="push A"
notesave "dat_file.dat"
goto *l_do
*l_B
_4note="push B"
notesave "dat_file.dat"
goto *l_do
*l_C
_4note="push C"
notesave "dat_file.dat"
goto *l_do
*l_do
notesave "dat_file.dat"
stop


sub(awaitの値変えただけw)
exe自動作成とかでexeにしてください

sdim _4note,4000
notesel _4note
note_stock=_4note
#define d_file "dat_file.dat"

*begin
await 200
noteload "dat_file.dat"
if note_stock!=_4note{
cls 0
pos 0,0
mes _4note
note_stock=_4note
}
goto *begin


No.696 RE:作品投稿スレver0.2 Date: 2016/08/30(火) 03:01
Name :Y_repeat  7SM67tY6bA  HOME
別exe簡単インタプリタ

簡単インタプリタと言いつつオウム返しのみw
main

sdim _4note,4000
exec "hsptmp.exe",0
notesel _4note
repeat 3000
await 1000
cls 0
pos 0,0
mes cnt
_4note=str(cnt)
notesave "dat_file.dat"
loop


sub

sdim _4note,4000
notesel _4note
note_stock=_4note
#define d_file "dat_file.dat"

*begin
await 100
noteload "dat_file.dat"
if note_stock!=_4note{
cls 0
pos 0,0
mes _4note
note_stock=_4note
}
goto *begin

1件 〜 4 件(全 31 件表示)
< | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | >


  


 

無料レンタル掲示板 1616BBS