5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

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最強!!!LINEとかが・・・

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だと6行目の 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
非通知さんが作りたいのはコレ?赤い線が上下してんだケド・・・
改行しなくても実際にこのままコピーで動きますよ。終了は1を押してください
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
上線の接触判定は(上から30の場所に線がある場合)例えば
if 55-i<27then exit endif
とかで出来る。迷路はやたら容量とるから簡単なコースしか作れないっぽい

29 :ezBASICの鬼:04/02/28 15:47 ID:LcmuFRkv
ezBASICでSFcaveつくった。
1500文字位もあるので欲しい人はメアドを乗せとけ!
おくっちゃる!

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!ブロック崩しも色々付いてきたからニューばーじょんもうすぐうpできますわ。

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
糞時計↓なんとなくうp。。。
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 を作りました。長いんでUPしました。
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」
内容:任意の数xを素因数分解します。EDITでxに適当な数を代入してください。
   5桁程度ならすぐに分解できます。素数だと時間がかかりますが。
   また、進行状況を%で表示します。
欠点:2の累乗の場合のみ、最後に1が表示されてしまいます。
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と数字との間を1つ空ければ大丈夫なはず。数字でないとだめですけど。
ちなみに数字の後はくっつけて書いても大丈夫なんで、アルファベットとかより
文字数が1文字稼げます。labelの場合も同じです。
それから「text(t,3,s)」を「text(""+t,3,s)」に変える意味はあるのですか?
右にずらすだけなら、3を8くらいに変えるだけで済むと思うのですが・・・。
最後にもうひとつ質問です。(質問ばっかですいません)
どういうわけか、はじめから入っているプログラムのうち、
「Lineart」と「Gradation」と「bouncer-demo」EDITできない(強制終了する)
んですけど、そちらもそうなりますか?仕様ですかね。

95 :ta-ko:04/03/21 13:52 ID:fgFSPOD/
ついでにもう1つ投稿。
プログラム名:「遊飛行」
内容:敵からひたすら逃げます。敵に攻撃することもできますが、
   敵は不死身なので死にません。どこまでも追ってきます。
   つかまるとゲームオーバーとなり、得点が表示されます。
操作方法:↑↓→←で移動、決定キー?で攻撃。
     (裏技:♯キーでワープ)
欠点:重いです。いろいろつけたら重くなりました。
   あと500文字ぎりぎりなんでちょっと心配。僕のは動きました。
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の3の部分を6とか9とか
に変えることで難易度調整できます。(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 大学の2人の数学者
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のプログラムを
なんでもいいからうpしてくれー
神サマ〜〜〜〜〜〜〜〜〜

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のPC用の「iBASIC 開発ガイド」が
詳しく書いてあるのでそこを見るといいかもしれません
PC用ですが、画像とか使ってないので最新機種なら見れるかも
自分は携帯を持ってないので確認がとれないです
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
age

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
そんなわけでゲームは文字数におさめられません
見るだけのものです。ソフトキー2で終了です。
一行目の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
某ミニゲームの刹那の見切りです。
二人用で1と3で戦います。終了は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

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
ありがd。今日から猿のようにやってますが、楽しいですなー(・∀・)

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
はじめまして;
小生、MSXなどでBASICをいぢってた者なのですが。
いまのPC上で昔のBASICの楽しさは味わえないのね。
ンデ、漂泊の身上はやいくとうせい・・・
(略)
デ、どうYO!?
どうなのYO、携帯アプリって;?
昔の味ってあるのかァ? もし、ココにMSXとかァー
ファンダムとかァー、マルチステートメントとかァー、きいて、
ニャリv
と、くる椰子がいたら、ご感想など拝聴したいのですが?





212 :非通知さん@アプリ起動中:04/11/28 04:51:45 ID:z9JjTs9G
イヤ;
「 聞くまへに打ち込め!」
が、BASIC道の鉄則、なのはヨーわかっとるんyo;
でも折れ携帯もって無ヒンです。
iBASICする為に携帯かう(契約)するワケで;
やっぱダメだぁコリャ〜状態だと、残るは、ドコからも
かかって来る予定の無ヒ、携帯がゴロンと転がってる訳で

カ、勘弁して下サイ(涙)
          


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について語ろうよ…

72 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)