iBASICについて語ろうよ…

元のスレッド　 2ch-Library サイトマップ

iBASICについて語ろうよ…

1 ：非通知さん＠アプリ起動中 ：04/01/04 15:15 ID:2amsCSDk: 語れや

iBASIC
http://cgi.cyborg.ne.jp/~j-saito/cgi-bin/software/ibasic/
2 ：非通知さん＠アプリ起動中 ：04/01/04 17:23 ID:RCrv/4fM: BASIC最強！！！ＬＩＮＥとかが・・・
3 ：非通知さん＠アプリ起動中 ：04/01/05 01:43 ID:7oAzQxdI: ezBASICもあるです。
ttp://yasu.rank.nu/ez/?ezplus=ezbasic&t=1073234286
これで何か作ったやついるのかい？
4 ：非通知さん＠アプリ起動中 ：04/01/05 04:40 ID:v0TuHYBF: とりあえずブロック崩しでも作ってみようかな…
なんて思っても知識がない…。(´･ω・｀)
5 ：非通知さん＠アプリ起動中 ：04/01/05 13:33 ID:USjoOzQg: >>3
作ろうと思ったら携帯上でしか動かないのか
入力が大変そうなのでパスです・・・
6 ：非通知さん＠アプリ起動中 ：04/01/06 00:57 ID:4k1I5Owm: Vbasicはないの？
7 ：非通知さん＠アプリ起動中 ：04/01/06 02:36 ID:yk72mshz: 名前ださいから。
8 ：非通知さん＠アプリ起動中 ：04/01/06 06:07 ID:8ExZaXvT: これでドット絵作成ソフト作れる？
9 ：非通知さん＠アプリ起動中 ：04/01/06 19:46 ID:b+rV7Lqe: ブロック崩しのバーの部分です。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"
10 ：非通知さん＠アプリ起動中 ：04/01/07 00:24 ID:+5ffH3Q4: >>9
iだと６行目の j = icolor(255,0,0)の部分でエラーが出る。
11 ：非通知さん＠アプリ起動中 ：04/01/07 00:54 ID:vdKepxDZ: >>10
line( 55 - j ,height-9 ,65- j ,height-9 )
j = i
color(255,0,0)
こんな風に改行してもだめだったらスマソ
12 ：非通知さん＠アプリ起動中 ：04/01/08 01:11 ID:ZDYny7Ka: A5302CA、改行できません！！

ということでBrainfuckの方が好きかも。
誰か、Brainfuckスレ立ててくれ。ム板の方はレベル高すぎてわからん。
13 ：非通知さん＠アプリ起動中 ：04/01/08 02:04 ID:IDfS5wCS: 文字数制限の多い端末でやるもんじゃないと思う＞BF
ただ入力部分自体を専用のものとすれば使う文字自体が少ないから入力は楽か？
そういう問題でもないと思うが……
14 ：非通知さん＠アプリ起動中 ：04/01/11 02:07 ID:aD/613y4: 揚げ

ファミリーベーシックで我慢しとけ！
15 ：非通知さん＠アプリ起動中 ：04/01/16 00:21 ID:OKa/X4SK: SO505ではアプリ自体動作せず。残念
16 ：非通知さん＠アプリ起動中 ：04/01/18 03:13 ID:C+pUGvfV: ezBASICの場所がわかりにくいので説明

http://yasu.rank.nu/ez/ここから
ezBASIC
1.EZPLUS>すべて表示>ezBASIC
BrainFuck
1.EZPLUS>すべて表示>BrainFuck
お絵描きｱﾌﾟﾘ
Punkten
1.EZPLUS>ツール>Punkten
17 ：非通知さん＠アプリ起動中 ：04/01/21 11:01 ID:c2clSl3v: 下がりすぎなので保守age
18 ：非通知さん＠アプリ起動中 ：04/02/07 00:18 ID:KzHgpA4e: http://au-mode.net/
19 ：非通知さん＠アプリ起動中 ：04/02/18 14:28 ID:p3vAWdxp: iBASIC以外にプログラミングできるiアプリある？
20 ：非通知さん＠アプリ起動中 ：04/02/26 09:59 ID:UYGNmssy: 俺は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"
21 ：非通知さん＠アプリ起動中 ：04/02/26 21:45 ID:UYGNmssy: 誰かレス呉
22 ：非通知さん＠アプリ起動中 ：04/02/26 23:48 ID:UYGNmssy: こんな感じに変わりますた

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"
23 ：ezBASICの達人 ：04/02/27 02:48 ID:v7NAd0sn: 俺はezBASICを極めてしまった。雪が降るやつとか水がポチャんてなるやつとかを
つくった。でもこれはほんの初期作品に過ぎない。今はゲーム作ろうとしているが
A5303の最速モードをもってしてもクソげーしかつくれんかった。なんか作って欲しかったら
"達人"まで（と言うのもケータイからパソコンへメールの送り方が分からなくて
長文うつすのがめんどいから書きません）
24 ：ezBASICの達人 ：04/02/27 03:11 ID:v7NAd0sn: 非通知さんが作りたいのはコレ?赤い線が上下してんだケド・・・
改行しなくても実際にこのままコピーで動きますよ。終了は１を押してください
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"
25 ：非通知さん＠アプリ起動中 ：04/02/27 04:16 ID:lS7D76MW: ほぉ～、scanを代入することも出来るんですか。
自分はSFcave?っぽいのを作ろうとしてました。

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

出来れば、ここにはっつけたらいいのでは？
26 ：ezBASICの鬼 ：04/02/27 12:13 ID:2+WzkNh2: あ、達人です。改名しました。
実は俺も前にSFcave作ったんですよ。いやあ、アレはヒドかった・・・
最初の画面は作れました。赤と黒のグラデーションの背景も作れました。
接触判定やゲームオーバー時の画面も作った・・・が、しかし！
実際あの水色のやつを動かせなかった・・・
というかバグってるみたいになった。アレでゲームを作っても遅いし
容量少ないから厳しいと思うよ？
（でもあの時より技術上げたから今なら出来るかも、暇な時にでもやってみるか）
27 ：ezBASICの鬼 ：04/02/27 12:22 ID:+Np+HcR0: >>12
Brain Fuckは一部の字しか出なくてつまらなかった
あんなのプログラミングじゃないな
28 ：ezBASICの鬼 ：04/02/28 01:04 ID:5KOqpcck: 上線の接触判定は（上から３０の場所に線がある場合）例えば
if 55-i<27then exit endif
とかで出来る。迷路はやたら容量とるから簡単なコースしか作れないっぽい
29 ：ezBASICの鬼 ：04/02/28 15:47 ID:LcmuFRkv: ezBASICでSFcaveつくった。
１５００文字位もあるので欲しい人はメアドを乗せとけ!
おくっちゃる!
30 ：非通知さん＠アプリ起動中 ：04/02/28 16:09 ID:YF6kD01G: >>29
分割してうぷしてくれたら神!!
31 ：ezBASICの鬼 ：04/02/28 16:52 ID:3jdwS9dd: まずこれを「点数」という名前で保存してくれ。いわゆる「はじめの画面」だ。
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
パソコンに打つのマジしんどいから(~_~;)メアド書いといてくれたらホント神!!
32 ：非通知さん＠アプリ起動中 ：04/02/28 17:02 ID:4TM+JNXi: 携帯から書き込め。
33 ：非通知さん＠アプリ起動中 ：04/02/28 17:03 ID:4TM+JNXi: 無理ならパソコンにメールで転送しる。
34 ：ezBASICの鬼 ：04/02/28 17:11 ID:DsX3Ya9F: 昔作ってたやつとかと組み合せただけだから、文句言おうと思えば
いくらでも言えるレベルだけどなかなかスリリングだよ。はっはは
文句例）
・障害物が1個ずつしか来ない。
・コースに起伏がない
・結構展開が早い
・最高点を保存することが出来ないので俺の本物での最高点を書いといた。
ドナドナ・・・だから自分で色々改造してくれ。
ゲーム部分メールで送りたいからコレ見たら俺にメール下さい。たのんます!!
35 ：ezBASICの鬼 ：04/02/28 17:42 ID:+z1OwrXe: 前半ですよ。
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
36 ：ezBASICの鬼 ：04/02/28 17:54 ID:+z1OwrXe: 後半ですよ。
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"
37 ：省略：04/02/28 17:56 ID:+z1OwrXe: 言い忘れてたけど、前半と後半は一つのスレッドに繋げて移すんだぞ
38 ：非通知さん＠アプリ起動中 ：04/02/28 19:49 ID:AN8lyO+K: 神ｷﾀｰ(･∀･)
39 ：ezBASICの鬼 ：04/02/28 20:14 ID:gZjexY43: どうよこのﾋﾄﾞｲできは！？
40 ：非通知さん＠アプリ起動中 ：04/02/28 20:29 ID:YF6kD01G: iBASICならｴﾗｰだらけでした…断念…
41 ：ezBASICの鬼 ：04/02/28 21:25 ID:7EITLXiZ: あ、ezBASICとiBASICとじゃ文法全く違うからダメだよ！
機種変えろよ
42 ：非通知さん＠アプリ起動中 ：04/02/29 00:03 ID:qBD27GnF: 機種かえるのはむりぽ
あうｺﾝﾌﾟﾚｯｸｽあるから…
43 ：非通知さん＠アプリ起動中 ：04/02/29 01:12 ID:8URZdP+L: >>ezBASICの鬼
SFcaveの画面ｻｲｺｰ!本物うりふたつﾃﾞｽ。続き期待して待つ

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

