自分で作ったHSPのソースを公開するスレ

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
>>331
ルミネス?
338デフォルトの名無しさん:05/01/10 20:19:17
LUMINESで間違いない。
339デフォルトの名無しさん:05/01/10 22:14:17
そうか、これがLUMINESだったのか。
340デフォルトの名無しさん:05/01/13 21:37:51
マトリックス風です。誰かもっといいの作って下さい
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
342341:05/01/13 23:41:44
>>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
343341:05/01/13 23:46:46
ごめん、失敗してた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
ずっと見てると上に向かってるのか下に向かってるのかがわからなくなるな
目の錯覚か
345デフォルトの名無しさん:05/01/14 00:05:20
>>341
ウホッ!
ありがとうございます
本物っぽく半角カナも混ぜてみたいんですが大変そう・・・
346デフォルトの名無しさん:05/01/14 10:31:37
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を使ったウィルス・スクリプトなぞ書いたらどうなるのかな
348デフォルトの名無しさん:05/01/15 20:30:40
読んで分からないものを実行する馬鹿は、普通のウイルスにもすでにかかっているだろうよ
349デフォルトの名無しさん:05/01/24 18:11:48
>>347
逮捕
350デフォルトの名無しさん:05/02/01 23:24:25
351デフォルトの名無しさん:05/02/02 07:25:57
>>346
352デフォルトの名無しさん:05/02/08 23:23:06
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
354デフォルトの名無しさん:05/02/09 22:47:56
マトリックス風のおもろい GJ !
俺用しおり >>340-343,346,352,353
355デフォルトの名無しさん:05/02/10 16:16:16
すげーな!
356デフォルトの名無しさん:05/02/10 17:07:13
>>355
もまいの書き込み時間もなかなかのものだ
357340:05/02/10 18:57:50
>>353
すごいス!!感動しました
358デフォルトの名無しさん:05/03/11 23:28:56
>>353
こんなショートプログラムでここまでできるんだね。ふーん…
久々に暇プロしてみっかな
359デフォルトの名無しさん:05/03/20 15:49:12
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-
>>100-105
ホスト名を自由に変更できるように改良してくれませんか?
361 :2005/04/03(日) 17:31:11 BE:118969676-
age
362E:2005/04/06(水) 11:17:11
age
363デフォルトの名無しさん:2005/04/16(土) 15:11:54
age
364デフォルトの名無しさん:2005/05/08(日) 20:17:53
age
365デフォルトの名無しさん:2005/05/14(土) 12:14:22
良スレsage
366デフォルトの名無しさん:2005/06/08(水) 15:56:10
mes "ぬるぽ"
stop
367デフォルトの名無しさん:2005/06/18(土) 16:13:53
#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
368デフォルトの名無しさん:2005/06/18(土) 16:14:11
*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
369デフォルトの名無しさん:2005/06/18(土) 16:15:41
↑は3.0Beta10でうごく
370デフォルトの名無しさん:2005/06/18(土) 23:27:14
うんこ出た。
371デフォルトの名無しさん:2005/06/21(火) 16:53:57
タイピングゲームっぽいの試しに作って見ました。
前編↓

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"
372デフォルトの名無しさん:2005/06/21(火) 16:58:19
後編↓

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
373デフォルトの名無しさん:2005/06/21(火) 17:01:11
最後↓

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
374デフォルトの名無しさん:2005/07/09(土) 23:53:25
本家は相変わらずだなw
375デフォルトの名無しさん:2005/07/10(日) 01:00:11
うんこ出た。
376デフォルトの名無しさん:2005/07/10(日) 01:43:05
釣れてやんの
ご苦労さん基地害君
377デフォルトの名無しさん:2005/07/10(日) 01:44:09
うんこ出た。
378デフォルトの名無しさん:2005/07/10(日) 03:59:59
うんこ出た。
3792222: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デフォルトの名無しさん
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

年月日と影をつけた。