333 :
デフォルトの名無しさん :05/01/10 16:30:47
*main stick mm,256 if mm=256 : gosub *hidakuri if mm=512 : gosub *migikuri if mm=1 :goto *syokika if start=1{ if temptime!gettime(6) { timenow++ temptime=gettime(6) title "開始から"+timenow+"秒経過" } if temptime=60 :temptime=0 } await 30 : goto *main *senhiku color 255,255,255 repeat tate : line 0,cnt*20,yoko*20,cnt*20 : loop repeat yoko : line cnt*20,0,cnt*20,tate*20 : loop return *hidakuri if start=0{ temptime=gettime(6) start=1 } itix=mousex/20 itiy=mousey/20 if hyo(itix,itiy)!0 : return if baku(itix,itiy)=1 {
334 :
デフォルトの名無しさん :05/01/10 16:33:48
color 255,0,0 boxf 20*itix,20*itiy,20*itix+20,20*itiy+20 goto *gameover } else { color 150,150,150 boxf 20*itix,20*itiy,20*itix+20,20*itiy+20 mawarinasi(0)=(itiy*yoko)+itix index=0 gosub *bakuche } gosub *senhiku return *bakuche repeat title "処理中..."+index itiy=mawarinasi(index)/yoko itix=mawarinasi(index)\yoko mawarinasi(index)=0 index-- hyo(itix,itiy)=2 gosub *mawache if mawabaku!0 { pos 20*itix+6,20*itiy color mes mawabaku } else { kurix=itix : kuriy=itiy repeat 3 : count=cnt repeat 3
335 :
デフォルトの名無しさん :05/01/10 16:38:35
if (count=1)&(cnt=1) : continue if (kurix=0)&(cnt=0) :continue if (kuriy=0)&(count=0) :continue if (kurix>yoko-2)&(cnt=2) :continue if (kuriy>tate-2)&(count=2) :continue itix=kurix-1+cnt : itiy=kuriy-1+count if hyo(itix,itiy)=2|hyo(itix,itiy)=3 : continue gosub *mawache if mawabaku!0 { color pos 20*itix+6,20*itiy// mes mawabaku} loop loop itix=kurix :itiy=kuriy} await 1 if index<0 :break loop:return *mawache mawabaku=0 repeat 3 :countt=cnt repeat 3 if (countt=1)&(cnt=1) :continue if (itix=0)&(cnt=0) :continue if (itiy=0)&(countt=0) :continue if (itix>yoko-2)&(cnt=2) :continue if (itiy>tate-2)&(countt=2) :continue tempx=itix-1+cnt : tempy=itiy-1+countt if baku(tempx,tempy)=1 { mawabaku++ } loop loop
336 :
デフォルトの名無しさん :05/01/10 16:41:30
if (mawabaku=0)&(hyo(itix,itiy)!2)&(hyo(itix,itiy)!3) { index++ mawarinasi(index)=(itiy*yoko)+itix hyo(itix,itiy)=3} if mawabaku>0 { hyo(itix,itiy)=4} redraw 0 color 150,150,150 boxf 20*itix,20*itiy,20*itix+20,20*itiy+20 redraw 1 return *migikuri itix=mousex/20 : tempx=itix*20 itiy=mousey/20 : tempy=itiy*20 if hyo(itix,itiy)=0 { color 0,255,0 pos tempx,tempy+2 mes "£" hyo(itix,itiy)=1 return} if hyo(itix,itiy)=1{ color : boxf tempx,tempy,tempx+20,tempy+20 hyo(itix,itiy)=0 gosub *senhiku return} return *gameover dialog "GAME OVER...\n再チャレンジしますか?",2,"マインスイーパ" if stat=6 :goto *syokika
337 :
デフォルトの名無しさん :05/01/10 18:47:07
LUMINESで間違いない。
そうか、これがLUMINESだったのか。
マトリックス風です。誰かもっといいの作って下さい screen 0,620,400 : dim x,1000 : dim y,1000 : dim r,1000,1000 repeat 56 m=cnt : x.m=xx c+ : if c=8 : xx+=10 : c=0 xx+=10 loop repeat 20 n=cnt : y.n=yy : yy+20 loop *main redraw 0 : color 0,0,0 : boxf gosub *moji : gosub *hyouji : gosub *idou redraw 1 : wait 10 : goto *main *idou repeat 20 n=cnt : y.n-=10 if y.n<0 : y.n=390 loop : return *hyouji repeat 20 n=cnt repeat 56 m=cnt : pos x.m,y.n : color 0,255,0 : mes r.m.n loop : loop return *moji repeat 20 n=cnt repeat 56 m=cnt : rnd r.m.n,10 loop : loop : return
341 :
デフォルトの名無しさん :05/01/13 23:39:07
>>340 画面の上の方が気になったんで修正してみた
screen 0,620,400 : dim x,1000 : dim y,1000 : dim r,1000,1000
repeat 56
m=cnt : x.m=xx
c+ : if c=8 : xx+=10 : c=0 : xx+=10
loop
repeat 21
n=cnt : y.n=yy : yy+20
loop
*main
redraw 0 : color 0,0,0 : boxf
gosub *moji : gosub *hyouji : gosub *idou
redraw 1 : wait 10 : goto *main
*idou
repeat 21
n=cnt : y.n-=10
if y.n<-20 : y.n=390
loop : return
*hyouji
repeat 21
n=cnt
repeat 56
m=cnt : pos x.m,y.n : color 0,255,0 : mes r.m.n
loop : loop
return
*moji
repeat 21
n=cnt
repeat 56
m=cnt : rnd r.m.n,10
loop : loop : return
>>340 連投ですまんが下の方も気になったんで
screen 0,620,400 : dim x,1000 : dim y,1000 : dim r,1000,1000
repeat 56
m=cnt : x.m=xx
c+ : if c=8 : xx+=10 : c=0 : xx+=10
loop
repeat 22 : n=cnt : y.n=yy : yy+20 : loop
*main
redraw 0 : color 0,0,0 : boxf
gosub *moji : gosub *hyouji : gosub *idou
redraw 1 : wait 10 : goto *main
*idou
repeat 22
n=cnt : y.n-=10
if y.n<-20 : y.n=410
loop : return
*hyouji
repeat 22
n=cnt
repeat 56
m=cnt : pos x.m,y.n : color 0,255,0 : mes r.m.n
loop : loop
return
*moji
repeat 22
n=cnt
repeat 56
m=cnt : rnd r.m.n,10
loop : loop : return
ごめん、失敗してたorz screen 0,620,400 : dim x,1000 : dim y,1000 : dim r,1000,1000 repeat 56 m=cnt : x.m=xx c+ : if c=8 : xx+=10 : c=0 xx+=10 loop repeat 23 n=cnt : y.n=yy : yy+20 loop *main redraw 0 : color 0,0,0 : boxf gosub *moji : gosub *hyouji : gosub *idou redraw 1 : wait 10 : goto *main *idou repeat 23 n=cnt : y.n-=10 if y.n<-20 : y.n=430 loop : return *hyouji repeat 23 n=cnt repeat 56 m=cnt : pos x.m,y.n : color 0,255,0 : mes r.m.n loop : loop return *moji repeat 23 n=cnt repeat 56 m=cnt : rnd r.m.n,10 loop : loop : return
344 :
デフォルトの名無しさん :05/01/14 00:02:50
>>340 >>343 ずっと見てると上に向かってるのか下に向かってるのかがわからなくなるな
目の錯覚か
>>341 ウホッ!
ありがとうございます
本物っぽく半角カナも混ぜてみたいんですが大変そう・・・
screen 0,640,400 : buffer 3,640,420 : font "MS ゴシック",16,1 cls 4 : color 0,255,0 sdim msg,256 : sdim dat,256 dat = " 0123456789アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲン" strlen dlen,dat repeat msg = "" repeat 64 rnd a,dlen : strmid c,dat,a,1 msg += c if (cnt\8)=0 : msg += " " loop gsel 3 : pos 0,0 : color 0,255,0 : mes msg gsel 0 : i = 16 repeat 16 redraw 0 pos 0,0 : gcopy 3,0,i,640,400 redraw 1 i-- await 20 loop gsel 3 : cls 4 : pos 0,16 : gcopy 0,0,0,640,400 loop
347 :
デフォルトの名無しさん :05/01/15 11:34:33
ここにHSPを使ったウィルス・スクリプトなぞ書いたらどうなるのかな
読んで分からないものを実行する馬鹿は、普通のウイルスにもすでにかかっているだろうよ
350 :
デフォルトの名無しさん :05/02/01 23:24:25
screen 0,640,400 : buffer 2,32,32 : cls 4 : font "MS ゴシック",16,1 buffer 3,640,420 : cls 4 : sdim dat,256 dat = " 0123456789アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲン" strlen dlen,dat repeat i=0 repeat 64 rnd a,dlen : strmid c,dat,a,1 gsel 2 : color 0,0,0 : boxf 0,0,12,16 pos 0,0 : color 0,255,0 : mes c : rnd a,2 : a = (a*2-1)*8 gsel 3 : pos i*9+((8-a)/2),0 : gzoom a,16,2,0,0,8,16 : i++ if (cnt\8)=0 : i++ loop gsel 0 : i = 16 repeat 16 redraw 0 pos 0,0 : gcopy 3,0,i,640,400 redraw 1 i-- await 20 loop gsel 3 : cls 4 : pos 0,16 : gcopy 0,0,0,640,400 loop ;ちょっと改造してみた ;あとは色がぼやけるとかそういうのができると面白いんだけど…
353 :
デフォルトの名無しさん :05/02/09 05:39:22
//画像をマトリックス風に表示する //画像が大きいと処理が遅くなるので一旦縮小してます title "matrix":dialog "bmp;*.jpg",16:if stat=0:end f=10:s=" 0123456789アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲン":strlen l,s buffer 2:picload refstr:x=winx:y=winy:if x>64{x=64}if y>32{y=32}z=x*y dim c,z:gzoom x,y,2,0,0,winx,winy:randomize repeat z:pget cnt\x,cnt/x:c.cnt=rval+gval+bval/3:loop sdim t,$f,z:repeat z:rnd r,l:strmid t.cnt,s,r,1:loop font "MS Gothic",f:pos x:mes "*":ginfo 7:w=prmx:h=prmy screen 0,x*w+(x/8*w),y*h,1:font "MS Gothic",f repeat 256:palette cnt,0,cnt,0:loop:palfade repeat:if cnt=y{continue 0}n=y-cnt:redraw 0:palcolor 0:boxf repeat z:if cnt\8=0{i++}if cnt\x=0{i=0} pos cnt\x*w+(i*w)+(w/2),cnt/x*h:a=cnt+(n*x):if a>=z:a-z rnd r,32: rnd p,2: r=c.cnt +(r*(p*-2+1)):if r<0:r=0:else if r>255{r=255} palcolor r:mes t.a:loop:redraw 1:await 10,10:loop
マトリックス風のおもろい GJ !
俺用しおり
>>340-343 ,346,352,353
すげーな!
>>355 もまいの書き込み時間もなかなかのものだ
357 :
340 :05/02/10 18:57:50
>>353 こんなショートプログラムでここまでできるんだね。ふーん…
久々に暇プロしてみっかな
screen 0,200,200,0:rule=90 pset winx/2,0:title ""+rule+"" l="":repeat 9:buf=rule>>(8-cnt)\2:l=l+buf:loop:int l:str l,8:buf="" sdim p,3,8:p="111","110","101","100","011","010","001","000" sdim r,1,8:repeat 8:strmid buf,l,cnt,1:r.cnt=buf:loop repeat winy:redraw 1:redraw 0:t=cnt:rest=winy-t title "rest: "+rest+" (rule #"+rule+")" repeat winx:h=cnt+1:b="" pget h-1,t:if rval:b="0" :else:b="1" pget h,t:if rval:b=b+"0":else:b=b+"1" pget h+1,t:if rval:b=b+"0":else:b=b+"1" repeat 8:if (b=p.cnt)&(r.cnt="1"):pset h,t+1:break loop:wait 1:loop:loop title "complete.":stop ; 頭の悪いソースですがトイレに行く間にでも動かしてみてください ; ruleを30とかにしても面白いです
360 :
デフォルトの名無しさん :2005/04/03(日) 17:24:18 BE:79313647-
361 :
:2005/04/03(日) 17:31:11 BE:118969676-
age
362 :
E :2005/04/06(水) 11:17:11
age
363 :
デフォルトの名無しさん :2005/04/16(土) 15:11:54
age
364 :
デフォルトの名無しさん :2005/05/08(日) 20:17:53
age
良スレsage
366 :
デフォルトの名無しさん :2005/06/08(水) 15:56:10
mes "ぬるぽ" stop
#define SCALE 0.0001//グラフの正確さに影響 #define G_SIZE 200//グラフの大きさに影響 #define ST 0//ループの開始値 #define ED 10000//ループの終了値 #define WAITTIME 1//ループのウェイト #define RNDRANGE 63//乱数の範囲 WINSIZE_X=500//ウィンドウサイズ(幅) WINSIZE_Y=500//ウィンドウサイズ(高さ) *INITIALIZE cls 0 title "グラフ" width WINSIZE_X,WINSIZE_Y//ウィンドウサイズを設定 line 0,WINSIZE_Y/2,WINSIZE_X,WINSIZE_Y/2// x軸を引く line WINSIZE_X/2,0,WINSIZE_X/2,WINSIZE_Y// y軸を引く randomize x1 = rnd(RNDRANGE) + 1 x2 = rnd(RNDRANGE) + 1 y1 = rnd(RNDRANGE) + 1 y2 = rnd(RNDRANGE) + 1 pos 0, 0 mes "x = cos(" + x1 + "*t) * sin("+ x2 + "*t)" mes "y = cos(" + y1 + "*t) * sin("+ y2 + "*t)" pos WINSIZE_X - 65, WINSIZE_Y - 45 button "&Restart" , *INITIALIZE
*START i=ST while 1 x=cos(SCALE * i * x1) * cos(SCALE * i * x2)// x の式 y=cos(SCALE * i * y1) * sin(SCALE * i * y2)// y の式 x*=G_SIZE y*=G_SIZE if i==ST{ pset x,y }else{ line xx + WINSIZE_X / 2, - yy + WINSIZE_Y / 2, x + WINSIZE_X / 2, - y + WINSIZE_Y / 2 } xx=x yy=y color 255, 255, 255 boxf 0, WINSIZE_Y - 45, WINSIZE_X / 2 - 4, WINSIZE_Y color 0, 0, 0 pos 0, WINSIZE_Y - 40 mes "t = " + (SCALE * i) if (i&255)==0{ wait 1 } i++ wend stop
↑は3.0Beta10でうごく
370 :
デフォルトの名無しさん :2005/06/18(土) 23:27:14
うんこ出た。
タイピングゲームっぽいの試しに作って見ました。 前編↓ boxf 0,0,640,480:pos 100,100:color 255,255,255:mes "タイピング汁" wait 20:Mcl="" *m1a:redraw 0:MclS=0 font "MS 明朝",50,1:color 100,255,100:pos 380,200:mes "オマエモナ" color 255,255,255:pos 399,250:mes "omaemona":pos 401,250 mes "omaemona":pos 400,249:mes "omaemona":pos 400,251 mes "omaemona":color 0,0,0:pos 400,250:mes "omaemona":color 250,0,0 pos 400,250:mes Mcl:redraw 1:*m1b *bunnki if Mcl="" : goto *mozi1 if Mcl="o" : goto *mozi2 if Mcl="om" : goto *mozi3 if Mcl="oma" : goto *mozi4 if Mcl="omae" : goto *mozi5 if Mcl="omaem" : goto *mozi6 if Mcl="omaemo" : goto *mozi7 if Mcl="omaemon" : goto *mozi8 if Mcl="omaemona" : goto *mozi9 wait 1:goto *m1b *mozi1 getkey O,79 if o=1 : Mcl="o"
後編↓ if Mcl="o" : goto *uego wait 1:goto *m1b *mozi2:getkey M,77 if m=1 : Mcl="om" if Mcl="om" : goto *uego wait 1:goto *m1b *mozi3 getkey A,65 if a=1 : Mcl="oma" if Mcl="oma" : goto *uego wait 1:goto *m1b *mozi4 getkey E,69 if e=1 : Mcl="omae" if Mcl="omae" : goto *uego wait 1:goto *m1b *mozi5 getkey M,77 if m=1 : Mcl="omaem" if Mcl="omaem" : goto *uego wait 1:goto *m1b *mozi6 getkey O,79
最後↓ if o=1 : Mcl="omaemo" if Mcl="omaemo" : goto *uego wait 1:goto *m1b *mozi7 getkey N,78 if n=1 : Mcl="omaemon" if Mcl="omaemon" : goto *uego wait 1:goto *m1b *mozi8 getkey A,65 if a=1 : Mcl="omaemona" if Mcl="omaemona" : goto *uego wait 1:goto *m1b *uego:goto *m1a *mozi9:font "MS 明朝",15,1:color 250,255,0:pos 300,320 mes "ミッションコンプ!\nお疲れしたっ!":redraw 1 wait 200:stop wait 1:goto *M1A
本家は相変わらずだなw
375 :
デフォルトの名無しさん :2005/07/10(日) 01:00:11
うんこ出た。
釣れてやんの ご苦労さん基地害君
377 :
デフォルトの名無しさん :2005/07/10(日) 01:44:09
うんこ出た。
378 :
デフォルトの名無しさん :2005/07/10(日) 03:59:59
うんこ出た。
379 :
2222 :2005/08/11(木) 09:23:00
きゃぁ!!!この文章をみた人は運が良すぎぃ!!! このメールは新型ですww 好きな人から告白★されたり・・・ 嫌いな人が不幸になったり・・・ 欲しい物が手に入ったり・・・ もうもう幸せすぎて、倒れそう!!!ww でもねぇ・・・絶対にやらなければいけないことがあるの・・。 それは・・・【この文章を他のスレに3個貼る】これだけよ!! どう?簡単でしょぉ??でもこれをしないと幸せにはなれないよ・・。 最後に一言・・・皆に幸せがおとずれますように・・・(^0^)
380 :
デフォルトの名無しさん :2005/08/11(木) 23:37:31
うんこ出た。
381 :
名無しさん@そうだ選挙に行こう :2005/09/11(日) 17:29:25
screen 0,180,50,,ginfo(20)/3,ginfo(21)/3 gsel 0,2 *tokei redraw 0 t4=gettime(4) : if t4<10 : t4="0"+t4 t5=gettime(5) : if t5<10 : t5="0"+t5 t6=gettime(6) : if t6<10 : t6="0"+t6 tt=""+t4+":"+t5+":"+t6 font "MS ゴシック",50,1 color 0,0,0 : boxf color 255,255,0 : pos 0,0 : mes tt redraw 1 wait 100 goto *tokei HSP3の時計。
382 :
デフォルトの名無しさん :
2005/09/12(月) 17:00:27 screen 0,180,64,,ginfo(20)/3,ginfo(21)/3 gsel 0,2 *tokei redraw 0 color 0,0,0 : boxf yy="日月火水木金土" d0=gettime(0) d1=gettime(1) : if d1<10 : d1="0"+d1 d3=gettime(3) : if d3<10 : d3="0"+d3 d2=strmid(yy,gettime(2)*2,2) dd=""+d0+"/"+d1+"/"+d3+"("+d2+")" font "MS ゴシック",20,1 color 125,125,125 : pos 1,1:mes dd color 255,255,255 : pos 0,0:mes dd t4=gettime(4) : if t4<10 : t4="0"+t4 t5=gettime(5) : if t5<10 : t5="0"+t5 t6=gettime(6) : if t6<10 : t6="0"+t6 tt=""+t4+":"+t5+":"+t6 font "MS ゴシック",50,1 color 125,125,0 : pos 2,16:mes tt color 255,255,0 : pos 0,14:mes tt redraw 1 wait 100 goto *tokei 年月日と影をつけた。