<漏れの生成物>
･ｼｮﾎﾞｲﾌﾞﾛｯｸ崩し
･ｸﾞﾗﾌ描画
･ｼｮﾎﾞｲﾀﾏｺﾞｯﾁ風ｽｸﾘｰﾝｾｰﾊﾞ
･色ﾗﾝﾀﾞﾑ作成
･GPS取得
etc…
44 ：ezBASICの鬼 ：04/02/29 02:16 ID:ZGNsbB0T: threadの使い方を書いときましょう。例えばアプリ内に「家」という名前の
ファイルがあるとします。それを他のファイル内で呼び出したい時
thread("家","出")
「出」の所は何でも良い。更に家が終わるまで次の演算が始まらないようにするには
thread("家","出")join("出")
とすればいい。threadではlock(),unlock(1)が呼び出せないので注；
変数は結構リセットされずに継承されるのでこれまた注；
ブロック崩しか・・・つくれなかったんだよな・・・。ソース公開orメール送信してもらえると嬉しい
メールは上の方に書いてあるんでヨロシコ！そろそろSFCaveバージョンアップするか・・・
45 ：ezBASICの鬼 ：04/02/29 02:22 ID:ZGNsbB0T: 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
46 ：ezBASICの鬼 ：04/02/29 02:28 ID:ZGNsbB0T: 次はコレを「点数」で保存だ！
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
47 ：ezBASICの鬼 ：04/02/29 02:56 ID:ZGNsbB0T: 最後。本体。
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"
変わったとこはやれば分かると思うから書かないけど、かなりよくなったべ
あ～、しんど・・。
48 ：ezBASICの鬼 ：04/02/29 03:02 ID:ZGNsbB0T: つーか、ここに作者(tabrisさん)が降りてくりゃ一番手っ取り早いんだよな・・・
誰か呼んで来てくんねーかな。
49 ：非通知さん＠アプリ起動中 ：04/02/29 13:03 ID:8URZdP+L: ﾌﾞﾛｯｸ崩し
ｼｮﾎﾞｲのには理由がある、ﾌﾞﾛｯｸが一つしかない(崩したらまた一つﾌﾞﾛｯｸが出てくる)
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
50 ：非通知さん＠アプリ起動中 ：04/02/29 13:05 ID:8URZdP+L: 続き
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"@"
51 ：ezBASICの鬼 ：04/02/29 15:45 ID:jKYp4gm4: 俺は神だってやつ降臨てくれー
出来る限りブロック崩しをバージョンアップして行きましょうや
52 ：非通知さん＠アプリ起動中 ：04/02/29 15:47 ID:m1zCd2eT: http://chanpu2.hp.infoseek.co.jp/
53 ：ezBASICの鬼 ：04/02/29 17:07 ID:iev/LNFU: ブロック崩しを以下のように改良して逝こう！！
・残機機能をつける。（1アップもある）
・得点機能をつける。
・アイテムでパワーアップ出来るようにする。
てゆうかさあezBASICのスレちゃんと立てた方が良くない？
54 ：ezBASIC見習い ：04/02/29 17:46 ID:aaEU1FnG: 鬼引退です。
教えてください。49さんの文の中で
if m+21 > x and x > m-1 then h=-h ～ endif
という条件のif構文があったけど俺はイマイチandの使い方が分からん
それやってもいつも条件素道りされちゃうんだけど、なんかコツとかあるん？
それとorの使い方も知ってたら教えて
これの玉ってスピードとかはねかる角ってどうやって変えてんの？？
55 ：49 ：04/02/29 19:21 ID:8URZdP+L: 5+i>x and x>iというのは両方満たすつまり
5+i>x>iということ。
orはわかんない

ｽﾋﾟｰﾄﾞはx軸ﾍﾞｸﾄﾙとy軸ﾍﾞｸﾄﾙそれぞれにﾗﾝﾀﾞﾑな変数を足す
56 ：非通知さん＠アプリ起動中 ：04/02/29 19:54 ID:iEqWqG5C: or　は普通どちらかを満たすだが
57 ：ezBASIC見習い ：04/02/29 20:18 ID:AvjCoPW5: Thank's!ブロック崩しも色々付いてきたからﾆｭｰばーじょんもうすぐうｐできますわ。
58 ：ezBASIC見習い ：04/02/29 21:34 ID:BrfZcQsI: ブロックに点数と残機機能と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
59 ：非通知さん＠アプリ起動中 ：04/02/29 22:01 ID:qBD27GnF: ezBASICについて語るｽﾚになりました!!
60 ：ezBASIC見習い ：04/02/29 22:10 ID:CVyOABsJ: 最後は好きなタイトルで保存してエエよ。点数は何故か最初から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"!"
61 ：ezBASIC見習い ：04/02/29 22:16 ID:hIIIv0yP: え！？とうとうezBASICのスレに!?
祝！！「ezBASICについて語ろうよ…」で、いいんかな・・・？
つーかここの板立てた人はこれでいいのか？これじゃまるで・・・

ま、いっかーーーー！！！
62 ：ezBASIC見習い ：04/02/29 23:43 ID:xM4TzKfW: ブロック崩し自分でやったらバグの固まりでした・・・。
直せる神いたら宜しくオネガイシマス
Ｏ
/′
＞
63 ：非通知さん＠アプリ起動中 ：04/03/01 07:17 ID:Ur3sjOhN: ezBasicってソース公開されてないんかな? 元々のiBasicはGPLだったはずだが。

ところでiBasicを504/505あたりで普通に動くようにするのは簡単なんだけど誰かやらないのかな?
64 ：非通知さん＠アプリ起動中 ：04/03/01 13:27 ID:y0Rzend8: 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
65 ：49ﾌﾞﾗﾝﾄﾞ ：04/03/01 13:30 ID:y0Rzend8: つぎに『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
66 ：49ﾌﾞﾗﾝﾄﾞ ：04/03/01 13:33 ID:y0Rzend8: つぎに本体。
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"
67 ：49ﾌﾞﾗﾝﾄﾞ ：04/03/01 13:41 ID:y0Rzend8: つぎに本体。
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"
誰かもっとﾌﾟﾛｸﾞﾗﾑ上げて。
68 ：サイボーグ ：04/03/01 16:29 ID:hkrFK5H/: テニスはとてもいいアイデアだったと思います。ただ、背景を緑にしたり
得点を計算して勝敗を決めるようになっていると良かったです。
（どちらかというとエアーホッケーっぽい？）（今度みんなでRPGを作っていこう！）
69 ：見習い ：04/03/01 16:45 ID:HI6PC8iR: 糞時計↓なんとなくうｐ。。。
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"
70 ：非通知さん＠アプリ起動中 ：04/03/01 20:59 ID:ga5z8JTs: iCとかezCﾎｽｨ…
71 ：見習い ：04/03/01 21:01 ID:49adFPuP: C言語ってどゆうの？
72 ：非通知さん＠アプリ起動中 ：04/03/01 23:06 ID:ga5z8JTs: >>71
http://www.kumei.ne.jp/c_lang/index_c.html

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

