iBASICについて語ろうよ…

語れや

iBASIC
http://cgi.cyborg.ne.jp/~j-saito/cgi-bin/software/ibasic/

BASIC最強！！！ＬＩＮＥとかが・・・

ezBASICもあるです。
ttp://yasu.rank.nu/ez/?ezplus=ezbasic&t=1073234286
これで何か作ったやついるのかい？

とりあえずブロック崩しでも作ってみようかな…
なんて思っても知識がない…。(´･ω・｀)

>>3
作ろうと思ったら携帯上でしか動かないのか
入力が大変そうなのでパスです・・・

Vbasicはないの？

名前ださいから。

これでドット絵作成ソフト作れる？

ブロック崩しのバーの部分です。ezで作ったので、iで動くかな？だれかeznesうpして…改行は自分でしてね
soft1("Exit")
j = 0i = 0
label loop
if input(0) and keysoft1 then exit endifif scan = keyleft then i = i + 7 endifif keyright = scan then i = i - 7 endif
lock()
color(255,255,255)line( 55 - j ,height-9 ,65- j ,height-9 )j = icolor(255,0,0)line( 55 - i ,height-9 ,65 - i ,height-9 )unlock(1)goto "loop"

>>9
iだと６行目の j = icolor(255,0,0)の部分でエラーが出る。

>>10
line( 55 - j ,height-9 ,65- j ,height-9 )
j = i
color(255,0,0)
こんな風に改行してもだめだったらスマソ

A5302CA、改行できません！！

ということでBrainfuckの方が好きかも。
誰か、Brainfuckスレ立ててくれ。ム板の方はレベル高すぎてわからん。

文字数制限の多い端末でやるもんじゃないと思う＞BF
ただ入力部分自体を専用のものとすれば使う文字自体が少ないから入力は楽か？
そういう問題でもないと思うが……

揚げ


ファミリーベーシックで我慢しとけ！

SO505ではアプリ自体動作せず。残念

ezBASICの場所がわかりにくいので説明

http://yasu.rank.nu/ez/ここから
ezBASIC
1.EZPLUS>すべて表示>ezBASIC
BrainFuck
1.EZPLUS>すべて表示>BrainFuck
お絵描きｱﾌﾟﾘ
Punkten
1.EZPLUS>ツール>Punkten

下がりすぎなので保守age

http://au-mode.net/

iBASIC以外にプログラミングできるiアプリある？

俺はCをかじったことしかないが、
EZBASICの説明書だけで作ってみた。
動かないんで、訂正お願いします〜

soft1("Exit")
label loop

if input(10) and keysoft2 then exit endif

if scan = keyselect then a=a+5


lock()

color(255,255,255)line(10 ,10-a ,25 ,10-a )

b=a

color(255,255,255)line(10 ,10-b ,25 ,10-b )

unlock(1)

goto "loop"

誰かレス呉

こんな感じに変わりますた


soft1("Exit")
j = 0
i = 0
label loop

if input(10) and keysoft1 then exit endif

if scan = keyselect then i = i + 7
else i = i - 3
endif

lock()

color(255,255,255)line(50 , 55 - j ,60 ,55- j )
j = i

color(255,0,0)line(50 , 55 - i ,60 ,55 - i )

unlock(1)
goto "loop"

俺はezBASICを極めてしまった。雪が降るやつとか水がポチャんてなるやつとかを
つくった。でもこれはほんの初期作品に過ぎない。今はゲーム作ろうとしているが
A5303の最速モードをもってしてもクソげーしかつくれんかった。なんか作って欲しかったら
"達人"まで（と言うのもケータイからパソコンへメールの送り方が分からなくて
長文うつすのがめんどいから書きません）

非通知さんが作りたいのはコレ?赤い線が上下してんだケド・・・
改行しなくても実際にこのままコピーで動きますよ。終了は１を押してください
label A
lock()color(255,255,255)line(50,55-i,60,55-i)a=scan
if a=key1 then exit endif
i=i-3if a=keyselect then i=i+7endif
color(255,0,0)line(50,55-i,60,55-i)unlock(1)goto"A"

ほぉ〜、scanを代入することも出来るんですか。
自分はSFcave?っぽいのを作ろうとしてました。

接触判定はどうやれば？ここでは上下の線の上側にあるか下側にあるかでできそうですが、迷路などではどうやるんでしょうね。午後にでもいろいろと調べてみよー。

出来れば、ここにはっつけたらいいのでは？

あ、達人です。改名しました。
実は俺も前にSFcave作ったんですよ。いやあ、アレはヒドかった・・・
最初の画面は作れました。赤と黒のグラデーションの背景も作れました。
接触判定やゲームオーバー時の画面も作った・・・が、しかし！
実際あの水色のやつを動かせなかった・・・
というかバグってるみたいになった。アレでゲームを作っても遅いし
容量少ないから厳しいと思うよ？
（でもあの時より技術上げたから今なら出来るかも、暇な時にでもやってみるか）

>>12
Brain Fuckは一部の字しか出なくてつまらなかった
あんなのプログラミングじゃないな

上線の接触判定は（上から３０の場所に線がある場合）例えば
if 55-i<27then exit endif
とかで出来る。迷路はやたら容量とるから簡単なコースしか作れないっぽい

ezBASICでSFcaveつくった。
１５００文字位もあるので欲しい人はメアドを乗せとけ!
おくっちゃる!

>>29
分割してうぷしてくれたら神!!

まずこれを「点数」という名前で保存してくれ。いわゆる「はじめの画面」だ。
label loop
color(128,128,255)frect(0,0,132,144)color(0,0,0)text("SFCave",36,40)color(255,255,255)text("SFCave",32,44)text("Score:0"+A,18,130)text("Hi-Score:2097",18,146)label take
if input(0)and keysoft2 then exit endif
if scan=keyselect then goto"cat"endif
srand()b=abs(rand)%128w=w+1color(0,0,128+b)farc(66-w,77-w,w*2.w*2)color(255,0,0)text("SELECT:UP",18,84)text("SELECT key to start!",18,100)if w=36then w=22goto"loop"endif
goto"take"label cat
パソコンに打つのマジしんどいから(~_~;)メアド書いといてくれたらホント神!!

携帯から書き込め。

無理ならパソコンにメールで転送しる。

昔作ってたやつとかと組み合せただけだから、文句言おうと思えば
いくらでも言えるレベルだけどなかなかスリリングだよ。はっはは
文句例）
・障害物が1個ずつしか来ない。
・コースに起伏がない
・結構展開が早い
・最高点を保存することが出来ないので俺の本物での最高点を書いといた。
ドナドナ・・・だから自分で色々改造してくれ。
ゲーム部分メールで送りたいからコレ見たら俺にメール下さい。たのんます!!

前半ですよ。
label M
A=g
thread("点数","印")join("印")label D
color(q,0,0)frect(p,0,6,176)p=p+4if p=132then goto"E"endif
if q<1then n=n+62endif
if n>247then q=q+31endif
if q>247then n=0endif
if n<1then q=q-31 endif
goto"D"label E
origin(40,72)color(0,255,0)frect(-40,-72,132,38+d)frect(-40,38-d,132,38+d*2)if d>0then goto"G"endif
label A
lock()color(217,0,0)frect(0,-i,6,3)frect(93-c,e,3,15)a=scan
if c>130then d=d+1c=0goto"E"endif
label F
c=c+3if a=key1 then exit endif
i=i-2if a=keyselect then i=i+4endif
if c=93then goto"J"endif
label L

後半ですよ。
if abs(-i)>36-d then goto"B"endif
color(255,255,255)frect(93-c,e,3,15)frect(0,-i,6,3)unlock(1)goto"A"label B
unlock(1)color(255,0,0)text("GAME OVER",20,-i)for b=0 to 30b=b+1arc(-b,-i-b,b*2,b*2)next
g=d*120+c
color(0,128,255)text("SCORE:"+g,20,-i+15)input()goto"M"label G
e=rand%38-d if e>22-d then e=23-d endif
if e<-37+d then e=-34+d endif
goto"F"label J
if 1-i<e-1then goto"L"endif
if 1-i>e+15then goto"L"endif
goto"B"

言い忘れてたけど、前半と後半は一つのスレッドに繋げて移すんだぞ

神ｷﾀｰ(･∀･)

どうよこのﾋﾄﾞｲできは！？

iBASICならｴﾗｰだらけでした…断念…

あ、ezBASICとiBASICとじゃ文法全く違うからダメだよ！
機種変えろよ

機種かえるのはむりぽ
あうｺﾝﾌﾟﾚｯｸｽあるから…

>>ezBASICの鬼
SFcaveの画面ｻｲｺｰ!本物うりふたつﾃﾞｽ。続き期待して待つ

自分もｹﾞｰﾑ作りましたがthread(,,)の使い方を理解してないためﾐﾆｹﾞｰﾑ位しか作れないので鬼さんには感動しま…

<漏れの生成物>
･ｼｮﾎﾞｲﾌﾞﾛｯｸ崩し
･ｸﾞﾗﾌ描画
･ｼｮﾎﾞｲﾀﾏｺﾞｯﾁ風ｽｸﾘｰﾝｾｰﾊﾞ
･色ﾗﾝﾀﾞﾑ作成
･GPS取得
etc…

threadの使い方を書いときましょう。例えばアプリ内に「家」という名前の
ファイルがあるとします。それを他のファイル内で呼び出したい時
thread("家","出")
「出」の所は何でも良い。更に家が終わるまで次の演算が始まらないようにするには
thread("家","出")join("出")
とすればいい。threadではlock(),unlock(1)が呼び出せないので注；
変数は結構リセットされずに継承されるのでこれまた注；
ブロック崩しか・・・つくれなかったんだよな・・・。ソース公開orメール送信してもらえると嬉しい
メールは上の方に書いてあるんでヨロシコ！そろそろSFCaveバージョンアップするか・・・

SFCave for ezBASIC ver.2
これを"A"というタイトルで保存しよう
label D
color(q,0,0)frect(132+p,0,6,176)p=p-3if p=-135then goto"E"endif
if q<1then n=2endif
if n=2then q=q+31endif
if q>247then n=0endif
if n<1then q=q-31 endif
goto"D"label E

次はコレを「点数」で保存だ！
label loop
color(128,128,255)frect(0,0,132,144)color(0,0,0)text("SFCave",36,40)color(255,255,255)text("SFCave",32,44)text("Score:"+A,18,130)z=max(A,2865)text("Hi-Score:"+z,18,146)label take
if input(0)and keysoft2 then exit endif
if input(0)and keyselect then goto"cat"endif
srand()b=abs(rand)%128w=w+1color(0,0,128+b)farc(66-w,77-w,w*2.w*2)color(255,0,0)text("SELECT:UP",18,84)text("SELECT key to start!",18,100)if w=36then w=22goto"loop"endif
goto"take"label cat

最後。本体。
label M
u=63y=26p=0q=0n=0d=0i=0c=0e=0b=0W=0A=g
origin(0,0)thread("点数","印")join("印")thread("A","B")join("B")label E
origin(40,72)color(0,255,0)frect(-40,-72,132,38+d)frect(-40,38-d,132,38+d*2)if d>0then goto"G"endif
label A
if q<1then n=2endif
if n=2then q=q+31endif
if q>247then n=0endif
if n<1then q=q-31 endif
lock()color(q,0,0)frecy(92-c,e,3,15)color(217,0,0)frect(y,-i,6,3)a=scan
if c>133then d=d+1c=0goto"E"endif
label F
c=c+3if a=key1 then exit endif
i=i-2if a=keyselect then i=i+4endif
if c=u then goto"J"endif
label L
if abs(-i)>36-d then goto"B"endif
color(255,255,255)frect(92-c,e,3,15)frect(y,-i,6,3)unlock(1)goto"A"label B
unlock(1)vib(1000)color(255,0,0)text("GAME OVER",20,-i)for b=0 to 30b=b+1arc(-b,-i-b,b*2,b*2)next
g=d*120+c
color(0,128,255)text("SCORE:"+g,20,-i+15)sleep(2000)goto"M"label G
e=rand%38-d
if e>22-d then e=23-d endif
if e<-37+d then e=-34+d endif
goto"F"label J
if 1-i<e-1then goto"L"endif
if 1-i>e+15then goto"L"endif
goto"B"
変わったとこはやれば分かると思うから書かないけど、かなりよくなったべ
あ〜、しんど・・。

つーか、ここに作者(tabrisさん)が降りてくりゃ一番手っ取り早いんだよな・・・
誰か呼んで来てくんねーかな。

ﾌﾞﾛｯｸ崩し
ｼｮﾎﾞｲのには理由がある、ﾌﾞﾛｯｸが一つしかない(崩したらまた一つﾌﾞﾛｯｸが出てくる)
soft2("Exit")
label @color(0,0,0)frect(0,0,132,144)x=10+abs(rand)%122
y=10+abs(rand)%120w=4h=4label Am=abs(rand)%112n=abs(rand)%120
color(155,200,255)frect(m,n,20,5)label Bl=rand%3k=rand%3if 73-i>x and x>47-i then h=-h+k w=w+l endifgoto"C"
label Dif m+21 > x and x > m-1 then h=-h color(0,0,0)frect(m,n,20,5) goto"A" endif

続き
label Cif input(0) and keysoft2 then exit endif
if x<2 then w=-w endifif y<2 then h=-h endifif 130<x then w=-w endifif 143<y then goto"E" endif
lock()color(0,0,0)frect(x,y,2,2)x=x+wy=y+hcolor(255,255,255)frect(x,y,2,2)
if scan=keyleft then i=i+7 endifif scan=keyright then i=i-7 endifcolor(2,3,242)line(47-i,134,73-i,134)
color(0,0,0)line(46-i,134,0,134)line(width,134,74-i,134)unlock(1)if 130<y and y<136 then goto"B" endif
if n-1<y and y<n+6 then goto"D" endifgoto "C"
label Ecolor(255,0,0)text("GAME-OVER",40,70)sleep(2000)goto"@"

俺は神だってやつ降臨てくれー
出来る限りブロック崩しをバージョンアップして行きましょうや

http://chanpu2.hp.infoseek.co.jp/

ブロック崩しを以下のように改良して逝こう！！
・残機機能をつける。（1アップもある）
・得点機能をつける。
・アイテムでパワーアップ出来るようにする。
てゆうかさあezBASICのスレちゃんと立てた方が良くない？

鬼引退です。
教えてください。49さんの文の中で
if m+21 > x and x > m-1 then h=-h 〜 endif
という条件のif構文があったけど俺はイマイチandの使い方が分からん
それやってもいつも条件素道りされちゃうんだけど、なんかコツとかあるん？
それとorの使い方も知ってたら教えて
これの玉ってスピードとかはねかる角ってどうやって変えてんの？？

5+i>x and x>iというのは両方満たすつまり
5+i>x>iということ。
orはわかんない

ｽﾋﾟｰﾄﾞはx軸ﾍﾞｸﾄﾙとy軸ﾍﾞｸﾄﾙそれぞれにﾗﾝﾀﾞﾑな変数を足す

or　は普通どちらかを満たすだが

Thank's!ブロック崩しも色々付いてきたからﾆｭｰばーじょんもうすぐうｐできますわ。

ブロックに点数と残機機能と1アップ付けました。
これを『1UP』というタイトルで保存せい。
color(A,A,A)text("残機:"+z,98,99)z=z+1x=x+500color(D,D,D)text("残機:"+z,98,99)
次にこれを『裏』というタイトルで保存ぜよ！
color(0,0,0)frect(0,0,132,144)color(255,255,255)rect(96,0,42,132)X=10+abs(rand)%76Y=10+abs(rand)%120W=4H=4

ezBASICについて語るｽﾚになりました!!

最後は好きなタイトルで保存してエエよ。点数は何故か最初から10点入っていて、その後1回死ぬ度に10点貰えるようになっちゃいました。
1アップは500点ごとにします。
x=500z=3label @
thread("裏","球")join("球")label A
m=abs(rand)%70n=9+abs(rand)%90color(0,0,0)text(""+h,98,36)h=h+10color(255,255,255)text("SCORE:",98,24)text(""+h,98,36)text("残機:"+z,98,99)color(155,200,255)frect(m,n,20,5)label B
l=rand%3k=rand%3if 58-i>X and X>32-i then H=k-H W=W+l endif
goto"C"label D
if m+21>X and X>m-1then H=-H color(0,0,0)frect(m,n,20,5)goto"A"endif
label C
if input(0)and keysoft2 then exit endif
if X<2then W=-W endif
if y<2then H=-H endif
if 88<X then W=-W endif
if 143<Y then goto"E"endif
if h=x then goto"a"endif
label !
lock()color(0,0,0)frect(X,Y,2,2)frect(32-i,134,26,3)X=X+W
Y=Y+H
color(255,255,255)frect(X,Y,2,2)if scan=keyleft then i=i+7endif
if scan=keyright then i=i-7endif
color(2,3,242)frect(32-i,134,26,3)unlock(1)if 130<Y and Y<136then goto"B"endif
if n-1<Y and Y<n+6then goto"D"endif
goto"C"label E
z=z-1if z=0then goto"Q"endif
goto"@"label Q
color(255,0,0)text("GAME-OVER",18,70)input (2000)exit
label a
A=0D=255thread("1UP","1")join("1")goto"!"

え！？とうとうezBASICのスレに!?
祝！！「ezBASICについて語ろうよ…」で、いいんかな・・・？
つーかここの板立てた人はこれでいいのか？これじゃまるで・・・



ま、いっかーーーー！！！

ブロック崩し自分でやったらバグの固まりでした・・・。
直せる神いたら宜しくオネガイシマス
Ｏ
/′
＞

ezBasicってソース公開されてないんかな? 元々のiBasicはGPLだったはずだが。

ところでiBasicを504/505あたりで普通に動くようにするのは簡単なんだけど誰かやらないのかな?

ezBASIC専用
新ﾌﾟﾛｸﾞﾗﾑ『ﾃﾆｽ』、ﾌﾞﾛｯｸ崩しの応用。

『O』で保存。
color(0,0,0)frect(0,0,132,144)
label Aa=abs(rand)%144b=abs(rand)%144c=abs(rand)%144i=0
label Bif input(0) and keyselect then goto"C" endifi=i+25color(0,0,190)rect(i-90,a,25,0)
rect(i-130,b,25,0)rect(i-165,c,25,0)color(250,0,250)text("tennis0.10",37,80)color(170,170,255)
text("SELECT:play",35,100)text("RIGHT:右へ",35,115)text("LEFT:左へ",35,130)color(250,0,0)
if O=1 then text("lose",50,55) endifif O=2 then text("win",50,55) endifif i>320 then goto"A" endifgoto"B"label C

つぎに『B』で保存
label D
color(0,0,0)
frect(p,0,6,176)
p=p+3
if p>140 then goto"E" endif
goto"D"
label E

つぎに本体。
soft1("exit")
label Athread("O","p")join("p")thread("B","b")join("b")color(0,0,0)
frect(0,0,132,144)x=0y=72j=0w=rand%8h=5goto"C"
label Bl=rand%6k=rand%4if 7+i>x and x+22>i then h=-abs(h+k) w=w+l endifgoto"C"
label Dl=rand%10k=abs(rand)%2if 4+j>x and 16+x>j then h=abs(h+k) w=w+l endif
label Cif input(0) and keysoft1 then exit endifif x+66<2 then w=abs(w) endif
if y<0 then goto"F" endifif 130<x+66 then w=-abs(w) endifif 143<y then goto"E" endiflock()color(0,0,0)frect(x+66,y,2,2)
x=x+wy=y+hcolor(255,255,0)frect(x+66,y,2,2)color(0,0,0)line(i+47,134,73+i,134)
line(j+50,10,70+j,10)if scan=keyleft then i=i-7 endifif scan=keyright then i=i+7 endifif x+7>j then j=j+7 endif
if x+7<j then j=j-7 endifcolor(2,3,242)line(47+i,134,73+i,134)line(50+j,10,70+j,10)unlock(1)
if 124<y and y<140 then goto"B" endifif 1<y and y<13 then goto"D" endifgoto "C"label EO=1goto"G"
label FO=2
label G
goto"A"

つぎに本体。
soft1("exit")
label Athread("O","p")join("p")thread("B","b")join("b")color(0,0,0)
frect(0,0,132,144)x=0y=72j=0w=rand%8h=5goto"C"
label Bl=rand%6k=rand%4if 7+i>x and x+22>i then h=-abs(h+k) w=w+l endifgoto"C"
label Dl=rand%10k=abs(rand)%2if 4+j>x and 16+x>j then h=abs(h+k) w=w+l endif
label Cif input(0) and keysoft1 then exit endifif x+66<2 then w=abs(w) endif
if y<0 then goto"F" endifif 130<x+66 then w=-abs(w) endifif 143<y then goto"E" endiflock()color(0,0,0)frect(x+66,y,2,2)
x=x+wy=y+hcolor(255,255,0)frect(x+66,y,2,2)color(0,0,0)line(i+47,134,73+i,134)
line(j+50,10,70+j,10)if scan=keyleft then i=i-7 endifif scan=keyright then i=i+7 endifif x+7>j then j=j+7 endif
if x+7<j then j=j-7 endifcolor(2,3,242)line(47+i,134,73+i,134)line(50+j,10,70+j,10)unlock(1)
if 124<y and y<140 then goto"B" endifif 1<y and y<13 then goto"D" endifgoto "C"label EO=1goto"G"
label FO=2
label G
goto"A"
誰かもっとﾌﾟﾛｸﾞﾗﾑ上げて。

テニスはとてもいいアイデアだったと思います。ただ、背景を緑にしたり
得点を計算して勝敗を決めるようになっていると良かったです。
（どちらかというとエアーホッケーっぽい？）（今度みんなでRPGを作っていこう！）

糞時計↓なんとなくうｐ。。。
e=ampm if e=1then f=64else g=127endif
color(0,g,f+g*2)frect(0,0,132,144)label A
if input(0)and keysoft1 theb exit endif
lock()color(0,g,f+g*2)text("TIME_"+b,15,d)text(":"+c,57,d)text(":"+a,75,d)text(":"+i,93,d)if d>155then d=-5endif
i=millisecond
d=d+1c=minute
b=hourofday
color(f*3,f*3,f*3)text("TIME_"+b,15,d)text(":"+c,57,d)text(":"+a,75,d)text(":"+i,93,d)unlock(1)goto"A"

iCとかezCﾎｽｨ…

C言語ってどゆうの？

>>71
http://www.kumei.ne.jp/c_lang/index_c.html

#include　 　 　 　 　 　 　 　 　 /* この行は必ず書く、と覚える */
main() 　 　 　 　 　 　 　 　 　 　 /* 次からメインのプログラムですよ */
{　 　 　 　 　 　 　 　 　 　 　 　 　/* 中カッコの中がプログラム本体 */
printf("hello, world\n");　 　/* hello, world と表示して改行する */
}


みたいな。覚えやすい。構造化で理解しやすい。

stdio.hがなかった

ほほう。俺は猫好きだからそそられるページでしたよ。Cってのはなんとなく
簡単というイメージがありましたが、やはりちょっとページを覗いて来て
BASICより簡単そうということが分かりましたよ。
でも俺はとことんパソコン音痴だから、パソコンで何かやろうとすると
必ず出来ずじまい。。。
この間もJAVAやりたかったのに4000円もかけたのに環境設定で終了！
誰か教えてくれー！！（やり方が書いてあるページはサンザン見たので紹介はいらんです）

>>74
　環境設定が出来ましたか？ならば、とにかくプログラムを書くのみです。
簡単なプログラムを書きつづけることで、複雑なプログラムを構成できます。
最初はエラーが出まくっても、それを1つずつ潰していってはじめてプログラムが
完成します。冷酷に聞こえるかも知れませんが、とにかく書くのみです。

吸いません…時間が無い…

携帯に雪が降ります。積もったらセンターキーで除雪できますぜ。
soft1("Exit")label c
b=0d=0c=0h=0color(128,128,128)frect(0,0,132,176)label ccc
a=abs(rand)%132label loop
if input(0)and keysoft1 then exit endif
if input(0)and keyselect then goto"f"endif
lock()color(128,128,128)farc(a+x,y,8,8)srand()x=x+i i=rand%3w=abs(rand)%140if x<w+5 then y=y+2 endif
color(255,255,255)farc(a+x,y,8,8)unlock(1)if y>136-t then y=0 goto"ddd"endif
goto"loop"input()label ddd
t=t+3color(255,255,255)frect(0,144-t,132,3)goto"ccc"label f
text("除雪!",51,78)goto"a"label a
vib(100,1)b=b+pow(2,2)c=c+1color(255,255,0-d-h*2)farc(60-b*2,143-t-c*2,b*4,c*4)t=0color(255,127-h,0-d-h*2)farc(61-b,144-t-b,b*2,b*2)clear(0,144-t,132,144)h=h-4if h=-120then d=1endif
if h=-128then goto"c"endif
goto"a"
昔のだからコード汚いス…

ただ押した方向に図形が動き続けるプログラム。これ応用して誰かなんか作って！
label a
a=scan
color(255,255,255)lock()rect(b+61,c+67,10,10)c=c-2if a=keyleft then goto"b"endif
if a=keyright then goto"c"endif
if a=keydown then goto"d"endif
color(0,0,0)rect(b+61,c+67,10,10)unlock(1)goto"a"label b
if input(0)and keysoft1 then exit endif
a=scan
color(255,255,255)lock()rect(b+61,c+67,10,10)b=b-2if a=keyup then goto"a"endif
if a=keyright then goto"c"endif
if a=keydown then goto"d"endif
color(0,0,0)rect(b+61,c+67,10,10)unlock(1)goto"b"label c
a=scan
color(255,255,255)lock()rect(b+61,c+67,10,10)b=b+2if a=keyup then goto"a"endif
if a=keyleft then goto"b"endif
if a=keydown then goto"d"endif
color(0,0,0)rect(b+61,c+67,10,10)unlock(1)goto"c"label d
a=scan
color(255,255,255)lock()rect(b+61,c+67,10,10)c=c+2if a=keyup then goto"a"endif
if a=keyleft then goto"b"endif
if a=keyright then goto"c"endif
color(0,0,0)rect(b+61,c+67,10,10)unlock(1)goto"d"

ezBASICのすれ立てました。ezBASICの人はちゃんとそっちへ移行ね

ここね
http://news6.2ch.net/test/read.cgi/appli/1078213471/

意味無しage

ezBASICの人ですがスレがなくなってるので、ここにカキコさせてもらいます。
有名なhit & brow を作りました。長いんでＵＰしました。
ttp://uploader.org/normal/data/up2810.txt

自分もこれでゲームとか作れるようになりたいんですが…プログラミングとか全然したことなくて、全く分かりません!どうやって勉強すればいいんですかね?本とか売ってる?

ｼﾞｬﾊﾞの本もCの本も売ってる 多分i/ezBASICはCににてると思う

じゃあC言語の本買えばいんですね?ありがとうございますm(_ _)m

0から覚えるならJava覚えたほうがよさそうな・・

SFCave for ezBASICの自キャラに残像をつけることは出来ませんか？

>>87
残像をつけると言うのは10個以上の中塗短形を同時に動かすという事になり、結果動作が重くなって
ゲームとして成立しなくなります。あの程度でも結構ギリギリの動作なのです。
>>83
これは特に本はいりません。第一ezBASICは何かの本を見て出来るものではありません。
ezBASICは他とは別の言語。と思った方がいいと思います。私も初めてのプログラミングがezBASICであり、その当時はプログラミングどころか、
パソコンの知識すら全く無かったわけですし、それでもあそこまでできるようになったのだから本は必要ないと思います。

> 短形

(´･ω･｀)

矩形（くけい）ですね

お恥かしい…

プログラム初心者です。知識ゼロでアプリの説明ページだけ見て作ったんで、
どっかおかしいかも。
プログラム名：「factoring-program」
内容：任意の数ｘを素因数分解します。EDITでｘに適当な数を代入してください。
　　　５桁程度ならすぐに分解できます。素数だと時間がかかりますが。
　　　また、進行状況を％で表示します。
欠点：２の累乗の場合のみ、最後に１が表示されてしまいます。
x=12345 s=30
text("factoring…",2,14)
text(x,77,14)
line(0,15,150,15)
rect(105,24,2,100)
for p=0 to 25 step 5 text(p*4,112,32+4*p) next text("%",122,144)
label 0 if x-x/2*2=0 then text(2,3,s) x=x/2 s=s+12 goto 0
else t=3 goto 1
label 1 if t*t<=x and x-x/t*t=0 then text(t,3,s) x=x/t s=s+12
goto 1 else if t*t>x then text(x,3,s) frect(105,24,2,100) led(1,800,1) sleep(1)
else frect(105,24,2,t*t*100/x) t=t+2 goto 1 endif input()

x=12345 s=30
text("factoring…",2,14)
text(x,77,14)
line(0,15,150,15)
rect(105,24,2,100)
for p=0 to 25 step 5 text(p*4,112,32+4*p) next text("%",122,144)
label 0 if x-x/2*2=0 then text(2,3,s) x=x/2 s=s+12 goto 0
else t=3 goto "1"
label 1 if t*t<=x and x-x/t*t=0 then text(""+t,3,s) x=x/t s=s+12
goto "1" else if t*t>x then text(""+x,3,s) frect(105,24,2,100) led(1,800,1) sleep(1)
else frect(105,24,2,t*t*100/x) t=t+2 goto "1" endif input()


これで動きます。役に立っていいですね。けっこうezBASICやってるひといるんですね。

>見習いさん
「goto 1」は「goto "1"」に変えなくても動きませんか？
gotoと数字との間を１つ空ければ大丈夫なはず。数字でないとだめですけど。
ちなみに数字の後はくっつけて書いても大丈夫なんで、アルファベットとかより
文字数が１文字稼げます。labelの場合も同じです。
それから「text(t,3,s)」を「text(""+t,3,s)」に変える意味はあるのですか？
右にずらすだけなら、３を８くらいに変えるだけで済むと思うのですが･･･。
最後にもうひとつ質問です。（質問ばっかですいません）
どういうわけか、はじめから入っているプログラムのうち、
「Lineart」と「Gradation」と「bouncer-demo」EDITできない（強制終了する）
んですけど、そちらもそうなりますか？仕様ですかね。