みたいな。覚えやすい。構造化で理解しやすい。
73 ：非通知さん＠アプリ起動中 ：04/03/01 23:07 ID:ga5z8JTs: stdio.hがなかった
74 ：見習い ：04/03/01 23:44 ID:sSBZux88: ほほう。俺は猫好きだからそそられるページでしたよ。Cってのはなんとなく
簡単というイメージがありましたが、やはりちょっとページを覗いて来て
BASICより簡単そうということが分かりましたよ。
でも俺はとことんパソコン音痴だから、パソコンで何かやろうとすると
必ず出来ずじまい。。。
この間もJAVAやりたかったのに4000円もかけたのに環境設定で終了！
誰か教えてくれー！！（やり方が書いてあるページはサンザン見たので紹介はいらんです）
75 ：非通知さん＠アプリ起動中 ：04/03/02 15:25 ID:T4+Iva7x: >>74
　環境設定が出来ましたか？ならば、とにかくプログラムを書くのみです。
簡単なプログラムを書きつづけることで、複雑なプログラムを構成できます。
最初はエラーが出まくっても、それを1つずつ潰していってはじめてプログラムが
完成します。冷酷に聞こえるかも知れませんが、とにかく書くのみです。
76 ：見習い ：04/03/02 15:50 ID:fdlv7W9E: 吸いません…時間が無い…
77 ：見習い ：04/03/02 16:21 ID:2/1f60vy: 携帯に雪が降ります。積もったらセンターキーで除雪できますぜ。
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"
昔のだからコード汚いス…
78 ：見習い ：04/03/02 16:34 ID:2/1f60vy: ただ押した方向に図形が動き続けるプログラム。これ応用して誰かなんか作って！
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"
79 ：見習い ：04/03/02 16:56 ID:R42MA0cs: ezBASICのすれ立てました。ezBASICの人はちゃんとそっちへ移行ね
80 ：見習い ：04/03/02 16:58 ID:R42MA0cs: ここね
http://news6.2ch.net/test/read.cgi/appli/1078213471/
81 ：非通知さん＠アプリ起動中 ：04/03/02 17:38 ID:uUUzEOPt: 意味無しage
82 ：非通知さん＠アプリ起動中 ：04/03/10 21:40 ID:LAZwfw8G: ezBASICの人ですがスレがなくなってるので、ここにカキコさせてもらいます。
有名なhit & brow を作りました。長いんでＵＰしました。
ttp://uploader.org/normal/data/up2810.txt
83 ：非通知さん＠アプリ起動中 ：04/03/12 20:47 ID:Sh3UZxD+: 自分もこれでゲームとか作れるようになりたいんですが…プログラミングとか全然したことなくて、全く分かりません!どうやって勉強すればいいんですかね?本とか売ってる?
84 ：非通知さん＠アプリ起動中 ：04/03/13 00:22 ID:Xs9wY1fH: ｼﾞｬﾊﾞの本もCの本も売ってる多分i/ezBASICはCににてると思う
85 ：非通知さん＠アプリ起動中 ：04/03/13 06:34 ID:0KiSV1He: じゃあC言語の本買えばいんですね?ありがとうございますm(_ _)m
86 ：非通知さん＠アプリ起動中 ：04/03/13 16:20 ID:XiNWcXRX: 0から覚えるならJava覚えたほうがよさそうな・・
87 ：非通知さん＠アプリ起動中 ：04/03/15 16:48 ID:mXSYMKW6: SFCave for ezBASICの自キャラに残像をつけることは出来ませんか？
88 ：見習い ：04/03/18 17:14 ID:7LvF7PzU: >>87
残像をつけると言うのは10個以上の中塗短形を同時に動かすという事になり、結果動作が重くなって
ゲームとして成立しなくなります。あの程度でも結構ギリギリの動作なのです。
>>83
これは特に本はいりません。第一ezBASICは何かの本を見て出来るものではありません。
ezBASICは他とは別の言語。と思った方がいいと思います。私も初めてのプログラミングがezBASICであり、その当時はプログラミングどころか、
パソコンの知識すら全く無かったわけですし、それでもあそこまでできるようになったのだから本は必要ないと思います。
89 ：非通知さん＠アプリ起動中 ：04/03/20 10:59 ID:aUhECLwR: > 短形

(´･ω･｀)
90 ：非通知さん＠アプリ起動中 ：04/03/20 15:28 ID:XRwfSH46: 矩形（くけい）ですね
91 ：見習い ：04/03/20 20:30 ID:LbUf67e0: お恥かしい…
92 ：ta-ko ：04/03/20 21:42 ID:SvEA9lea: プログラム初心者です。知識ゼロでアプリの説明ページだけ見て作ったんで、
どっかおかしいかも。
プログラム名：「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()
93 ：見習い ：04/03/21 01:30 ID:eLKpbhrT: 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やってるひといるんですね。
94 ：ta-ko ：04/03/21 13:24 ID:fgFSPOD/: >見習いさん
「goto 1」は「goto "1"」に変えなくても動きませんか？
gotoと数字との間を１つ空ければ大丈夫なはず。数字でないとだめですけど。
ちなみに数字の後はくっつけて書いても大丈夫なんで、アルファベットとかより
文字数が１文字稼げます。labelの場合も同じです。
それから「text(t,3,s)」を「text(""+t,3,s)」に変える意味はあるのですか？
右にずらすだけなら、３を８くらいに変えるだけで済むと思うのですが･･･。
最後にもうひとつ質問です。（質問ばっかですいません）
どういうわけか、はじめから入っているプログラムのうち、
「Lineart」と「Gradation」と「bouncer-demo」EDITできない（強制終了する）
んですけど、そちらもそうなりますか？仕様ですかね。
95 ：ta-ko ：04/03/21 13:52 ID:fgFSPOD/: ついでにもう１つ投稿。
プログラム名：「遊飛行」
内容：敵からひたすら逃げます。敵に攻撃することもできますが、
　　　敵は不死身なので死にません。どこまでも追ってきます。
　　　つかまるとゲームオーバーとなり、得点が表示されます。
操作方法：↑↓→←で移動、決定キー？で攻撃。
　　　　　（裏技：♯キーでワープ）
欠点：重いです。いろいろつけたら重くなりました。
　　　あと５００文字ぎりぎりなんでちょっと心配。僕のは動きました。
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の３の部分を６とか９とか
に変えることで難易度調整できます。（３の倍数でないとだめです）
96 ：見習い ：04/03/22 17:16 ID:Lp+dpI7o: EDITはできません。仕様です。
97 ：非通知さん＠アプリ起動中 ：04/03/31 15:17 ID:u1kPPHBZ: age
98 ：非通知さん＠アプリ起動中 ：04/04/06 16:48 ID:rRGIGww5: age
99 ：非通知さん＠アプリ起動中 ：04/04/06 17:11 ID:G1hSWF0q: 使ってみたいけど漏れのSH505iじゃダウンロードすらできない・・・
裏山すぃ～
100 ：非通知さん＠アプリ起動中 ：04/04/06 17:44 ID:EDYRROLp: いや！！isだな！！
101 ：非通知さん＠アプリ起動中 ：04/04/06 17:45 ID:EDYRROLp: 出来るだろ！！Dは最悪だが！！車も最悪だな身潰！！
102 ：99 ：04/04/06 19:45 ID:Jgr/sJ6M: ダウンロードを選択しても、ページトップに飛んでループ
するだけなんだよね～
機体は11月製造Verで、2chで報告のあったほとんどの
バグ(電池のゆるみまでも！）が解決されてるのはあり
がたいんだけど、iBASIC以外にも落とせないソフトがい
くつかあるから仕様なのかな？
あ～書き込んでるとよけい使いたくなってきた！
103 ：非通知さん＠アプリ起動中 ：04/04/08 08:28 ID:++i/c6CE: >>99
iBasicが504以降の機種で動かないことがある現象ならすぐ直せたんだが…
ベタに直しただけのやつを出しても意味がないかと思って公開してない。
104 ：非通知さん＠アプリ起動中 ：04/04/08 23:22 ID:p3Nsk7Sv: >>103
作者さんですか？
105 ：非通知さん＠アプリ起動中 ：04/04/14 00:24 ID:sBE0gvFv: ベーシックおもしれ―けどおすぇー!!
106 ：非通知さん＠アプリ起動中 ：04/05/02 18:46 ID:LbQDJ2t4: ★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
107 ：遊軍：04/05/04 08:51 ID:6zOWhzf4: BASICの当時の盛況振りを知りたければ内田裕也の十階のモスキート参照。

10　CLS
20　PRINT"**"
30　GOTO　20
40 END
（これはPC用なので使えません。念のため）
108 ：非通知さん＠アプリ起動中 ：04/05/17 14:50 ID:u5jjp1rZ: あ
109 ：非通知さん＠アプリ起動中 ：04/05/19 16:33 ID:cbmFpjec: age
110 ：非通知さん＠アプリ起動中 ：04/06/19 17:35 ID:ebehmFxm: 505で動かねー
作者ｻｿ505にも対応してけれー!!
ちなみに当方p505isです

＆age
111 ：非通知さん＠アプリ起動中 ：04/06/21 13:25 ID:YUHtpOH+: age
112 ：非通知さん＠アプリ起動中 ：04/06/24 23:16 ID:gjsUwzhB: >>110
ttp://naoya.stargroove.jp/i.html
113 ：110 ：04/06/26 00:46 ID:0Q7Rq6MN: >>112
おお！サンクス！！
作ってくれていた人がいたのですねー
動作も完璧です

でも全然書けない(´･ω･`)ｼｮﾎﾞｰﾝ
うおお勉強だぁぁあ！！(｀･ω･´)
114 ：非通知さん＠アプリ起動中 ：04/07/03 23:24 ID:N3NjB35G: 的当てです。改行の必要はありません。…なにがしたいんだこれ……
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
115 ：非通知さん＠アプリ起動中 ：04/07/04 10:49 ID:g4lyc+so: 的当て修正版です。
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
116 ：非通知さん＠アプリ起動中 ：04/07/04 10:52 ID:g4lyc+so: ちなみにezBASICのほうです。
117 ：非通知さん＠アプリ起動中 ：04/07/04 11:04 ID:2WV+Jpgo: >>116
先に言うてくれ…
iでやってめちゃエラー吐かれた＿|￣|○
118 ：非通知さん＠アプリ起動中 ：04/07/04 11:07 ID:g4lyc+so: ＊操作方法＊
・左右に動くやつでX座標を指定
・同じ要領で上下の方でY座標を指定
・最後に力メータを止めて力を決める
・投げ出されたボールが円内に入っているかを判定してくれます。・これらの操作はすべてセンターキーで行います。
119 ：非通知さん＠アプリ起動中 ：04/07/04 19:21 ID:g4lyc+so: 高速化しました。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
120 ：非通知さん＠アプリ起動中 ：04/07/20 09:00 ID:Vu3H2Jff: 保守
121 ：非通知さん＠アプリ起動中 ：04/07/20 09:03 ID:Vu3H2Jff: iBASICで円(楕円でもいいけど)の描き方わかる人がいたら、教えて下さい。
やっぱ円の関数組むのは無理なんだろうか。
122 ：非通知さん＠アプリ起動中 ：04/07/28 14:27 ID:W478TtYK: iBASIC か ezBASIC を
Java 2 SDK Standard Edition Version 1.3.1
を入れないで win で動かせるソフトを作ってください
123 ：非通知さん＠アプリ起動中 ：04/07/28 15:40 ID:8gBe0RxL: >>122
(　ﾟдﾟ)ﾎﾟｶｰﾝ
124 ：非通知さん＠アプリ起動中 ：04/07/28 15:54 ID:W478TtYK: >>123
入れないとダメでしたか
125 ：非通知さん＠アプリ起動中 ：04/07/28 15:57 ID:W478TtYK: いやポカーンだけでは意味がわからん
何がいいたいの？
126 ：非通知さん＠アプリ起動中 ：04/07/28 16:01 ID:W478TtYK: 普通に考えて
PCで動かしたいと
書けばよかった
知識が中途半場にあるとダメだ　orz
127 ：非通知さん＠アプリ起動中 ：04/07/28 20:12 ID:5AXdYqrc: 中途半端というのもおこがましい
128 ：非通知さん＠アプリ起動中 ：04/07/29 14:59 ID:+uZpRBv2: >>122
素直にJDK入れろ
129 ：非通知さん＠アプリ起動中 ：04/07/30 23:34 ID:ggQ3PSiq: ezBASICでなくiBASICのプログラムを
なんでもいいからうｐしてくれー
神サマ～～～～～～～～～
130 ：非通知さん＠アプリ起動中 ：04/07/31 08:44 ID:K8uaiIRH: もう似たようなソフトを作って
PCでも動けるソフト作って
関連本売ったりしてください
おねがいします。頼みます
この通りです。
名前は iScript とかいいかもしれません
お願いします。
そして打倒HSPですよ
携帯関連だから、利用人口爆発的に増えますよ
PCの人も使い出しますよ
みんなが皆うはうはですよ
最近ブーム？のプログラムを日本語化とかしちゃって
もいいかもしれませんし
お願いします。頼みます。
もう我慢できないんです
131 ：非通知さん＠アプリ起動中 ：04/07/31 09:47 ID:H4YVfuxv: >>121
ttp://www2.starcat.ne.jp/~fussy/algo/algo2-1.htm
解説が難しかったら、一番下にあるCのソースを移植すれ。
132 ：129 ：04/07/31 09:57 ID:efoEoTJI: iBASICで　i++ というのはどのようにすれば
いいのでしょうか？
133 ：129 ：04/07/31 10:49 ID:efoEoTJI: 誰か…iBASICを講座してください！
134 ：非通知さん＠アプリ起動中 ：04/07/31 11:58 ID:WwpSc9nT: 俺も講義してほしい!
yasu氏のところでez版ﾀﾞｳｿしたんだけど、まず何をしていいのかわからん…
とりあえず、説明を全部ﾉｰﾄに写して(PCないので)さぁやるぞ!って思ったんだけど、書いてあることの意味がわかんない…
誰か教えてもらえませんでしょうか?お願いします
135 ：非通知さん＠アプリ起動中 ：04/07/31 13:38 ID:h1PlK/pj: >>1のＰＣ用の「iBASIC 開発ガイド」が
詳しく書いてあるのでそこを見るといいかもしれません
ＰＣ用ですが、画像とか使ってないので最新機種なら見れるかも
自分は携帯を持ってないので確認がとれないです
ezBASICもある程度似てるかもしれません
136 ：129 ：04/07/31 15:10 ID:efoEoTJI: >>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"
＠を動かして座標を表示させるもんです
137 ：非通知さん＠アプリ起動中 ：04/08/01 01:29 ID:DZaywA7Z: >>134
君のレスみてやる気が出てきたよ
俺の環境は携帯解約したけどezBASICを入れていて
作れる環境があるから俺も今から
プログラムをノートに書いて覚えてみる
やる気を与えてくれてありがとう
138 ：134 ：04/08/01 07:17 ID:zXtmUTub: >>137
今、自分は最初に入ってるhello,world!ﾌﾟﾛｸﾞﾗﾑをちょっとずついじって遊んでます。
頑張りましょう!
139 ：129 ：04/08/01 22:18 ID:uqKqB7i8: だれかezBASICをiBASIC vol.2として移植してくれ
iBASICのプログラムが何ひとつなくつまらんし
いろんな機能がついていて羨ましい。
140 ：137 ：04/08/01 23:46 ID:0UdIgOmZ: 改行ができないからか、もうこれ以上プログラムが
携帯電話に打てない　orz
>>134
俺のぶんまで頑張って…
141 ：137 ：04/08/02 05:20 ID:4OxR04cB: http://up.isp.2ch.net/up/2662bcff1835.zip
まとめというか、今まででたプログラムをhtmlにしてみた
142 ：非通知さん＠アプリ起動中 ：04/08/02 07:17 ID:F1N6ZJxr: >>139
やってみればわかると思うが ezBASIC のプログラムもつまらんぞ。
143 ：うんこ ：04/08/04 16:23 ID:OYIMOsH+: なんちゃってマリオ。ジャンプは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
144 ：うんこ ：04/08/04 16:27 ID:OYIMOsH+: なんちゃって落ち物(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
145 ：うんこ ：04/08/04 16:30 ID:OYIMOsH+: これが本体。ブロックが積もるだけ。この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
146 ：非通知さん＠アプリ起動中 ：04/08/05 22:18 ID:Gj6hpDzf: voda 用ある？
147 ：非通知さん＠アプリ起動中 ：04/08/06 01:45 ID:lm6h915X: >>132
i++ は i = i + 1
i-- は i = i - 1
148 ：うんこ ：04/08/06 18:56 ID:AGnJbdf7: >>140前の字が数字か"か)の時は改行いらないよ～。改行できないなら代わりにスペースでもοκだよ～
149 ：うんこ ：04/08/06 18:58 ID:AGnJbdf7: ezだよ～…
150 ：137 ：04/08/06 19:25 ID:2QIOiqo8: >>148
ありがとう
背景部分を試してみたよ
俺の携帯画面QVGAじゃないから
画面のサイズが合わなかったけど
表示されて嬉しかった
最後は input() で止めて見たり
text("Hello, world!",4,28) input()
で書いて見たりしている状況です

携帯新しく変えるまで
今ある携帯電話で色々してみます
151 ：うんこ ：04/08/06 22:43 ID:AGnJbdf7: あのプログラムはQVGAじゃないですよ。俺のケータイが132*144だからちょっとはみ出ただけだと思うよ。よかったら背景だけじゃなくて本体も一緒に動かしてくれ。動き遅いけど…
152 ：うんこ ：04/08/06 22:45 ID:AGnJbdf7: てゆうか修正版です。タイトルは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)
153 ：うんこ ：04/08/06 22:46 ID:AGnJbdf7: これのタイトルは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
154 ：うんこ ：04/08/06 22:49 ID:AGnJbdf7: 実行するときは他の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
155 ：137 ：04/08/06 23:58 ID:4afWIli+: >>151
試してみました
やはりプログラムは全て入りませんでした　orz
携帯電話がC3001Hとかなり古いのが
いけなかったのかも知れません
156 ：非通知さん＠アプリ起動中 ：04/08/09 13:55 ID:x0DtoPPa: ａｇｅ
157 ：うんこ ：04/08/15 15:09 ID:+PKDEThD: 誰も気づかないから自分で言うけどマリオとｶﾝﾊﾟｽﾞには実は配列を使ってるんだよーん。
ezBASICに配列は無いからsubstrを使って作りました。結構すごいことやってると思ってるんだが、どうかな？
注)配列…JAVAでは配列を持つ変数を宣言すると、その配列の任意の位置の数字やら文字やらを呼び出せる。
(例)
A={5,12,9,7,54,0};
と宣言すれば
B=A[4];
としたときにBに配列の5番目の54が代入される。
158 ：うんこ ：04/08/15 16:55 ID:+PKDEThD: 昔作ったいろんな意味で汚いゲーム｢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"
159 ：うんこ ：04/08/15 16:57 ID:+PKDEThD: これが本体です。タイトルは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)
160 ：129 ：04/08/17 22:43 ID:myDa6ZG/: 鬼ごっこみたいなゲームつくりたいんだけど
逃げる人を操作するような奴は>>136でいいんだけど
逃げる人を追っかける　鬼をどうやってつくりゃあいいにか
おれにゃあ分からん　座標からひいても斜め下にさがって
逃げる人を操作できない
うんこさん！！　教えてくれ！！
161 ：うんこ ：04/08/18 00:36 ID:blY+T38j: 大したもんじゃないけど…
操作方法…｢俺｣は数字キーに対応した向きに移動可。終了はセンターキー。文字の大きさとかに合わせて自分で調整してね。
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
162 ：129 ：04/08/19 12:53 ID:M7FElPuS: うんこさんマジデありがとう！！
163 ：うんこ ：04/08/19 17:36 ID:Pa14WYr3: EZのほうでいいなら、講義するから言ってね。最初は俺も待ち受けくらいしか作れなかったけど、がんばればゲームっぽいのも作れるよ。
何よりこれ作った人に感動する、
164 ：非通知さん＠アプリ起動中 ：04/08/22 15:29 ID:9Dl2QbjA: 避けゲーみたいなもの。だれか改造してくれ。
前半↓
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
165 ：非通知さん＠アプリ起動中 ：04/08/22 15:30 ID:9Dl2QbjA: 続き↓
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
166 ：非通知さん＠アプリ起動中 ：04/08/23 23:57 ID:K9BVTp9s: iBASICとったんですが起動直後にエラーが出ます。機種はSH900iです。対応してないんでしょうか？1のリンクのサイトに問合せみたいな場所ありました？
167 ：非通知さん＠アプリ起動中 ：04/08/24 00:35 ID:WqBHvcLK: >>166
ttp://naoya.stargroove.jp/ibasic/
506なら動いたけど、どうかな。
168 ：非通知さん＠アプリ起動中 ：04/08/24 02:45 ID:PsQZNj91: 167さんありがとうございます！動きました！
169 ：おもち ：04/08/25 22:36 ID:dqLemuHP: D505i でIBASICやってます。
スレッドの使い方がわからないので半角512文字から抜け出せません。
170 ：おもち ：04/08/25 22:39 ID:dqLemuHP: そんなわけでゲームは文字数におさめられません
見るだけのものです。ソフトキー２で終了です。
一行目の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
171 ：おもち ：04/08/25 22:41 ID:dqLemuHP: 同じく見るだけ。
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
172 ：おもち ：04/08/25 22:42 ID:dqLemuHP: 某ミニゲームの刹那の見切りです。
二人用で１と３で戦います。終了は０。
問題多すぎでつまらないでしょう・・・。

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
173 ：非通知さん＠アプリ起動中 ：04/08/26 08:33 ID:d6WsLXPp: threadなら結構前に書いてあったような
174 ：おもち ：04/08/26 14:50 ID:Hufl9b8h: joinは参考になります
でも変数の共有方法がわかりません
スレッド起動したとき
何がコピーされてるのかも

しばらく上のソース読んでがんばります
助言ありがとうございます
175 ：トゲマル ：04/08/26 15:58 ID:G9ajrz3i: 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()
176 ：トゲマル ：04/08/26 15:59 ID:G9ajrz3i: sage忘れましたorz
177 ：非通知さん＠アプリ起動中 ：04/08/26 16:34 ID:d6WsLXPp: threadの変数では呼び出す側と呼び出された側で次のような関係があります。
A-Zはどちらからでも関係なくｺﾋﾟｰされる
a-zは呼び出される側から呼び出す側にはｺﾋﾟｰされないが、逆はある。
178 ：おもち ：04/08/26 21:03 ID:GS4PuEm7: >>177
ありがとうございます！！！
これで作品に幅がもてます！
しばらくがんばってみまーっす。
179 ：走ろうよ ：04/08/26 22:00 ID:d6WsLXPp: ネタもとはこちら→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
180 ：うんこ ：04/08/26 23:07 ID:d6WsLXPp: 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
181 ：うんこ ：04/08/26 23:08 ID:d6WsLXPp: 本体。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
182 ：非通知さん＠アプリ起動中 ：04/08/28 15:41 ID:KaI55KOe: あげ
183 ：非通知さん＠アプリ起動中 ：04/08/29 01:44 ID:639xoPfv: k
184 ：非通知さん＠アプリ起動中 ：04/09/07 21:50 ID:7S0tDWQt: PCでも作れればな
185 ：非通知さん＠アプリ起動中 ：04/09/14 23:57:15 ID:ZPtdliGS: おっぱい
186 ：非通知さん＠アプリ起動中 ：04/09/24 18:21:33 ID:rQQ+eJ9M: このスレ盛りあがってんな―！！！！おもしれー！みんなも濃いよ
187 ：非通知さん＠アプリ起動中 ：04/10/07 09:17:29 ID:5X42aBMQ: age
188 ：非通知さん＠アプリ起動中 ：04/10/09 17:32:20 ID:AqfSqAL0: まさしくBasic言語だなこりゃ
189 ：うんこ ：04/10/19 21:55:04 ID:84zMs3HD: ドコモには使える機能多いからうらやましい…これは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
190 ：非通知さん＠アプリ起動中 ：04/10/20 07:22:39 ID:u8kM8SHu: うんこage
191 ：非通知さん＠アプリ起動中 ：04/10/23 21:04:49 ID:wiNB6ZiM: >>189
サンプルそのままを出して何が嬉しいんだ?
192 ：非通知さん＠アプリ起動中 ：04/11/21 23:34:25 ID:cpzYFJU/: 無くなっちゃったよ。。。
193 ：非通知さん＠アプリ起動中 ：04/11/24 11:51:30 ID:JTomCW1o: 質問なのですが、
タイトル探索
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
194 ：非通知さん＠アプリ起動中 ：04/11/24 11:52:52 ID:JTomCW1o: タイトルコマンド
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
195 ：非通知さん＠アプリ起動中 ：04/11/24 11:54:32 ID:JTomCW1o: タイトル敵
text("(･∀･)",80,170)
で探索のaの値をランダムにしてｴﾝｶｳﾝﾄﾊﾞﾄﾙみたいにしたいときはどうすればいいんですか？
196 ：くそ：04/11/24 23:12:12 ID:xzbi4kQv: if scan=keydown then のとこにてきとーにa=rand%20とかってやればいいんじゃないの？
197 ：非通知さん＠アプリ起動中 ：04/11/25 03:12:12 ID:9l9+c+d5: >196
ありが㌧。今日から猿のようにやってますが、楽しいですなー(･∀･)
198 ：非通知さん＠アプリ起動中 ：04/11/25 23:22:56 ID:9l9+c+d5: inputとrandについて聞きたいんですが、
r=abs(rand)%5
"%5"てなんですか？
あとinputの入力ﾊﾞｯﾌｧってなんですか？
おしえてください
199 ：まん○こ ：04/11/25 23:40:09 ID:9eVUZtcN: %5は5で％の左の数を割った余り　上のだと0から4までの数が出る。
input()はscanと同じようにキー入力を受取るやつ、ただし一回押した時だけ。(scanは押してる間ずっと反応する)
()内が0以外だと毎回そこでなにか入力するまで止まるようになる
ざっとこんなもん
200 ：非通知さん＠アプリ起動中 ：04/11/25 23:55:06 ID:9l9+c+d5: (･∀･)ﾅﾙﾎﾄﾞ
さんくすです
201 ：非通知さん＠アプリ起動中 ：04/11/26 05:15:35 ID:2pkSt6jG: すみませんまた質問です。タイトル
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
202 ：非通知さん＠アプリ起動中 ：04/11/26 05:16:36 ID:2pkSt6jG: バトル

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
203 ：非通知さん＠アプリ起動中 ：04/11/26 05:17:47 ID:2pkSt6jG: 攻撃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
204 ：非通知さん＠アプリ起動中 ：04/11/26 05:20:59 ID:2pkSt6jG: 攻撃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

でバトルにもどったときに前の表示が消えないのはどうしたらよいでしょうか？
205 ：非通知さん＠アプリ起動中 ：04/11/26 09:26:45 ID:2pkSt6jG: バトル

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
206 ：非通知さん＠アプリ起動中 ：04/11/26 09:27:27 ID:2pkSt6jG: 攻撃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
207 ：非通知さん＠アプリ起動中 ：04/11/26 09:29:04 ID:2pkSt6jG: 攻撃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
208 ：非通知さん＠アプリ起動中 ：04/11/26 09:29:53 ID:2pkSt6jG: 防御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
209 ：非通知さん＠アプリ起動中 ：04/11/26 09:30:38 ID:2pkSt6jG: 防御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
210 ：非通知さん＠アプリ起動中 ：04/11/26 09:34:48 ID:2pkSt6jG: またまた質問なのですが、たとえは攻撃1の
（ `･д･)
　|<｡|
　U U
のsleepのあいだにkey1を押したらそのまま続行、時間内に押せなかったらend
というふうにするにはどうすればよいんでしょうか
211 ：非通知さん＠アプリ起動中 ：04/11/28 04:35:43 ID:z9JjTs9G: はじめまして；
小生、ＭＳＸなどでＢＡＳＩＣをいぢってた者なのですが。
いまのＰＣ上で昔のＢＡＳＩＣの楽しさは味わえないのね。
ンデ、漂泊の身上はやいくとうせい・・・
(略）
デ、どうYO!?
どうなのＹＯ、携帯アプリって;?
昔の味ってあるのかァ？　もし、ココにＭＳＸとかァー
ファンダムとかァー、マルチステートメントとかァー、きいて、
ﾆｬﾘｖ
と、くる椰子がいたら、ご感想など拝聴したいのですが？
212 ：非通知さん＠アプリ起動中 ：04/11/28 04:51:45 ID:z9JjTs9G: ｲﾔ；
「　聞くまへに打ち込め！」
が、ＢＡＳＩＣ道の鉄則、なのはヨーわかっとるんyo；
でも折れ携帯もって無ヒンです。
ｉＢＡＳＩＣする為に携帯かう(契約)するワケで；
やっぱダメだぁコリャ～状態だと、残るは、ドコからも
かかって来る予定の無ヒ、携帯がｺﾞﾛﾝと転がってる訳で

カ、勘弁して下サイ（涙）
　　　　　　　　　　
213 ：かぼすっぱいんきん ：04/11/28 08:49:00 ID:2H2B6fDB: エミュでやればいいじゃん
マァあんたが考えてるような代物じゃないことは確かだろうが…
214 ：非通知さん＠アプリ起動中 ：04/11/30 13:05:53 ID:uUpkydgt: あげ
215 ：iBASICについて語ろうよ… ◆MmMJFErMAs ：04/12/01 08:22:55 ID:H848Wzv8: iBASICについて語ろうよ…
216 ：非通知さん＠アプリ起動中 ：04/12/07 22:52:28 ID:U01iAWqg: いや、ezBASICについて語ろうよ…
217 ：210 ：04/12/14 18:41:56 ID:nq2wC3a1: だれかわかんないでしょうか････(´･ω･`)
218 ：のｍ：04/12/15 00:07:09 ID:qpNrMOnP: >>217
if input(1000)and key1 then ホニャララ
てすればkey1の入力に1000ミリ秒のタイムアウトが設定できるよ
219 ：非通知さん＠アプリ起動中 ：04/12/15 01:02:14 ID:1//pk5e7: >218
ありがとうございました。おかげでなんとか形にはなりました。
ところでほかにこれやってる人っているんでしょうか。スレとBASICの活性を期待してage
ついでに少しずつ改良したいので完成はしてないけどUPしてもよいですか？
220 ：N88 ：04/12/15 15:24:26 ID:J/Tc44xp: おれもやってるよ～EZだけど、このスレの前にいくつか作ったゲームアップしたし他にもいくつかあるからいいんじゃない？
221 ：非通知さん＠アプリ起動中 ：04/12/15 22:43:35 ID:1//pk5e7: バトル
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
222 ：非通知さん＠アプリ起動中 ：04/12/15 22:44:36 ID:1//pk5e7: 攻撃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
223 ：非通知さん＠アプリ起動中 ：04/12/15 22:45:13 ID:1//pk5e7: 攻撃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
224 ：非通知さん＠アプリ起動中 ：04/12/15 22:45:45 ID:1//pk5e7: 防御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
225 ：非通知さん＠アプリ起動中 ：04/12/15 22:47:34 ID:1//pk5e7: 防御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
226 ：非通知さん＠アプリ起動中 ：04/12/15 22:49:28 ID:1//pk5e7: 必殺
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
227 ：非通知さん＠アプリ起動中 ：04/12/15 22:53:14 ID:1//pk5e7: 左が自分、右が敵です。センターキーを押すとランダムに自分か敵が動き出します。パンチは上下にわかれてて、それぞれキー1･2に対応してます。つまらないものですがせっかくなので
慣れてきたら防御をキー3･6にかえてみてください
228 ：227 ：04/12/16 01:26:38 ID:Au8iufg9: また質問させてもらいます。次は少し複雑なゲームをつくってみようと思うのですが、ロボットに前に敵がいたら攻撃、とかいなかったら右45ﾟ回転とかそんなかんじ行動のプログラムを組んで遊ぶゲームあるじゃないですか。
あれの思考ルーチン？ていうのかわかんないけど、それを別のプログラムにしようとしたら、それぞれ同時にうごかせないですよね？質問がわかりずらいのですが…
本体プログラム
ルーチンＡプログラム
ルーチンＢプログラム
にして、最強プログラムはどれ？みたいなカンジにしたいんです。
229 ：のｍ：04/12/16 15:25:19 ID:Y7x5Izq4: 全く分からない・・・
230 ：非通知さん＠アプリ起動中 ：04/12/16 17:19:48 ID:Au8iufg9: この文章じゃわからないですよねすみません。なんとか自分で調べてみます。
次は対戦物にしたかったんですよ。縦STGの１対１みたいな画面にして、動きをそれぞれ別のプログラムでうごかして
┏━━━━━┓
┃　　▽　　┃
┃　　・←弾┃
┃　　　　　┃
┃　　　▲　┃
┗━━━━━┛
どんなプログラムが一番強いかを競う、てやつ。わかりずらくて本当すみません
231 ：のｍ：04/12/16 17:50:51 ID:I3lVmA9U: キャラの動きのルーチンがいくつかあってそれを本体で呼び出して勝ち抜きみたいにするってこと?
例えば動きのルーチン0と2があったとすると
thread(0,1)join(1)
thread(2,3)join(3)
てやれば0の動きが先だけど2匹を戦わせる事が出来ると思うよ。
でもezBASICじゃ毎回スレッド呼び出すのはキツイと思うよ。重い
232 ：非通知さん＠アプリ起動中 ：04/12/16 18:02:24 ID:Au8iufg9: ▽を動かすプログラム
▲を動かすプログラム
を独立させてthreadで呼び出しながら縦シューで遊べないかなと。
将棋でたとえると
将棋本体のプログラム
先手を打つプログラム
後手を打つプログラム
の3つにわけて、打つプログラムだけはみんなでつくって誰のプログラムが最強か、の縦シューバージョンみたいなやつです。でも無理ぽですかね？
233 ：非通知さん＠アプリ起動中 ：04/12/27 01:34:04 ID:goekBw3H: おもしろそーだったので、ボンバーマン形式でプログラムを戦わせるゲーム作りました
┌───────┐
｜ ①←ボム｜
｜ □ ｜
｜｜
｜｜
｜ ■① ｜
｜｜
└───────┘
・■を動かすプログラム
・□を動かすプログラム
・①をsleep()を使って数秒後に爆発させるプログラム(接触判定で勝敗を決める)

これらのプログラムをthred("",)でまとめる
234 ：のｍ：04/12/27 11:02:39 ID:L82bdmAU: ボムはsleepより時間を取得するやつで3秒計ったほうがいいと思うよ？
sleepじゃプログラムが止まる＝操作もできなくなるわけだから
235 ：非通知さん＠アプリ起動中 ：04/12/27 15:42:43 ID:OIetxWb5: >233
ぜひやってみたいです
236 ：のm ：04/12/27 18:47:32 ID:TAXBg0NB: 俺もやりたいです。もしかしてもう本体プログラムがあるの？
あるとしたらどういう感じで子スレッドを書けばいいですかね？(キャラの大きさとか歩くスピードの制限とか)
あと非QVGAの方がいいです。(みんなができる)
237 ：非通知さん＠アプリ起動中 ：04/12/27 18:57:21 ID:OIetxWb5: 自分もそれが気になるんですよ。
はじめは本体には判定だけにしようと思ったんですけど、もっとわかりやすくしようと思って子スレッドにはひとつの数字を返してもらうように考えたんです。たとえば

返す値が1なら前に進む2なら右を向く5なら弾をだす。
プログラム一行にたいし数字を１づつたしてって、その数字を比較してたとえば二倍差があれば弾が２マス進む、みたいにしようとしたけど途中で中断しちゃったんで、参考がてらできてるならプログラムみてみたいです
238 ：非通知さん＠アプリ起動中 ：04/12/27 23:27:36 ID:OIetxWb5: 本体
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
239 ：非通知さん＠アプリ起動中 ：04/12/27 23:31:12 ID:OIetxWb5: サンプル1,2にe=1f=1endいれても動いてくれないのはなんでですかね？
ab→●のXY軸
cd→○のXY軸
ef→子スレッドで1から4を返す、1ならx軸に+5
みんなでひとつの作品つくってみたいっすね
240 ：のm ：04/12/27 23:56:49 ID:TAXBg0NB: >>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軸､時間経過を表してます。
勝敗決定とかはついてませんね。
241 ：のm ：04/12/28 09:53:56 ID:+io8LHB4: 本体。ちょっと変えました。
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
242 ：のm ：04/12/28 09:54:55 ID:+io8LHB4: 子スレッド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
243 ：のm ：04/12/28 09:55:53 ID:+io8LHB4: 子スレッド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
244 ：非通知さん＠アプリ起動中 ：04/12/28 14:56:04 ID:N2fy7yuR: すごい^^かなり形になってますね。
で質問なんですけど、画面がチカチカしないのはなんでですか？
自分はclear→text→clearの繰り返しだからチカチカするんですよね
245 ：のm ：04/12/28 16:33:17 ID:+io8LHB4: lock()～描画～unlock(1)yield()
てやればチカチカしないです。遅くもなりますが…
yield()は動きがガクガクってなるときだけつければいいです。
246 ：非通知さん＠アプリ起動中 ：04/12/30 03:24:20 ID:IWFOesdb: <238さん凄いです
233です携帯がJavaに対応してないのでプログラムはアップできません…すいません、解約した携帯で作ったので

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

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

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

こんな流れです

爆弾はauだったら絵文字を使うとﾘｱﾙですよ
247 ：Pu助 ：04/12/30 04:49:58 ID:IWFOesdb: まず本体

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
248 ：Pu助 ：04/12/30 05:01:38 ID:IWFOesdb: ｢ボム｣で保存

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
249 ：のm ：04/12/30 09:06:36 ID:zidzEZyO: すごいよかったです！
なにより早いですしマルチスレッドの使い方があんまりわかってなかったので勉強になりました。
じゃあ敵のXY軸がDとEですよね？とりあえず敵の動き考えてみま～す!
250 ：非通知さん＠アプリ起動中 ：04/12/30 10:32:23 ID:IWFOesdb: そうです敵がDとEです｡このプログラムの場合thread("","")で呼び起こした小プログラムを本体プログラムと同時に動かしています。(重くなりますが)
251 ：非通知さん＠アプリ起動中 ：04/12/30 12:22:54 ID:IWFOesdb: ｢敵｣で保存

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の秒数を変化させれば敵の強さが設定でき
アプリが速い機種なら十分遊べるくらいの速さになります
252 ：非通知さん＠アプリ起動中 ：04/12/30 12:27:38 ID:IWFOesdb: 234のsleep以外の時間の取得ってどうやるんですか？
253 ：のm ：04/12/30 14:52:38 ID:zidzEZyO: ﾎﾞﾑは一つのスレッドにまとめればどっちの爆弾でもくらえてﾎﾞﾝﾊﾞｰﾏﾝぽくなりますよ。
敵スレッドで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とかいろいろありますよ。
254 ：非通知さん＠アプリ起動中 ：04/12/30 19:39:19 ID:IWFOesdb: 改良ありがとうございます。のmさんのプログラム大変参考になります
255 ：非通知さん＠アプリ起動中 ：04/12/30 21:09:20 ID:gmqO8m2U: なんだ？あいべ－しっくって？
256 ：非通知さん＠アプリ起動中 ：04/12/31 04:37:44 ID:lrBYF5XR: 本体
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
257 ：非通知さん＠アプリ起動中 ：04/12/31 04:41:39 ID:lrBYF5XR: サンプル
A=1
end
これで移動した先にくっついてくプログラムてどうすればよいでしょ
●
↓
●
●下に移動
↓
●
●●横に移動
↓
●●●また横移動
↓
●●
□●下移動(□はスペース)
258 ：非通知さん＠アプリ起動中 ：04/12/31 05:21:03 ID:lrBYF5XR: 自己解決しました
259 ：非通知さん＠アプリ起動中 ：04/12/31 05:53:14 ID:lrBYF5XR: 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
260 ：非通知さん＠アプリ起動中 ：04/12/31 05:58:55 ID:lrBYF5XR: ab,ghがメインのxy軸、(c,d)(e,f)と(i,j)(k,l)が影です。A、Bで動きを指定。相手の影踏むか陣地☆とったら勝ち、というのやりたいんですが、場外の判定がアチコチいじってたらダメになっちゃいました。
どう直せばよいでしょか？
261 ：非通知さん＠アプリ起動中 ：04/12/31 11:37:38 ID:z3BkSlfB: それは場外に落ちないようにするんじゃなくて場外に落ちたら負けという風にするんですか？
262 ：非通知さん＠アプリ起動中 ：04/12/31 12:41:10 ID:lrBYF5XR: 基本的には落ちないようにプログラムくんでもらいますが、プログラム誤って落ちたら負け、としたいです
263 ：非通知さん＠アプリ起動中 ：05/01/06 05:39:31 ID:sCU6h4O4: age
264 ：非通知さん＠アプリ起動中 ：05/01/07 01:05:00 ID:Zat7AiOq: 保守
265 ：非通知さん＠アプリ起動中 ：05/01/15 01:31:56 ID:ODmu012I: age
266 ：べーしっ君 ◆w5dyDtGv0k ：05/01/15 15:39:47 ID:bPEQqtR8: 携帯でBASIC風のプログラムを実行できる「iBASIC」(Tabrisさん製作)を拡張しました。
（自由な変数名と配列の対応、プロジェクト管理機能、ソ―スのインクルード機能、待受け設定機能など）
※P505で動作確認しました。

ttp://satoo.jp/i/basic/
267 ：べーしっ君 ◆w5dyDtGv0k ：05/01/15 15:48:45 ID:bPEQqtR8: とりあえず名前は「携帯BASIC」としました。
時間があればEZ版とJ版も作りろうと思っています。
バグ報告や要望も募集してます。
268 ：非通知さん＠アプリ起動中 ：05/01/15 17:12:11 ID:YM+tKcps: EZ版マジで期待してます！おねがいします
269 ：非通知さん＠アプリ起動中 ：05/01/15 21:48:54 ID:YM+tKcps: 前に俺がここに乗せたSFCaveがサンプルで入ってる…すげぇ。古いバージョンだけど
270 ：べーしっ君 ◆w5dyDtGv0k ：05/01/15 22:57:40 ID:wYZt6+K3: すみません勝手に収録させて貰いました。
携帯BASIC新機能でハイスコアを保存できるようになってます。
271 ：非通知さん＠アプリ起動中 ：05/01/16 00:57:13 ID:8aY1XAe5: うぉーーすげーー！
作者さんですよね？お願いがあるんですができればEZに移植するときにでもImage変数も扱えるようにしてほしいです！一つ目はImage.createImageで指定サイズのキャンバスを作りそこに図形描画などをして画像にする。
二つ目はbyte配列から作る方法、これはパソコンとかが必要になりますが、画像のバイト配列をint型にしてアプリに打ち込んで生成する。Image.createImage(buf,0,buf.length)
難しいと思いますが、16進表記も使えるようにしてください。
あつかましいようですがこれができたらかなりゲームぽくなると思うので世露死苦お願いします。
ついでにもう一つImageの二つ目の方法でmmfかspfを使えるようにしてください(mmfはデータフォルダ読み込みでもいいです)。
272 ：非通知さん＠アプリ起動中 ：05/01/16 09:37:09 ID:H0mSSdRy: おまいら!!
iBASICもいいけどこんなのもあるぞ！
ttp://www.c3-place.com/i/makers/index.html
273 ：271 ：05/01/16 16:23:40 ID:8aY1XAe5: byte配列からリソースを作る件ですが
byte[]→int[]→Stringだとsaveするとき容量を取りまくってしまうと思うので、リソース生成機能としてメニュー選ぶとこに別に作ってできたリソースに名前をつけてbyte[]で保存できるようにした方がいいと思います。
で呼び出すときにImage=res(～)として使えるようにしてほしいです。
arcは開始角と描画角も指定できてsetClipなんかも使えるとうれしいです。

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

Imageに対応についてはドットエディタのようなImage作成アプリを別につくるか内蔵して
作ったデータをテキストボックスにコピぺできるようにしてアプリの中に読み込めるようにするとか。
そうなると夢がひろがりますかねぇ。
275 ：非通知さん＠アプリ起動中 ：05/01/17 16:36:25 ID:8HEmHCVr: byte[]をテキストボックスに入力するときどういう形にするのがいいですかね？
276 ：非通知さん＠アプリ起動中 ：05/01/18 08:21:49 ID:33UawEPj: >>274
とりあえず
・文字列 - 整数の変換を毎回やっているのを減らす
・整数を32bitに
のふたつをやればかなり高速化できるはず。
特に前者はiBasic最大の弱点。

でも、それをやると、文字列型と整数型に変数を分けないといけないとか、
関数も文字列型を返す関数と整数を返す関数に明確に分けないといけないとか
言語仕様自体をいじらないといけなくなるから俺は一朝一夕でできることではないと思って、
ちょっと保留していた。
277 ：276 ：05/01/18 08:23:38 ID:33UawEPj: >>274
俺はImageStore.getEntryでデータフォルダの画像とアプリを関連づけて
使えるようにしたらいいかなと思っていた。
278 ：べーしっ君 ◆w5dyDtGv0k ：05/01/18 10:34:16 ID:o2mdTvxb: >>276
整数を32bitにはすでに変更してます。
あと変数の自由な名前や配列対応のために変数をハッシュテーブルで管理しちゃってるんで、
やっぱり一文字制限にもどすとか、別の管理方法にするとかしないとだめかも。
文字列 - 整数の変換は改造するとき悩んだけど、
iBASICの簡単さのためにとりあえず残しました。

画像のことはキャリアごとに互換性を持たしたいのと、作ったアプリを手軽に
掲示板に貼り付けて共有できるようにしたいので悩み中。
279 ：非通知さん＠アプリ起動中 ：05/01/19 20:49:14 ID:v6raS0yQ: 前の方にあったものを改造して動く物を作ろうとしたのですが､正常に動作しません｡
誰か解るが人居たら指摘お願いします。

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)
280 ：非通知さん＠アプリ起動中 ：05/01/19 20:51:55 ID:v6raS0yQ: 続きです

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
281 ：279 ：05/01/19 20:55:21 ID:v6raS0yQ: 因みに動かしたいものは下記です｡

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
282 ：非通知さん＠アプリ起動中 ：05/01/20 02:12:43 ID:GONF2HDt: 本体
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
283 ：非通知さん＠アプリ起動中 ：05/01/20 02:14:48 ID:GONF2HDt: 真ん中
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
284 ：非通知さん＠アプリ起動中 ：05/01/20 02:16:30 ID:GONF2HDt: 右
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
285 ：非通知さん＠アプリ起動中 ：05/01/20 02:17:46 ID:GONF2HDt: 左
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
286 ：非通知さん＠アプリ起動中 ：05/01/20 02:21:01 ID:GONF2HDt: lock()～描写～unlock(0)のlock()はどこに書けばよいんでしょうか？
labelのあたりに書くと動かなくなるし、イマイチわかんないです
287 ：非通知さん＠アプリ起動中 ：05/01/20 05:23:18 ID:GONF2HDt: 自己解決しました
288 ：非通知さん＠アプリ起動中 ：05/01/20 18:28:32 ID:W/qOSC/9: 携帯BASICで画像を扱うやつは少なくともキャンバスを生成して作る方ぐらいならキャリアの違いも関係ないと思うので実装していただきたいです。
あつかましくてすいません(^_^;
289 ：非通知さん＠アプリ起動中 ：05/01/20 21:38:57 ID:GONF2HDt: ｽﾗｲﾑ
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
290 ：非通知さん＠アプリ起動中 ：05/01/20 21:39:47 ID:GONF2HDt: 上
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
291 ：非通知さん＠アプリ起動中 ：05/01/20 21:40:40 ID:GONF2HDt: 下
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 ：(>-< ◆E9k1wjKgHI ：05/01/21 22:05:27 ID:EixVrcqy: フォントの大きさ変えるのは、どうすればいいんですか？
293 ：非通知さん＠アプリ起動中 ：05/01/21 22:48:24 ID:O4tj7DWo: 多分できないと思います
294 ：非通知さん＠アプリ起動中 ：05/01/21 23:13:33 ID:O4tj7DWo: 今どんなの作ってるとかこんなん作ろうと思ってるとかみんなで発表してみませんか？
295 ：べーしっ君 ◆w5dyDtGv0k ：05/01/22 08:20:47 ID:z1SUx9YY: >>292
携帯ＢＡＳＩＣではできますよ。
・setfont(a1)
フォントのサイズを指定。a1は"T"（極小）,"S"（小）,"M"（中）,"L"（大）を指定。初期設定では"T"

とりあえず現在はez版とj版に移植してます。画像対応などはそのあとになると思います。
296 ：(>-< ◆E9k1wjKgHI ：05/01/22 11:15:46 ID:PhN/L+7C: >>295
有難うございますo(^-^)o
また分からない事が有ったら、此処にきていいですか？
297 ：非通知さん＠アプリ起動中 ：05/01/22 15:13:12 ID:4Knbp8jc: 関数の名前を集めて携帯用の辞書ファイル作ったらかなり楽になるかもね．

携帯Basicについて，
SH505iですが，マニュアルが途中で切れて最後まで読めません（512字？）
298 ：非通知さん＠アプリ起動中 ：05/01/22 16:44:27 ID:4Knbp8jc: 命令辞書辞書自分で作りました．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」）
299 ：非通知さん＠アプリ起動中 ：05/01/22 18:08:10 ID:U//KVss1: label 1
for～
プログラム
goto 2

label 2
プログラム
next

goto～labelを挟んだfor～nextっていうのはダメなんですか？
300 ：非通知さん＠アプリ起動中 ：05/01/24 16:28:50 ID:rkNn1lNi: 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("ﾋﾟｸｼｰ","ぴ")
301 ：非通知さん＠アプリ起動中 ：05/01/24 16:30:12 ID:rkNn1lNi: 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が呼び出されないのってなんでですかね？
302 ：非通知さん＠アプリ起動中 ：05/01/24 22:17:19 ID:rkNn1lNi: 一緒にｹﾞｰﾑﾌﾞｯｸezbasicでつくりませんか？
といってみる(´･д･`)
303 ：非通知さん＠アプリ起動中 ：05/01/24 23:53:36 ID:MHd0LP37: 俺は上の方にあるボンバーマンみたいなことがやりたいな．

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

とりあえず携帯Basicの他キャリア版を待つことにしましょう．
304 ：非通知さん＠アプリ起動中 ：05/01/25 00:12:07 ID:oWiEfLO0: >303
携帯ベーシックまでのつなぎになんかつくろと思ったんだけどね。
一人で頑張ってみます
305 ：非通知さん＠アプリ起動中 ：05/01/25 01:41:45 ID:A2qtEoKE: >>303
俺が今作ってたりするw
306 ：非通知さん＠アプリ起動中 ：05/01/25 16:51:46 ID:QVh7HtU1: >>305

ん？　まとめサイト？
307 ：非通知さん＠アプリ起動中 ：05/01/25 17:44:39 ID:A2qtEoKE: >>307
まとめサイト｡
308 ：307 ：05/01/25 17:52:43 ID:A2qtEoKE: 自分に言ってどーすんだorz
×>>307
○>>306
309</