ついでにもう１つ投稿。
プログラム名：「遊飛行」
内容：敵からひたすら逃げます。敵に攻撃することもできますが、
　　　敵は不死身なので死にません。どこまでも追ってきます。
　　　つかまるとゲームオーバーとなり、得点が表示されます。
操作方法：↑↓→←で移動、決定キー？で攻撃。
　　　　　（裏技：♯キーでワープ）
欠点：重いです。いろいろつけたら重くなりました。
　　　あと５００文字ぎりぎりなんでちょっと心配。僕のは動きました。
frect(0,0,150,150)soft1("脱出!")a=60b=72p=10q=10i=2048label
0lock()a=a+x b=b+y p=p+m*3q=q+n*3text("■",a-x,b-y)text("あ",a,b)x=0y=0text("■
",p-m*3,q-n*3)text("い",p,q)m=(a-p)/abs(a-p)n=(b-q)/abs(b-q)unlock(1)s=s+10t=scan
if abs(a-p)*abs(b-q)<9then vib(999,2)goto i/2else goto t/i label 32x=-9y=0goto
0label 64y=-9x=0goto 0label 128x=9y=0goto 0label 256y=9x=0goto 0label 512for
t=1to 5text("う",a,b-t*10)text("■",a,b-t*10)next goto 0label
1024soft2(s)sleep(999)exit label 1text("■",a,b)a=120-a b=135-b goto 0

「あ」の部分に自機を、「い」の部分に敵を、「う」の部分に攻撃のための弾を
表すような適当な記号を入れてください。ちなみに僕の場合はそれぞれUFO、宇宙人、
花火みたいなやつを入れました。それからp=p+m*3q=q+n*3の３の部分を６とか９とか
に変えることで難易度調整できます。（３の倍数でないとだめです）

EDITはできません。仕様です。

age

age

使ってみたいけど漏れのSH505iじゃダウンロードすらできない・・・
裏山すぃ〜

いや！！isだな！！

出来るだろ！！Dは最悪だが！！車も最悪だな身潰！！

ダウンロードを選択しても、ページトップに飛んでループ
するだけなんだよね〜
機体は11月製造Verで、2chで報告のあったほとんどの
バグ(電池のゆるみまでも！）が解決されてるのはあり
がたいんだけど、iBASIC以外にも落とせないソフトがい
くつかあるから仕様なのかな？
あ〜書き込んでるとよけい使いたくなってきた！

>>99
iBasicが504以降の機種で動かないことがある現象ならすぐ直せたんだが…
ベタに直しただけのやつを出しても意味がないかと思って公開してない。

>>103
作者さんですか？

ベーシックおもしれ―けどおすぇー!!

★BASICは40歳
http://ex4.2ch.net/test/read.cgi/news/1083304396/

"プログラミング言語BASICが明日5月1日に40歳の誕生日を迎える。プログラミング入門言語や初期のNEC98
シリーズのシェルとしてお世話になったスラド読者も多いだろう。読者諸兄のBASICにまつわる思い出や、
40歳になったことに対する祝いの言葉などを聞かせて欲しい。"

BASIC小史 や e-kiyo.lab. BASIC研究所 と言ったサイトによれば、BASIC は Dartmouth 大学の２人の数学者
John G. Kemeny と Professor Thomas Kurtz によって開発され、1964年5月1日にはじめてTSSシステム
(General Electric GE-225)上で実行されたそうだ。

http://slashdot.jp/articles/04/04/30/0459221.shtml?topic=58

BASICの当時の盛況振りを知りたければ内田裕也の十階のモスキート参照。

10　CLS
20　PRINT"**"
30　GOTO　20
40 END
（これはPC用なので使えません。念のため）

あ

age

505で動かねー
作者ｻｿ505にも対応してけれー!!
ちなみに当方p505isです

＆age

age

>>110
ttp://naoya.stargroove.jp/i.html

>>112
おお！サンクス！！
作ってくれていた人がいたのですねー
動作も完璧です

でも全然書けない(´･ω･`)ｼｮﾎﾞｰﾝ
うおお勉強だぁぁあ！！(｀･ω･´)

的当てです。改行の必要はありません。…なにがしたいんだこれ……
Z=20Y=38X=32rect(110,55,11,33)label 1lock()color(255,255,255)frect(20,30,89,110)if B=0then line(X,100,X,108)if X>=100then a=1endif
if a=1then X=X-5endif
if X<=32then a=0endif
if a=0then X=X+5endif
else if B=1then line(30,Y,38,Y)if Y>=106then a=1endif
if a=1then Y=Y-5endif
if Y<=38then a=0endif
if a=0then Y=Y+5endif
else if B=2then frect(112,87-I,8,I)if I>=30then a=1endif
if a=1then I=I-2endif
if I<=0then a=0endif
if a=0then I=I+2endif
endif
endif
endif
color(0,255,0)line(X,100,X,108)line(30,Y,38,Y)color(255,0,0)frect(112,87-I,8,I)if pow(66-X,2)+pow(Y-72,2)<=pow(5+Z/2,2)and Z<=0then B=4color(0,0,255)else color(255,0,0)endif
farc(61,77,10,10)A=scan
if A=keyselect then B=B+1else if A=key1 then end endif
endif
if B=3then J=J+1Z=Z-J/6color(255,128,0)farc(X-Z/2,Y-Z/2,Z,Z)endif
unlock(1)yield()goto 1

的当て修正版です。
Z=20Y=38X=32rect(110,55,11,33)color(255,0,0)farc(61,67,10,10)label 1lock()A=scan
if A=keyselect and B<3then B=B+1else if A=key1 then end endif
endif
color(255,255,255)if B=0then line(X,100,X,108)if X>=100or X<=32then a=a+1endif
X=X+5*(-1+(a%2)*2)color(0,255,0)line(X,100,X,108)unlock(1)yield()goto 1else if B=1then line(30,Y,38,Y)if Y>=106or Y<=38then b=b+1endif
Y=Y+5*(-1+(b%2)*2)color(0,255,0)line(30,Y,38,Y)unlock(1)yield()goto 1else if B=2then frect(112,87-I,8,I)if I>=30or I<=0then c=c+1endif
I=I+2*(-1+(c%2)*2)color(255,0,0)frect(112,87-I,8,I)unlock(1)yield()goto 1endif
endif
endif
if B=3then frect(20,30,89,110)endif
if pow(66-X,2)+pow(Y-72,2)<=pow(5+Z/2,2)and Z=1then color(0,0,255)text("当り!",51,34)H=1else color(255,0,0)H=0endif
if Z=1and H=0then text("ﾊｽﾞﾚ!",51,34)endif
farc(61,67,10,10)if B=3then J=J+1Y=Y+J/(I/3)Z=Z-J/6if Z<0then B=4Z=1endif
color(255,128,0)farc(X-Z/2,Y-Z/2,Z,Z)endif
unlock(1)yield()goto 1

ちなみにezBASICのほうです。

>>116
先に言うてくれ…
iでやってめちゃエラー吐かれた＿|￣|○

＊操作方法＊
・左右に動くやつでX座標を指定
・同じ要領で上下の方でY座標を指定
・最後に力メータを止めて力を決める
・投げ出されたボールが円内に入っているかを判定してくれます。・これらの操作はすべてセンターキーで行います。

高速化しました。labelとgotoってこんな風にも使えるんですね。
操作方法は変わりません。
Z=20Y=38X=32rect(110,55,11,33)color(255,0,0)farc(61,67,10,10)label 4lock()A=scan
if input(0)and keyselect and B<3then B=B+1else if A=key1 then end endif
endif
color(255,255,255)goto B
label 0line(X,100,X,108)if X>=100or X<=32then a=a+1endif
X=X+5*(-1+(a%2)*2)color(0,255,0)line(X,100,X,108)unlock(1)yield()goto 4label 1line(30,Y,38,Y)if Y>=106or Y<=38then b=b+1endif
Y=Y+5*(-1+(b%2)*2)color(0,255,0)line(30,Y,38,Y)unlock(1)yield()goto 4label 2frect(112,87-I,8,I)if I>=30or I<=0then c=c+1endif
I=I+3*(-1+(c%2)*2)color(255,0,0)frect(112,87-I,8,I)unlock(1)yield()goto 4label 3frect(20,0,89,144)L=pow(66-X,2)+pow(Y-72,2)if L<=25and Z=1then color(0,0,255)text("当たり!",45,34)H=0else color(255,0,0)H=1if L<=64and Z=1then H=2endif
endif
if Z=1then if H=1then text("ﾊｽﾞﾚ!",51,34)else if H=2then text("惜しい!",45,34)endif
endif
endif
farc(61,67,10,10)if M=0then J=J+1Y=Y+J/(I/3)Z=Z-J/6if Z<0then Z=1M=1endif
color(255,128,0)farc(X-Z/2,Y-Z/2,Z,Z)endif
unlock(1)yield()goto 4

保守

iBASICで円(楕円でもいいけど)の描き方わかる人がいたら、教えて下さい。
やっぱ円の関数組むのは無理なんだろうか。

iBASIC か ezBASIC を
Java 2 SDK Standard Edition Version 1.3.1
を入れないで win で動かせるソフトを作ってください

>>122
(　ﾟдﾟ)ﾎﾟｶｰﾝ

>>123
入れないとダメでしたか

いやポカーンだけでは意味がわからん
何がいいたいの？

普通に考えて
PCで動かしたいと
書けばよかった
知識が中途半場にあるとダメだ　orz

中途半端というのもおこがましい

>>122
素直にJDK入れろ

ezBASICでなくiBASICのプログラムを
なんでもいいからうｐしてくれー
神サマ〜〜〜〜〜〜〜〜〜

もう似たようなソフトを作って
PCでも動けるソフト作って
関連本売ったりしてください
おねがいします。頼みます
この通りです。
名前は iScript とかいいかもしれません
お願いします。
そして打倒HSPですよ
携帯関連だから、利用人口爆発的に増えますよ
PCの人も使い出しますよ
みんなが皆うはうはですよ
最近ブーム？のプログラムを日本語化とかしちゃって
もいいかもしれませんし
お願いします。頼みます。
もう我慢できないんです

>>121
ttp://www2.starcat.ne.jp/~fussy/algo/algo2-1.htm
解説が難しかったら、一番下にあるCのソースを移植すれ。

iBASICで　i++ というのはどのようにすれば
いいのでしょうか？

誰か…iBASICを講座してください！

俺も講義してほしい!
yasu氏のところでez版ﾀﾞｳｿしたんだけど、まず何をしていいのかわからん…
とりあえず、説明を全部ﾉｰﾄに写して(PCないので)さぁやるぞ!って思ったんだけど、書いてあることの意味がわかんない…
誰か教えてもらえませんでしょうか?お願いします

>>1のＰＣ用の「iBASIC 開発ガイド」が
詳しく書いてあるのでそこを見るといいかもしれません
ＰＣ用ですが、画像とか使ってないので最新機種なら見れるかも
自分は携帯を持ってないので確認がとれないです
ezBASICもある程度似てるかもしれません

>>135
レスサンクスッス
見てみたのですがあまり分からなくて
でも>>9のezBASICのプログラムをいじってたら
こんなのができました　ちなみに俺はiBASICの方です
soft1("Exit")
text("座標(x,y)",0ascent)
j = i = 0
n = m = 0
label loop
if input(0) and key soft1 then
exit endif
if scan = key4 then i = i + 3
endif
if key6 = scan then i = i - 3
endif
if scan = key2 then m = m + 3
endif
if key8 = scan then m = m - 3
endif
lock()
color(255,255,255)text("@",60-j,60-n)
color(255,255,255)text(x+","+y,70,10)
j = i
n = m
x = 60-i
y = 60-m
color(0,0,0)
text(x+","+y,70,10)
color(255,0,0)text("@",60-j,60-n)unlock(1)goto "loop"
＠を動かして座標を表示させるもんです

>>134
君のレスみてやる気が出てきたよ
俺の環境は携帯解約したけどezBASICを入れていて
作れる環境があるから俺も今から
プログラムをノートに書いて覚えてみる
やる気を与えてくれてありがとう

>>137
今、自分は最初に入ってるhello,world!ﾌﾟﾛｸﾞﾗﾑをちょっとずついじって遊んでます。
頑張りましょう!

だれかezBASICをiBASIC vol.2として移植してくれ
iBASICのプログラムが何ひとつなくつまらんし
いろんな機能がついていて羨ましい。

改行ができないからか、もうこれ以上プログラムが
携帯電話に打てない　orz
>>134
俺のぶんまで頑張って…

http://up.isp.2ch.net/up/2662bcff1835.zip
まとめというか、今まででたプログラムをhtmlにしてみた

>>139
やってみればわかると思うが ezBASIC のプログラムもつまらんぞ。

なんちゃってマリオ。ジャンプは5終了は1。
color(0,255,255)frect(0,0,132,144)y=120A=111311112321122101111234324555540001002215555label 0lock()color(0,255,255)for B=X to X+7C=substr(A,B,1)frect(B*20-x,144-C*20,20,20)next
farc(40,y-30,20,20)frect(40,y-20,20,20)D=scan
X=x/20if D=keyright and x<746and R=0then x=x+5else if D=keyleft and x>4and L=0then x=x-5else if D=key1 then end endif
endif
endif
L=0R=0if D=key5 and J=1then E=8endif
B=X+3C=substr(A,B,1)if 60>B*20-x and x%20=5and y>144-C*20and y<184-C*20then x=x-(60-B*20+x)R=1endif
B=X+1C=substr(A,B,1)if B*20-x>20and x%20=15and y>144-C*20and y<184-C*20then x=B*20-20L=1endif
J=0z=3-(20-x%20)/20if E>0then y=y-E*2E=E-1for B=X+2 to X+z C=substr(A,B,1)if C>0and y<=164-C*20and y>144-C*20then y=184-C*20E=0endif
next
else y=y+10for B=X+2 to X+z C=substr(A,B,1)if C>0and y>=144-C*20and y<184-C*20then y=144-C*20J=1endif
next
endif
color(128,0,0)for B=X to X+7C=substr(A,B,1)frect(B*20-x,144-C*20,20,20)next
color(255,0,0)farc(40,y-30,20,20)color(0,0,255)frect(40,y-20,20,20)unlock(1)yield()goto 0

なんちゃって落ち物(BREWにあったカンパズ)。の背景部分。1という名前で保存してね。ちなみにマリオもこれもezだよ。
frect(0,0,132,144)color(255,255,255)rect(2,19,77,122)rect(32,4,17,15)text("HISCORE",84,28)text(1000,108,42)text("SCORE",84,60)text(0,126,74)text("LV",84,110)text(1,126,124)
color(0,0,0)line(33,19,48,19)H=10A=11111111B=11111111C=21111111D=11111111E=11111111F=C

これが本体。ブロックが積もるだけ。この2つのプログラムのすごいとこに気づく人はいるかな？
thread(1,0)gosub 11x=3label 0z=y+1G=scan
gosub x if G=keydown or H=0and y=7or substr(F,z,1)=2then x=3y=0gosub 11gosub 3F=F+pow(10,7)H=10gosub 8endif
lock()color(0,0,0)frect(x*15-11,21+y*15,14,14)z=y+1if G=keydown or H=0and y<7and substr(F,z,1)=1then F=F-pow(10,7-y)gosub x+5y=y+1F=F+pow(10,7-y)gosub x+5H=10endif
if x<5then gosub x+1if G=keyright and substr(F,y,1)=1then gosub x F=F-pow(10,7-y)gosub x+5x=x+1gosub x F=F+pow(10,(7-y))gosub x+5else gosub x endif
endif
if x>1then gosub x-1if G=keyleft and substr(F,y,1)=1then gosub x F=F-pow(10,7-y)gosub x+5x=x-1gosub x F=F+pow(10,7-y)gosub x+5else gosub x endif
endif
H=H-1if G=key1 then end endif
color(I*63,J*63,K*63)frect(x*15-11,21+y*15,14,14)unlock(1)goto 0label 1F=A
return label 2F=B
return label 3F=C
return label 4F=D
return label 5F=E
return label 6A=F
return label 7B=F
return label 8C=F
return label 9D=F
return label 10E=F
return label 11l=abs(rand)%5I=substr(44002,l,1)J=substr(04402,l,1)K=substr(00042,l,1)return

voda 用ある？

>>132
i++ は i = i + 1
i-- は i = i - 1

>>140前の字が数字か"か)の時は改行いらないよ〜。改行できないなら代わりにスペースでもοκだよ〜

ezだよ〜…

>>148
ありがとう
背景部分を試してみたよ
俺の携帯画面QVGAじゃないから
画面のサイズが合わなかったけど
表示されて嬉しかった
最後は input() で止めて見たり
text("Hello, world!",4,28) input()
で書いて見たりしている状況です

携帯新しく変えるまで
今ある携帯電話で色々してみます

あのプログラムはQVGAじゃないですよ。俺のケータイが132*144だからちょっとはみ出ただけだと思うよ。よかったら背景だけじゃなくて本体も一緒に動かしてくれ。動き遅いけど…

てゆうか修正版です。タイトルは1で保存してください。
soft1("♪")soft2("STOP")frect(0,0,132,144)color(255,255,255)rect(2,19,77,122)rect(32,4,17,15)text("HISCORE",84,16)text("SCORE",84,50)text("LEVEL",84,130)text(1000,108,30)text(0,126,64)text(1,126,144)
color(0,0,0)line(33,19,48,19)A=11111111B=11111111C=21111111D=11111111E=11111111H=10F=C
Q=44002R=04402S=00042M=2+rand%3L=2+rand%3I=substr(Q,L,1)J=substr(R,L,1)K=substr(S,L,1)N=substr(Q,M,1)O=substr(R,M,1)P=substr(S,M,1)

これのタイトルは2ですよ。
M=2+rand%3L=2+rand%3I=substr(Q,L,1)J=substr(R,L,1)K=substr(S,L,1)N=substr(Q,M,1)O=substr(R,M,1)P=substr(S,M,1)
if substr(C,0,1)=2then color(223,223,223)text("GAME OVER",13,79)text("GAME OVER",13,77)text("GAME OVER",12,78)text("GAME OVER",14,78)color(0,0,0)text("GAME OVER",13,78)input()thread(1,7)join(7)C=11111111F=C
endif

実行するときは他の2つはいじらずにこれだけを実行してください。タイトルは好きな名前でいいよ。
thread(1,0)x=3label 0z=y+1G=scan
gosub x if G=keydown or H=0and y=7or substr(F,z,1)=2then thread(4,3)join(3)x=3y=0gosub 3F=F+10000000H=6gosub 8endif
lock()color(0,0,0)frect(x*15-11,21+y*15,14,14)z=y+1if G=keydown or H=0and y<7and substr(F,z,1)=1then F=F-pow(10,7-y)y=y+1F=F+pow(10,7-y)gosub x+5H=6endif
if x<5then gosub x+1if G=keyright and substr(F,y,1)=1then F=F+pow(10,7-y)gosub x+6gosub x F=F-pow(10,7-y)gosub x+5x=x+1else gosub x endif
endif
if x>1then gosub x-1if G=keyleft and substr(F,y,1)=1then F=F+pow(10,7-y)gosub x+4gosub x F=F-pow(10,7-y)gosub x+5x=x-1endif
endif
H=H-1if G=key1 then end endif
color(I*63,J*63,K*63)frect(x*15-9,23+y*15,12,12)color(N*63,O*63,P*63)frect(x*15-11,21+y*15,12,12)unlock(1)goto 0label 1F=A
return label 2F=B
return label 3F=C
return label 4F=D
return label 5F=E
return label 6A=F
return label 7B=F
return label 8C=F
return label 9D=F
return label 10E=F
return

>>151
試してみました
やはりプログラムは全て入りませんでした　orz
携帯電話がC3001Hとかなり古いのが
いけなかったのかも知れません

ａｇｅ

誰も気づかないから自分で言うけどマリオとｶﾝﾊﾟｽﾞには実は配列を使ってるんだよーん。
ezBASICに配列は無いからsubstrを使って作りました。結構すごいことやってると思ってるんだが、どうかな？
注)配列…JAVAでは配列を持つ変数を宣言すると、その配列の任意の位置の数字やら文字やらを呼び出せる。
(例)
A={5,12,9,7,54,0};
と宣言すれば
B=A[4];
としたときにBに配列の5番目の54が代入される。

昔作ったいろんな意味で汚いゲーム｢W.C.｣です。
うんこが飛び散る前にトイレットペーパーでおしりを拭くというもの。要はひたすらセンターキーを連打すればいいのです。
まずはこれを時計というタイトルで保存。
label l
sleep(1000)color(192,0,0)farc(6,v+2,4,6)farc(4,v+6,8,6)farc(2,v+10,12,6)v=v+16if v>64 then M=1goto"z" endif
goto"l"label z
color(128,0,0)m=m+1w=abs(rand)%132y=abs(rand)%100farc(w,y+30,4,6)farc(w-2,y+34,8,6)farc(w-4,y+38,12,6)if m>30 then input()end endif
goto"z"

これが本体です。タイトルはW.C.。
とても下らないけど遊んだり改造したりしてみてね！
soft1("両手")soft2("禁止!!")for A=0 to 17lock()color(255,255,255)text("READY...",132-f,70)f=f+5color(0,0,0)text("READY...",132-f,70)unlock(1)yield()next
sleep(1000)color(255,255,255)text("READY...",42,70)for A=0 to 19lock()color(255,255,255)text("GO!!",54-g,70)g=g+4color(128,0,0)text("GO!!",54-g,70)unlock(1)yield()next
label a
thread("時計",0)lock()color(255,255,255)frect(-30,-20,162,164)origin(30,20)arc(a,20+a,b,b)line(25,20+a,55,20+a)line(25,70-a,55,70-a)arc(30+a,20+a,b,b)d=d+1b=50-a*2
color(0,0,0)arc(a,20+a,b,b)line(25,20+a,55,20+a)line(25,70-a,55,70-a)clear(25,21+a,30,b-1)arc(30+a,20+a,b,b)arc(50,40,10,10)color(192,128,0)farc(51,41,9,9)unlock(1)label b
if input()and keyselect and M=0then c=c+1 endif
if a>19then goto"c"endif
if c>d*30then a=a+1goto"a"endif
goto"b"label c
kill(0)frect(25,41,30,9)farc(21,41,9,9)color(0,0,0)arc(50,40,10,10)color(128,0,0)text("うんこを拭き取れﾏｼﾀ。",-18,10)sleep(2800)

鬼ごっこみたいなゲームつくりたいんだけど
逃げる人を操作するような奴は>>136でいいんだけど
逃げる人を追っかける　鬼をどうやってつくりゃあいいにか
おれにゃあ分からん　座標からひいても斜め下にさがって
逃げる人を操作できない
うんこさん！！　教えてくれ！！

大したもんじゃないけど…
操作方法…｢俺｣は数字キーに対応した向きに移動可。終了はセンターキー。文字の大きさとかに合わせて自分で調整してね。
label 1E=0D=3X=60Y=66x=0y=0color(255,255,255)frect(0,0,132,144)label 0A=scan
lock()color(255,255,255)text("俺",X,Y)text("鬼",x,y)E=E+1if A=key1 then B=-D C=-D else
if A=key2 then B=0C=-D else
if A=key3 then B=D C=-D else
if A=key4 then B=-D C=0else
if A=key6 then B=D C=0else
if A=key7 then B=-D C=D else
if A=key8 then B=0C=D else
if A=key9 then B=D C=D else
B=0C=0endif endif endif endif endif endif endif endif if A=keyselect then end endif
X=X+B Y=Y+C
if X>width-12then X=width-12else if X<0then X=0endif
endif
if Y>height then Y=height else if Y<0then Y=0endif
endif
if X>x then x=x+(D-1)else if X<x then x=x-(D-1)endif
endif
if Y>y then y=y+(D-1)else if Y<y then y=y-(D-1)endif
endif
color(0,0,0)text("俺",X,Y)text("鬼",x,y)unlock(1)yield()if X<=x+10then if X+10>=x then if Y<=y+10then if Y+10>=y then text(E+"点!!",0,20)sleep(2500)goto 1endif
endif
endif
endif
goto 0

うんこさんマジデありがとう！！

EZのほうでいいなら、講義するから言ってね。最初は俺も待ち受けくらいしか作れなかったけど、がんばればゲームっぽいのも作れるよ。
何よりこれ作った人に感動する、

避けゲーみたいなもの。だれか改造してくれ。
前半↓
label START origin(0,0) V=0 W=0 D=0
color(0,0,0) frect(0,0,240,320) origin(width/2-60,height/2-80)
X=55 Y=148 soft1("終了") label loop lock() if V>=155
then V=0 F=0 P=P+1 endif if scan=keyleft then X=X-2
endif if scan=keyright then X=X+2 endif if input(0)=keysoft1
then exit endif if X>=115 then X=115 endif if X<=0
then X=0 endif if F=0 then srand(tick) W=(abs(rand)%55+1)*2
F=1 V=0 endif if (V>=Y and V+5<=Y+5) and not(W<=X and W+10>=X+5) then D=1 endif

続き↓
clear(0,0,120,160) color(0,255,255) frect(0,V,120,5) clear(W,V,10,5) if
(D=1) then goto"GAMEOVER" endif color(10,50,200)
frect(X,Y,5,5) color(0,0,0) text("SCORE "+P,0,strheight)
unlock(1) if P>10 then A=2 endif V=V+2+A goto"loop"
label GAMEOVER color(255,0,0) gosub"BAN" color(255,255,255) gosub"BAN" color(0,0,0)
text("GAME OVER",20,80+strheight/2) if input()=keysoft1 then exit endif goto "START"
label BAN unlock(0) c=0 for a=2 to 40 step 4
farc(X-c,Y-c,a,a) c=c+2 next return

iBASICとったんですが起動直後にエラーが出ます。機種はSH900iです。対応してないんでしょうか？1のリンクのサイトに問合せみたいな場所ありました？

>>166
ttp://naoya.stargroove.jp/ibasic/
506なら動いたけど、どうかな。

167さんありがとうございます！動きました！

D505i でIBASICやってます。
スレッドの使い方がわからないので半角512文字から抜け出せません。

そんなわけでゲームは文字数におさめられません
見るだけのものです。ソフトキー２で終了です。
一行目のIの数値を変えてみてください。

I=20 G=width/I H=height/I
color(0,0,0)
frect(0,0,width,height)
goto 0
label 1 color(A,B,0) return
label 2 color(0,A,B) return
label 3 color(B,0,A) return
label 4 color(A,B,A/2) return
label 5 color(A/2,A,B) return
label 6 color(B,A/2,A) return
label 0
M=M+1 if M=7 then M=1 endif
for J = 0 to H
for K = 0 to G
F=J E=K
A=255*E/G B=255*F/H L=255-(A+B)/2
gosub M
frect(E*I,F*I,I,I)
color(L,L,L)
rect(E*I,F*I,I,I)
if input(0) and keysoft2 then exit endif
next next goto 0

同じく見るだけ。
iを変えてみてください。

I=30 W=width H=height
soft2("終了")
label 0
color(0,0,0)
frect(0,0,W,H)
X=abs(rand)%W/3+W/3 Y=abs(rand)%H/3+H/3
L=abs(rand)%128+128
M=abs(rand)%128+128
N=abs(rand)%128+128
O=abs(rand)%128
P=abs(rand)%128
Q=abs(rand)%128
R=(L-O)/I
S=(M-P)/I
T=(N-Q)/I
C=L D=M E=N
for K=0 to I-1
A=W*K/I B=H*K/I
C=C-R D=D-S E=E-T
color(C,D,E)
line(X,Y,W,B)
line(X,Y,W-A,H)
line(X,Y,0,H-B)
line(X,Y,A,0)
if input(0) and keysoft2 then exit endif
next goto 0

某ミニゲームの刹那の見切りです。
二人用で１と３で戦います。終了は０。
問題多すぎでつまらないでしょう・・・。

text("(´ω`)",10,260)text("(`ω´)",189,260)c=255
text("得点",10,245)
text("得点",190,245)
label 0
H=0 s=second+abs(rand)%3+2
color(c,c,c)frect(50,150,140,100)color(0,0,0)
text(X,50,245)
text(Y,170,245)
label 1
if input(0) and key0 then exit endif
if H=0 and second >= s then H=1 text("今だ！",99,170) endif
if scan=key1 then goto 2 endif if scan=key3 then goto 3 endif
goto 1
label 2
if H then X=X+1 else X=X-1 endif goto 0
label 3
if H then Y=Y+1 else Y=Y-1 endif goto 0

threadなら結構前に書いてあったような

joinは参考になります
でも変数の共有方法がわかりません
スレッド起動したとき
何がコピーされてるのかも

しばらく上のソース読んでがんばります
助言ありがとうございます

N900iでやってます。
初プログラム作ってみました。
aに無料通話、bにその日までの通話料と通信料の合計を入れると
このままの調子で使った時、無料通話を超えるかどうか、
超えるならどのくらい節約すればいいのか
などが出るようにしてます。
二月に関しては未対応です。
アドバイスお願いします。a=1000
b=8000
d=dayofmonth
c=month
e=b/d
if c=2 or 4 or 6 or 9 or 11 then j=30 endif
if c=1 or 3 or 5 or 7 or 8 or 10 or 12 then j=31 endif
g=e*j
k=j-d
if g>a then i=g-a f=i/k+"円ずつにすれば無料通話ピッタリ!" text("このまま使うと"+i+"円上回ります＿|￣|〇",0,100) endif
if a>g then i=a-g f=i/k+"円ずつ多く使えマス!" text("このまま使うと"+i+"円余
ります(´ω｀)",0,100) endif
if a<g then text("もう手遅れです(つД｀)",0,120) else text("一日"+f,0,120) endif
input()

sage忘れましたorz

threadの変数では呼び出す側と呼び出された側で次のような関係があります。
A-Zはどちらからでも関係なくｺﾋﾟｰされる
a-zは呼び出される側から呼び出す側にはｺﾋﾟｰされないが、逆はある。

>>177
ありがとうございます！！！
これで作品に幅がもてます！
しばらくがんばってみまーっす。

ネタもとはこちら→http://qwe.ne.jp/ezappli.php?word=%91%96%82%ea%83N%83%8e
めっちゃおそいよ
label 1x=0Y=0J=0S=0z=2A=2222222color(0,0,255)frect(0,50,60,10)label 0B=scan
lock()color(0,255,255)frect(0,0,60,50)color(0,255,0)if B=key1 then end endif
x=x+2if x=10then S=S+5x=0A=A-(A/1000000)*1000000A=A*10+abs(rand)%3+1endif
b=substr(A,z,1)if Y>25-b*10then unlock(1)color(255,127,127)farc(15,45,10,10)text("うんこ",12,36)color(0,0,255)frect(0,50,60,10)sleep(3000)goto 1else if B=keyselect and J=0then Y=Y-3if Y<=-27then J=1endif
else Y=Y+3if b>1and Y>20-b*10then Y=20-b*10J=0else J=1endif
endif
endif
for a=0 to 6b=substr(A,a,1)if b>1then frect(a*10-x,50-b*10,10,10)endif
next
color(255,255,255)frect(60,20,10,20)color(255,127,127)farc(15,20+Y,10,10)text(S+x/2,0,12)unlock(1)yield()goto 0

RPG風のやつ。これ使って誰かRPGつくってくれ！これはマップデータ。タイトルは｢0｣
lock()color(0,255,0)frect(0,0,120,120)goto C
label 0x=6y=6X=0Y=0A=2211111112122221121211211212212112122121121121211222212111111131goto"あ"
label 3X=6Y=1x=X y=6A=1222220221212121222111222111222122222222221212121222222211441111goto"あ"
label 4Y=1x=0y=6A=1133122112222211221111112122212222212222111111125222222211111111goto"あ"
label 5X=6Y=6A=2220022222222222222222222222222222222222222222222222222422222222goto"あ"
label あ
for b=0 to 63if substr(A,b,1)=1then color(127,0,0)frect(5+(b%8)*15,10+(b/8)*15,5,5)
color(0,127,0)farc(1+(b%8)*15,(b/8)*15,13,13)endif
next

本体。A5303H向きですよ。
label 1thread(0,1)join(1)label 0B=scan
lock()color(0,255,0)frect(X*15,Y*15,15,15)if X<7then a=X+Y*8+1b=substr(A,a,1)if B=keyright and not(b=1)then X=X+1endif
endif
if X>0then a=X+Y*8-1b=substr(A,a,1)if B=keyleft and not(b=1)then X=X-1endif
endif
if Y>0then a=X+Y*8-8b=substr(A,a,1)if B=keyup and not(b=1)then Y=Y-1endif
endif
if Y<7then a=X+Y*8+8b=substr(A,a,1)if B=keydown and not(b=1)then Y=Y+1endif
endif
if B=key1 then end endif
color(0,0,255)frect(X*15+1,Y*15+1,13,13)unlock(1)a=X+Y*8C=substr(A,a,1)if not(C=2)then goto 1endif
goto 0

あげ

k

PCでも作れればな

おっぱい

このスレ盛りあがってんな―！！！！おもしれー！みんなも濃いよ

age

まさしくBasic言語だなこりゃ

ドコモには使える機能多いからうらやましい…これはrmodeというとても便利な機能が使われてます。
c=8
soft1("Cls")
soft2("Exit")
gosub "cls"
label loop
i=input(0)
if i and keysoft2 then exit endif
if i and keysoft1 then gosub "cls" endif
x = abs(rand) % width
y = abs(rand) % height
color(abs(rand)%64,abs(rand)%64,abs(rand)%64)
frect(x - c, y - c, c * 2, c * 2)
yield()
goto "loop"

label cls
rmode(0,255,255)
color(0,0,0)
frect(0,0,width,height)
rmode(1,255,255)
return

うんこage

>>189
サンプルそのままを出して何が嬉しいんだ?

無くなっちゃったよ。。。

質問なのですが、
タイトル探索
soft1("終わり")
a=5
line(30,30,90,75)
line(30,200,90,125)
line(190,30,130,75)
line(190,200,130,125)
rect(90,75,40,50)
label 0
if input(0) and keysoft1 then exit endif
if scan=keyup then goto 2
endif
goto 0

label 2
if a=5 then thread("コマンド","戦闘") thread("敵","出現") goto 0 endif
goto 0

タイトルコマンド
label 0
text("1･こうげき",20,230) text("2･ぼうぎょ",20,260) text("3･まほう",140,230) text("4･どうぐ",140,260) rect(15,200,210,60)
goto 0

タイトル敵
text("(･∀･)",80,170)
で探索のaの値をランダムにしてｴﾝｶｳﾝﾄﾊﾞﾄﾙみたいにしたいときはどうすればいいんですか？

if scan=keydown then のとこにてきとーにa=rand%20とかってやればいいんじゃないの？

>196
ありが�d。今日から猿のようにやってますが、楽しいですなー(･∀･)

inputとrandについて聞きたいんですが、
r=abs(rand)%5
"%5"てなんですか？
あとinputの入力ﾊﾞｯﾌｧってなんですか？
おしえてください

%5は5で％の左の数を割った余り　上のだと0から4までの数が出る。
input()はscanと同じようにキー入力を受取るやつ、ただし一回押した時だけ。(scanは押してる間ずっと反応する)
()内が0以外だと毎回そこでなにか入力するまで止まるようになる
ざっとこんなもん

(･∀･)ﾅﾙﾎﾄﾞ
さんくすです

すみませんまた質問です。タイトル
clear(0,0,250,250)
soft1("終わる")
text("喧嘩道場",80,100)text("PUSH.1 START",60,150)

label 0
if input(0) and keysoft1 then exit endif
if input(0) and key1 then thread("バトル","スタート") join("スタート") endif

goto 0

バトル

clear(0,0,250,250)
a=0
label 1
if input(1) and keysoft1 then thread("タイトル","戻る") join("戻る") endif
text("LIFE",30,230)
text("LIFE",170,230)
text("( `･∀･)",10,150)
text("| ○○",30,170)text("U U",40,190)
text("(･_･ )",160,150)text(" ○○)",160,170)text("U U",180,190)

if input(0) and keyselect then a=abs(rand)%2
if a=0 then thread("攻撃1","あ")join("あ")endif
if a=1 then thread("攻撃2","い")join("い")endif
endif
goto 1

攻撃1
clear(0,0,250,250)
label 0
text("( `･д･)",50,150)
text("|<｡|",70,170)
text("U U",80,190)
text("(･_･ )",160,150)text(" ○○)",160,170)text("U U",180,190)
sleep(500)
clear(0,0,250,250)
text("( `･д)",70,150)
text("|　＝＝○",90,170)
text("U U",100,190)
text("(｡дﾟ)",180,150)
text("))○)",180,170)
text("<<",200,190)
sleep(200)
clear(0,0,250,250)
end

goto 0

攻撃2
clear(0,0,250,250)
label 0
text("( `･д)",50,150)
text("|レ|",70,170)
text("U U",80,190)
text("(･_･ )",160,150)text(" ○○)",160,170)text("U U",180,190)
sleep(500)
clear(0,0,250,250)
text("( `･д･)つ",80,150)
text("|レ|",100,170)
text("U U",110,190)
text("))дﾟ)",180,150)
text("○)○)",180,170)
text("<<",200,190)
sleep(200)
clear(0,0,250,250)
goto 0


でバトルにもどったときに前の表示が消えないのはどうしたらよいでしょうか？

バトル

clear(0,0,250,250)
soft2("終わり")
a=0
label 1
if input(1) and keysoft2 then exit endif
text("LIFE",30,230)
text("LIFE",170,230)
text("( `･∀･)",30,150)
text("| ○○",50,170)text("U U",60,190)
text("(･_･ )",160,150)text(" ○○)",160,170)text("U U",180,190)

if input(1) and keyselect then a=abs(rand)%4
if a=2 then thread("攻撃1","あ")join("あ")endif
if a=3 then thread("攻撃2","い")join("い")endif
if a=0 then thread("防御1","う")join("う")endif
if a=1 then thread("防御2","え")join("え")endif
endif
goto 1

攻撃1
clear(0,0,250,250)
label 0
text("( `･д･)",50,150)
text("|<｡|",70,170)
text("U U",75,190)
text("(･_･ )",160,150)text(" ○○)",160,170)text("U U",180,190)
sleep(500)
clear(0,0,250,250)
text("( `･д)",70,150)
text("|　＝＝○",90,170)
text("U U",90,190)
text("(｡дﾟ)",180,150)
text("))○)",180,170)
text("<<",200,190)
sleep(200)
clear(0,0,250,250)
end

goto 0

攻撃2
clear(0,0,250,250)
label 0
text("( `･д)",50,150)
text("|レ|",70,170)
text("U U",80,190)
text("(･_･ )",160,150)text(" ○○)",160,170)text("U U",180,190)
sleep(500)
clear(0,0,250,250)
text("( `･д･)つ",80,150)
text("|レ|",100,170)
text("U U",100,190)
text("))дﾟ)",180,150)
text("○)○)",180,170)
text("<<",200,190)
sleep(200)
clear(0,0,250,250)
end
goto 0

防御1
clear(0,0,250,250)
label 0
text("( `･д･)",30,150)
text("| ○○",50,170)
text("U U",60,190)
text("(･_･ )",140,150)text("○) ○",140,170)text("U U",160,190)
sleep(500)
clear(0,0,250,250)
text("( ﾟДﾟ)",10,150)
text("(U((",20,170)
text(">>",40,190)

text("(_･ )",80,150)
text("○=== )",60,170)
text("U U",100,190)
sleep(200)
clear(0,0,250,250)
end

goto 0

防御2
clear(0,0,250,250)
label 0
text("( `･д･)",30,150)
text("|○○",50,170)
text("U U",60,190)
text("(･_･ )",140,150)text(" ○= )",140,170)text("U U",160,190)
sleep(500)
clear(0,0,250,250)
text("(ﾟдﾟ((",10,150)
text("(○(○",30,170)
text(">>",80,190)
text("○=(･_･ )",70,150)
text("ヽ○ヽ",110,170)
text("U U",140,190)
sleep(200)
clear(0,0,250,250)
end

goto 0

またまた質問なのですが、たとえは攻撃1の
（ `･д･)
　|<｡|
　U U
のsleepのあいだにkey1を押したらそのまま続行、時間内に押せなかったらend
というふうにするにはどうすればよいんでしょうか

はじめまして；
小生、ＭＳＸなどでＢＡＳＩＣをいぢってた者なのですが。
いまのＰＣ上で昔のＢＡＳＩＣの楽しさは味わえないのね。
ンデ、漂泊の身上はやいくとうせい・・・
(略）
デ、どうYO!?
どうなのＹＯ、携帯アプリって;?
昔の味ってあるのかァ？　もし、ココにＭＳＸとかァー
ファンダムとかァー、マルチステートメントとかァー、きいて、
ﾆｬﾘｖ
と、くる椰子がいたら、ご感想など拝聴したいのですが？

ｲﾔ；
「　聞くまへに打ち込め！」
が、ＢＡＳＩＣ道の鉄則、なのはヨーわかっとるんyo；
でも折れ携帯もって無ヒンです。
ｉＢＡＳＩＣする為に携帯かう(契約)するワケで；
やっぱダメだぁコリャ〜状態だと、残るは、ドコからも
かかって来る予定の無ヒ、携帯がｺﾞﾛﾝと転がってる訳で

カ、勘弁して下サイ（涙）
　　　　　　　　　　

エミュでやればいいじゃん
マァあんたが考えてるような代物じゃないことは確かだろうが…

あげ

iBASICについて語ろうよ…

いや、ezBASICについて語ろうよ…

だれかわかんないでしょうか････(´･ω･`)

>>217
if input(1000)and key1 then ホニャララ
てすればkey1の入力に1000ミリ秒のタイムアウトが設定できるよ

>218
ありがとうございました。おかげでなんとか形にはなりました。
ところでほかにこれやってる人っているんでしょうか。スレとBASICの活性を期待してage
ついでに少しずつ改良したいので完成はしてないけどUPしてもよいですか？

おれもやってるよ〜EZだけど、このスレの前にいくつか作ったゲームアップしたし他にもいくつかあるからいいんじゃない？

バトル
clear(0,0,250,250)
soft2("終わり")
a=0n=0

label 1
if input(1) and keysoft2 then exit endif
text("( `･∀･)",30,150)
text("| ○○",50,170)text("U U",60,190)
text("(･_･ )",160,150)text(" ○○)",160,170)text("U U",180,190)

if input(1) and keyselect then a=abs(rand)%401
if a>=0 and a<=99 then thread("攻撃1","あ")join("あ")endif
if a>=100 and a<=199 then thread("攻撃2","い")join("い")endif
if a>=200 and a<=299 then thread("防御1","う")join("う")endif
if a>=300 and a<=399 then thread("防御2","え")join("え")endif
if a=400 then thread("必殺","お")join("お")endif
endif
goto 1

攻撃1
clear(0,0,250,250)
label 0
text("( `･д･)",50,150)
text("|<｡|",70,170)
text("U U",75,190)
text("(･_･ )",160,150)text(" ○○)",160,170)text("U U",180,190)
if input(300) and key4 then goto 2 endif clear(0,0,250,250)
end
label 2
clear(0,0,250,250)
text("( `･д)",70,150)
text("|　＝＝○",90,170)
text("U U",90,190)
text("(｡дﾟ)",180,150)
text("))○)",180,170)
text("<<",200,190)
sleep(200)
clear(0,0,250,250)
end

goto 0

攻撃2
clear(0,0,250,250)
label 0
text("( `･д)",50,150)
text("|レ|",70,170)
text("U U",80,190)
text("(･_･ )",160,150)text(" ○○)",160,170)text("U U",180,190)
if input(300) and key1 then goto 2 endif clear(0,0,250,250)
end
label 2
clear(0,0,250,250)
text("( `･д･)つ",80,150)
text("|レ|",100,170)
text("U U",100,190)
text("))дﾟ)",180,150)
text("○)○)",180,170)
text("<<",200,190)
sleep(200)
clear(0,0,250,250)
end
goto 0

防御1
clear(0,0,250,250)
label 0
text("( `･д･)",30,150)
text("| ○○",50,170)
text("U U",60,190)
text("(･_･ )",140,150)text("○) ○",140,170)text("U U",160,190)
if input(300) and key4 then clear(0,0,250,250) end
endif goto 2
label 2
clear(0,0,250,250)
text("( ﾟДﾟ)",10,150)
text("(U((",20,170)
text(">>",40,190)

text("(_･ )",80,150)
text("○=== )",60,170)
text("U U",100,190)
sleep(200)
clear(0,0,250,250)
end

goto 0

防御2
clear(0,0,250,250)
label 0
text("( `･д･)",30,150)
text("|○○",50,170)
text("U U",60,190)
text("(･_･ )",140,150)text(" ○= )",140,170)text("U U",160,190)
if input(300) and key1 then clear(0,0,250,250) end
endif goto 2

label 2
clear(0,0,250,250)
text("(ﾟдﾟ((",10,150)
text("(○(○",30,170)
text(">>",80,190)
text("○=(･_･ )",70,150)
text("ヽ○ヽ",110,170)
text("U U",140,190)
sleep(200)
clear(0,0,250,250)
end

goto 0

必殺
clear(0,0,250,250)
label 0
text("( `･д･)",70,150)
text("|○○",90,170)
text("U U",100,190)
text("(･_･ )",160,150)text(" ○○)",160,170)text("U U",180,190)
sleep(1000)
clear(0,0,250,250)

text("北",50,90)sleep(1000)text("斗",90,90)sleep(1000)text("神",130,90)sleep(1000)text("拳",170,90)sleep(1000)
for f=0 to 8 step 1
text("( `･д)",70,150)
text("|　つ",90,170)
text("U U",90,190)
text("(｡дﾟ)",180,150)
text("))○)",180,170)
text("<<",200,190)
sleep(200)
clear(0,0,250,250)
text("( `･д)",70,150)text("|　つ",90,170)text("U U",90,190)text("(｡дﾟ)",180,150)text("))○)",180,170)text("<<",200,190)
sleep(200)
clear(0,0,250,250)
text("( `･д)つ つ",70,150)text("| 　つ つ",90,170)text("U U",90,190)text("))｡дﾟ)",180,150)text("))○)",180,170)text("<<",200,190)
sleep(200)
clear(0,0,250,250)
end
goto 0

左が自分、右が敵です。センターキーを押すとランダムに自分か敵が動き出します。パンチは上下にわかれてて、それぞれキー1･2に対応してます。つまらないものですがせっかくなので
慣れてきたら防御をキー3･6にかえてみてください

また質問させてもらいます。次は少し複雑なゲームをつくってみようと思うのですが、ロボットに前に敵がいたら攻撃、とかいなかったら右45ﾟ回転とかそんなかんじ行動のプログラムを組んで遊ぶゲームあるじゃないですか。
あれの思考ルーチン？ていうのかわかんないけど、それを別のプログラムにしようとしたら、それぞれ同時にうごかせないですよね？質問がわかりずらいのですが…
本体プログラム
ルーチンＡプログラム
ルーチンＢプログラム
にして、最強プログラムはどれ？みたいなカンジにしたいんです。

全く分からない・・・

この文章じゃわからないですよねすみません。なんとか自分で調べてみます。
次は対戦物にしたかったんですよ。縦STGの１対１みたいな画面にして、動きをそれぞれ別のプログラムでうごかして
┏━━━━━┓
┃　　▽　　┃
┃　　・←弾┃
┃　　　　　┃
┃　　　▲　┃
┗━━━━━┛
どんなプログラムが一番強いかを競う、てやつ。わかりずらくて本当すみません

キャラの動きのルーチンがいくつかあってそれを本体で呼び出して勝ち抜きみたいにするってこと?
例えば動きのルーチン0と2があったとすると
thread(0,1)join(1)
thread(2,3)join(3)
てやれば0の動きが先だけど2匹を戦わせる事が出来ると思うよ。
でもezBASICじゃ毎回スレッド呼び出すのはキツイと思うよ。重い

▽を動かすプログラム
▲を動かすプログラム
を独立させてthreadで呼び出しながら縦シューで遊べないかなと。
将棋でたとえると
将棋本体のプログラム
先手を打つプログラム
後手を打つプログラム
の3つにわけて、打つプログラムだけはみんなでつくって誰のプログラムが最強か、の縦シューバージョンみたいなやつです。でも無理ぽですかね？

おもしろそーだったので、ボンバーマン形式でプログラムを戦わせるゲーム作りました
┌───────┐
｜ �@←ボム ｜
｜ □ ｜
｜ ｜
｜ ｜
｜ ■�@ ｜
｜ ｜
└───────┘
・■を動かすプログラム
・□を動かすプログラム
・�@をsleep()を使って数秒後に爆発させるプログラム(接触判定で勝敗を決める)

これらのプログラムをthred("",)でまとめる

ボムはsleepより時間を取得するやつで3秒計ったほうがいいと思うよ？
sleepじゃプログラムが止まる＝操作もできなくなるわけだから

>233
ぜひやってみたいです

俺もやりたいです。もしかしてもう本体プログラムがあるの？
あるとしたらどういう感じで子スレッドを書けばいいですかね？(キャラの大きさとか歩くスピードの制限とか)
あと非QVGAの方がいいです。(みんなができる)

自分もそれが気になるんですよ。
はじめは本体には判定だけにしようと思ったんですけど、もっとわかりやすくしようと思って子スレッドにはひとつの数字を返してもらうように考えたんです。たとえば

返す値が1なら前に進む2なら右を向く5なら弾をだす。
プログラム一行にたいし数字を１づつたしてって、その数字を比較してたとえば二倍差があれば弾が２マス進む、みたいにしようとしたけど途中で中断しちゃったんで、参考がてらできてるならプログラムみてみたいです

本体
a=10 b=35 c=90 d=110 rect(10,10,100,100)soft1("終わり")text("●",a,b) text("○",c,d)
label 0
if input(0)and keysoft1 then exit endif clear(11,11,99,99) thread("サンプル","バトル1")join("バトル1")thread("サンプル1","バトル2")join("バトル2")
if e=1 then a=a+5 endif if e=2 then a=a-5 endif if e=3 then b=b+5 endif if e=4 then b=b-5 endif
if f=1 then c=c+5 endif if f=2 then c=c-5 endif if f=3 then d=d+5 endif if f=4 then d=d-5 endif
text("●",a,b)text("○",c,d)sleep(200)
if c<10 or c>90 or d<35 or d>120then goto 2 endif if a<10 or a>90 or b<35 or b>120then goto 1 endif
goto 0

label 1
text("lose ●",10,150)goto 0

label 2
text("lose ○",10,200)goto 0

サンプル1,2にe=1f=1endいれても動いてくれないのはなんでですかね？
ab→●のXY軸
cd→○のXY軸
ef→子スレッドで1から4を返す、1ならx軸に+5
みんなでひとつの作品つくってみたいっすね

>>239eとかfを大文字にすればだいじょぶだとおもいますよー

ボム対応(一人二つまで)遅い…
独自の機能とか使っちゃったんでez用です(-_-;)。やっぱ移動とかは子スレッドでやらせた方が早いと思います。
G=10000E=12099F=10200label 0lock()color(191,128,64)frect(0,0,100,100)thread("A",0)join(0)thread("B",1)join(1)
color(255,0,0)farc(A,B,12,12)color(0,0,255)farc(C,D,12,12)
color(0,0,0)for i=0 to 3p=i+1if not(substr(E,p,1)=9)then G=G+pow(10,3-i)a=substr(E,p,1)b=substr(F,p,1)if substr(G,p,1)=9then color(255,128,0)G=G-pow(10,3-i)*9frect(a*12,b*12-24,12,60)frect(a*12-24,b*12,60,12)E=E+pow(10,3-i)*(9-a)
else farc(a*12+1,b*12+1,10,10)endif
endif
next
if scan=key1 then end endif
unlock(1)yield()goto 0

子スレッドA,Bを呼び出します。E,F,GがそれぞれボムのX,Y軸､時間経過を表してます。
勝敗決定とかはついてませんね。

本体。ちょっと変えました。
A=28B=44C=56D=44G=10000E=19999F=19999label 0lock()color(191,128,64)frect(0,0,96,96)thread("A",0)join(0)thread("B",1)join(1)
color(255,0,0)farc(A,B,12,12)color(0,0,255)farc(C,D,12,12)
for i=0 to 3p=i+1if not(substr(E,p,1)=9)then G=G+pow(10,3-i)a=substr(E,p,1)b=substr(F,p,1)if substr(G,p,1)=9then color(255,128,0)G=G-pow(10,3-i)*9frect(a*12,b*12-24,12,60)frect(a*12-24,b*12,60,12)E=E+pow(10,3-i)*(9-a)
else color(0,0,0)farc(a*12+1,b*12+1,10,10)endif
endif
next
if scan=key1 then end endif
unlock(1)yield()goto 0

子スレッドA。ランダムな動きです

if J=H then J=abs(rand)%21H=0endif
H=H+1if J%4=0and A<84then A=A+4endif
if J%4=1and B<84then B=B+4endif
if J%4=2and A>0then A=A-4endif
if J%4=3and B>0then B=B-4endif
if A=C or B=D then for i=1 to 2if substr(E,i,1)=9then E=E-pow(10,4-i)*(9-A/12)a=substr(F,i,1)F=F-pow(10,4-i)*(a-B/12)end
endif
next
endif

子スレッドB。Aに合わせて動きます。

if abs(C-A)<abs(B-D)then if A<C then if C>0then C=C-4endif
else if C<84then C=C+4endif
endif
else if B<D then if D>0then D=D-4endif
else if D<84then D=D+4endif
endif
endif
for i=3 to 4if substr(E,i,1)=9then E=E-pow(10,4-i)*(9-C/12)a=substr(F,i,1)F=F-pow(10,4-i)*(a-D/12)end
endif
next

すごい^^かなり形になってますね。
で質問なんですけど、画面がチカチカしないのはなんでですか？
自分はclear→text→clearの繰り返しだからチカチカするんですよね

lock()〜描画〜unlock(1)yield()
てやればチカチカしないです。遅くもなりますが…
yield()は動きがガクガクってなるときだけつければいいです。

<238さん凄いです
233です携帯がJavaに対応してないのでプログラムはアップできません…すいません、解約した携帯で作ったので

ちなみに俺はsubstrが使えないのですべてXY軸での接触判定で作った

プログラムの流れだけ言うと

ｵｰﾌﾟﾆﾝｸﾞ→敵のﾚﾍﾞﾙ選択→ｽﾃｰｼﾞ描写→ﾊﾞﾄﾙ→勝敗の決定→再び敵のﾚﾍﾞﾙ選択へ

こんな流れです

爆弾はauだったら絵文字を使うとﾘｱﾙですよ

まず本体

soft1("exit")P=2
label 1
color(0,0,0)frect(0,0,132,144)color(255,255,255)frect(0,0,135,135)
thread("敵",0)U=3
label 3
B=scan
lock()
color(255,255,255)rect(X*15+1,Y*15+1,13,13)
if B=1048576 then thread("ボム",P) P=P+1 endif
if B=262144 then if X<8 then X=X+1 endif endif
if B=262144 then if X>0 then X=X-1 endif endif
if B=524288 then if Y<8 then Y=Y+1 endif endif
if B=131072 then if Y>0 then Y=Y-1 endif endif
if B=2097152 then exit endif
color(0,0,255)rect(X*15+1,Y*15+1,13,13)
unlock(1)
goto U

｢ボム｣で保存

x=X
y=Y
v=x*15+7
w=y*15+7
color(255,220,0)text("●",x*15+2,y*15+2)sleep(1800)
arc(v-4,w-36,8,72)arc(v-36,w-4,72,8)
if D=x and y-3<E and E<y+3 then goto 4 endif
if E=y and x-3<D and D<x+3 then goto 4 endif
sleep(1000)vib(300)color(255,255,255)frect(x*15,y*15,15,15)
arc(v-4,w-36,8,72)arc(v-36,w-4,72,8) end
vib(300)color(0,0,255)text("WIN!",50,144)sleep(1500)
U=1

すごいよかったです！
なにより早いですしマルチスレッドの使い方があんまりわかってなかったので勉強になりました。
じゃあ敵のXY軸がDとEですよね？とりあえず敵の動き考えてみま〜す!

そうです敵がDとEです｡ このプログラムの場合thread("","")で呼び起こした小プログラムを本体プログラムと同時に動かしています。(重くなりますが)

｢敵｣で保存

color(255,255,255)rect(D*15+1,E*15+1,13,13)
D=4
E=4
label 6
if U=1 then end endif
sleep(400)lock()color(255,255,255)rect(D*15+1,E*15+1,13,13)a=(rand)%2
if a=0 then thread("ボム2",Q) Q=Q+1 endif
if D<X then D=D+1 endif
if D>X then D=D-1 endifcolor(255,0,0)rect(D*15+1,E*15+1,13,13)unlock(1)sleep(400)lock()color(255,255,255)rect(D*15+1,E*15+1,13,13)
if E<Y then E=E+1 endif
if E>Y then E=E-1 endif
color(255,0,0)rect(D*15+1,E*15+1,13,13)unlock(1)
goto 6


残りは｢ボム2｣スレッドだけ
またこの敵はsleepの秒数を変化させれば敵の強さが設定でき
アプリが速い機種なら十分遊べるくらいの速さになります

234のsleep以外の時間の取得ってどうやるんですか？

ﾎﾞﾑは一つのスレッドにまとめればどっちの爆弾でもくらえてﾎﾞﾝﾊﾞｰﾏﾝぽくなりますよ。
敵スレッドでthread("ﾎﾞﾑ",0)の前にZ=1て書けば一つで二つ分のはたらきします。
if Z then x=D y=E Z=0else x=X y=Y endif
v=x*15+7w=y*15+7color(255,220,0)text("",x*15+2,y*15+15)sleep(3000)arc(v-4,w-36,8,72)arc(v-36,w-4,72,8)color(0,0,255)if D=x and y-3<E and E<y+3 then goto 4endif
if E=y and x-3<D and D<x+3 then goto 4endif
if X=x and y-3<Y and Y<y+3 then goto 5endif
if Y=y and x-3<X and X<x+3 then goto 5endif
sleep(1000)color(255,255,255)frect(x*15,y*15,15,15)arc(v-4,w-36,8,72)arc(v-36,w-4,72,8)end
label 4text("WIN!",50,144)goto 6label 5text("LOSE",50,144)label 6sleep(1500)U=1end


時間はsecondとかmillisecondとかいろいろありますよ。

改良ありがとうございます。のmさんのプログラム大変参考になります

なんだ？あいべ−しっくって？

本体
x=10y=90z=20w=0
a=x b=x c=x d=x e=x f=x g=1 A=0
g=y h=y i=y j=y k=y l=y m=1 B=0
soft1("終わり")
label 0
if input(0)and keysoft1 then exit endif
rect(9,9,101,101)
text("☆",x,x+23)
text("☆",y,y+23)
frect(a,b,20,20)frect(c,d,20,20)frect(e,f,20,20)
rect(g,h,20,20)rect(i,j,20,20)rect(k,l,20,20)
sleep(1000)
thread("サンプル","あ")join("あ")
thread("サンプル1","い")join("い")
if A=1 then a=a+z endif if A=2 then a=a-z endif if A=3 then b=b+z endif if A=4 then b=b-z endif
if B=1 then c=c+z endif if B=2 then c=c-z endif if B=3 then d=d+z endif if B=4 then d=d-z endif
if a<x or a>y or b<x or b>y or a=i and b=j or a=k and b=l or a=y and b=y then w=w+1 endif
if g<x or g>y or h<x or h>y or g=c and h=d or g=e and h=f or g=x and h=x then w=w+2 endif

if w=1 then text("WIN",60,120)endif
if w=2 then text("LOSE",60,120)endif
if w=3 then text("DROW",60,120)endif
clear(10,10,100,100)
goto 0

サンプル
A=1
end
これで移動した先にくっついてくプログラムてどうすればよいでしょ
●
↓
●
●下に移動
↓
●
●●横に移動
↓
●●●また横移動
↓
●●
□●下移動(□はスペース)

自己解決しました

x=10y=90z=20w=0
a=x b=x c=x d=x e=x f=x A=0
g=y h=y i=y j=y k=y l=y B=0
soft1("終わり")
label 0
if input(0)and keysoft1 then exit endif
rect(9,9,101,101)
text("☆",x,x+23)
text("☆",y,y+23)

thread("サンプル","あ")
thread("サンプル1","い")
e=c f=d c=a d=b
k=i l=j i=g j=h
if A=1 then a=a+z endif if A=2 then a=a-z endif if A=3 then b=b+z endif if A=4 then b=b-z endif
if B=1 then g=g+z endif if B=2 then g=g-z endif if B=3 then h=h+z endif if B=4 then h=h-z endif
if g<x or g>y or h<x or h>y or a=i and b=j or a=k and b=l then w=w+1 endif
if a<x or a>y or b<x or b>y or g=c and h=d or g=e and h=f then w=w+2 endif
frect(a,b,20,20)frect(c,d,20,20)frect(e,f,20,20)
rect(g,h,20,20)rect(i,j,20,20)rect(k,l,20,20)
if w=1 then text("WIN",60,160)endif
if w=2 then text("LOSE",60,160)endif
if w=3 then text("DROW",60,160)endif
sleep(1000)
clear(10,10,100,100)
goto 0

ab,ghがメインのxy軸、(c,d)(e,f)と(i,j)(k,l)が影です。A、Bで動きを指定。相手の影踏むか陣地☆とったら勝ち、というのやりたいんですが、場外の判定がアチコチいじってたらダメになっちゃいました。
どう直せばよいでしょか？

それは場外に落ちないようにするんじゃなくて場外に落ちたら負けという風にするんですか？

基本的には落ちないようにプログラムくんでもらいますが、プログラム誤って落ちたら負け、としたいです

age

保守

age

携帯でBASIC風のプログラムを実行できる「iBASIC」(Tabrisさん製作)を拡張しました。
（自由な変数名と配列の対応、プロジェクト管理機能、ソ―スのインクルード機能、待受け設定機能など）
※P505で動作確認しました。

ttp://satoo.jp/i/basic/

とりあえず名前は「携帯BASIC」としました。
時間があればEZ版とJ版も作りろうと思っています。
バグ報告や要望も募集してます。

EZ版マジで期待してます！おねがいします

前に俺がここに乗せたSFCaveがサンプルで入ってる…すげぇ。古いバージョンだけど

すみません勝手に収録させて貰いました。
携帯BASIC新機能でハイスコアを保存できるようになってます。

うぉーーすげーー！
作者さんですよね？お願いがあるんですができればEZに移植するときにでもImage変数も扱えるようにしてほしいです！一つ目はImage.createImageで指定サイズのキャンバスを作りそこに図形描画などをして画像にする。
二つ目はbyte配列から作る方法、これはパソコンとかが必要になりますが、画像のバイト配列をint型にしてアプリに打ち込んで生成する。Image.createImage(buf,0,buf.length)
難しいと思いますが、16進表記も使えるようにしてください。
あつかましいようですがこれができたらかなりゲームぽくなると思うので世露死苦お願いします。
ついでにもう一つImageの二つ目の方法でmmfかspfを使えるようにしてください(mmfはデータフォルダ読み込みでもいいです)。

おまいら!!
iBASICもいいけどこんなのもあるぞ！
ttp://www.c3-place.com/i/makers/index.html

byte配列からリソースを作る件ですが
byte[]→int[]→Stringだとsaveするとき容量を取りまくってしまうと思うので、リソース生成機能としてメニュー選ぶとこに別に作ってできたリソースに名前をつけてbyte[]で保存できるようにした方がいいと思います。
で呼び出すときにImage=res(〜)として使えるようにしてほしいです。
arcは開始角と描画角も指定できてsetClipなんかも使えるとうれしいです。

でも一番は高速化かな…

>>271
今後の課題としてはまさに高速化なんですけど、
一応iBASICを改造したときに
iBASICではプログラムを解釈するとき、そのつどトークンに切り分けて
いたんですが、それをあらかじめ切り分けておいて処理を少なくするとか
してみたんですがあまり速度は改善せず、、、。あまりインタプリタの処理方法には詳しくないんで、、。
　>>272ところのアプリは速度的にはどの程度出ているんでしょうかね。

Imageに対応についてはドットエディタのようなImage作成アプリを別につくるか内蔵して
作ったデータをテキストボックスにコピぺできるようにしてアプリの中に読み込めるようにするとか。
そうなると夢がひろがりますかねぇ。

byte[]をテキストボックスに入力するときどういう形にするのがいいですかね？

>>274
とりあえず
・文字列 - 整数 の変換を毎回やっているのを減らす
・整数を32bitに
のふたつをやればかなり高速化できるはず。
特に前者はiBasic最大の弱点。

でも、それをやると、文字列型と整数型に変数を分けないといけないとか、
関数も文字列型を返す関数と整数を返す関数に明確に分けないといけないとか
言語仕様自体をいじらないといけなくなるから俺は一朝一夕でできることではないと思って、
ちょっと保留していた。

>>274
俺はImageStore.getEntryでデータフォルダの画像とアプリを関連づけて
使えるようにしたらいいかなと思っていた。

>>276
整数を32bitにはすでに変更してます。
あと変数の自由な名前や配列対応のために変数をハッシュテーブルで管理しちゃってるんで、
やっぱり一文字制限にもどすとか、別の管理方法にするとかしないとだめかも。
文字列 - 整数 の変換は改造するとき悩んだけど、
iBASICの簡単さのためにとりあえず残しました。

画像のことはキャリアごとに互換性を持たしたいのと、作ったアプリを手軽に
掲示板に貼り付けて共有できるようにしたいので悩み中。

前の方にあったものを改造して動く物を作ろうとしたのですが､正常に動作しません｡
誰か解るが人居たら指摘お願いします。

soft1("Exit")label 1
E=0D=3X=60Y=66x=0y=0color(255,255,255)frect(0,0,132,144)
a="○"b="＋"c="∧"d="-"e="‖"f="↓"g="|"h="+"label 0A=scanlock()color(255,255,255)text(a,X,Y)text(b,X,Y+15)text(c,X,Y+30)text(d,X-5,Y+10)text(e,X-10,Y+17)text(f,X-10,Y+22)text(g,X+16,Y+1)text(h,X+16,Y+15)

続きです

E=E+1if A=keyup then B=0 C=-D elseif A=keyleft then B=-D C=0 elseif A=keyright then B=D C=0 elseif A=keydown then B=0 C=D elseB=0C=0 endif endif endif endif
if A=keyselect then end endifX=X+B Y=Y+Cif X>width-12 then X=width-12elseif X<0 then X=0 endif endif
if Y>height then Y=height elseif Y<0 then Y=0 endif endif
if X>x then x=x+(D-1) elseif X<x then x=x-(D-1) endif endif
if Y>y then y=y+(D-1) else if Y<y then y=y-(D-1) endif endif
text(a,X,Y)text(b,X,Y+15)text(c,X,Y+30)text(d,X-5,Y+10)
text(e,X-10,Y+17)text(f,X-10,Y+22)text(g,X+16,Y+1)text(h,X+16,Y+15)unlock(1)yield()goto 0
end

因みに動かしたいものは下記です｡

soft1("Exit")
label A
a="○"
b="＋"
c="∧"
d="-"
e="‖"
f="↓"
g="|"
h="+"
i=100
j=150
text(a,i,j)
text(b,i,j+15)
text(c,i,j+30)
text(d,i-5,j+10)
text(e,i-10,j+17)
text(f,i-10,j+22)
text(g,i+16,j+1)
text(h,i+16,j+15)
input()
end

本体
line(20,200,200,200)
a=0
soft1("終わり")
label 0
if input(0) and keysoft1 then exit endif
a=abs(rand)%4
if a=1 then thread("真ん中","あ")join("あ")endif
if a=2 then thread("右","い")join("い")endif
if a=3 then thread("左","う")join("う")
endif
goto 0

真ん中
soft1("終わり")
label 0
if input(0) and keysoft1 then exit endif
A=80B=200C=90D=200
for i=0 to 4 step 1
text("(　　)",A,B)
text("･∀･",C,D)
B=D D=D-10
sleep(200)
clear(80,100,80,100)
next
for i=0 to 3 step 1
B=D+5 D=B+5
text("(　　)",A,B)
text("･∀･",C,D)
sleep(200)

clear(80,100,80,100)
next
end

右
soft1("終わり")
label 0
if input(0) and keysoft1 then exit endif
A=80B=200C=90D=200
for i=0 to 4 step 1
text("(　　)",A,B)text("･∀･",C,D)
B=D D=D-10 A=C-10 C=C+3
sleep(200)
clear(80,100,80,100)
next
for i=0 to 3 step 1
text("(　　)",A,B)text("･∀･",C,D)
D=B+10 B=D A=C-10 C=C+3
sleep(200)
clear(80,100,100,100)next
for i=0 to 4 step 1
B=D D=D-10 C=C-3 A=C-10
text("(　　)",A,B)text("･∀･",C,D)
sleep(200)
clear(80,100,120,100)next
for i=0 to 4 step 1
text("(　　)",A,B)text("･∀･",C,D)
D=B+10 B=D A=C-10 C=C-3
sleep(200)
clear(80,100,120,100)
next
end

左
soft1("終わり")
label 0
if input(0) and keysoft1 then exit endif
A=80B=200C=90D=200
for i=0 to 4 step 1
B=D D=D-10 A=C-10 C=C-3
text("(　　)",A,B)text("･∀･",C,D)
sleep(200)
clear(10,100,200,100)
next
for i=0 to 3 step 1
D=B+10 B=D A=C-10 C=C-3
text("(　　)",A,B)text("･∀･",C,D)
sleep(200)
clear(10,100,200,100)
next
for i=0 to 4 step 1
text("(　　)",A,B)text("･∀･",C,D)
B=D D=D-10 A=A+3 C=A+10
sleep(200)
clear(10,100,200,100)next
for i=0 to 3 step 1
text("(　　)",A,B)text("･∀･",C,D)
D=B+10 B=D A=A+3 C=A+10
sleep(200)
clear(10,100,200,100)
next
end

lock()〜描写〜unlock(0)のlock()はどこに書けばよいんでしょうか？
labelのあたりに書くと動かなくなるし、イマイチわかんないです

自己解決しました

携帯BASICで画像を扱うやつは少なくともキャンバスを生成して作る方ぐらいならキャリアの違いも関係ないと思うので実装していただきたいです。
あつかましくてすいません(^_^;

ｽﾗｲﾑ
A=111B=165C=105D=175E=98F=180G=93H=185I=90J=190K=200L=97M=203N=102O=117P=118Q=186R=106S=103T=197U=120V=185W=186X=200Y=197
soft1("終わり")
label 0
if input(0) and keysoft1 then exit endif
thread("上","あ")join("あ")
lock()
color(0,100,255)
frect(A,B,5,10)frect(C,D,17,5)frect(E,F,29,5)
frect(G,H,39,5)
frect(I,J,45,10)frect(G,K,39,5)frect(L,M,32,5)
color(255,255,255)frect(N,V,6,6)frect(O,V,6,6)
color(0,0,0)frect(S,W,4,4)frect(P,W,4,4)
color(255,0,0)frect(R,X,15,4)frect(S,Y,3,3)frect(U,Y,3,3)
unlock(1)
thread("下","い")join("い")
lock()
color(0,100,255)frect(A,B,5,10)frect(C,D,17,5)frect(E,F,29,5)frect(G,H,39,5)frect(I,J,45,10)frect(G,K,39,5)frect(L,M,32,5)
color(255,255,255)frect(N,V,6,6)frect(O,V,6,6)
color(0,0,0)frect(S,W,4,4)frect(P,W,4,4)
color(255,0,0)frect(R,X,15,4)frect(S,Y,3,3)frect(U,Y,3,3)
unlock(1)
a=abs(rand)%2000sleep(a)
goto 0

上
for i=0 to 5
lock()
color(0,100,255)frect(A,B,5,10)frect(C,D,17,5)frect(E,F,29,5)
frect(G,H,39,5)frect(I,J,45,10)frect(G,K,39,5)frect(L,M,32,5)
color(255,255,255)frect(N,V,6,6)frect(O,V,6,6)
color(0,0,0)frect(S,W,4,4)frect(P,W,4,4)
color(255,0,0)frect(R,X,15,4)frect(S,Y,3,3)frect(U,Y,3,3)
unlock(1)
sleep(1)
clear(50,20,100,250)
B=B-10 D=D-10 F=F-10H=H-10J=J-10K=K-10M=M-10Q=Q-10T=T-10V=V-11W=W-11X=X-12Y=Y-12
next

end

下
for i=0 to 5lock()
color(0,100,255)frect(A,B,5,10)frect(C,D,17,5)frect(E,F,29,5)frect(G,H,39,5)frect(I,J,45,10)frect(G,K,39,5)frect(L,M,32,5)
color(255,255,255)frect(N,V,6,6)frect(O,V,6,6)color(0,0,0)frect(S,W,4,4)frect(P,W,4,4)
color(255,0,0)frect(R,X,15,4)frect(S,Y,3,3)frect(U,Y,3,3)
unlock(1)
B=B+10D=D+10F=F+10H=H+10J=J+10K=K+10M=M+10Q=Q+10T=T+10V=V+11W=W+11X=X+12Y=Y+12
sleep(1)
clear(50,10,100,200)next
end

フォントの大きさ変えるのは、どうすればいいんですか？

多分できないと思います

今どんなの作ってるとかこんなん作ろうと思ってるとかみんなで発表してみませんか？

>>292
携帯ＢＡＳＩＣではできますよ。
・setfont(a1)
フォントのサイズを指定。a1は"T"（極小）,"S"（小）,"M"（中）,"L"（大）を指定。初期設定では"T"


とりあえず現在はez版とj版に移植してます。画像対応などはそのあとになると思います。

>>295
有難うございますo(^-^)o
また分からない事が有ったら、此処にきていいですか？

関数の名前を集めて携帯用の辞書ファイル作ったらかなり楽になるかもね．

携帯Basicについて，
SH505iですが，マニュアルが途中で切れて最後まで読めません（512字？）

命令辞書辞書自分で作りました．SH505用です．90xでは動くかどうか知りません．
適当にやったので間違ってるかも．
http://www.mchs-u.net/mc/dsh/ibasic.dsh

QRコードはこちらから
http://www.mchs-u.net/mc/index.php?%B7%C8%C2%D3Basic

カンマはエラーが出るそうなので抜いてあります．
「あ」で記号，後は頭文字が携帯の数字ボタンに対応してるはずです．（例えば，「か」→「A」）

label 1
for〜
プログラム
goto 2

label 2
プログラム
next

goto〜labelを挟んだfor〜nextっていうのはダメなんですか？

a=200
soft1("終わり")
for i=0 to 30
if input(0) and keysoft1 then exit endif
lock()
color(0,255,255)
frect(a,155,10,6)
frect(a+6,161,4,10)
frect(a+10,163,6,10)
frect(a+4,171,4,2)
frect(a+12,173,6,2)
frect(a+16,175,2,2)
color(255,255,0)
frect(a,153,8,2)
frect(a+4,155,2,2)
frect(a+6,157,4,4)
frect(a+8,155,2,2)
frect(a+10,159,2,2)
color(0,0,255)
frect(a+2,157,2,2)
color(0,200,200)
frect(a+14,163,2,2)
frect(a+14,159,6,4)
frect(a+16,157,6,2)
frect(a+18,155,4,2)
frect(a+20,153,2,2)
unlock(1)
sleep(5)
clear(a,150,30,30)
a=a-3
next
thread("ﾋﾟｸｼｰ","ぴ")

soft1("終わり")
label 0
if input(0) and keysoft1 then exit endif
lock()
color(0,0,255)
frect(85,85,70,70)
color(0,255,0)
frect(90,90,60,60)
color(255,255,0)
frect(105,125,30,5)
frect(105,100,5,25)
frect(130,100,5,25)
frect(110,95,20,10)
color(0,255,255)
frect(110,130,20,15)
frect(115,125,10,5)
frect(110,105,20,20)
frect(105,110,30,10)
frect(100,110,5,5)
frect(135,110,5,5)
frect(95,105,5,5)
frect(140,105,5,5)
color(0,0,255)
frect(110,110,5,5)
frect(125,110,5,5)
color(255,255,0)
frect(125,105,5,5)
unlock(1)
goto 0

このthreadが呼び出されないのってなんでですかね？

一緒にｹﾞｰﾑﾌﾞｯｸezbasicでつくりませんか？
といってみる(´･д･`)

俺は上の方にあるボンバーマンみたいなことがやりたいな．

暇ができたらまとめサイトくらいなら作る気あるかも，
と言ってみる．

とりあえず携帯Basicの他キャリア版を待つことにしましょう．

>303
携帯ベーシックまでのつなぎになんかつくろと思ったんだけどね。
一人で頑張ってみます

>>303
俺が今作ってたりするw

>>305

ん？　まとめサイト？

>>307
まとめサイト｡

自分に言ってどーすんだorz
×>>307
○>>306

文字をフェードアウト及びフェードオンするには、どうしたらよいのでしょうか？

たぶん「フェードアウト」の反対は「フェードイン」だと思う。

>>309
たぶん色を変えながら徐々に表示したら良いんじゃないかしら．
color(●,●,●)
text(●,●,●)
sleep(●)
をforで回す感じで．

>>307
先を越されましたか．
がんばってください．

フォーで回すってどうやるんですか？

A=200
for i=0 to 5
frect(A,200,5,5)
sleep(200)
A=A-5
clear(A+5,200,5,5)
next

forはこんな感じでつかいます。
for i=0 to 5 step 1
;iが0からはじまり(i=0)1づつ(step 1;ただし1なら省略可)増えて5になったら終わり

next
;iに1を足して(step 1)forにもどる

もし間違ってたら訂正お願いします

皆さんレス有難うございますo(^^)o度々すいませんがm(__)m『i』は虚数の意味ですか？

iはなんでも大丈夫ですよ
aでもzでも
虚数はちとわかりません

ez版移植完了しました。Phase3以上対応です。
ver1.0.2
http://satoo.jp/ez/basic/

voda版も完成したんですがアプリゲットに申請中なんで公開はもうすこしかかりそうです。

>>297
報告ありがとうございます。マニュアルを500文字以内くらいに入るように分割しました。

>>316
おつかれさんでっす！…と思ったらPhase3でしたか…なんとか3未満に対応出来ないですかね？

お疲れ様です
マニュアルが中に入って使いやすさｽｯｺﾞｲｲｲﾃﾞｽ

おつかれさんでっす．
マニュアル分割もどうもです．


簡易お絵かきソフトと，ディスプレイ見なくてもできるクソゲを作ってみた．
こんなことしてる暇は無いはずなのだが．

(･∀･)
soft1("終わり")
A=80C=90E=2F=1G=2
line(0,215,235,215)

label 0
B=200 D=200
if input(0) and keysoft1 then exit endif
R=abs(rand)%2 r=abs(rand)%E s=abs(rand)%F t=abs(rand)%1000

if R=0 then r=r-r*2 endif
for i=0 to G
clear(A-25,B-40,100,50)
if A<=0 then r=r-r*2 endif
if A>=175 then r=r-r*2 endif
text("(　　)",A,B) text("･∀･",C,D) B=D D=D-s A=A+r C=C+r
sleep(50)
next
for i=0 to G
clear(A-25,B-40,100,50)
if A<=0 then r=r-r*2 endif
if A>=175 then r=r-r*2 endif
text("(　　)",A,B) text("･∀･",C,D) B=D D=D+s A=A+r C=C+r
sleep(30)
next
clear(A-25,B-40,100,50)text("(･∀･)",A-r,200)sleep(t)
if t<=200 then
clear(A-5,B-40,70,45) text("(-∀-)",A,200) sleep(100) endif
if t<=10 and F<5 then E=E+1 endif
if t>=970 and F<5 then F=F+1 endif
if t>500 and t<515 and G<5 then G=G+1 endif
goto 0

>>317
phase3未満にもぜひ対応版を作りたいんですけど、
いろいろと細かい問題があるんです。
phase3未満ではソフトキーの押下状態が取得できないんで、
どうやってscan変数を実装するか考え中です。
ソフトキー以外だったらキーが押された瞬間と離した瞬間がわかるんで何とか実装できるんですけど。

yasuさんのezbasicで実験したところphase3未満対応なのに
ソフトキーの状態もscan変数で取得できてるので
どうやってやってるのか激しく知りたいです。

そこだけ解決すればすぐ対応できるんですが、、だれかおしえてくらちい。

>>315
有難うございます(*^o^*)
虚数は二乗して-1になる数字だと思います

soft1("終わり")
rect(20,80,200,150) color(200,100,0) frect(21,201,199,29) A=80C=90E=1F=1G=0
color(0,0,0)
label 0
B=200 D=200
if input(0) and keysoft1 then exit endif
R=abs(rand)%2 r=abs(rand)%E s=abs(rand)%F t=abs(rand)%1000
if R=0 then r=r-r*2 endif
for i=0 to 4
clear(A,B-25,60,26) B=D D=D-s A=A+r C=C+rif A<30 then r=r-r*2 endif
if A>150 then r=r-r*2 endif
text("(　　)",A,B) text("･∀･",C,D) sleep(50)
next
for i=0 to 4
clear(A,B-25,60,26) B=D D=D+s A=A+r C=C+r
if A<30 then r=r-r*2 endif
if A>150 then r=r-r*2 endif
text("(　　)",A,B) text("･∀･",C,D) sleep(30)
next
clear(A,B-25,60,26) text("(･∀･)",A,200) sleep(t)
if t<=200 then
clear(A,B-25,60,25) text("(-∀-)",A,200) sleep(100) endif
if t<=G and E<3 then E=E+1 endif
if t>=1000-G and F<5 then F=F+1 endif
G=G+1
goto 0

ちょっと更新
>322
2乗して-1、ありえないから虚数っていうんですか。ﾅﾙﾎﾄﾞ

satooさん、配列から透過対応のPNG画像を作れるクラス作ったんですけど使う予定無いですか？2.5Kbyteくらいで実装できると思うんですが

ソフトキーはあまりそういう使い方しないと思うんでいらないです。そのかわり色の指定を一つの引数で指定できるようにしてほしいです。じゃないとRGBそれぞれで配列作らないとだめなんで…
おまけに配列に数をまとめて代入できるようになってると使いやすいです。val={0,100,50,3}みたいに

まてめサイトにはどれを貼ればいいかな?
作品=完成品じゃないから判断が難しい…
それとも｢(未完成)｣として全て保存保存した方が良い?

卵
soft1("終わり")
rect(20,80,200,150)
color(200,100,0)frect(21,201,199,29)
XX=90X=100YY=200
label 1
if input(0) and keysoft1 then exit endif
R=0G=0B=0r=250g=250b=250
for i=0 to 6
color(R,G,B)text("(　　)",XX,YY)
if input(1000) and keysoft1 then exit endif
R=R+abs(rand)%45G=G+abs(rand)%45B=B+abs(rand)%45
next
if input((R+B+G)*100) and keysoft1 then exit endif
for i=0 to 10
color(r,g,b)text("-ε-",X,YY)r=r-(250-R)/9 g=g-(250-G)/9 b=b-(250-B)/9
if input(1000) and keysoft1 then exit endif
next
if input((R+B+G)*100) and keysoft1 then exit endif
clear(XX,YY-25,60,25) text("(･ε･)",XX,YY)
#赤ちゃん〜子供#

赤ちゃん〜子供
soft1("終わり")
color(0,0,0)rect(20,80,200,150) color(200,100,0)frect(21,201,199,29) W=1 H=1 C=0 Fb="･ε･" Fc="･∀･" Fa=Fb l=500 color(R,G,B)
label 0
YY=200 Y=200
if input(0) and keysoft1 then exit endif
p=abs(rand)%3 w=(rand)%W h=abs(rand)%H t=abs(rand)%1000
for i=0 to 4
text("(　　)",XX,YY)text(Fa,X,Y) sleep(50) clear(XX,YY-25,60,26) YY=Y Y=Y-h XX=XX+w X=X+w
if XX<30 then w=w-w*2 endif
if XX>150 then w=w-w*2 endif
next
for i=0 to 5
text("(　　)",XX,YY)text(Fa,X,Y) sleep(50) clear(XX,YY-25,60,26) YY=Y Y=Y+h XX=XX+w X=X+w
if XX<30 then w=w-w*2 endif
if XX>150 then w=w-w*2endif
next
text("(　　)",XX,YY)text(Fa,X,YY)sleep(t) clear(XX,YY-25,60,26)
if t<=200 then
if Fa=Fb then
text("(-ε-)",XX,200) endif
if Fa=Fc then text("(-∀-)",XX,200)endif
sleep(100) clear(XX,YY-25,60,25)endif
if t<=C and W<3 then
W=W+1 C=0 endif
if t>=1000-C and H<5 then H=H+1 C=0 endif
C=C+p l=l-p
if l<=0 then #死亡# endif
if l<=300 then Fa=Fc endif
goto 0

死亡
R=abs(rand)%250
G=abs(rand)%250
B=abs(rand)%250
clear(XX,YY-25,60,25) for i=0 to 10
color(R,G,B)
text("(　　)",XX,200) text(Fa,X,200)
R=((250-R)/10)+R
G=((250-G)/10)+G
B=((250-B)/10)+B
sleep(500)
next
clear(XX,YY-25,60,25) text("(-＿-)",XX,200) label 1
if input(0) and keysoft1 then exit endif
goto 1

また少し更新

>326
未完成もとっといてくれるとうれしいです

>>326
改良されてるやつは，改良後だけで良いと思う．

あとは……適当に．

>>324
透過対応だと使いやすいですね、必ず対応できるかわかりませんが、
参考のために送っていただけますか？
（ttp://satoo.jp/i/basic/ の管理人へのメールへ）
i版のために透過gifにも対応させたいですね。

>>327
たまごっちみたいでいい(･∀･)！！

phase3未満にも現在対応中です。もうすこしかかりそう。

どうすか？できそうすか？>>331

おまいら待ってろ！
俺がこいつでROGUE CLONEをつくる！

と無責任に発言してみる。

じゃあ俺ぷよぷよつーくろ

致命的なバグ（ifのなかにelseifが使えない、ez,jでエラーメッセージが出ないなど）があったので、ver1.0.3を公開しました。
前のversionを使っている方はすみませんがバージョンアップ推奨です。サンプルプログラムに倉庫番入れました。
それとezのphase3未満版もつくりました。かなり遅いかもしれません。
j版はアプリゲットで公開されてますが、ver1.0.3に変更されていないのでまだＤＬしないで下さい。

i版
ttp://satoo.jp/i/basic/
ez版
ttp://satoo.jp/ez/basic/

現在の作り方では、速度アップや拡張は厳しいのでインタプリタやコンパイラについて本をみて勉強中です。
なので、機能の拡張などは一旦休みます。携帯BASICの今後としては互換性を残しつつ根本的に作り直せたらいいなと思います。
そのときにimage生成にも対応するかもしれません。

ｷﾀ━━━━━━(ﾟ∇ﾟ)━━━━━━━━━━━!!!!

ちょっと気づいたんですが、バージョンアップをすると今までのスクラッチパッドは引き継がれるのですが、それだと新しいサンプルプログラムが出来ないですね。
かなり長いですがサンプルの「倉庫番」を載せておきます。1.0.3で動作します。サンプル収録したのを若干修正した物です。

'倉庫作業/時給710円ver1.0.1

m= "■■■■■■■■■"
m=m+"■・　　■　　・■"
m=m+"■　・□■□・　■"
m=m+"■　　　□　♀　■"
m=m+"■■　□■□　■■"
m=m+"■　　　□　　　■"
m=m+"■　・□■□・　■"
m=m+"■・　　■　　・■"
m=m+"■■■■■■■■■"
soft2("逃亡") jx=strwidth("　")+descent jy=strheight+descent ox=width/2-(jx*9)/2 oy=height/2-(jy*9)/2 color(0,0,0)
for y = 0 to 8 for x = 0 to 8 MAP[y][x] = strat(m,(y*9)+x) if MAP[y][x]="♀" then px=x py=y
MAP[y][x]="　"
elseif MAP[y][x]="・" then
q=q+1
endif
text(MAP[y][x],ox+(x*jx),oy+(y*jy))
next
next
#一# #二# #三# #四#

'一
gosub "pdraw"
mes="社長：早く作業しろ！" gosub "tdraw"

label loop
lock()
'キー判定
key=input()
if key=keysoft2 then
end
elseif key=keyleft then
mx=-1 my=0 gosub "move"
elseif key=keyright then
mx=1 my=0 gosub "move"
elseif key=keyup then
mx=0 my=-1 gosub "move"
elseif key=keydown then
mx=0 my=1 gosub "move"
endif
'クリア判定
if q=a then
mes="社長：労働終了！帰れ！" gosub "tdraw"
unlock("1") onvib() input() exit
endif

unlock("1")
goto "loop"

'二
'サブルーチン
label move
if MAP[py+my][px+mx]="　" or MAP[py+my][px+mx]="・" then
for z = 0 to 1 dy=py+(z*my) dx=px+(z*mx) gosub "mdraw" next px=px+mx py=py+my gosub "pdraw"
elseif MAP[py+my][px+mx]="□" then
if MAP[py+(my*2)][px+(mx*2)]="　" then
MAP[py+(my*2)][px+(mx*2)]="□" MAP[py+my][px+mx]="　"
for z = 0 to 2 dy=py+(z*my) dx=px+(z*mx) gosub "mdraw" next px=px+mx py=py+my gosub "pdraw"
elseif MAP[py+(my*2)][px+(mx*2)]="・" then
MAP[py+(my*2)][px+(mx*2)]="田" MAP[py+my][px+mx]="　"

'三
for z = 0 to 2 dy=py+(z*my) dx=px+(z*mx) gosub "mdraw" next px=px+mx py=py+my a=a+1 gosub "pdraw"
endif
elseif MAP[py+my][px+mx]="田" then
if MAP[py+(my*2)][px+(mx*2)]="　" then
MAP[py+(my*2)][px+(mx*2)]="□" MAP[py+my][px+mx]="・"
for z = 0 to 2 dy=py+(z*my) dx=px+(z*mx) gosub "mdraw" next px=px+mx py=py+my a=a-1 gosub "pdraw"
elseif MAP[py+(my*2)][px+(mx*2)]="・" then
MAP[py+(my*2)][px+(mx*2)]="田" MAP[py+my][px+mx]="・"
for z = 0 to 2 dy=py+(z*my) dx=px+(z*mx) gosub "mdraw" next

'四
px=px+mx py=py+my gosub "pdraw"
endif
endif
return

label tdraw
color(255,255,255) frect(ox,oy+(jy*9)-jy+descent,jx*10,jy)
color(0,0,0) text(mes,ox,oy+(jy*9))
return

label mdraw
color(255,255,255) frect(ox+(dx*jx),oy+(dy*jy)-jy+descent,jx,jy)
color(0,0,0) text(MAP[dy][dx],ox+(dx*jx),oy+(dy*jy))
return

label pdraw
color(255,255,255) frect(ox,oy-(jy*1)-jy+descent,jx*4,jy)
color(0,0,0) text("手数"+(t),ox,oy-jy) text("♀",ox+(px*jx),oy+(py*jy))
t=t+1
return

>335
さっそくDLさせてもらいました。
乙ﾃﾞｽ

>335
さっそくDLさせてもらいました。
乙ﾃﾞｽ

乙です。でもezBASICより操作性悪くなってるような…
save関数についてですが一つしか使えないのは厳しいので10個くらいにならないですか？
あと次の改良版マジで期待してます！がんばって

とりあえずvodafone版公開されましたのでageます。P5/P6に対応しています。動作はかなり遅いです。
下の紹介ページからアプリゲットのDLページに行って下さい。
ttp://satoo.jp/j/basic/

これって金かかんの？

無料。もし初心者でBASICを手軽に理解したいなら
本くらいは買わないといかんかもしれんが、
ここは詳しいクリエイターが多いんで、少しくらいならここで聞くといい。

保存したいのが2つ以上あるとき、
SAVE=X*10+Y
で保存して
X=SAVE/10
Y=SAVE-SAVE/10
てできるんですか？

やりたい事はわかるし、可能と思うけど…
式が少し変じゃないかな？
自分の頭が悪いだけかもしらんので間違ってたら御免。

要は、10の位にX。1の位にYを保存して
元の値に解凍したいんだよね？

そういうことです
たとえば
X=1
Y=2
SAVE=X*10+Y
↓
SAVE=1*10+1
↓
SAVE=11

で読み込むときは
X=SAVE/10
↓
X=11/10
↓
X=1.1

ダメですね(/д`)
初め自分で調べようと思ったら桁が10億桁になるからスルーしてたんですが、だれかやってるのかなぁと
SAVEのなかの何桁目をXにする、とかにすればよいんですかね

X=substr(SAVE,0,1)
Y=substr(SAVE,1,1)
でやってみたらイケない？
Yの方はSAVE-X*10でもOK。

関数まだあんまりわかんないですよ
ちなみに10億桁は無理ですよね(^_^;)

10億桁…もまあ、工夫次第かな？
どんな値を保存したいのかはよくわからないけど、
少しやってみようか？

あ、お願いしてもよいですか？(･ω･)
イマイチわかんない事が多いんですよね
今は前の(･∀･)がピョンピョンするやつを育成+アドベンチャーで作りなおしてるんですが、皆さんどんなの作ってるんでしょ

桶。自分が作ってんのはFF風の奴だな。
一応、ATBだけはできたんだが。

#ソース#で挿入っていいですよね。
ｷｬﾗｸﾞﾗﾌｨｯｸはcolor frectですか？それともグラなし？
前のezBASICと表示の仕方がなんか違うんですかね。lock unlockでも表示されない(-д-)

突然で悪いがゲームできたんでうぷさせてもらいますよ。
タイトル □■
label 3#生成#
str[0]="□"
str[1]="■"
w=strwidth("全")
clear(0,0,w*8,w*8)
for i=0 to 7
for j=0 to 7
text(str[DATA[i][j]],i*w+1,j*w+2+w)
next
next
label 0lock()color(255,255,255)rect(X*w,Y*w,w,w)A=scan
if A=key1 then
end
elseif A=keyright and X<7then
X=X+1
elseif A=keyleft and X>0then
X=X-1
elseif A=keyup and Y>0then
Y=Y-1
elseif A=keydown and Y<7then
Y=Y+1
elseif A=keyselect then
T=T+1
gosub"CROSS"
endif
color(0,0,0)rect(X*w,Y*w,w,w)unlock(1)yield()goto 0
label CROSS
#十字#return

タイトル 生成
e=""if te>T then S=S+1if S=3then e="全クリ！"endif
else e="手数オーバー"endif
text(e,w,w*6)sleep(1000)T=0go[0]="A"go[1]="B"go[2]="C"
goto go[S]
label A
A="0000000000101100011000100010110000011000001001000001100000000000"te=6goto 9
label B
A="0000000000000000000110000011110000111100000110000000000000000000"te=5goto 9
label C
A="0000000100100110011110000001110101100011010111101111000001000000"te=11goto 9
label 9for i=0 to 63
DATA[i%8][i/8]=strat(A,i)
if DATA[i%8][i/8]=1then BW=BW+1endif
next

タイトル 十字
color(0,0,0)
V[0]=-1V[2]=1V[6]=-1V[8]=1
for i=0 to 4
if X+V[i]<8and X+V[i]>-1and Y+V[5+i]<8and Y+V[5+i]>-1then
DATA[X+V[i]][Y+V[5+i]]=1-DATA[X+V[i]][Y+V[5+i]]
if DATA[X+V[i]][Y+V[5+i]]=0then BW=BW-1else BW=BW+1endif
if BW=0then clear(0,0,w*8,w*8)text("CLEAR!",w*4-w*3/2,w*4)text(T+"手",w*3,w*5)BW=0X=0Y=0unlock(1)sleep(1000)goto 3endif
clear((X+V[i])*w,(Y+V[5+i])*w,w,w)
text(str[DATA[X+V[i]][Y+V[5+i]]],(X+V[i])*w+1,(Y+V[5+i])*w+2+w)
endif
next


黒いのを手数以内で全部白にしたらクリアです。｢生成｣をいじってオリジナルを作って遊んでみてください。

ライフゲーム作ってみたけど，
やっぱり配列は処理が大分遅くなるみたい．
型を作れば解決かもしれないけど，難しいとこだね．
あと，配列にマイナス値を入れられるぽいかも．
a[-1]みたく．

>357
ちょっとした素朴な疑問だけど、
10億桁っていったい何を保存する気なのかな？
3桁の数字で1千万個保存できる桁だぞ。
それとも実際のところ10桁と数字の10億を混同したのか？
…だと思いたいが。

乙。
さっそくDLしました。

いろんなパターン考えてみてください。変数teはそのパターンに許される手数+1の値です。

>362
たとえばcolor(R,G,B)を保存するとしたら
100*100*100桁、100万桁ですよね。それとも16進数ですか？

iBASICでゲーム作るにはどこのサイトで勉学すればいいですか？

言語解説読んでもいまいち作り方がﾜｶﾝﾈ
だれか簡単に説明して

早速適当に作らせていただきました。

ADVなどのﾒｯｾｰｼﾞ表示。

soft2("end")
k="厨のプログラミングテスト。"
i=0
label loop
sleep(150)
text(substr(k,i,1),10+i*15,100)
i=i+1
if i > strlen(k)-1 then
sleep(500)
goto "fin"
else
goto "loop"
endif

label fin
if input() and keysoft2 then
end
else
goto "fin"
endif

>>362
10億？
RPGでも作るのか？

変数の方が何使われとるかしらんけど、INTEGERなら…ってか代入できるか試せよ。

>>365
3+3+3で9桁では？

>>370
確かに。

>>367
ﾄﾞﾝﾏｲ(;´Д`)

>370

(･д･)

(･д･;

(･д;;;,

(･;;;;;;,,

(;;;;;;;;,,,

俺ってなんてアホなんだ……

>365さん

スミマセンorz

盛り上がってますね(^L^)

間違えた
>356さんですorz
いってきます

育成ｹﾞﾑきぼんぬ(つ∀`)

わしも作ってみるから誰かも作る(´ー`)人(`∀´∴)
…orz

僕はテキストノベル作っています(o^o^o)

ぷよぷよもどき作りました。俺の使ってる最速のアルゴリズム使ってもクソ遅い…
やっぱパズル系ぐらいが妥当か？

タイトル｢ぷよぷよ｣

frect(0,0,width,height)color(255,255,255)rect(28,19,75,120)rect(58,4,15,15)R[1]=255R[2]=255G[2]=255G[3]=255B[4]=255N=abs(rand)%4+1X=2label 0a=scan
lock()if s=0then
color(0,0,0)farc(29+X*15,20+Y*15,14,14)G=G+1if a=key1 then end elseif a=keyleft then if X>0and Y>-1and P[X-1][Y]=0then X=X-1endif
elseif a=keyright then if X<4and Y>-1and P[X+1][Y]=0then X=X+1endif
endif
if a=keydown or G=12then G=0if Y<7and P[X][Y+1]=0then Y=Y+1else P[X][Y]=N s=1endif
endif
color(R[N],G[N],B[N])farc(29+X*15,20+Y*15,14,14)else
for i=0 to 39C[i/8][i%8]=0next
M=0W=0for i=0 to 39X=i/8Y=i%8In=1if P[X][Y]>0and C[X][Y]=0then M=M+1C[X][Y]=M
Col=P[X][Y]gosub"CH"endif
if In>3then ket[W]=M
sr=sr+In
W=W+1endif
next
s=0if W>0then
for j=0 to 39for i=0 to W-1if C[j/8][j%8]=ket[i]then P[j/8][j%8]=0endif
next
next
#落下#s=1endif
X=2Y=-1N=abs(rand)%4+1if P[2][0]>0then color(255,0,0)text("LOSE",0,24)sleep(2000)end endif
endif
unlock(1)yield()goto 0label CH
#再帰#return

タイトル｢再帰｣

H[l]=X
I[l]=Y
if H[l]<4and C[H[l]+1][I[l]]=0and P[H[l]+1][I[l]]=Col then
C[H[l]+1][I[l]]=M
In=In+1X=H[l]+1Y=I[l]l=l+1gosub"CH"l=l-1endif
if H[l]>0and C[H[l]-1][I[l]]=0and P[H[l]-1][I[l]]=Col then
C[H[l]-1][I[l]]=M
In=In+1X=H[l]-1Y=I[l]l=l+1gosub"CH"l=l-1endif
if I[l]<7and C[H[l]][I[l]+1]=0and P[H[l]][I[l]+1]=Col then
C[H[l]][I[l]+1]=M
In=In+1X=H[l]Y=I[l]+1l=l+1gosub"CH"l=l-1endif
if I[l]>0and C[H[l]][I[l]-1]=0and P[H[l]][I[l]-1]=Col then
C[H[l]][I[l]-1]=M
In=In+1X=H[l]Y=I[l]-1l=l+1gosub"CH"l=l-1endif

タイトル｢落下｣

for i=0 to 4for j=1 to 7if P[i][j]=0then for k=0 to j-1
P[i][j-k]=P[i][j-k-1]next
P[i][0]=0endif
next
next
for i=0 to 4for j=0 to 7N=P[i][j]color(R[N],G[N],B[N])farc(29+i*15,20+j*15,14,14)next
next

>375
いや、でも一言アドバイスを。
RGBなら使う色をあらかじめ決めておけば？
たとえばこれを先に定義づけておいて
RED1=16*X
GREEN1=16*Y
BLUE1=16*Z
実際に保存する場合XYZにすれば少ない桁数で済む。
>366-367
むしろ普通のBASICだと思うと理解し辛いかも。
しようか？説明。長くなるが。

>381
R=RED*16
↑ナルホド!

説明、というか講義なんかしてくれるとうれしいです。
まだまだわかんない事いっぱいなので

星のｶｰﾋﾞｨｽｰﾊﾟｰDXの刹那の見切りみたいなの作ってくれませんか?

結構簡単に再現できるハズ。
過去ログにも似たようなのあったかな？
見つけるか作るかしたらあげとく。
でも誰かがやってくれるとありがたい。

line(0,0,10,10)と打ってもエラーが出ます
どうすれば線が引けますか？

>>385
label 10
line(0,0,10,10)
goto 10
でやってみてください

>>386
サンクス
labelがないとダメなんですね

このアプリすごいですね。BASIC懐かしくて触ってみました。質問なんですが、組み込み関数のmonthを使うと、今1月になってしまうんですけど、そうなるものでしたっけ？
…20年ぶりだから記憶が…(^^;

>385
なぜエラーなのかを説明するとね。
lineの命令自体は実行されてるんだけど、
このアプリでは指令が途切れると終了扱いになるんだよね。
つまり、lineは引かれているが指令が途切れたから一瞬で終了したってわけ。
labelとgotoの方法は無限ループさせて終了させないようにしてるんだが、
抜けるのにいちいちアプリ自体を終了させなきゃならんのでお勧めしない。
labelの代わりにinput()でいったん入力を待たせる事をおすすめする。
て言うか多分、こっちが基本。
>388
dateは3になるね。
多分、この数字は1からでは無く0から始まってるんじゃなかろうか。

ｿﾌﾄｷｰの2を押すと､ﾌﾟﾛｸﾞﾗﾑが終了するようにしたいんですけどどうしたら良いのでしょうか?

soft2("終わり")
label 0
if input(0) and keysoft2 then exit endif
goto 0

これでsoft2押せば大丈夫ですよ

>>391
ありがとうございます(*´∀`)b

lock()
color(250,250,100)frect(100,130,25,25)frect(95,140,35,10)
color(0,0,0)
frect(95,155,35,20)frect(90,160,45,10)frect(100,155,25,35)frect(95,180,35,20)frect(100,140,10,5)frect(115,140,10,5)
color(255,255,255)frect(110,155,5,5)frect(95,160,5,10)frect(125,160,5,10)
frect(110,180,5,5)frect(100,185,25,5)frect(105,190,15,10)frect(95,190,5,5)frect(125,190,5,5)
unlock(0)
sleep((abs(rand)%10+1)*100)
color(255,255,255)frect(90,165,10,15)
color(155,155,155)frect(90,165,5,5)frect(85,165,5,15)
if input(abs(rand)%100+1/1000) and keyselect then
color(255,0,0)
frect(120,165,10,5)frect(125,175,5,5)frect(115,160,5,5)
else
color(255,0,0)
farc(50,50,200,200)
endif
soft1("終わり")
label 0
if input(0) and keysoft1 then exit endif
goto 0

即興でつくった刹那
つまらないけど

↑せめて、予告ﾊﾞｲﾌﾞぐらい付けるわかりやすいんだが、無いと予知能力ないと無理ぽ(つ∀`)

SPEED=30
setfont("M")
text("PUSH",100,150)
XX=90X=100Y=200YY=200XXX=0YYY=200
soft1("終わり")
label 0
#input(0)exit#
if input(0) and keyselect then
clear(100,125,45,30)
SD=0
#EGG#
endif
goto 0

かなり長いけど

タイトル EGG
rect(20,80,200,150)
color(200,100,0)
frect(21,201,199,29)
color(0,0,0)
text("(　　)",XX,200) #input(SPEED)exit#
Rr=abs(rand)%255
Gg=abs(rand)%255
Bb=abs(rand)%255
R=0G=0B=0
for i=0 to 8
color(R,G,B)
text("(　　)",XX,YY)
R=(R+(Rr/9))
G=(G+(Gg/9))
B=(B+(Bb/9))
#input(SPEED)exit#
next
clear(XX,175,60,26)
text("(　　　)",X-20,Y)
#SEED#

タイトルSEED
if SD=0 then POW=0DEF=0STA=0 FFF=F XXX=0 YYY=0
FFF="(　　)"FC="･∀･"FF="(　　)"F="･ε･"#BABY#
elseif SD=1 then POW=0DEF=0STA=0F=",Ａ`"#LIFE MAN#
elseif SD=2 then F="･ε･"FF="ﾐ　　ﾐ"FC="･ω･"FFF="∧∧"XXX=10 YYY=25 POW=-1 DEF=-1 STA=3#BABY#
endif

タイトルinput(SPEED)exit
if input((SPEED)*(abs(rand)%10)) and keysoft1 then exit endif

タイトルinput(0)exit
if input(0) and keysoft1 then exit endif

タイトルBABY
lock() text(F,X,Y)text(FF,XX,Y)text(FFF,XX+XXX,Y-YYY) unlock(0)
W=1 H=1 POP=10 DEP=10 STP=10 HP=10 PP=60 DP=60 SP=60
#初期化#
clear(X-20,175,80,26) label 2
w=(rand)%W h=abs(rand)%H p=abs(rand)%3 color(R,G,B)
lock()
text(FFF,XX+XXX,Y-YYY)text(FF,XX,YY)text(F,X,Y) unlock(0)
#ジャンプ#
YY=200Y=200
lock()
text(FFF,XX+XXX,Y-YYY)text(FF,XX,YY)text(F,X,Y)unlock(0)
#まばたき#
#SEICHO#
if life<LIFE/5 then H=1 W=2 elseif life<LIFE/3 then H=3 W=3 elseif life<LIFE*4/5 then F=FC W=2 endif
goto 2

タイトルジャンプ
for i=0 to 8
lock()
text(FFF,XX+XXX,Y-YYY)text(FF,XX,YY)text(F,X,Y)unlock(0)
sleep(50)
clear(XX,Y-50,60,51)YY=Y XX=XX+w X=X+w if i<=3 then Y=Y-h elseif i>4 then Y=Y+h endif if XX<30 then w=w-w*2 endif if XX>150 then w=w-w*2 endif next

タイトルSEIHO
#input(SPEED)exit#
C=C+p life=life-p if life<=0 then #DEAD# endif
SEICHO=abs(rand)%100 if SEICHO<6 then POW=POW+R/PP+1 elseif SEICHO>94 then DEF=DEF+G/DP+1 elseif SEICHO>55 and SEICHO<61 then STA=STA+B/SP+1 endif
clear(20,0,50,81) text(POW,20,20) text(DEF,20,40)text(STA,20,60)text(life,20,80)color(255,0,0)frect(200,40-POW,5,POW)color(0,255,0)frect(210,40-DEF,5,DEF)color(0,0,255)frect(220,40-STA,5,STA)color(0,0,0)
WEEK=WEEK+1 clear(170,45,20,26)text(WEEK,170,70)color(R,G,B)

タイトル初期化
C=0 POW=POP+R/PP+POW DEF=DEP+G/DP+DEF STA=STP+B/SP+STA LIFE=HP+(255-R)/10+(255-G)/10+(255-B)/10 life=LIFE
WEEK=0
color(0,0,0)text("0週目",180,70)color(R,G,B)

タイトルDEAD
clear(X,Y-23,40,24)for i=0 to 10 color(R,G,B)text(F,X,200)R=(255-R)/11+R G=(255-G)/11+G B=(255-B)/11+B #input(SPEED)exit# next
clear(X,Y-23,40,24)text("-＿-",X,200) label 3 #input(0)exit# goto 3

タイトルまばたき
t=abs(rand)%SPEED if input(SPEED*2) and keysoft1 then exit endif if t<=SPEED/5 then clear(X,177,10,24) clear(X+30,177,10,24) lock() text("-",X,200)text("-",X+30,200)unlock(0)sleep(100)clear(X,177,40,24)text(F,X,200)endif

タイトルLINE MAN
XX=X-10 xxx=XX+60 #LINE FACE# W=2 POP=3 DEP=3 STP=3 HP=80 PP=70 DP=70 SP=70 #初期化# clear(X-20,177,80,24) label 4 w=abs(rand)%W p=abs(rand)%4 color(R,G,B) #LINE FACE# i=abs(rand)%2 if i=0 then #RIGHT# endif
if i=1 then
#LEFT#
endif
XX=X-10xxx=XX+60
#LINE FACE#
#まばたき#
#SEICHO#
if life<LIFE/5 then W=2
elseif life<LIFE/3 then W=3
elseif life<LIFE/2 then F="｡Дﾟ"
endif
goto 4

タイトルLEFT
for i=0 to 5 if XX<=30 then XX=XX+w goto 4 endif #LINE FACE# sleep(50) clear(XX,174,X-XX+1,27) XX=XX-w next
for i=0 to 5 #LINE FACE#sleep(50)clear(XX,174,xxx-XX+1,27)X=X-w next for i=0 to 5 #LINE FACE# sleep(50)clear(X+40,174,xxx-X-40+1,27)xxx=xxx-w next

タイトルRIGHT
for i=0 to 5 if xxx>=210 then xxx=xxx-w goto 4 endif
#LINE FACE# sleep(50)clear(X+40,175,xxx-X-40+1,26)xxx=xxx+w next
for i=0 to 5#LINE FACE#sleep(50)clear(XX,175,xxx-XX+1,26)X=X+w next
for i=0 to 5#LINE FACE#sleep(50)clear(XX,175,X-XX+1,26)XX=XX+w next

タイトルLINE FACE
lock()line(X,175,X+40,175)line(X,175,XX,200)line(X+40,175,xxx,200)text(F,X,200)unlock(1)
左に並ぶ数字は上から
STR
DEF
SKL
LIFE
育てて洞窟へ、という予定。なんかこういう風にしたほうがよさげ、とかあれば

まずは非QVGAへ対応してくれ。できるだけプログラムは短い方がいいな。

お前要望など聞いておらん

>411
ちょっと横から関係ないがIDがｱﾌｫ…

ひま人↑けてぃ

>非QVGA対応
QVGA限定ということで
>ﾌﾟﾛｸﾞﾗﾑが長い
たしかに長い…ただ育成(といっても見てるだけだけど)のあとに戦闘もいれてみようかとも思ってるのでさらに完成すれば長くなります
最終的にはﾓﾝｽﾀｰﾌｧｰﾑみたいなやつになるのかな

べーしっ君 ◆w5dyDtGv0kｻｿ
PCからもDLできるようにしてください

あ、最初のｿｰｽのSPEEDは500に修正、とSEEDは0〜2でｷｬﾗ変わります

color(0,0,0)
frect(0,0,240,240)
for i=0 to 500 step 1
color(i/100,pow(i/100,2),25-i/500)
x=tan(i/10) y=sin(i)
a=120b =120
line(a+x,b+y,a-y,a+x)
line(a-y,a+x,a-x,a-y)
next
この図形なんですが…バージョンアップしたら前とは違う形になってしまいました…誰か教えてください

ふつうに直アドで取れるだろ
basicp2.kjx
basic.kjx

>417
なんかダイヤみたいな図形がでましたが…
前の図形はどんなんですか？

前のは、渦まく感じでした。

渦巻く…。
これが円形だったとかかな？

線が残像を残しながら円みたいのを描いてました。

soft1("終わり")
for i=0 to 500
if input(0) and keysoft1 then exit endif
color(i/100,pow(i/100,2),i/100)
x=sin(i)
y=cos(i)
a=120
b=120
line(a+x,b+y,a-y,a+x) line(a-y,a+x,a-x,a-y) next

こんなかんじ？

すいませんが全然違います…iBasicで僕の方のを回すと分かりますよ

自分はauなんでiBASICはわかりません
ごめんなさい

ちょっと素朴な疑問。
b=120って？
使われてないみたいだけど…

誰かiBasicで確かめてくださいm(_ _)m

今んとこ見つかったバグとか

･ソースを削除しようとすると上のソースに削除したソースが上書きされて上のソースが消える(致命的)。
例)ソースA
ソースB
ソースC
ソースCを消すと
　 ソースA
ソースC
こうなる。
･サンプルソースがレコードストアに記録されてしまっている。(邪魔)

まだいくつかある。なんかいじるのが怖い

>>417
たぶんtan()をezbasicで得られる値と同じに変更したからだと思います。

>>415
pc用にソースコードと一緒に配布してます。

>>428
携帯のキャリアはなんですか？
やべー、致命的だ、、。

EZのPhase2です。ほかにはあんま気にならないですが、プログラムを終了するとバックライトが消えます。サンプルはリソースとして毎回読み込んだ方がいいと思います。できればソースを選ぶ画面をezBASICと同じにしてほしいです。(速かった)

soft2("終了")
a=b=c=d=e=f=g=0
label 10
color(e,f,g)
rect(a,b,c,d)
arc(a,b,c,d)
a=a+1
b=b+2
c=c+3
d=d+4
e=e+1
f=f+2
g=g+3
if a>140 then a=0 b=0 c=0 d=0 endif
if e>250 then e=0 endif
if f>250 then f=0 endif
if g>250 then g=0 endif
if input(0) and keysoft2 then exit endif
goto 10

ｹﾞｰﾑじゃないけど

>>429さん
じゃあどうすれば、もとの図形に戻せるのですか？

原因は小数点下の処理か何か？

背景の色の変え方と十字キーで動かせる点のプログラム教えてもらえませんか？

ver1.0.4　tan()の値がまちがっていた、バックライト消える問題を修正。（共通）、
ソースの削除時の致命的バグ(ezphase2,voda)。
アップしました。vodaは申請中。

>>432
tan()の値、昔のバージョンの方があってました。
さっきのプログラムをやってみたらちゃんとうねうねなりました。

有難うございますm(__)m
早速修正版落とさせてもらいます

434
それらしいの作ってみたよ。
setfont("S")
text("push key",width/2-30,height/2)
soft1("終了")
x=width/2
y=height/2
sleep(2000)
label loop
clearinput()
key=scan
if key and keysoft1 then exit endif
if key and keyselect then onvib() a=abs(rand)%255 b=abs(rand)%255 c=abs(rand)%255 color(a,b,c) frect(0,0,width,height) else offvib() endif
if key and keyup then y=y-5 endif
if key and keydown then y=y+5 endif
if key and keyright then x=x+5 endif
if key and keyleft then x=x-5 endif
color(0,0,0)
farc(x,y,5,5)
goto "loop"

リバーシの思考ルーチンをつくれる人いますか？

>>437
ありがとう御座います

バージョンアップお疲れさまです。^^
早速ですがフェーズ２版、起動するとやはりサンプルがレコードストアに記録されていました。すべて削除して再起動したらまたサンプルが記録されてました。何とかならないでしょうか？

全て削除する前に、自分の作りたいやつを一つ残して、それ以外を消せば平気ですよ。
話し変わりますが、リバーシの思考ルーチンこれでどうやって作るか、知ってる人います？

オセロか？自分ならRPG作る方が楽でいいとさえ思うのに。
基本はマスごとに点数をつけておいて、置ける場合は
一番点の高い場所に置くようにする…って感じじゃなかったっけか。
それ関連のスレで探した方が良い気がする。

ez版のは専用スレってないのでぃすか？

本格的に思考させるなら、枝刈り法について勉強すると良い。
ただしiBASICが本格的な思考に向いているかどうかは別問題。
（まず処理速度面で不安）

わりと定番な手抜き案としては、たとえばマス毎にポイントを割り当て、ポイント順に打っていく。
このままではゲーム性は皆無だが、これを元にアイデアと工夫で独自の思考ルーチンに拡張するのもありといえばあり。

かぶった。orz

アレイコピーが使えればなぁ…forでやってたら遅くて遅くて。

ポイントは優先順位の事ですよね？

コンパクトかつ高速な単純モノクロお絵かきプログラムです。

label 0lock()A=scan
if A=2then end endif
x=X y=Y
A=A/4096
if A>15then A=A-16C[X][Y]=1-C[X][Y]if C[X][Y]then frect(X*8,Y*8,8,8)else clear(X*8,Y*8,8,8)endif
endif
if A>7then A=A-8Y=Y+1endif
if A>3then A=A-4X=X+1endif
if A>1then X=X-1A=A-2endif
if A=1then Y=Y-1endif
if not(x=X and y=Y)then if C[x][y]then frect(x*8,y*8,8,8)else clear(x*8,y*8,8,8)endif
next
endif
rect(X*8,Y*8,7,7)unlock(1)yield()goto 0

配列[]いまいちわかんないんです。
誰か解説お願いできますか

配列変数には複数のデータが順番に並んで格納されています。そしてそれらに代入したり取り出すときに何番目のデータにするかを[]の数字で指定するのですよ。

ありがとうございます。俺馬鹿だから難しいです
お絵かきのｿｰｽみながら勉強してみます。
ｸﾚ君で悪いですが、もしよかったら配列の勉強になりそうなｿｰｽかいてもらいませんか？

A="やあ！"
B="ぼくは"
C="トムさ"
text(A,0,20)
text(B,0,40)
text(C,0,60)
input()

と

A[0]="やあ！"
A[1]="ぼくは"
A[2]="トムさ"
for i=0 to 2
text(A[i],0,20+i*20)next
input()

は同じことをしています。これだけ見ても利点がわかりづらいかも知れませんが意味はわかると思います。がんばってください。

オセロのルーチンか…ぷよぷよ以上に遅くなりそうだけど作ってみるか、できればプログラム同士で戦わせたりしたいな。

ありがとうございます
わかりやすいです

枝刈り法PC板の方に書いてありましたが、よく分かりませんでした。て言うか対局リバーシすら作れなそうです(T_T) >>453
有難うございます
そうしていただく助かります(*^o^*)

↑改訂がラリってますね
(;^_^Aすいませんです

まあ予備知識無しに2chスレだけで理解できるわけはない罠。
だからこそ「勉強」という言葉を使ったわけで。

それはさておおき、（コンピュータ同士の）対局といっても難しく考えることはない。
一方のプログラムが導いた手を他方に手作業で入力、それを交互に繰り返せばいいだけのこと。
要は人間様相手のインターフェースさえ備えているだけでok。
当初予定していたものと一緒でしょ？
アルゴリズも>>442、>>444の「なんちゃって思考ルーチン」なら、枝刈りよりは難しくはないはず。
最初なんて弱くて当たり前だし、気後れせずに挑戦するといいことがあるかもよ。

書き忘れ。

>>447
そうです。

コンピュータ同士の対局？人間同士じゃないんですか？

lock〜unlock〜yieldつかってfrectでつくった画像動かしてもﾁｶﾁｶしてしまうんですが、なんかよい方法ないですかね？

オセロの思考ルーチンを携帯BASICに積んだところで遅いかパターン化しちゃうだけだろうということで二人対戦のにすることにしちゃったよ。もうほとんどできてるんだけど原因不明のバグがでてるからもう少しかかりそう。

有難うございますm(__)m↑私は、まだまだ勉強不足なので、このスレッドで勉強させてもらいます。

だめだ…いくら見てもバグの原因がわかんない。とりあえずアップするから誰かわかったら教えて
ちなみにバグは隙間を一個飛び越して変な風に色が変わっちゃうってやつ。

タイトル オセロ
label 0#初期化#label 1lock()color(0,0,0)rect(X*16,Y*16,16,16)#操作#color(0,128,255)rect(X*16,Y*16,16,16)clear(0,height-12,128,12)if not MEG=0then color(0,0,0)text(MEG,0,h)unlock(1)input()MEG=0clear(0,h-sw-1,w,sw)if te=60then goto 0endif
endif
unlock(1)yield()goto 1label C
#調査##調査2#return

タイトル｢初期化｣
h=height
w=width
sw=strwidth("全")te=0WB[0]=0WB[1]=0WB[2]="黒"WB[3]="白"for i=0 to 99BAN[i/10-1][i%10-1]=2com[i/10-1][i%10-1]=2next
BAN[3][3]=1BAN[4][3]=0BAN[3][4]=0BAN[4][4]=1origin(w/2-64,0)color(0,128,0)frect(0,0,128,128)color(0,0,0)for i=0 to 8line(i*16,0,i*16,128)line(0,i*16,128,i*16)next
for i=0 to 3color(0,0,0)frect(47+(i%2)*32,47+(i/2)*32,3,3)j=255if BAN[3+i/2][3+i%2]=0then j=0endif
color(j,j,j)farc(51+(i/2)*16,51+(i%2)*16,11,11)next
soft1("パス")soft2("おわり")

タイトル｢操作｣
A=input(0)if A and keyup and Y>0then Y=Y-1elseif A and keyleft and X>0then X=X-1elseif A and keyright and X<7then X=X+1elseif A and keydown and Y<7then Y=Y+1elseif A and keyselect then DAME=0PC=(te+pa)%2if BAN[X][Y]<2then DAME=9else
for K=0 to 8if BAN[X+K/3-1][Y+K%3-1]=1-(te+pa)%2then gosub"C"else DAME=DAME+1endif
next
endif
if DAME=9then MEG="そこには置けません"else te=te+1BAN[X][Y]=1-(te+pa)%2MEG=WB[2+(te+pa)%2]+"の番です。"for i=0 to 7for j=0 to 7k=BAN[i][j]if k<2then color(k*255,k*255,k*255)farc(i*16+3,j*16+3,11,11)if te=60then WB[k]=WB[k]+1endif
endif
next
next
if te=60then if WB[0]=WB[1]then MEG="引き分け"else
if WB[0]<WB[1]then MEG=WB[3]else MEG=WB[2]endif
MEG=MEG+"の勝ち！"endif
endif
endif
elseif A and keysoft2 then end elseif A and keysoft1 then pa=pa+1MEG=WB[2+(te+pa)%2]+"の番です。"endif

タイトル｢調査｣
Ok=0x=X
y=Y
if K=7then
while x<7x=x+1if BAN[x][y]=PC then if X=x-1then x=8else for i=1 to x-X-1BAN[X+i][Y]=PC next
Ok=1x=8endif
endif
wend
elseif K=5then
while y<7y=y+1if BAN[x][y]=PC then if y=Y+1then y=8else for i=1 to y-Y-1BAN[X][Y+i]=PC next
Ok=1y=8endif
endif
wend
elseif K=1then
while x>0x=x-1if BAN[x][y]=PC then if x=X-1then x=0else for i=1 to X-x-1BAN[X-i][Y]=PC next
Ok=1x=0endif
endif
wend
elseif K=3then
while y>0y=y-1if BAN[x][y]=PC then if y=Y-1then y=0else for i=1 to Y-y-1BAN[X][Y-i]=PC next
Ok=1y=0endif
endif
wend
elseif K=0then
while y>0and x>0y=y-1x=x-1if BAN[x][y]=PC then if y=Y-1then y=0else for i=1 to Y-y-1BAN[X-i][Y-i]=PC next
Ok=1y=0endif
endif
wend

タイトル｢調査2｣
elseif K=2then
while y<7and x>0y=y+1x=x-1if BAN[x][y]=PC then if x=X-1then y=8else for i=1 to y-Y-1BAN[X-i][Y+i]=PC next
Ok=1y=8endif
endif
wend
elseif K=6then
while y>0and x<7y=y-1x=x+1if BAN[x][y]=PC then if x=X+1then x=8else for i=1 to Y-y-1BAN[X+i][Y-i]=PC next
Ok=1x=8endif
endif
wend
elseif K=8then
while y<7and x<7y=y+1x=x+1if BAN[x][y]=PC then if x=X+1then x=8else for i=1 to y-Y-1BAN[X+i][Y+i]=PC next
Ok=1x=8endif
endif
wend
endif
if Ok=0then DAME=DAME+1endif

すいません
画面が出て一瞬で終わってしまうんですけど…

何で気づかなかったんだ…バグ修正版。完璧。画面が消えるんですか？それはたぶんifやforの数に対してendifやnextが足りないために起こるものだと思います。
またアップしますがそれでもだめならソースをよく見て確認してみてください。もしかしたら改行が変になってるのかも知れないね。自分で直してね

タイトル｢オセロ｣
label 0#初期化#label 1lock()color(0,0,0)rect(X*16,Y*16,16,16)#操作#color(0,128,255)rect(X*16,Y*16,16,16)clear(0,height-12,128,12)if not MEG=0then
color(0,0,0)text(MEG,0,h)unlock(1)input()MEG=0clear(0,h-sw-1,w,sw)if te=60then goto 0endif
endif
unlock(1)yield()goto 1label C
#調査##調査2#return

タイトル｢初期化｣
h=height
w=width
sw=strwidth("全")te=0WB[0]=0WB[1]=0WB[2]="黒"WB[3]="白"for i=0 to 99BAN[i/10-1][i%10-1]=2com[i/10-1][i%10-1]=2next
BAN[3][3]=1BAN[4][3]=0BAN[3][4]=0BAN[4][4]=1origin(w/2-64,0)color(0,128,0)frect(0,0,128,128)color(0,0,0)for i=0 to 8line(i*16,0,i*16,128)line(0,i*16,128,i*16)next
for i=0 to 3color(0,0,0)frect(31+(i%2)*64,31+(i/2)*64,3,3)j=255if BAN[3+i/2][3+i%2]=0then j=0endif
color(j,j,j)farc(51+(i/2)*16,51+(i%2)*16,11,11)next
soft1("パス")soft2("おわり")

タイトル｢操作｣
A=input(0)if A and keyup and Y>0then Y=Y-1elseif A and keyleft and X>0then X=X-1elseif A and keyright and X<7then X=X+1elseif A and keydown and Y<7then Y=Y+1elseif A and keyselect then DAME=0PC=(te+pa)%2if BAN[X][Y]<2then DAME=9else
for K=0 to 8if BAN[X+K/3-1][Y+K%3-1]=1-PC then gosub"C"else DAME=DAME+1endif
next
endif
if DAME=9then MEG="そこには置けません"else te=te+1BAN[X][Y]=1-(te+pa)%2MEG=WB[2+(te+pa)%2]+"の番です。"for i=0 to 7for j=0 to 7k=BAN[i][j]if k<2then color(k*255,k*255,k*255)farc(i*16+3,j*16+3,11,11)if te=60then WB[k]=WB[k]+1endif
endif
next
next
if te=60then if WB[0]=WB[1]then MEG="引き分け"else
if WB[0]<WB[1]then MEG=WB[3]else MEG=WB[2]endif
MEG=MEG+"の勝ち！"endif
endif
endif
elseif A and keysoft2 then end elseif A and keysoft1 then pa=pa+1MEG=WB[2+(te+pa)%2]+"の番です。"endif

iαppliTool fot DoJa-4.0で動かすと、何を実行しても"unknown symbol"になってしまいます。

デモ、新規作成の「こんにちは」は動きます。
その編集画面ですべて選択、カット、ペーストしたものは動きません。
どなたか助言をお願いします。

タイトル｢調査｣
Ok=0x=X
y=Y
if K=7then
while x<7x=x+1d=BAN[x][y]if d=PC then if X=x-1then x=8else for i=1 to x-X-1BAN[X+i][Y]=PC next
Ok=1x=8endif
elseif d=2then x=8endif
wend
elseif K=5then
while y<7y=y+1d=BAN[x][y]if d=PC then if y=Y+1then y=8else for i=1 to y-Y-1BAN[X][Y+i]=PC next
Ok=1y=8endif
elseif d=2then y=8endif
wend
elseif K=1then
while x>0x=x-1d=BAN[x][y]if PC=d then if x=X-1then x=0else for i=1 to X-x-1BAN[X-i][Y]=PC next
Ok=1x=0endif
elseif d=2then x=0endif
wend
elseif K=3then
while y>0y=y-1d=BAN[x][y]if d=PC then if y=Y-1then y=0else for i=1 to Y-y-1BAN[X][Y-i]=PC next
Ok=1y=0endif
elseif d=2then y=0endif
wend
elseif K=0then
while y>0and x>0y=y-1x=x-1d=BAN[x][y]if d=PC then if y=Y-1then y=0else for i=1 to Y-y-1BAN[X-i][Y-i]=PC next
Ok=1y=0endif
elseif d=2then y=0endif
wend

タイトル｢調査2｣
elseif K=2then
while y<7and x>0y=y+1x=x-1d=BAN[x][y]if d=PC then if x=X-1then y=8else for i=1 to y-Y-1BAN[X-i][Y+i]=PC next
Ok=1y=8endif
elseif d=2then y=8endif
wend
elseif K=6then
while y>0and x<7y=y-1x=x+1d=BAN[x][y]if d=PC then if x=X+1then x=8else for i=1 to Y-y-1BAN[X+i][Y-i]=PC next
Ok=1x=8endif
elseif d=2then x=8endif
wend
elseif K=8then
while y<7and x<7y=y+1x=x+1d=BAN[x][y]if d=PC then if x=X+1then x=8else for i=1 to y-Y-1BAN[X+i][Y+i]=PC next
Ok=1x=8endif
elseif d=2then x=8endif
wend
endif
if Ok=0then DAME=DAME+1endif

>satooさん
どうですか、Image関連の方は？GIFまだなら俺また手伝いますよ。

　　∧§∧
　（ 〆⌒ヾ
　　||　　|
　　Ч　∫|ｿﾛｰﾘ
　　〈〈〈　
　　　∨∨






リバーシ動かない‥

>>475
PNGとおなじような感じでGIF生成できるクラスも作っていただけますか？
完成したらメールでおくってください。
とりあえずez版でImage対応できるようにがんばってみます。

スレを見直したら、根本的に勘違いしていることに気づいた。
うーん、GPLってなんじゃろ…

物体を移動させるプログラムを作りたいのですが、
移動時の画面のチラつきを抑えるにはどのような
手法を用いればよいのでしょうか？
ちなみにezBASICの方です

>479
>245

有り難うございました。

もしかして携帯BASICって各キャリアの互換性が無いんですか？

無いよね。

だからリバーシ動かないのか…

for x= 0 to 255
color(255-x,255-x,255-x)text("er",54,120)
color(x,x,x)
frect(0,0,240,240)
next
これでerがチカチカしてしまいます。ロック、アンロック使ってもダメでした…何か打開策は無いものでしょうか？

ﾁｶﾁｶしてないですよ？

これがやりたいのかな？
for x=0 to 255lock()color(x,x,x)frect(0,0,132,144)color(255-x,255-x,255-x)text("er",54,120)unlock(1)next

そうです！それです！
有難うございました。

setfont("L")
for y=0 to 120
lock()color(0,0,0)
frect(0,0,240,240)
color(255,255,255)
text("er",155,y)
unlock(1)next
for x=0 to 255 lock()color(x,x,x)frect(0,0,240,240)color(255-x,255-x,255-x)text("er",155,120)unlock(1)next

setfont("L")
for y=0 to 120
lock()color(0,0,0)
frect(0,0,240,240)
color(255,255,255)
text("er",155,7/4*y)
unlock(1)next
for x=0 to 255 lock()color(x,x,x)frect(0,0,240,240)color(255-x,255-x,255-x)text("er",155,120)unlock(1)next

後者はyに四分の七かけているのですが…何ら変わりありません、バグでしょうか？

携帯じゃ小数は扱えないからとにかく計算を優先したい時は()をつけようね。(y*7)/4

まいどまいど、すいませんm(__)m。詳しいですね(*^o^*)

>>482

いや、互換性はあると思うよ。ezとボダでオセロやったけどちゃんと動いた。
たぶん機種固有のテキストボックスの文字数制限が原因だと思われ。
コピペしたときに制限に入りきらないと、ソースの尻が切れて保存されてしまうから。だいたい500文字でダメな機種もある。
それかヴァージョンが古いからかも。

P900iで10000文字入ります。ＤｏＣｏＭｏだけ駄目とかですか？

ここんとこゲームのプログラムあげてんの俺だけだよ〜、もっとみんな作ってくれ…つまんないんだ…

これ使って誰かおもしろいの作って

w=width
Y=20X=abs(rand)%(w-3)P=-2x=60frect(0,0,w,144)color(255,0,0)frect(0,136,w,8)frect(0,0,w,8)label 0lock()A=scan
color(0,0,0)frect(x,100,16,4)frect(X,Y,3,3)PY=Y
PX=X
Px=x
G=G-1if abs(G)>36then G=36*(G/abs(G))endif
Y=Y-G
if X<=0or X>w-5then P=-P endif
if abs(Y-152)<20then Y=133G=-G elseif abs(Y+11)<20then Y=8G=G-1G=-G endif
if abs(X-x-7)<10then if Y>96and PY<95and abs(PX-Px-7)<10then Y=97G=G-2G=-G elseif Y<103and PY>102and abs(PX-Px-7)<10then Y=104G=G+2G=-G endif
endif
X=X+P
if A=8192and x>0then x=x-4elseif A=16384and x<w-16then x=x+4elseif A=2then end endif
color(200,0,0)frect(x,100,16,4)frect(X,Y,3,3)unlock(1)yield()goto 0

リバーシまだ動かない
(;^_^A

いつまでも受け身じゃ絶対動きませんよ。がんばって解決しましょう。

とりあえず、五十回はやりました何回も改行ミスを見直しました、もしかしたらと思い書き込まれてるのとも照らし合わせました。
でも、動かない(>_<)

複数キー入力の同時処理はどのようにしたらいいでしょうか？
例えば右キーと上キー同時押しで斜め移動…等

初心者なもんで申し訳ない…

>>498
じゃあやっぱりドコもが不安定なせいじゃない？
>>499
A=scan
scanをAに代入
if A>15then A=A-16endif
Aが16以上(=key4)の場合Aから16引く。このとき何かの処理を入れる。処理がなくても大きい数字から順に引いてく必要がある

以下ズラーっと

基本的にはこんな感じ。十字キーだけでいいならA=scan/4096としておくと小さい数字ですむ

一応、例

A=scan/4096
if A>15then A=A-16'ｾﾝﾀｰｷｰの処理'endif
if A>7then A=A-8'下ｷｰの処理'endif
if A>3then A=A-4'右ｷｰの処理'endif
if A>1then A=A-2'左ｷｰの処理'endif
if A>1then '上ｷｰの処理'endif

ご丁寧な解説有り難うございました！

携帯basicすごいですね〜。
感動しました。

ところでbrainfuckのvoda版ってあります？

コピペすれば可能なようだがタイトルに半角英字しか打てない・・・
SH505is

brainfuckのvoda版(　ﾟдﾟ)ﾎｽｨ…

text("組み込み変数をすべて表示します"
0
ascent)
sleep(999*2)
nmax

text("組み込み変数をすべて表示します",0,ascent)
sleep(999*2)
nmax=height/strheight
soft1("cls")
soft2("Exit")
goto "cls"
label main
str="nmax＝"+nmax
gosub "write"
str="tick＝"+tick
gosub "write"
str="rand＝"+rand
gosub "write"
str="width＝"+width
gosub "write"
str="height＝"+height
gosub "write"
str="ascent＝"+ascent
gosub "write"
str="descent＝"+descent
gosub "write"
str="strheight＝"+strheight
gosub "write"
str="ampm＝"+ampm
gosub "write"
str="date＝"+date
gosub "write"
str="dayofmonth＝"+dayofmonth
gosub "write"
str="dayofweek＝"+dayofweek
gosub "write"

携帯BASICの作品できたら2chにアップするんじゃなくてべーしっ君のサイトの専用のとこにでもアップするようにしてほしい
iアプリのAppliMakersみたいに。
もっと広まってほしいし

str="hour＝"+hour
gosub "write"
str="hourofday＝"+hourofday
gosub "write"
str="millisecond＝"+millisecond
gosub "write"
str="minute＝"+minute
gosub "write"
str="month＝"+month
gosub "write"
str="second＝"+second
gosub "write"
str="year＝"+year
gosub "write"
str="scan＝"+scan
gosub "write"
str="key0＝"+key0
gosub "write"
str="key1＝"+key1
gosub "write"
str="key2＝"+key2
gosub "write"
str="key3＝"+key3
gosub "write"
str="key4＝"+key4
gosub "write"
str="key5＝"+key5
gosub "write"
str="key6＝"+key6
gosub "write"

すいません、質問です。
rmodeってどういうものなんでしょうか？

あとdescentとascentの意味が携帯basicの説明を
読んでもわかりません。誰か教えてください。

ソース見たらrmodeはなにもしない命令になってた

>>500
A=scan
if A and keyselect then 'ｾﾝﾀｰｷｰの処理'endif
if A and keydown then '下ｷｰの処理'endif
if A and keyright then '右ｷｰの処理'endif
if A and keyleft then '左ｷｰの処理'endif
if A and keyup then '上ｷｰの処理'endif

のほうが簡単じゃないすか？

ところで、
ibasicのページは4年近く更新されていない気がするのだが…
作者は今ﾄﾞｺに？？

この中でP900i使ってる人いますか？今だにリバーシ動かない(-_-)

EZ版を解約した5403CAで使いたいんだが、kjxファイルをPCでダウンロードできないですか？

事故解決した。
スレ汚しｽﾏｿ

ｶﾞｲｼｭﾂですけど、お絵描きプログラムです。消しゴム機能はこれから。
なにせプログラミングの文法の知識はあるけど実際に自分で製作した
ことがほとんどないので、一歩づつ。

d=5soft1("Cls")soft2("End")
label 0lock()A=scan prex=x prey=y
if A and keysoft1 then clear(0,0,width,height)endif
if A and keysoft2 then end endif
if(A and keyselect)or(A and key5)
then painted[x][y]=1frect(x*d,y*d,d,d)
else if painted[prex][prey]=0then clear(prex*d,prey*d,d,d)endif endif
if(A and key4)or(A and keyleft)then x=x-1endif
if(A and key6)or(A and keyright)then x=x+1endif
if(A and key2)or(A and keyup)then y=y-1endif
if(A and key8)or(A and keydown)then y=y+1endif
rect(x*d,y*d,d-1,d-1)unlock(1)yield()goto 0


ここはこうした方がよいとかあったらご指摘ください。
scanを使ったほうがいいのかinput(0)のがいいのかがわからない。
どっちでもいいんですかね？

>>516
しばらくお絵描きを楽しんでClsすると、
白い四角が消えなくなるバグを早速発見。
ただいま検討中です。。。

連カキｽﾏｿ。

Clsしたときにpainted[][]をすべて０に初期化しないといけないってことか！
ﾏﾝﾄﾞｸｻｰ

解決案としては、
１、Cls機能の撤廃
２、めんどいけどpainted[][]を初期化
３、painted[][]を使わない方法を模索する

３の方法教えてエロイ人〜

d=5winx=width/d-1winy=height/d-1x=winx/2y=winy/2soft1("Cls")soft2("End")
label 0lock()ky=scan prex=x prey=y
if ky and keysoft1 then gosub 1endif
A=input(10)'ここだけinput()を使ったのは気まぐれかも
if A and keysoft2 then end endif
if(A and keyselect)or(A and key5)then switch=switch+1 if(switch>2)then
switch=0endif endif
preswitch=switch
'鉛筆
if(ky and keypound)or(switch=1)then switch=1 painted[x][y]=1
frect(x*d,y*d,d,d)elseif painted[prex][prey]=0then
clear(prex*d,prey*d,d,d)endif
'消しゴム
if(ky and key0)or(switch=2)then painted[x][y]=0clear(x*d,y*d,d,d) endif
switch=preswitch
if(ky and key2)or(ky and keyup)then y=y-1 endif
if(ky and key4)or(ky and keyleft)then x=x-1 endif
if(ky and key6)or(ky and keyright)then x=x+1 endif
if(ky and key8)or(ky and keydown)then y=y+1 endif
if(ky and key1)then x=x-1 y=y-1 endif
if(ky and key3)then x=x+1 y=y-1 endif
if(ky and key7)then x=x-1 y=y+1 endif
if(ky and key9)then x=x+1 y=y+1 endif
'画面の端判定
if x<0 then x=0 endif if x>winx then x=winx endif if y<0 then y=0 endif
if y>winy then y=winy endif
rect(x*d,y*d,d-1,d-1)unlock(1)yield()goto 0
label 1clear(0,0,width,height)for j=0to winy for i=0to winx
painted[i][j]=0switch=0next next return

>>519の前に


'はじめに
text("Clsには時間が結構かかります。",0,strheight)
text("30秒くらい気長に待ってください。",0,strheight*2)
text("それかClsしないでください。",0,strheight*3)
str="＃キー：鉛筆"text(str,width/2-strwidth(str)/2,strheight*8)
str="０キー：消しゴム"text(str,width/2-strwidth(str)/2,strheight*10)
str="selectキーor５キーを押す毎に"text(str,width/2-strwidth(str)/2,
strheight*12)
str="鉛筆モード→消しゴムモード→通常モード"text(str,width/2-strwidth(str)
/2,strheight*13)
str="Ｐｕｓｈ　Ａｎｙ　Ｋｅｙ"text(str,width/2-strwidth(str)/2,height)
input()clear(0,0,width,height)sleep(500)


を入れとくとグッド。

とりあえず>>518の２のやり方でやってみた。
次の目標は今なにモードか分かりやすくすることと色をつけること。
言ってなかったけど携帯basicで作りました。ヴぉだの。

input()はHSPで言うとstickのトリガータイプ指定、
scanはstickの非トリガータイプ指定かgetkeyみたいな感じってこと？
C言語で言うと・・・わかんね"。（漏れの知っている言語はこの２つだけ）

つまりscanは押しっぱを検出するけど、input()は押した瞬間だけを
検出するってことでFA？全然的外れだったらｽﾏｿ

俺は前にあったやつの方がシンプルでよかったけどな

RPG作ろうと思って、ﾌｨｰﾙﾄﾞ歩き回るやつを作ったんだけど、マップ切り替え時の待ち時間が長い…（´･ω･｀）（8×8ﾏｽのマップで3〜5秒)
自分のプログラムの知識がほとんど無いってのもあるかもしれないけど、今の携帯BASICじゃこのぐらいが限界？

だれか>>513に答えてやれよ

>>513
>>469-474で出来たよ

初めてプログラミング試みました(〃д〃)

とりあえず時計です…。

携帯からの書き込みなので、あまり改行できず見づらいですが、よかったら改善のためのアドバイスお願いしますm(__)m
label loop soft2("Exit") if input(0) and keysoft2 then exit endif
lock () clear(216,0,16,30) y=year text(y,ascent,ascent) text("年",35,ascent) m=month m=m+1if m=13 then m=1 endif text(m,50,ascent) text("月",58,ascent)
d=date text(d,73,ascent) text("日",87,ascent) w=dayofweek if w=1 then text("(日)",102,ascent) endif if
w=2 then text("(月)",102,ascent) endif if w=3 then text("(火)",102,ascent) endif if w=4 then text("(水)",102,ascent) endif if w=5 then text("(木)",102,ascent) endif if w=6 then text("(金)",102,ascent) endif if w=7 then text("(土)",102,ascent) endif
g=ampm if g=0 then text("午前",127,ascent) endif if g=1 then text("午後",127,ascent) endif
h=hour text(h,160,ascent) text("時",168,ascent) m=minute text(m,184,ascent) text("分",200,ascent)
s=second text(s,216,ascent) text("秒",232,ascent) unlock (A) goto "loop"

>>525
曜日とか午前午後は最初に配列で用意しておくと毎回ifしなくてもいいからｽｯｷﾘするよ

SH用の命令辞書をバージョンアップしました．
ttp://www.mchs-u.net/mc/index.php?%B7%C8%C2%D3Basic

vodaで携帯Basicを使っているんですが、フォントサイズが"S"と"T","M"と"L"の大きさが同じなんですがこれはvoda版だけですかね？

自分はFOMAのN2102Vだけど、"L"(16×16)以外は全部同じサイズ(12×12)だった。
多分、機種によって、アプリ内で使える文字の種類が少ないからこうなるんだと思う。

P900iだとそうはならないんですが…機種依存ですかね？

処女作です
vodaの携帯Basicで作ったので他ので動くかわかりません
漏れの携帯だと10まで下げるとﾂﾂﾂと音しかしなくなりました
↓ﾎﾞﾀﾝで間隔を下げて楽しんでくれｙ

soft1("Reset")
soft2("Exit")
text("interval",0,20)
text("↑up",50,40)
text("↓down",50,60)
text("key:",10,90)
interval=100
gosub "set"

label main
for i=0 to 12
key=input(0)
if key>0 then
clear(35,79,50,10)
text(key,35,90)
if key=keydown then interval=interval-5 gosub"set"
elseif key=keyup then interval=interval+5 gosub"set"
elseif key=keysoft1 then interval=100 gosub"set"
elseif key=keysoft2 then exit endif
endif
gosub "vib"
yield()
next
goto"main"

（↓をそのまま続けてｺﾋﾟﾍﾟ）

（続き）

label vib
onvib()
sleep(interval)
offvib()
sleep(interval+wait[i])
return

label set
wait[2]=interval*2
wait[5]=interval*2
wait[12]=interval*2
clearinput()
key=0
clear(10,24,20,20)
text(interval,10,35)
return

>>526

配列ってどう使うんですか(;_;)

配列は変数名の後に[index]をつけ操作できます。
（言語解説より引用）
いちいち宣言しなくて良いから凄く扱いやすい・・・
んで>>525の場合だと

youbi[1] = "日"
youbi[2] = "月"
youbi[3] = "火"
youbi[4] = "水"
youbi[5] = "木"
youbi[6] = "金"
youbi[7] = "土"
を用意しとけば
w=dayofweek
text(youbi[w],102,ascent)
これでいけると思う

いけました！

すごくすっきりしましたヾ（＾▽＾）ノ

text("Thanks!!",2ch,534)

EDIT画面に行くときとか、保存するときとか、
runボタン押してそっから実際に実行されるまでの間
とかがめちゃくちゃ待たされるんですけど。。。携帯basic（ヴぉだ
プログラムの実行速度は十分ですからこれを速くできないかな？
＞べーしっくん
メモリーカードに移せないのもなんとかできないですか？

いかにパッドで弾を受けられるかというゲーム。Pを変えることで難易度が変わるょ

P=8w=width
HSC=load()PX=-5Y=20X=58x=60frect(0,0,w,144)color(255,0,0)frect(0,136,w,8)frect(0,0,w,8)label 0lock()A=scan
color(0,0,0)frect(x,100,16,4)frect(PX,PY,3,3)text("S:"+SC,0,21)PY=Y
PX=X
G=G-1if abs(G)>36then G=36*(G/abs(G))endif
Y=Y-G
if PY=Y then Y=Y-1endif
if X<=0or X>w-4then P=-P endif
if abs(Y-152)<20then Y=133G=-G-2elseif abs(Y+11)<20then Y=8G=G-1G=-G endif
X=X+P
if Y>96and PY<97then i=X-PX j=Y-PY if abs((97*i-Y*i+j*X)/j-x-7)<10then Y=97G=-G+2SC=SC+G/5endif
elseif Y<103and PY>102then i=X-PX j=Y-PY if abs((104*i-Y*i+j*X)/j-x-7)<10then Y=104G=-G SC=SC-G/3endif
endif
if A=8192and x>0then x=x-4elseif A=16384and x<w-16then x=x+4elseif A=2then save(max(SC,HSC))end endif
color(200,0,0)frect(x,100,16,4)frect(X,Y,3,3)text("S:"+SC,0,21)text("H:"+HSC,0,34)unlock(1)yield()goto 0

ベーシッ君のHP見られない…

景気付けに何か作ってソースあげようと思うが、
どんなのがいいかね。

何でもいいから派手なゲーム作ってww！

合作やんない？合作

いいんじゃない？でなにする？

どんなんがいい？

じゃあ俺はレベルアップの部分担当する

そもそも描画に弱いからな。パズルとかシミュレーションとか描画のすくないやつだろうな
まあアクションでもできないことはないだろうな

俺はいつかカーブノアを作りたい。

ｹｰﾀｲの利点つかいたい。いつでもどこでもできて、5分でｻｻｯとも終われるし、1時間くらいやってもおもしろい
ｸﾞﾗﾌでﾎﾞｸｼﾝｸﾞなんかはよかったなぁ

こんな感じで疑似3Dていうのもありじゃない？

z=-100x=-1000y=-1000origin(66,72)label 0lock()clear(-66,-72,132,144)A=scan
if A=32768and y>-2000then y=y-200elseif A=16384and x>-2000then x=x-200elseif A=8192and x<0then x=x+200elseif A=4096and y<0then y=y+200elseif A=2then end endif
z=z-1for i=0 to 3j=100+(z+i*25)%100rect(x/j,y/j,2000/j,2000/j)rect((EX[i]+x)/j,(EY[i]+y)/j,100/j,100/j)if j=1then EX[i]=abs(rand)%1950EY[i]=abs(rand)%1950onlight()endif
next
arc(-5,-5,10,10)unlock(1)yield()goto 0

いいね3D
本格的にプロジェクト立ててHPつくろっか

おお!!いいね!!こういうの待ってたんだよね〜
俺もマジがんばるわ

HPはある程度内容決まってからでいいよね
まずｼﾞｬﾝﾙからだけど、3Dだとシューティング、CAVELIKE、ダンジョン系、DOOMLIKE
あとなにかある？

Rogue likeもしくはダンジョンRPG系を作りたいです。

それぐらいなら何とかなるかもしれないですね。ダンジョンとなるとざっとこんなのが必要かな？

マップランダム生成
戦闘システム
アイテム

それぞれ何人かで担当すればスマートなプログラムができるっしょ。できればImageに対応したバージョンで作りたいね。そして何よりセーブ領域を改善して欲しい…

あと、非QVGAでやっていただきたい。俺のはPhase2.5なもんで…

イメージ対応版って、いつ頃出るんでしょうかね？因みに、よければ私がイメージ担当したいです。

Image対応バージョンてでてたっけ？

>非QVGA
了解

マップが肝なんだろうけど、自分はちょっと無理みたいだ。
迷路しか作れない。
自分は計算式やバランス調整くらいしかできる事ないかも。
Imageなら自分も少しなら手伝えるんだが…。

image対応版ないよね？

一応GIFとPNG生成クラスはもうsatooさんに送ったから組み込みを待つばかりなんだが、どうやら忙しいらしくてもうちょい遅れるらしい。
それに携帯BASICて複雑だからなぁ、いじるのがめんどくさそうだww

まだだよね
新しい携帯ベーシックでたのかと思ってHP行ったらないからなんだろうと思った

じゃ初プロジェクトはimageにこだわらず、ってことで。
実際ユーザーが増えれば携帯ベーシックももっと活発になるだろうし、テーマはユーザーを増やす、でどう？

じゃあ、記号をつかってローグライクって事で

ﾛｰｸﾞﾗｲｸ、作りたかった。挑戦したんだけどマップで自爆orz
画面を9分割してrandなfrectで部屋を9個つくってそこに道をつけて繋げるの？ｱﾙｺﾞﾘｽﾞﾑ全然わかんなかった
できる人いる？

ふと思いついたのが、ﾊﾟｽﾞﾙに限定したﾛｰｸﾞならできそうじゃね
シレンにあるなんとかの問題、あれ
自作を載せれば無限に遊べるし

本体ｿｰｽと問題ｿｰｽを別にして

>562
http://pc5.2ch.net/test/read.cgi/gamedev/1027084016/
参考になるだろうかねえ…。

ローグ出来たら凄いよね・・

一応
>疑似3D
>ﾛｰｸﾞﾗｲｸ
二つ案でたね。ｼﾞｬﾝﾙは出しまくって明日中には決めたい

そこで疑似3D Rogue Likeですよ

3Dﾛｰｸﾞ懐かしい。
でも3DならWIZもおもしろそ。

もしかしてベーシッ君ってかなり有名な方？
satoo.jpでぐぐったりしてたらいろいろ出てきたんだけど…
アプリゲットの授賞なんたらとか

べーしっくんさん(笑
早く来ないかなぁ…

知識なしで初めてようやく

a=0 b=12
text(こんにちは,a,b)
text(さようなら,a,b*2)
text(またあした,a,b*3)

ってとこまで出来たんだけど
RUNすると一瞬表示されてすぐ消える…
こんな漏れでもこのスレに居ていいですか？

とりあえず最後にinput()を入れてみたらどうでしょうか？

a=0
b=12
text(こんにちは,a,b)
text(さようなら,a,b*2)
text(またあした,a,b*3)
input()

これでよいはず。

>>573さん気が合いますね(笑

(^-^;ゝかぶっちゃった。こりゃ失礼

だいぶ遅くなりましたが､まとめｻｲﾄが明日には公開出来そうです｡
ﾌﾟﾛｼﾞｪｸﾄ?の為にｻｲﾄが必要でしたら､今作ってるまとめｻｲﾄにﾌﾟﾛｼﾞｪｸﾄ用のｺｰﾅｰも作ってしまおうと思っているのですが､どーでしょうか?

>>576さんお疲れさまでした(^o^;

プロジェクトのコーナーですか。。私は賛成ですが大丈夫なんですか？お手をわずらわせてしまって？

>576
ﾌﾟﾛｼﾞｪｸﾄのﾍﾟｰｼﾞお願いしてよいのならたのんます

習作。しかしソース美しくない(´･ω･`)

gosub "beg"
label L
i=input(0)
if i and keysoft1 then exit endif
if i and keysoft2 then gosub "beg" endif
if i and key0 then gosub "re" endif
farc(x,y,c,c)
gosub "enzan"
yield()
sleep(t)
goto "L"

つづく

つづき
label beg
st[1]="仰角" st[2]="初速" st[3]="加速" st[4]="時間"
soft1("終了") soft2("修正") origin(0,height/2)
for j=1 to 4 clear(0,-500,500,1000) text(st[j]+"入力(上下±10 左右±1)?:"+int[j],0,0) in=input()
if in and keysoft1 then exit endif
if in=keyup then int[j]=int[j]+10 endif
if in=keydown then int[j]=int[j]-10 endif
if in=keyright then int[j]=int[j]+1 endif
if in=keyleft then int[j]=int[j]-1 endif
if in xor keyselect then j=j-1 endif
next
まだつづく(´･ω･`)

label re
clear(0,-500,500,1000)
y=0 x=0
r=int[1] v=int[2] a=int[3]
vy=(v*sin(r))/100
vx=(v*cos(r))/100
t=int[4] c=5
line(0,0,500,0)
text("0",0,strheight)
text("100",100,strheight)
text("200",200,strheight)
text("仰角:"+r+" 初速:"+v+" 加速:"+a+" 時間:"+t,0,(height/2-strheight)*(-1))
text("0キーで同条件再描写",0,(height/2-(strheight*2))*(-1))
return

label enzan
x=x+vx
y=y+vy*(-1)
vy=vy+a
return

連行ｽﾏｿ。
一つのソースで書いたからひどいことになってる。
複数ソースに分けるってどうやるんだろう？

#ソース名#
を途中で入れればいいんじゃないでしょうか？

>>578-579
なんとかなるでしょうι
公開してから､いろいろと指摘していただければ有り難いです｡

>>584
おお…できた。ありがとうございます。

>>576
きたあー

楽しみにしてます．

カップラーメンのタイマです

＊＊＊（名前：ラーメンタイマ）
soft1("rset")
soft2("exit")
set=180000
setfont(L)

label SET'----------
ms=set
#時間表示#
k=input()
#キー処理#
goto "SET"

label START'--------
t=tick
while set-tick+t>0
ms=set-tick+t
#時間表示#
k=input(0)
#キー処理#
wend

onvib()
onlight()
sleep(3000)
offvib()
offlight()
goto "SET"

＊＊＊（名前：時間表示）
ms=(ms-(ms%1000))/1000
s=ms%60
ms=ms-s
m=ms/60
lock()
#CLS#
text("あと"+m+"分"+s+"秒",0,ascent)
unlock(0)


＊＊＊（名前：CLS）
color(255,255,255)
frect(-width/2,-height/2,width,height)
color(0,0,0)

＊＊＊（名前：キー処理）
if k and keyselect then
goto "START"
endif

if k and keysoft2 then
exit
endif

if k and keysoft1 then
goto "SET"
endif

if k and keyup then
set=set+30000
endif

if k and keydown then
set=abs(set-30000)
endif

clearinput()

>>572-573
激しくとんくす！
仰せの通り入力したら成功しました
これからも皆さんのプログラムを参考にさせてもらいつつ勉強していきます

>>576
頑張れー出来上がったら俺も勉強の為にお邪魔しまっす

こんなかんじでどうかな？スムーズにしたかったけどできなかった。

#init#label 0lock()clear(-w/2,-h/2,w,h)clear(66,68,50,12)A=scan
if A=2then end endif
A=A/4096if A=1then j=V%2if M[j][P[j]+H[V]][P[1-j]]="B"then P[j]=P[j]+H[V]endif
elseif A=2or A=4then V=(1+V+A)%4endif
color(64,0,64)text("方位:"+N[V]+";座標("+P[1]+","+P[0]+")",-66,-58)rect(-56,-56,112,112)
for i=0 to 4j=8+i*24if M[V%2][P[V%2]+i*H[V]][P[1-V%2]]="B"then for k=0 to 1if M[V%2][P[V%2]+i*H[V]][P[1-V%2]+H[k]*(1-2*(V/2))]="B"then rect(x/(j+12*H[k]+12),y/(j+24),-x/(j+24)-x/j,-y*2/(j+24))endif
next
rect(x/j,y/j,-x*2/j,-y*2/j)else frect(x/j,y/j,-x*2/j,-y*2/j)i=5endif
next
farc(-10,40,20,5)color(0,128,254)frect(-8,12,16,30)unlock(1)yield()goto 0

つづく

変数Mにマップデータを入力。部屋ではなく通路にのみ対応。部屋にすると変になる。

タイトル｢init｣
w=width
h=height
N[0]="北"N[1]="東"N[2]="南"N[3]="西"H[0]=-1H[1]=1H[2]=1H[3]=-1M="AAAAAAAAAAAAAAAABBBBBABBBBBBBAABAAABABAAAAABAABBABBABABBBBBAAABABAABABABAAAABBABBBBABABBBAAAAAAAAAAAAAAAA"for i=0 to 104M[1][i%15][i/15]=strat(M,i)M[0][i/15][i%15]=strat(M,i)next
P[1]=1P[0]=5V=1x=-1000y=-1000origin(w/2,h/2)


これ使える？

rect(-56,-56,112,112)の後にfor i=0 to 3line(56*H[(i+1)%4],56*H[i],0,0)nextを入れるとより3D感が増す。遅くもなるが…

大変申し訳ないのですが､ﾚﾝﾀﾙ鯖が落ちてしまったために更新が終了していません。公開は少し延期させて下さい。

>>595
改行しわすれましたorz
読みづらいですね…

(´ｰ`)ﾜｸﾜｸ

疑似3DSTG。漏れ最高30匹でした。よく作ったよ
origin(66,72)label 1H=load()P=0clearinput()x=0y=0z[0]=0z[1]=0z[2]=881z[3]=923TX[2]=-500TX[3]=600TY[2]=-400TY[3]=290j=1
label 0lock()color(0,160,255)frect(-66,-72,132,120+y/800)color(0,223,0)frect(-66,48+y/800,132,24+y/800)A=scan
if A and keydown then y=y-200elseif A and keyup then y=y+200endif
if A and keyright then x=x-200elseif A and keyleft then x=x+200elseif A=2then end endif
if input(0)and keyselect then for i=0 to 1if z[i]<920then z[i]=992TX[i]=x+250TY[i]=y+250i=3endif
next
endif
for i=0 to 3if z[i]>880then if i<2then color(255,255,0)z[i]=z[i]-3else color(255,0,0)z[i]=z[i]+3if z[i]=992then
color(0,0,0)text("GAME OVER",-27,-20)text(P+"匹倒した",-30,0)P=max(H,P)save(P)text("最高"+P+"匹倒した",-42,20)unlock(1)sleep(4000)goto 1endif
for k=0 to 1if z[k]-6=z[i]or z[k]-3=z[i]then if abs(TX[k]-TX[i])<500and abs(TY[k]-TY[i])<500then z[i]=881TX[i]=rand%1000TY[i]=rand%1000z[k]=0k=2P=P+1endif
endif
next
endif
j=1000-z[i]%1000rect((x-TX[i])/j,(y-TY[i])/j,500/j,500/j)endif
next
unlock(1)yield()goto 0

疑似3Dダンジョンちょっと修正しました。
w=width
h=height
N[0]="北"N[1]="東"N[2]="南"N[3]="西"H[0]=-1H[1]=1H[2]=1H[3]=-1M="BBABBBABBBBBBBBABBBABBBAAAAAABAAAAAAAABBBBBBBBBBBBBBBBAAAAAABABABABAAAAABBABBBBBBBABBBAABBAAAAAABBBABBBBA"for i=0 to 104M[1][i%15][i/15]=strat(M,i)M[0][i/15][i%15]=strat(M,i)next
P[1]=0P[0]=0V=1x=-1000y=-1000origin(w/2,h/2)label 0lock()clear(-w/2,-h/2,w,h)clear(66,68,50,12)color(64,0,64)A=scan
if A=2then end endif
A=A/4096if A=1then j=V%2if M[j][P[j]+H[V]][P[1-j]]="B"then P[j]=P[j]+H[V]endif
elseif A=2or A=4then V=(1+V+A)%4endif
text("方位:"+N[V]+";座標("+P[1]+","+P[0]+")",-66,-58)for i=0 to 3line(62*H[(i+1)%4],62*H[i],0,0)next
for i=0 to 4j=16+i*24if M[V%2][P[V%2]+i*H[V]][P[1-V%2]]="B"then for k=0 to 1if M[V%2][P[V%2]+i*H[V]][P[1-V%2]+H[k]*(1-2*(V/2))]="B"then J=j rect(x/(J+12*H[k]+12),y/(J+24),-x/(J+24)-x/J,-y*2/(J+24))endif
next
rect(x/j,y/j,2000/j,2000/j)else frect(x/j,y/j,2000/j,2000/j)i=5endif
next
farc(-10,40,20,5)color(0,128,254)frect(-8,12,16,30)
unlock(1)yield()goto 0

乙です。
手始めにWIZ形式の普通のRPGでも作ってみようかね。

ローグライク作ってよ

プロジェクトホムペマダァー？

>602
なんにも決まってないからまだよ。

自動迷路のｽﾚみてたんだけど、ﾏｯﾌﾟだけで遅くなりそう。それよりかはｴﾝﾄﾞﾚｽﾀﾞﾝｼﾞｮﾝみたいなﾏｯﾌﾟにしたほうがよいかな
携帯ﾍﾞｰｼｯｸとJAVAの違いを生かして、AIで突き進むｴﾝﾄﾞﾚｽﾀﾞﾝｼﾞｮﾝ風、なんかだとおもしろそうかな、と思った。

え？それどういうこと？見てるだけってこと？

ごめん改めて
みんなで合作やりたいなって人挙手お願い。
で分かるように名前欄になんか入れて

イメージ担当したいです

イメージは実装されてないよ。

連ﾚｽごめん

frectでなんか書いてみる？

書いてみたいです

OKﾖﾛｼｸね
じゃ練習に50*50と30*30でなんこか書いてみて
ﾃｰﾏは自由で

激しく途中ですが…
http://tool-2.net/?id=BASIC

【今後の予定】
* 全てｿｰｽをｺﾋﾟｰ可能に｡
* ﾌﾟﾛｼﾞｪｸﾄ用のｺｰﾅｰ設置｡
* もっと見やすく､使いやすく｡

気づいた点､要望､不都合 などｻｲﾄBBSまたはﾒｰﾙにてよろしくお願いします｡

乙彼。ところでマップ生成プログラムはできた？

まあつまり、>599で言うMをランダムで
ダンジョンらしい形に導き出せるようなプログラムにすればいい…のか？

全く持ってその通り。ちなみに通路型にしか対応してないんで夜露死句
じゃあ俺はこの探索プログラムをさらに進化させとくわ夜露死句

ダンジョン改良｡遅い｡たぶんこれで探索部はほぼ完成。後はエンカウントとアイテムだな。
マップで"C"のところへ来ると降りるかどうかウィンドウが出る。1か2を押して決める。
label 1#init#label 0lock()color(64,0,64)A=scan
if A=8then end endif
if B and M[1][P[1]][P[0]]="C"then clear(-27,-15,54,30)rect(-28,-16,55,31)text("1.おりる",-24,0)text("2.やめる",-24,13)if A=2then B=0goto 1elseif A=4then B=0endif
else clear(-w/2,-h/2,w,h)A=A/4096if A=1then j=V%2k=M[j][P[j]+H[V]][P[1-j]]if k="B"or k="C"then P[j]=P[j]+H[V]B=1endif
elseif A=2or A=4then V=(1+V+A)%4endif
text("方位:"+N[V]+";座標("+P[1]+","+P[0]+")",-66,-58)for i=0 to 3line(62*H[(i+1)%4],62*H[i],0,0)next
for i=0 to 4j=16+i*24K=V%2l=M[K][P[K]+i*H[V]][P[1-K]]if l="B"or l="C"then for k=0 to 1l=M[K][P[K]+i*H[V]][P[1-K]+H[k]*(1-2*(V/2))]if l="B"or l="C"then rect(x/(j+12*H[k]+12),y/(j+24),-x/(j+24)-x/j,-y*2/(j+24))endif
next
rect(x/j,y/j,2000/j,2000/j)else frect(x/j,y/j,2000/j,2000/j)i=5endif
next
farc(-10,40,20,5)color(0,128,254)frect(-8,12,16,30)
endif
unlock(1)yield()goto 0

降りるを選ぶと初期化プログラム｢init｣が呼ばれるのでここでマップ生成と初期位置を決める。

w=width
h=height
N[0]="北"N[1]="東"N[2]="南"N[3]="西"H[0]=-1H[1]=1H[2]=1H[3]=-1M="BCABBBABBBBBBBBABBBABBBAAAAAABAAAAAAAABBBBBBBBBBBBBBBBAAAAAABABABABAAAAABBABBBBBBBABBBAABBAAAAAABBBABBBBA"for i=0 to 104M[1][i%15][i/15]=strat(M,i)M[0][i/15][i%15]=strat(M,i)next
P[1]=0P[0]=0V=1x=-1000y=-1000origin(w/2,h/2)

ありゃ起動できん。バージョンの問題か？

ﾌﾟﾛｼﾞｪｸﾄ第一段としてｹﾞｰﾑﾌﾞｯｸ風を作ろうと思うんだけど☆ミ氏はいるかな？

ゲームブックて何？
ちなみにこれ宇宙戦争(大げさ;

H=load()origin(66,0)label 1P=0p=0X=0S=0for i=0 to 4B[i]=rand%25-6next
B[3]=18setfont("L")label 0lock()A=scan
color(0,0,0)frect(-66,0,132,144)if A=8192and X>-40then X=X-4elseif A=16384and X<40then X=X+4elseif A=2then end endif
color(128,0,128)for i=0 to 4z=1000-i*200+p*40farc(B[P+i]*1000/z,40+24000/z,12000/z,4000/z)next
farc(X-9,87,16,5)text("",X-8,91)text("",X+8+(p%2)*4,79)S=P*5+p
color(96,96,223)text("SCORE:"+S,-66,40)unlock(1)yield()if p=3and abs(B[P+3]*100/52+11-X)<14then setfont("T")text("異次元へ飛ばされた…",-66,16)save(max(H,S))H=load()text("MAX"+H,-66,56)sleep(5000)goto 1endif
p=p+1if p=5then p=0B[P+5]=rand%25-6P=P+1endif
goto 0

>619
非QVGA対応携帯？点数あんま伸びない
ｹﾞｰﾑﾌﾞｯｸっていうかアドベンチャー。けどQVGAなんまよ

プログラムの途中に空のtextが2個あると思うけどその一個目に宇宙人、二個目に汗の絵文字入れるとぽくなる

この中で携帯アプリとかPCプログラムとか組んだことある人何人ぐらい居んの？ちなみに俺は携帯アプリ+etcやってるけど

携帯BASIC
VisualBasic6.0
PC98のBASIC
Delphi6.0
JAVA(iAPPLIの)

こうやって書いてみると結構やってるなぁ。

あ、忘れてはならないのが、LOGOw

305氏のHPみたいに掲示板の文字がコピーできるレンタルHPてある？

>>622
VC、VBを少しやったけど短期間はまっただけなのでもう忘れた。

みんな、携帯でコード書いてる？

インテリセンスがほしい。

>624
タグで大抵可能じゃない？

>>624
特殊だからどうかな。
引用返信機能がついてる掲示板なら出来るね。
Perlで書いてみたら？結構簡単にできるよ。

>>623
すげー。俺はまだプログラミング歴1年(ezBASIC入れたら1年半)の上に携帯関連しかいじってないから
MIDP
Doja
Perl
BRAINFUCK…orz
でも携帯上でPNGと圧縮GIF書出しなら出来るぜ!
早くImage対応版出ないかな。それよりプロジェクトページの方みんな見てるのか?

ｽﾏｿsage忘れた…orz

>627
parlて微妙な書き方ができる言語だって先輩が卒検で発表してたなぁ･･
俺携帯オンリーなんだよね。
ｹﾞｰﾑﾌﾞｯｸあんまり人気なさそうだたら自分のﾎﾑﾍﾟつくって手伝ってみたいなってひといたら協力してもらうかたちをとろうかと思ったの

rect(10,10,220,230)rect(15,15,100,100)rect(15,155,210,80)rect(15,130,20,20)rect(40,130,20,20)
text("DICE",25,130)text("H P >",130,30)text("STA >",130,45)text("満腹感 >　　/100",120,60)text("FIG SKL >",120,75)text("THF SKL >",120,90)text("REN SKL >",120,105)text("WIZ SKL >",120,120)
text("場所",80,131)text(">1.進む",20,175)text(">2.探索",20,190)text(">3.道具",20,205)text(">4.魔法",20,220)frect(15,15,100,100)
color(255,255,255)rect(55,55,20,20)line(15,15,55,55)line(15,115,55,75)line(115,15,75,55)line(115,115,75,75)input()

長くなるけど説明を
QVGA対応。メインはこんな感じ
進むごとにランダムでイベントを起こす
>敵と遭遇or>壁にぶちあたるor>目の前に沼が現れる等
探索すると茸が手にはいったり、敵を先にみつけることができる
一定距離進むと次の階へ
ｽｷﾙはたとえば茸を調理する
>2D6+ﾚﾝｼﾞｬｰｽｷﾙ>7なら調理成功。茸が食料にかわる、とか
探索>敵を見つけた>隠れる
>2D6+ｼｰﾌｽｷﾙ>7なら隠れるのに成功
>隠れてやりすごすor奇襲をしかける、をできるとかそんなやつ。
自分でHPつくれないので、これみて少し興味がわいたりしたら協力ﾖﾛ。
俺説

QVGAはちょっと…

(･ω･`)ｿｯｶ…

一応参考にしてるスレ
ttp://c-au.2ch.net/test/-/gamedev/1032881707/i

ま、一人でﾁｮﾎﾞﾁｮﾎﾞやっとりますわ

>633
手伝おうか？
現状では何が不足？

>634THX
今できてるところをupするのが一番よいんだけど、もう少しスッキリさせてから載せる
今ほしいっていうか、どんなことやりたいとかってある？

>プログラム
>画像←ドット一枚絵
>シナリオ

ちなみにプログラムできる人が一番ほしい

プログラム一応できる。
ただし何分不慣れなもんできちゃないソースになるかも。

俺もすげー汚いよ。まぁ現物あったほうがイメージわかるだろうし、やっぱ汚いけどのせとく




メイン(プログラムの名前じゃなくてソースね)
rect(10,10,220,230)rect(15,15,100,100)rect(15,155,210,80)rect(15,130,20,20)rect(40,130,20,20)
text("DICE",25,130)text("H P >",130,30)text("STA >",130,45)text("満腹感 >　　/100",120,60)text("FIG SKL >",120,75)text("THF SKL >",120,90)text("RNG SKL >",120,105)text("WIZ SKL >",120,120)
text("場所",80,131)text("/",90,151)#森#input()

ダイス
for i=0 to 6 DI1=abs(rand)%6+1 clear(16,131,18,18)text(DI1,23,148)input(10)next for i=0 to 6 DI2=abs(rand)%6+1 clear(41,131,18,18)text(DI2,48,148)input(10)next DICE=DI1+DI2 input()

森
P="森"R=0G=120B=0 color(R,G,B)frect(15,15,100,100)color(0,0,0) label MORI #メニュー# if PNT=2 then exit endif goto "MORI" input()

メニュー
clear(16,156,208,78)text(P,100,151)TXT[0]=">1.進む"TXT[1]=">2.探索"TXT[2]=">3.道具"TXT[3]=">4.魔法" for txt=0 to 3 text(TXT[txt],25,175+txt*15)next
if input()and key1 then PNT=PNT+1 clear(16,156,208,78)clear(70,136,18,13)text(PNT,70,151)TXT[0]=">ｺﾏﾝﾄﾞ>進む"TXT[1]=">あなたは薄暗い森を用心深く進んだ" TXT[2]=">"TXT[3]=">"TXT[4]=">"
for txt=0 to 1 text(TXT[txt],25,175+txt*15)next for txt=2 to 4 #場面# text(TXT[txt],25,175+txt*15) #ダイス# next endif

場面
for MOVE=1 to 19 color(R,G,B)lock()frect(15,15,100,100)color(250,250,250)rect(55,55,20,20)rect(55-2*(MOVE%10),55-2*(MOVE%10),20+4*(MOVE%10),20+4*(MOVE%10))rect(35-2*(MOVE%10),35-2*(MOVE%10),60+4*(MOVE%10),60+4*(MOVE%10))
line(15,15,55,55)line(15,115,55,75)line(115,15,75,55)line(115,115,75,75)unlock(0)input(50)next color(0,0,0)

今つくってる#森#は決まった数(PNT)を進み街にでるのが目的。#森#には決まった数(PNT)ごとにイベントがある
例えば>PNT=10 なら沼(4)があらわれる
選択肢は
>1.進む
>2.探索
>3.道具
>4.魔法

>ｺﾏﾝﾄﾞ>進む、なら対岸までの距離(4)まで泳いで渡る。判定は4回行う。判定式は2D6+ﾚﾝｼﾞｬｰｽｷﾙ-武器防具の重さ+(スタミナ。スタミナは0点でなければ3点までいつでも割り振れる)>=7

みたいにしようと思ってるんだけど、ルールすげー多いから、やっぱHP必要かな

大体わかった。色々いじってみる。
HPはあるに越した事は無いが…

やることは多いから、ちょこちょこ分担してやろうか。

>ｺﾏﾝﾄﾞ>探索
>
>流木をみつけた
>あなたは流木にしっかりとつかまると、慎重に沼を泳いだ。
>沼は思った以上に深く、もし溺れたら二度と日の目をみることはできないだろう
>
>
>あなたは無事に沼を渡りきった。
>濡れた体をかわかしたいところだが、この邪悪な森でそんな危険なことはできない

やりたいことはおおいなーorz

OK。もしかしたら結構大幅に
改修してしまうかもしれないけど…。
でも結構完成度高いな。

じゃルールとして
･改修は予告してほしい･作業内容は明らかにしてほしい･あとで使い回しができる>画面にRGBをつかったのも、たとえば黒なら洞窟が表現できる･プログラム載せるときは見た目重視で
X=2
Y=0
じゃなくて
X=2Y=0←つめて。とりあえずこんなとこ。俺は今日は沼つくる
rect(15,155,210,80)clear(16,156,208,78)text(P,100,151)TXT[0]=">目前に灰色の沼(3)が広がっている"TXT[1]=">周囲は腐った様な臭気が立ち込め"TXT[2]=">あなたの気をﾑｶﾑｶさせる"
TXT[3]=">しかしこんなところで"TXT[4]=">立ち止まるわけにもいかないだろう"for txt=0 to 4 text(TXT[txt],25,175+txt*15)input()next

ttp://pksp.jp/jqk-card/
ルール思いつくたびにかいてく
ｹﾞｰﾑﾌﾞｯｸ、TRPGやったことないからやってる人いねーかなあ

進んでるみたいだけどやっぱりQVGAなのね…
さ　よ　う　な　ら…

じゃあ、変更点の提案を一ついいかな？
それぞれの数値は後で作成するとして、ステータス表示の部分を
Stat[0]="　H P　 >　"+HP+"/"+MHP
Stat[1]="　STA　 >　"+STA
Stat[2]="満腹感 >　"+HNG+"/100"
Stat[3]="FIG SKL >　"+SKLF
Stat[4]="THF SKL >　"+SKLT
Stat[5]="RNG SKL >　"+SKLR
Stat[6]="WIZ SKL >　"+SKLW

for stat=0 to 6
text(Stat[stat],120,30+stat*15)next
のように変更してもOK？

後、QVGA以外の端末への対応は可能ならば調整しても良いかな？

どうぞ
非QVGA対応もOKだよ。

>648
THX。HPを見たらスキルに対応する数値名は決まっていたのか。
後で修正しておく。
非QVGA対応については非QVGA機所持の方の協力が必要だけど…
誰かやれる？

　　　　648
　　　　川
ﾉ(´Α`)ノﾜｰｲ

ノベルゲーのエンジンっぽいのつくってみたよ。

名前:エンジン本体
#src# n=0
label 0
text(title,0,strheight) soft1("終了") len=strlen(T[n])-1 posx=0 posy=strheight*3 time=100 for i=0 to len
buf=substr(T[n],i,1) if buf="@" then posy=posy+strheight posx=0 buf="" endif
if posx>=width then posy=posy+strheight posx=0 endif wid=strwidth(buf) text(buf,posx,posy) posx=posx+wid
if scan and keyselect then time=0 endif if scan and keysoft1 then end endif clearinput() sleep(time) next
posy=posy+strheight lock() qn=strlen(N[n]) if qn<>1 then for j=1 to qn
posy=posy+strheight buf=substr(N[n],j-1,1) text(j+" "+Q[buf],24,posy) next endif unlock(0)
label 1
C=input() if C and keysoft1 then end endif #key#if C<=qn then n=substr(N[n],C-1,1) clear(0,0,500,500) goto 0 else goto 1 endif

名前:key

if C and key1 then C=1 elseif C and key2 then C=2 elseif C and key3 then C=3
elseif C and key4 then C=4 elseif C and key5 then C=5 elseif C and key6 then C=6
elseif C and key7 then C=7 elseif C and key8 then C=8 elseif C and key9 then C=9
elseif C and key0 then C=0 else C=99 endif

名前:src
title="ノベルエンジン仮"

T[0]="あなたは家にいます@どこにいきますか？"
N[0]=14
Q[1]="山"
Q[4]="海"

T[1]="せっせと登る…@なにをしよう？"
N[1]=23
Q[2]="寝る"
Q[3]="歩く"

T[2]="寝たよ〜@終了"
N[2]=0

T[3]="歩いたよ〜@　　-完-"
N[3]=0

T[4]="海についた。@なにをしよう？"
N[4]=53
Q[5]="泳ぐ"
Q[3]="歩く"

T[5]="泳いだよ〜@　　-完-"
N[5]=0

それでsrcをいじるとノベルゲーが作れる。
titleがノベルのタイトル
T[n]が本文、nが番号で最初は0が選ばれる@で改行
Q[n]が選択肢テキストで、Q[n]を選ぶとnの本文ヘ行く
N[n]=は選択肢を判別するためのもので、半角数字で指定、例をみればたぶん分かる

なんかいろいろプログラム出たけど結局どれ使うの？非QVGA使いとしてはｹﾞｰﾑﾌﾞｯｸでは文字が収まらないからキツい…

共同でやるなら、dojaでやったほうが・・・

ドコモは機種間の互換性低いからキラいw

dojaっパソコンないとだめっしょ？

>655
非QVGAて画面の大きさっていくつ？66*66だっけ?

>659
そこまで小さくもないんでない？
横は120程度が目安だと思う。
ただwidthやheightを駆使すれば図形の対応は可能だけど、
文字のデカさはどうしようもないからなァ。

120*120だと全角で64文字はいるから
移動画面
行動選択画面
テキスト画面
ステータス画面
アイテム画面
にわけて文字を切り詰めてけば無理ではないかも。もしくは違うのにするか。ｹﾞｰﾑﾌﾞｯｸはつくってくけどね

関係ないけど、FCの迷宮の達人　大迷路、好きだったな…

文字だったら、非QVGA機は12pxフォント、QVGA機は24pxフォントにすれば
縦横ともにどうにかならない？
とりあえず、QVGA機は240x240、非QVGA機は120x120で動かすとして。

大きさより120*120で叩き台つくってそっから話すすめたほうがはやそうだね
ﾙｰﾙﾌﾞｯｸというやつだけ見つけたからこれから買いにいってくる。ルールは一気に更新しておくから。

NOBA氏いる？

移動
for MOVE=1 to 19 color(R,G,B)lock()frect(0,0,120,120)color(250,250,250)rect(40,40,40,40)rect(40-2*(MOVE%10),40-2*(MOVE%10),40+4*(MOVE%10),40+4*(MOVE%10))rect(20-2*(MOVE%10),20-2*(MOVE%10),80+4*(MOVE%10),80+4*(MOVE%10))
line(0,0,40,40)line(0,120,40,80)line(120,0,80,40)line(120,120,80,80)unlock(0)input(50)
next color(0,0,0)input()

ステータス
rect(0,0,120,120)clear(30,0,80,120)rect(30,0,80,120)STAT[0]="H P >"STAT[1]="S T A >"STAT[2]="場 所 >"STAT[3]="空腹感 >"STAT[4]="FHTSKL >"STAT[5]="THFSKL >"STAT[6]="RNGSKL >"STAT[7]="WIZSKL >"
for stat=0 to 7 text(STAT[stat],35,15+stat*15)next STAT[0]=HP STAT[1]=STA STAT[2]=HARA STAT[3]=FHTS STAT[4]=THFS STAT[5]=RNGS STAT[6]=WIZS STAT[7]=CNT
for stat=0 to 7
text(STAT[stat],100,15+stat*15)next input()

コマンド
clear(0,0,70,115)rect(0,0,70,115)TXT[0]=">コマンド" TXT[1]=">>1.進む" TXT[2]=">>2.探索" TXT[3]=">>3.道具" TXT[4]=">>4.魔法" TXT[5]=">>5.ｽﾃｰﾀｽ" TXT[6]=">>6.もどる"
for txt=0 to 6 text(TXT[txt],5,20+txt*15)next
input()if input()and key1 then #移動#endif
if input()and key5 then #ステータス#endif

メニュー
clear(16,156,208,78)text(P,100,151)TXT[0]=">1.進む"TXT[1]=">2.探索"TXT[2]=">3.道具"TXT[3]=">4.魔法"
for txt=0 to 3 text(TXT[txt],25,175+txt*15)next if input()and key1 then PNT=PNT+1 clear(16,156,208,78)clear(70,136,18,13)text(PNT,70,151)TXT[0]=">ｺﾏﾝﾄﾞ>進む"TXT[1]=">あなたは薄暗い森を用心深く進んだ" TXT[2]=">"TXT[3]=">"TXT[4]=">"
for txt=0 to 1 text(TXT[txt],25,175+txt*15)next for txt=2 to 4 #場面# text(TXT[txt],25,175+txt*15) #ダイス# next endif

森
P="森" R=0G=120B=0 CNT=1 label MORI #コマンド# goto "MORI"

これだとサイズ大丈夫？

｢油断大敵 どっとあくしょん!｣
ジャンプは5キー。QVGAの人はちょっと小さすぎるかも…
ちなみに俺の記録は4STAGEorz

origin(width/2-34,height/2-42)label 2M=""X=0Y=0color(128,0,0)for i=0 to 16for j=0 to 20B[i][j]=0if rand%9=5then B[i][j]=1endif
next
B[i][21]=0next
B[0][0]=0B[8][20]=0gosub 1color(255,0,0)label 0lock()clear(X*4,Y*4,4,4)A=scan
if A and keyleft and B[X-1][Y]=0then X=X-1elseif A and keyright and B[X+1][Y]=0then X=X+1elseif A=2then end endif
if A and key5 then if J=0and B[X][Y+1]=1then J=6endif
else J=0endif
if J>0and B[X][Y-1]=0then Y=Y-1J=J-1else J=0if B[X][Y+1]=0then Y=Y+1endif
endif
frect(X*4,Y*4,4,4)if X=8and Y=20then M="CLEAR!"S=S+1elseif Y=21then M="RECORD:"+S+"STAGES!"S=0endif
unlock(1)yield()if not(M="")then text(M,0,104)goto 2endif
goto 0label 1lock()clear(-width/2+34,-height/2+42,width,height)for i=0 to 16for j=0 to 20if B[i][j]=1then frect(i*4,j*4,4,4)endif
next
next
color(0,0,255)rect(32,80,3,3)unlock(1)return

あ、ごめん気づかずに投稿してた。今から確認してみます。

ﾄﾞｯﾄかなりむずい
２面しかいかなかった

これでいいのかな…？画面にはばっちり入ってます。

>647
非QVGAにもってことでこの仕様でどう？

さんせ〜い！(^o^)／

NOBA氏も協力してくれる？

はい。それとなく

ﾖﾛｼｸ
まずはとりあえず簡単な流れを作ろうと思うんだよね

コマンド
↓>コマンド>進む>CNT+1>イベント判定
移動画面
↓
イベント>なにごともなく進むor沼
↓
なにごともなければコマンド。沼ならコマンドが変化

TXT[1]=">あなたは薄暗い森を用心深く進んだ"
TXT[2]=">ふと見るとベンチに一人の若い男が座っていた"
TXT[3]=">ウホッ！　いい男…"
TXT[4]=">「やらないか」"

TXT[0]=">男はあなたの眼を見つめると"
TXT[1]=">あなたの手をとり"
TXT[2]=">人気のない木陰へ手をひいた"
TXT[3]=">･･･"
TXT[4]=">あなたは漢の称号を得た"

質問が有るのでｺﾁﾗに寄って下さい。
http://m.z-z.jp/?BASIC

ローグライク作ってください(×_×)

305氏のとこのHPおちてる？

本当にお待たせしました。
携帯BASIC1.0.5をうｐしました。vodaは例によって申請中です。
imageの作成、描画に対応しました。あと、freememory,totalmemoryを取得できるようになりました。

■imageについて
imageデータはソースコードに画像データをcvsファイル形式で記述します。
順番に色数,カラーテーブル(R,G,B),透過色index(一番目は0),width,height,画像ピクセルデータ（カラーテーブルで設定した色をindexで指定。左上から順にwidth×height分だけ記述）を指定します。
実際に画像を使用するには使用するソースコードで関数loadimg(a1,a2)を使って読み込みます。a1に画像変数名、a2にimageデータの名前を指定してください。
imageデータでも通常のソースと同じようにコメントアウトや改行、imageデータの挿入が使用できます。

サンプルをみるとわかりやすいと思いますが、プログラムを書くソースと画像データを書くソースを分けなければいけません。
大きな画像を作ろうとすると一つのソースファイルに書ききれなくてソースの挿入をしなきゃいけなくなるなどちょっと大変そうです。

PNG、GIF画像生成クラスを作ってくださったNOBAさん有難うございました。

お疲れ様で-す

おーきてる！お疲れさまです。ただ俺はもう携帯BASICを4つとってるんだがかさばっちゃって、そろそろプログラム説明とサンプル無し版が欲しかったり…

>>685
お疲れさまです。
でもFOMAのN2102Vでは機能しない…非対応でしたったけ…？

あ、すみません。
機能しないのはimageだけです。
他は普通に動作しました。

Java(JavaScript)を動かせるアプリあれば俺も手伝えるのにorz

>>690
javaなんかよりよっぽど単純だよ。

>>691
そうか…ちょっと勉強してみる

べーしっ君さん(でいいのかな)のアプリ落とさせて頂きました
ありがとう。

非QVGAの画面の位置って変更できるの？

できるっしょ
9,0,0,0,128,0,0,0,64,128,128,0,128,192,32,0,255,0,255,255,128,255,255,255,255,32,255,255,8,20,17,8,8,8,8,8,8,8,0,0,0,0,0,0,8,8,8,8,8,8,8,8,8,8,8,8,0,0,0,3,5,6,3,0,0,0,8,8,8,8,8,8,8,8,8,0,0,6,6,6,6,6,
6,6,6,0,0,8,8,8,8,8,8,8,0,0,6,6,6,6,3,3,6,5,3,6,3,0,8,8,8,8,8,0,0,6,6,6,6,6,5,2,6,5,2,6,6,3,0,8,8,8,8,0,6,6,6,6,6,6,7,2,6,7,2,6,6,6,0,8,8,8,0,0,6,6,6,6,6,6,5,2,6,5,2,6,6,6,5,0,8,8
,0,3,6,6,6,6,6,6,5,0,6,5,0,6,6,6,5,3,0,0,0,6,6,6,6,6,5,5,5,0,6,5,0,6,6,6,6,5,0,0,3,6,6,5,6,6,6,6,6,6,6,6,6,6,6,6,6,5,0,0,5,6,6,5,6,6,6,6,6,6,6,0,6,6,6,6,5,0,0,0,5,5,5,5,6,6,6,6,6,
6,6,6,6,6,6,6,5,0,8,8,0,0,0,5,5,5,5,5,6,6,6,6,6,6,6,5,0,8,8,8,8,0,0,1,4,4,1,5,5,5,5,5,5,5,4,4,4,0,8,8,0,1,4,7,4,4,4,1,5,5,3,0,4,4,4,4,4,1,0,8,0,1,1,4,4,4,1,1,0,0,0,1,1,4,4,4,1,1,0,8,8,0,0,0,0,0,0,0,8,8,8,0,0,0,0,0,0,0,8

A=20 Y=60 X=60 S=scan label 0 origin(X-X,Y-Y) MOVE=MOVE+1
lock()color(0,100,0)frect(0,0,240,240)color(250,250,250)rect(80,80,80,80)rect(80-2*(MOVE%A),80-2*(MOVE%A),80+4*(MOVE%A),80+4*(MOVE%A))rect(40-2*(MOVE%A),40-2*(MOVE%A),160+4*(MOVE%A),160+4*(MOVE%A))
line(0,0,80,80)line(0,240,80,160)line(240,0,160,80)line(240,240,160,160)
origin(X,Y)color(0,0,0)frect(0-X,0-Y,X,240+Y)frect(120,0-Y,240-X,240+Y)frect(0-X,0-Y,240,Y)frect(0-X,120,240+X,240-Y)unlock(0)
if input(0)and key0 then exit endif if scan=keyup then Y=Y-5 elseif scan=keydown then Y=Y+5 elseif scan=keyleft then X=X-5 elseif scan=keyright then X=X+5 endif input(1) if MOVE%2=0 then Y=Y-MOVE%3 elseif MOVE%2=1 then Y=Y+MOVE%3 endif goto 0
非QVGAだとどう表示される？

でかくて4/1しか見えませんでした〜；
ところでみんなもう画像使ってる？いいけどあの記述はちょっと効率が悪い気g(ry

1/4てことは画面は動かなかった？
画面動かせば非QVGAでも表示されると思ったんだけどなあ

>697
て言うか、座標に使ってる値を倍にして自分の機種で走らせてみれ。
旧機種なんて使わなくてもどういう状態になるかわかるハズだけど。

上の方のNOBA氏のプログラムにある
origin(width/2-34,height/2-42)
ってのはみんなにとっちゃ基本なんだろうけど俺感動しちゃいました

いろいろと勉強中なんだけど未だにガベージコレクトとステートメントが何なのかよくわかりませんorz

ガベコレは大事だ。freememoryを常に表示してればわかると思うけどスレッドが走っている間は減り続けるだろ？
で、ある値以下になるとまた増える。(たまにこのときアプリが止まる)この増える瞬間JAVAVMが勝手にガベコレしてくれてるんだけどこれを自分で任意にしたいときにgc()てやるんだよ。

NOBA氏のどっとあくしょん、
：
next
next
gc()
：
っていじってみたら動作が軽くなりました(D900i)
解説ありがとうございますm(_ _)m

voda3G(902SH)で起動したのですが
言語解説の部分が空白です。
９０２で使えるのでしょうか？

連投ですみません。携帯ベーシックでしたorz

gcの話しのついでで気付いたことがあります。無限ループの実験で
こんなソースを書いてみました。

'ソース
soft2("終了")

label lp
key=input(0)
text(totalmemory,30,30)
text(freememory,30,50)
if keysoft2 and key then exit endif
clear(0,0,width,height)
gc()
yield()
goto "lp"

この文のgoto文をwhile文で書き換えました(label lpをwhile 1に・goto "lp"を
wendに変更)。つまり、c言語のwhile(1)ループ(ソフトキーが押されるまでは
ループを継続)を作ってみました。そして、goto文で構成したループとwhile文
で構成したループを何回かまわしてみました。
(補足：「RUN」キーでプログラムを開始し、ソフトキーの「終了」を押した時
までを1回のループとする。また、ループを回す時間は考慮していない)

プログラムを動かすとメモリの総量(totalmemory)に対し、
ヒープ領域(freememory)が減少しますが、goto文ではヒープ領域の
値はほとんど変化しませんでした。
ただし、while文では値は徐々に減少し、しかもループを1回まわしただけ
でも携帯BASIC全体の動作も重くなってしまいます。


私はF900iで試しましたが、他の携帯ではどうなるのでしょうか？
長文申しわけありませんが教えてエロい人

｢砲撃訓練｣
30発打って何個風船を射るか、というゲーム。絵文字は各自で入れてください。非QVGAだとうまく見えます。QVGAはちょっと汚いかもしれないんで文字サイズ調整してください。ていうかsetClip欲しい…

BG[0]="風船の絵文字"BG[1]="パンっ!ていう絵文字"BG[2]=""setfont("L")origin(-16,80)label 1R=1HX=148HY=64G=0B=0for i=0 to 3BX[i]=-i*36BS[i]=0next
S=224label 0lock()A=scan
color(0,128,255)frect(16,-80,132,144)if A=16384and S<270then S=S+4elseif A=8192and S>182then S=S-4elseif A=65536then if R then R=0VY=sin(S)/6VX=cos(S)/6HX=147HY=63B=B+1endif
elseif A=2then end endif
for i=0 to 3BX[i]=BX[i]+2BY[i]=BY[i]+rand%3if abs(HX-BX[i]-8)<8and abs(HY-BY[i]+8)<8and BS[i]=0then BS[i]=1G=G+1endif
text(BG[BS[i]],BX[i],BY[i])if BS[i]=1then BS[i]=2endif
if BX[i]=148then BX[i]=0BY[i]=rand%21BS[i]=0endif
next
color(32,32,32)line(cos(S)/6+147,sin(S)/6+63,147,63)farc(138,54,20,20)color(255,255,0)PX=HX
PY=HY
VY=VY+1HX=HX+VX
HY=HY+VY
line(HX,HY,PX,PY)unlock(1)if R=0and PX<0or PY>64then HY=99if B=30then color(255,128,0)text("SCORE:"+G,50,0)gc()sleep(1800)goto 1endif
R=1endif
yield()goto 0

ものすごい初歩的かも知れないけど

A=10
B=A+abs(rand)%10

って文があったら、
Bに代入される数値は0〜9までのランダム数値、って事？

A=100
B=A+abs(rand)%100
text("今日のラッキー指数は"+B+"だよ♪")

ってな事もできるでしょうか…

すみません、
text("今日のラッキー指数は"+B+"だよ♪",2,height/2-6)
でした

abs(rand)%100
はランダムな値を100で割ったあまりの絶対値だから0から99までが返る。このぐらいはまずじぶんでためしたほうがいいよ。ほんとに

質問です｡
自分で書いた絵を>>694さんのように数字にするには､どうすればいいのですか?

>>NOVA氏
できました。

origin(width/2-60,height/2-60)y=12A=abs(rand)%101
text("今日のラッキー度は",+A+"♪",0,y)
input()

それで今度は配列から文章を取り出したいと思ったんですが

soft2("終了")
label s
origin(width/2-60,height/2-60)y=12
A=abs(rand)%101
i=abs(rand)%5
C="赤,黄,緑,青,紫"
D="小物,車,タオル,上着,(・∀・)"
text("ラッキー度は"+A+"♪",2,y)
text(C[i]+"色の"+D[i]+"が",2,y*2)
text("ハッピーの鍵！",2,y*3)
text("決定キーでもっかい",2,y*7)
if input() keysoft2 then exit elseif keyselect then goto "c" endif
label c
clear(0,0,width,height)
goto "s"

↑でエラーにはならないものの
ソフキでの終了ができず、決定キー以外でもlabel cへジャンプし、
CとDの配列からの情報取得がうまくいかず「0色の0が」って表示される…
どうやったらいいんでしょう？

>>709
念じる

>>710
いたるろころにヒントはある。頑張って調べてね。

stratを使ってみたけど
「,色の小が」とか意味不明な事に…orz
どなたかお助けを…

操作系は諦めました。

代入の仕方が問題。

A[0]="赤"
A[1]="青"
i=abs(rand%2)
text(A[i],10,10)

こうすれば大丈夫なはず。頑張れ

>>714
うおお、ありがとございます
配列は分けて書かないといけないんスね…orz
今夜頑張ってみます。

p.s. IDとレス番が近い感じでイイ！

連投すみません。これで基本は理解できました。
次は描画と操作系に挑戦したいと思います。

■ラッキーうらない

origin(width/2-60,height/2-60) y=12
label s
A=abs(rand)%5 i=abs(rand)%5
j=abs(rand)%5 k=abs(rand)%4
C[0]="赤"C[1]="緑"C[2]="青"C[3]="白"C[4]="茶"
D[0]="小物"D[1]="車"D[2]="携帯"D[3]="シャツ"D[4]="上着"
E[0]="ウキウキ"E[1]="ワクワク"E[2]="ルンルン"E[3]="ニコニコ"
text("今日のラッキー度は"+A+"♪",2,y)
text(C[i]+"色の"+D[j]+"が",2,y*2)
text(E[k]+"のカギ！",2,y*3)
text("今日も Fine day !",2,y*7)
input()

携帯BASICを落として約1ヶ月…昨日、突然閃いたように組めるようになりました。
NOBAさん、>714さん、スレ住人の皆さんに感謝m(_ _)m
まだまだ勉強不足ですがハイレベルなプログラムが出来るように頑張ります。

ブロック崩しの基礎部分です。起動がちょっと遅いですが、改造したりしてみてください。
｢init｣
color(0,127,0)frect(8,4,88,96)for i=0 to 4for j=0 to 3B[i][j]=abs(rand)%6if B[i][j]>0then drawimg(b[B[i][j]],20+i*13,12+j*9)n=n+1endif
next
next
｢KABE｣
3,32,32,32,96,96,96,191,191,191,3,8,4,1,2,2,2,2,2,2,1,1,1,2,2,2,2,1,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,1
｢moto｣
3,8,4,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,2,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2
｢BLOCK1｣
3,255,255,255,223,223,223,128,128,128,#moto#
｢BLOCK2｣
3,255,96,96,255,0,0,128,0,0,#moto#
｢BLOCK3｣
3,255,255,96,255,255,0,128,128,0,#moto#
｢BLOCK4｣
3,96,255,96,0,223,0,0,128,0,#moto#
｢BLOCK5｣
3,96,96,255,0,0,223,0,0,128,#moto#
｢BALL｣
4,255,255,255,191,191,191,96,96,96,0,0,0,3,4,4,3,1,1,3,1,0,1,2,1,1,1,2,3,2,2,3
｢PAD｣
9,255,191,32,255,128,0,223,64,0,223,223,223,160,160,160,96,96,96,32,32,32,0,0,0,0,0,0,8,12,5,8,2,2,4,4,4,4,4,4,2,2,8,
2,1,2,4,3,3,3,3,4,2,1,2,2,0,2,5,7,7,7,7,5,2,1,2,2,1,2,5,7,5,5,7,5,2,1,2,8,2,2,5,5,5,5,5,5,2,2,8

｢本体｣
origin(width/2-52,height/2-50)for i=1 to 5loadimg(b[i],"BLOCK"+i)text("OK",0,i*13)gc()next
loadimg(WALL,"KABE")loadimg(B,"BALL")loadimg(P,"PAD")label 1gc()for i=0 to 49drawimg(WALL,(i/25)*96,(i%25)*4)next for i=0 to 11drawimg(WALL,i*8+8,0)next
#init#x=40XV=abs(rand)%4+1X=42Y=84YV=5-XV C=0label 0lock()frect(x,88,12,5)frect(X,Y,4,4)A=scan if A=8192and x>8then x=x-4elseif A=16384and x<84then x=x+4elseif
A=2then end endif if X<9then X=8XV=-XV elseif X>91then X=92XV=-XV endif if Y<5then Y=4YV=-YV endif X=X+XV Y=Y+YV if abs(Y-86)<3and abs(X-x-4)<9then XV=(X-x-4)/2if XV=0then XV=1endif
YV=abs(XV)-5elseif Y>92then Y=84YV=-3X=x+4endif if Y>7and Y<40then if X<81and X>15then Q=(X-16)/13R=(Y-8)/9if B[Q][R]>0then B[Q][R]=0frect(Q*13+20,R*9+12,8,4)if X<Q*13+17or X>Q*13+27then XV=-XV endif
if Y<R*9+10or Y>R*9+14then YV=-YV endif n=n-1if n=0then C=1endif endif endif endif drawimg(P,x,88)drawimg(B,X,Y)unlock(1)yield()if C then color(255,0,0)text("CLEAR",20,44)sleep(999)goto 1endif
goto 0

<チラシの裏>
今日DoCoMoの友達がiBASICを落としてました｡
いつも使ってる携帯ベーシック（ｳﾞｫﾀﾞ)よりめちゃくちゃサクサクで驚きました｡
</チラシの裏>

さてと。

NOBA氏のブロック崩しは誰も感想入れないのか？
俺はとにかく面白かった。玉が貫通する時もあるが
逆に爽快で1時間プレイしてた…はっきり言って超sugeeeeee
でも一つだけ。MISS判定もあるとよかったデス。
砲撃訓練も一発で多数割れる所が面白かった

あと、砲撃訓練もそうだけど
A=8192 → A=keyleft
A=16384 → A=keyright
にしないと動かなかった…D900i

ありがとうございます！自分的にもちょっとアルカノイドっぽいとこが気に入ってました。衝突判定はやればできますが携帯BASICだとやはり速度が追いつかないので省きました(ｵｲ。

ところで皆は，upされたコードをコピーするのにどうしてますか？
俺はreate使ってます．

コピーしてメールで…

携帯しか持ってないからクラシックとiMona
余程興味が無いとソースコピーとかしないし、無問題。

プロジェクトの話ってどうなった？

イメージ作成補助ツール作ったから書き込もうとしたら改行が多い言われて、改行なくしたら一行が長すぎと言われ…orz
とりあえずツールの概要だけ紹介。後ほどソース書き込みます。

・縦横の大きさとカラーテーブル10色を設定可能
・ドットを一つずつうっていき、完成したらイメージデータを数値の羅列で表示可能
・一応非QVGA対応させたつもりですが、微妙に失敗してそうな予感

注意点
・メイン画面での操作は方向キーでカーソル移動、数字ボタンで描画色変更、決定でドットを描画
・描画ﾒﾆｭｰから選択中のカラーテーブルを変更可能。RGBを5単位で調整出来ます。カラーテーブルはメモっといてください
・カラーテーブルをまず設定してから作るとベター。画像を復元するのは時間かかるんで、完了→新規ｷｬﾝﾊﾞｽがオススメ
・描画ﾒﾆｭｰ→ｷｬﾝﾊﾞｽﾒﾆｭｰで新規作成か再描画出来ます。再描画するとグリッドが消えて綺麗に見れます。
・終了ﾒﾆｭｰから数値表示出来ます。紙にでもメモって下さい。続き有りが表示されたらソフキで続きが見れます。リセットを選ぶとｷｬﾝﾊﾞｽｻｲｽﾞから新規作成出来ます

こんなとこか…。ロード長いので気長によろしく。それじゃソース引っ張ってくる。

書き忘れ。普通に考えて無理な操作はしないようにお願いします(色にマイナス設定するとか)

「ドットヘルパー」
label start gosub"initclr" ini=0 re=0 label init lock() w=width h=height
setfont("S") origin(w/2-55,h/2-75) clear(0,0,w,h) color(0,0,0) text("ｷｬﾝﾊﾞｽｻｲｽﾞ",10,12) text("縦:",0,30) text("横:",40,30)
text("左右でﾌｫｰｶｽ移動",0,75) text("上下で値変更",0,95) text("Fで決定",0,115) CX=15 CY=18 tx=5 clearinput() label 0
origin(w/2-50,h/2-75) color(0,128,0) gosub"1" text("▲",tx,50) unlock(1) yield() key=input() lock() gosub"cls"
if key=keyselect then goto"comp" elseif key=keyright then tx=tx+40 elseif key=keyleft then tx=tx-40 elseif key=keyup then if tx=5 then CY=CY+1 else CX=CX+1 endif gosub"1"
elseif key=keydown then if tx=5 then CY=CY-1 else CX=CX-1 endif gosub"1" endif goto"0" label 1
text(CY,15,30) text(CX,55,30) return label cls color(255,255,255) gosub"1" text("▲",tx,50) return
#make_canvas#

「make_canvas」
label repaint for j=1 to CY for i=1 to CX for k=1 to 9 if DOT[i][j]=k then clr=k
gosub"clr" X=i-1 Y=j-1 gosub"paint" endif next next next return
label comp if ini=0 then ini=1 for i=0 to CX for j=0 to CY DOT[i][j]=0 next next endif
origin(w/2-55,h/2-75) clear(0,0,w,h) color(192,192,192) rect(0,0,CX*4,CY*4) for i=1 to CX-1 line(4*i,0,4*i,4*CY) next
for i=1 to CY-1 line(0,4*i,4*CX,4*i) next for i=0 to 4 color(0,0,0) text(i,12*i+10,100) clr=i
gosub"clr" frect(12*i+10,100,8,8) next for i=5 to 9 color(0,0,0) text(i,12*i-50,140) clr=i
gosub"clr" frect(12*i-50,140,8,8) next gc() if re=1 then gosub"repaint" re=0 endif
#main_key#

「color_table」
label initclr R[0]=255 G[0]=255 B[0]=255 R[1]=0 G[1]=0 B[1]=0 R[2]=255
G[2]=0 B[2]=0 R[3]=0 G[3]=255 B[3]=0 R[4]=0 G[4]=0 B[4]=255 R[5]=255 G[5]=255
B[5]=0 R[6]=0 G[6]=255 B[6]=255 R[7]=255 G[7]=0 B[7]=255 R[8]=128 G[8]=128 B[8]=128 R[9]=128 G[9]=128 B[9]=0 return
label clr color(R[clr],G[clr],B[clr]) return

「main_key」
X=0 tempx=0 Y=0 tempy=0 tempclr=0 clr=0 gosub"move2" gosub"move" label overtop soft1("描画ﾒﾆｭｰ") soft2("終了ﾒﾆｭｰ")
label top clearinput() unlock(1) key=input() if key=keysoft1 then goto"soft1" elseif key=keysoft2 then goto"soft2"
elseif key=keyup then Y=Y-1 gosub"move" elseif key=keydown then Y=Y+1 gosub"move" elseif key=keyleft then X=X-1 gosub"move"
elseif key=keyright then X=X+1 gosub"move" elseif key=key0 then clr=0 gosub"move2" elseif key=key1 then clr=1 gosub"move2"
elseif key=key2 then clr=2 gosub"move2" elseif key=key3 then clr=3 gosub"move2" elseif key=key4 then clr=4 gosub"move2" elseif key=key5 then clr=5 gosub"move2"
elseif key=key6 then clr=6 gosub"move2" elseif key=key7 then clr=7 gosub"move2" elseif key=key8 then clr=8 gosub"move2" elseif key=key9 then clr=9 gosub"move2" elseif key=keyselect then gosub"paint" endif
#main_key2#

「main_key2」
goto"top" label soft1 soft1("色設定") soft2("ｷｬﾝﾊﾞｽﾒﾆｭｰ") key=input() if key=keysoft2 then goto"can"
elseif key=keysoft1 then goto"setclr" endif label can soft1("ｷｬﾝﾊﾞｽｸﾘｱ") soft2("再描画") key=input() if key=keysoft1 then ini=0 else re=1 endif goto"comp" #main_key3#
label move lock() color(192,192,192) rect(4*tempx,4*tempy,4,4) tempx=X tempy=Y color(0,0,0) rect(4*X,4*Y,4,4) gosub"clr"return
label paint frect(4*X,4*Y,4,4) DOT[X+1][Y+1]=clr return label soft2 soft1("数値表示") soft2("終了")
label again2 key=input() if key=keysoft1 then goto"num" elseif key=keysoft2 then exit else goto"again2" endif
label num if CY>12 then soft1("続き有り") else soft1("リセット") endif color(0,0,0) clear(0,0,width,height) n=0 m=1
for j=1 to min(CY,12) for i=1 to CX text(DOT[i][j],6*n,12*m) n=n+1 if n=CX then n=0 endif
next m=m+1 next if CY<=12 then goto"again3" endif c=1 label again key=input() if key=keysoft2 then exit elseif key=keysoft1 then
clear(0,0,width,height) n=0 m=1 for j=13*c to min(CY,13*c+12) for i=1 to CX text(DOT[i][j],6*n,12*m) n=n+1 if n=CX then n=0 endif next
m=m+1 next if 13*c+12>=CY then soft1("リセット") label again3 key=input() if key=keysoft1 then goto"start"
elseif key=keysoft2 then exit else goto"again3" endif endif c=c+1 goto"again" else sleep(50) goto"again" endif
#color_table#

「main_key3」
label move2 lock() color(255,255,255) if tempclr<5 then rect(12*tempclr+9,99,9,9) else rect(12*tempclr-51,139,9,9)
endif color(0,0,0) tempclr=clr if clr<5 then rect(12*clr+9,99,9,9) else rect(12*clr-51,139,9,9) endif yield()
gosub"clr" return label setclr clear(0,0,w,h) soft1("色確認") soft2("設定完了") frect(40,0,40,30) color(0,0,0) text("赤:",0,60) text("緑:",40,60) text("青:",80,60)
tx=10 gosub"again4" label again5 key=input(0) if key=keysoft1 then gosub"clr" frect(40,0,40,30) sleep(50) goto"again5" elseif key=keysoft2 then goto"judge" endif
lock() gosub"cls2" if key=keyright then tx=tx+40 elseif key=keyleft then tx=tx-40 elseif key=keyup and tx=10 then R[clr]=R[clr]+5
elseif key=keyup and tx=50 then G[clr]=G[clr]+5 elseif key=keyup and tx=90 then B[clr]=B[clr]+5 elseif key=keydown and tx=10 then R[clr]=R[clr]-5
elseif key=keydown and tx=50 then G[clr]=G[clr]-5 elseif key=keydown and tx=90 then B[clr]=B[clr]-5 endif gosub"again4" unlock(1) yield()
sleep(50) goto"again5" label again4 color(0,128,0) text("▲",tx,80) text(R[clr],18,60) text(G[clr],58,60) text(B[clr],98,60) return
label cls2 color(255,255,255) text("▲",tx,80) text(R[clr],18,60) text(G[clr],58,60) text(B[clr],98,60) return label judge
soft1("新規ｷｬﾝﾊﾞｽ") soft2("絵を復元") clearinput() key=input() if key=keysoft1 then ini=0 goto"comp" else re=1 goto"comp" endif


以上、汚いソースですまんです＆連投失礼しました

>727
激乙
main_key2,3が長くてｺﾋﾟできないです。分割激しくｷﾎﾞﾝ

流れぶったぎってスマソ

C=0
label a
color(C,C,C)frect(0,0,30,30)
if input() keyselect then C=C+10 endif
goto "a"

決定キーを押すと色が黒から白に変わっていくプログラムを作りたいんだけど
どうしたらいいですか？
全然意図した働きをしてくれないorz

>>735
if input() and keyselect then C=C+10 endif
でどうよ

多分、if文の式の中にinput()を使うのはNGかと。
変数に入れて、代わりにそれを式に使えば、動作するはず。

知ったか&遅レスでスマン。吊ってくる…orz

>>737
ｲ�`

>>727
禿乙
今から動かしてみる

>>734
すまんかった(;´д｀)
今、QVGAなら32×32くらいまで作れるように修正してみたから、改良とバグ取り終わったら完成品を分割して書き込むんで待ってて下さい。携帯からだから書き込むの大変で…orz


とりあえず次はブラシ(複数マス塗り)の実装をしようかなと思ってますが、ぶっちゃけこのツール使えますか？微妙なら自粛しますが、ここは改良してほしいとか、実装してほしい機能があれば取り入れてみたいのでみなさん意見をお願いします。

激使えまっせ
yasu氏のとこのPUNKTENが参考になるのではと。

流れ無視でごめんなさい、なんとかなりました
動かせる奴は初めてデス…晒してみます

■色気のある生活
■黒から始まり、RGB色を増減させます。色配合量表示つき。
　←R+,↑G+,→B+,↓リセット
　1=R+,2=G+,3=B+, 4=R-,5=G-,6=B-, 7〜9=増減値プリセット

soft1("QUIT")r=0g=0b=0w=width h=height p=5'pは増減値設定
text("←R+,↑G+,→B+,↓RESET",2,15)
label a
lock()
color(r,g,b)frect(0,20,w,h)
color(255,255,255)frect(w-48,25,46,95)
color(0,0,0)text("R="+r,w-42,40)text("G="+g,w-42,60)text("B="+b,w-42,80)text("増減幅=",w-46,105)text(p,w-30,119)
unlock(1)
if r+p<256 and scan=keyleft then r=r+p elseif g+p<256 and scan=keyup then g=g+p elseif b+p<256 and scan=keyright then b=b+p elseif scan=keydown then r=0g=0b=0
elseif scan=keysoft1 then exit
elseif r+p<256 and scan=key1 then r=r+p elseif g+p<256 and scan=key2 then g=g+p elseif b+p<256 and scan=key3 then b=b+p
elseif r>0 and scan=key4 then r=r-p elseif g>0 and scan=key5 then g=g-p elseif b>0 and scan=key6 then b=b-p
elseif scan=key7 then p=10 elseif scan=key8 then p=5 elseif scan=key9 then p=1
elseif scan=key0 then r=0g=0b=0 endif
goto "a"

操作はscan取得ならなんとかなりました。操作部分だけでも別ソースにした方がいいかな…？

>>727
すげー…使わせてもらいますm(_ _)m
乙です