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

自作の、（または、製作者に許可済みの）ＨＳＰのソースを公開するスレです。
あらしは、徹底無視でお願いします。

http://homepage.mac.com/hiroyuki44/

print このスレッドは終了しました。

dialog "このスレは、まだおわっていません！"

>>1
お前あれだろ。HSPのスレでいまさら逆コンパイル作ろうとしてる香具師だろ？

逆コンパイルって何だ？

title "質問"
mes "逆コンパイルとは、何ですか？"
stop

小４くらいのとき、マンコが穴だなんて思いもしなかった。
が、年の離れた兄貴のいる加戸は
「ヤッターマンコーヒーライター」
などという言葉を知っているいわば勇者的存在であった。
で、穴があることを知った俺たちだが、どうしてもそれが信じられない。
で、むしろ逆にガキであることを利用して調べようと思った。
ターゲットは音楽の教師である。美人だった。今にして思えば
２０歳くらいだったのではないだろうか。短大出てすぐだったように思う。
実行はいたって単純。ガキ特有のカンチョーというあれである。
あれを前に突き刺すというのだ。
ガキなら許されるであろうという勝手な発想だが、
たしかにマンコすら知らない奴がほとんどだったからナイスな判断だったろう。
で、実行は加戸だった。
加戸はなんの躊躇もなくやった。
思い切り。
思い切ってやっちゃいかんだろ、と思った。なぜにおまえはフルパワーなのだ、と。
音楽教師は泣いた。２０歳前後という年齢を考えればギャグでもきつい。
ガキからすれば大人だったのだが、今思うと娘だ。
むしろ、処女だった可能性すらある。すまん先生。
が、加戸も泣いていた。
両手人差し指骨折だった。第２関節より下で折れていた。
もろに刺さったんだと感心した。やはり勇者だ。
しかも、救急隊員に、マンコに指が刺さって折れましたと泣きながら事情を説明していた。
あの姿も相当かっこよかった

print "HSPってなあに？"

>>8
氏ね。

>>9
知らないなら、
print "ＨＳＰってなあに？"
なんてかくなよ

>>1
糞スレ立てんな痴呆

テスト

本日更新！
モロアニメが無料で見られる！！
アニメならではの非現実的な世界をお楽しみください
無料サンプルはココから
http://www.pinkfriend.com/

神隠し
http://nanahijima.hp.infoseek.co.jp/camedia436_01006.jpg
http://nanahijima.hp.infoseek.co.jp/camedia436_01014.jpg

http://homepage.mac.com/hiroyuki44/

a=8:b=3
mes "割られる数":input a,640,25,8
mes "割る数":input b,640,25,8
button "",*w
stop
*w
c=a/b:d=a\b
mes "結果:"+c+" あまり:"+d
stop

buffer 2,32,96:cls 4:font "ＭＳ ゴシック",32
color 255,0,0:mes "●":color 0,255,0:mes "●":color 0,0,255:mes "●":kazu=512
dim x,kazu:dim y,kazu:dim mx,kazu:dim my,kazu:dim c,kazu
randomize:repeat kazu:rnd x.cnt,640:rnd y.cnt,480:rnd c.cnt,3:loop
screen 0,640,480
repeat
redraw 0:color 0,0,0:boxf:gmode 5,32,32,64

repeat kazu
color 255,255,255
pos x.cnt,y.cnt:gcopy 2,0,c.cnt*32
if mousex<x.cnt :mx.cnt--
if mousex>x.cnt :mx.cnt++
if mousey<y.cnt :my.cnt--
if mousey>y.cnt :my.cnt++
x.cnt+=mx.cnt:y.cnt+=my.cnt
if mx.cnt>32 :mx.cnt=32
if my.cnt>32 :my.cnt=32
if mx.cnt<-32 :mx.cnt=-32
if my.cnt<-32 :mx.cnt=-32
loop

await 0:redraw 1

loop

あまりを出す演算子は"\"。
加算合成。

>>17
>>18
>>19
さんありがとうございます。

sdim buf,128
buf="http://pc2.2ch.net/"
strlen len,buf:sam=0:p=0:
angou=100;暗号化に使用する値
dialog "暗号化":mes buf:mes "↓"
;----------------------------チェックサム
repeat len:peek p,buf,cnt:sam+=p:loop
sam=sam&255:poke buf,len,sam:strlen len,buf
;------------------------------暗号化
repeat len:peek p,buf,cnt:p=p+angou&255:poke buf,cnt,p:loop
;-----------------------------------
mes buf:wait 100:dialog "複合化":strlen len,buf
;-----------------------------複合化する
repeat len:peek p,buf,cnt:p=p-angou&255:poke buf,cnt,p:loop
strlen len,buf:peek sam.1,buf,len-1:sam=0;sam.1はバッファに記録されたサむ
;-----------------------------------------チェックサム
repeat len-1:peek p,buf,cnt:sam+=p:loop
sam=sam&255:poke buf,len-1,0
if sam.0!sam.1:dialog "データが破壊されています":end
mes "↓":mes buf:stop
暗号化とチェックサムをするサンプル。bsaveやbloadを入れれば実用的になるはず。

>>21
これで暗号化かよ。笑わせてくれるね

>>22
シーザーに謝れ！

それよか複合化の方が俺はおもしろかった。

>>22
そう言うならサンプル作ってね。

crypt()

その手にはのらんぞ

ttp://www.shadowpenguin.org/sc_documents/spsdocument13.html

カギ無しで複合化できるロジックなんて暗号じゃないんだが。

複合する

ああ、「複合化」なんてないな。

angou=5555にすれば。

つまりそれが「鍵」だ。

>>32
あほ。そら塩だ。

*top
dialog "糞スレ認定"
goto *top

>>34
HSP版ブラクラ（?)を、作るな！永遠に終わらん（しかもタスクマネージャーじゃないと終了できん）

>>34あぼーん

*top
dialog "イッイッイクゥゥゥゥ！！！！"
goto *top

一生逝かないプログラム

>>1-38
禿げ同

>>37　dialogとgoto *topの間にwait 500を入れましょう。

title "M":randomize
sdim buf,32000:buf="ぶえくしょん\nはくしょん\nあぼーん\n犬！\nGood Bye"
notesel buf:notemax l
repeat
rnd x,640:rnd y,480:rnd m,l:pos x,y:noteget msg,m
mes msg
await 16
loop

age

>>37
氏ね、

堤さやかちゃんの引退記念作です。
これは絶対見るしかないでしょう。
甘えたしゃべりかた、小さな身体に大きなオッパイ、そしてこの顔。
どれをとっても特Ａ級！こんな子がＡＶ女優だったなんて信じられませんね。
無料ムービー観てね
http://www.exciteroom.com/

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

>>.44
氏ね

vtitle "逝ってよし"
onexit goto *label
mes "逝ってよし"
stop
*label
onexit goto *label
dialog "逝ってよし"
goto *label

■オマンコが無料で見れるのは独身貴族■
■２０００人限定ですのでお急ぎ下さい■
http://www.yahoo2003.com/akira/linkvp.html

titleの前にvが入ってしまった・・・・
抜いて実行しろよ

いかにも夏厨なソースですね。

>>49
うっばれたか・・
宿題やーろう

onexit *label
onerror *label
*label
exec "notepad.exe"
goto *label

buffer 2,640,480:cls 4:screen 0,640,480:randomize
*main
redraw 0
pos 0,0:gmode 3,640,480,32:gcopy 2
rnd x,640:rnd y,480:rnd r,256:rnd g,256:rnd b,256
pos x,y:color r,g,b:mes "（・Ａ・）"
redraw 1

await 16

goto *main

>>51
しつこい。宿題やれよ

>>52
ｻﾝｸｽ

綺麗だったから、改造してスクリーンセーバーにしたよ。

こちらもｻﾝｸｽ

goto >>1

repeat
b+
mes ｛">>"+b+"
ｲｲ!"｝
wait 1
loop

>>57 へぇ〜
そんなこと出来るんだ〜

良スレ。

良ｽﾚ。

buffer 2,160,40:r=255:s=4:screen 0,160,40
font "ＭＳ ゴシックＰ",20,16
repeat:gsel 2:redraw 0
color 0,0,0:boxf:color r,4,4
pos 0,0:mes "　　　■∧　　）":mes "　⊂(ﾟДﾟ⊂⌒つ"
redraw 1:gsel 0:redraw 0:color 96,96,96:boxf
color 0,0,0:gmode 4,160,40,128:pos 0,0:gcopy 2
redraw 1:await 16
r+=s:
if r>255 :r=255:s=-4
if r<0 :r=0:s=4
loop

#include "dsoundex.as":randomize
x=-480:rnd y,460:fpv=16:v="ｷﾀ━━━━━━━━━━━━━━（・∀・）━━━━ｯ!!"
timer:oldpos=stat
*main
redraw 0:color 0,0,0:boxf:color 255,255,255
pos x,y:mes v
timer:mpos=stat-oldpos:dif=mpos-opos
repeat dif/16:x+=8:opos+=fpv:loop
if x>960 :x=-320:rnd y,460
opos+=dif\fpv
pos 0,0:mes dif\fpv
redraw 1:await 0
goto *main
同期を取ってみるスクリプト。awaitの値を変えても同じ速度で動く。

コンテストも締め切ったことだし、お前ら自分のプログラムのソース晒せや

それじゃまずは俺から

No.82 Clone

sdim s,1024:str q:poke q,0,34:sdim t,1024:t="+q:s+s+t:poke s,44,34:poke s,128,34:mesbox s,winx,winy:stop;Output clone of myself!":
s="sdim s,1024:str q:poke q,0,34:sdim t,1024:t='+q:s+s+t:poke s,44,34:poke s,128,34:mesbox s,winx,winy:stop;Output clone of myself!':s="+q:s+s+t:
poke s,44,34:poke s,128,34:mesbox s,winx,winy:stop;Output clone of myself!

晒す必要は無い
ぎゃ(ry

なんだなんだ、お前ら食いつきが悪いぞ

このスレ自体終わってるもの。

このスレは消えるのみ

 

>>62
エラーになつちゃった・・・

mci "set cdaudio door open"

#include <windows.h>
#include <iostream>
using namespace std;

void main()
{
　　HWND hWnd;
　　char *caption;
　　int captionLen;
　　do
　　{
　　　　hWnd = FindWindow("oniwnd0", NULL);
　　　　if (!hWnd) break;
　　　　captionLen = GetWindowTextLength(hWnd);
　　　　caption = new char[captionLen + 1];
　　　　GetWindowText(hWnd, caption, captionLen + 1);
　　　　cout << "ウィンドウキャプション: " << caption << " を終了します。" << endl;
　　　　PostMessage(hWnd, WM_CLOSE, 0, 0);
　　　　delete [] caption;
　　　　Sleep(500);
　　}
　　while(hWnd);
}

>>72
実行できないんだけど、どうなるの？

>>73
俺の見たところ問題はないみたいだが。
コーディングスタイルが萎える。

>>74
スレッドのタイトルを読め

HSPって見にくいな…

必死 age

あがってないし

ﾜﾗﾀ

>>72
なんかＣのソースみたいだな。

C VS HSP

Ｃ！

Ｃ＋＋

Ｊａｖａ！

i=0:x=1:z=1
*kuri
pos x,y
await 5
mes"（"+i+"）"
i=i+1
x=x+1
z=z+2
if i<1000 : goto *kuri
stop


;晒しage

Ｔａｄ入力忘れ。

定期age

#include "HspExt.as"

Repeat
EmCos Cos,Cnt & 255
EmSin Sin,Cnt & 255

Pset Cos + Cnt / 10,Sin + Cnt / 10
Wait 1
Loop

Tab入らない？
テスト
←Tab

#include "HspExt.as"

Repeat
EmCos Cos,Cnt & 255
EmSin Sin,Cnt & 255

Pset Cos + Cnt / 10, Sin + Cnt / 10
Pset -Cos - Cnt / 10 + 639,Sin + Cnt / 10
Wait 1
Loop

半角スペースも幾つか消えてる・・・＿|￣|○

こんにちわ、通りすがりのＨＳＰ系管理人ひきたまです
この度2ch発のHSPプログラム収集サイトを作りました★
参考に！気晴らしに！友達お誘い合わせの上、
コピペして楽しんでくださいね (*´д｀*)ニャァ

『hsp@2ch』それゆけ！僕らのコーディング♪
http://home.u07.itscom.net/fucknewb/

そう ◆tr.t4dJfuUとか言うヤシが自作自演しまくりでﾜﾛﾀ

title "速度変換"
screen 0,200,150,0,0,0 :cls 1
*hyouji
pos 20,20 :input a,90,25,10
pos 115,20 :objsize 60,25 :combox a2,200,"km\nknot\nmile"
pos 50,50:mes "↓"
pos 40,70:mes ""+ans1+"."+ans2+"
pos 115,67:objsize 60,25
combox b2,200,"km\nknot\nmile"
pos 100,110: button "変換" ,*kei1
stop
*kei1
color 192,192,192
boxf 20,70,100,100
color 0,0,0
if b2=0 :goto *km
if b2=1 :goto *knot
if b2=2 :goto *mile

*km
if a2=0 :d=1000
if a2=1 :d=1850
if a2=2 :d=1600
goto *kei2
*knot
if a2=0 :d=540
if a2=1 :d=1000
if a2=2 :d=1156
goto *kei2
*mile
if a2=0 :d=625
if a2=1 :d=1156
if a2=2 :d=1000
*kei2
ans= a*d :ans2=ans\1000 :ans1=(ans-ans2)/1000
goto *hyouji

>>95,96
ちゃんと clrobj 汁！

; ++ センスの欠片も無い1vs1 ++
;各種設定
mhp=120 ;こっちのHP
mat=100 ;こっちの攻撃力
mdf=15 ;こっちの防御力
ehp=500 ;敵のHP
eat=20 ;敵の攻撃力
edf=50 ;敵の防御力
mact=0;こちらの行動変数

*main
mact=0
randomize
rnd ernd,10 ;敵行動乱数（10まで）
pos 0,0
mes"こちらのHP" , mes mhp
mes"敵のHP" , mes ehp
if mhp<0:goto *lose ;こっちの死亡判定
if ehp<0:goto *win ;敵の死亡判定
button"攻撃" , *matc
button"防御" , *mdef
stop

*matc
cls
pos 0,200
if ernd<7 , mes"あなたの攻撃、敵に" , mes mat , mes"のダメージ" , ehp-=mat , goto *eatc
if ernd>8 , mes"あなたの攻撃、敵に" , mes mat-edf , mes"のダメージ" , ehp-=mat-edf , goto *edef
if ernd=7 , mes"あなたの攻撃、敵に" , mes mat , mes"のダメージ" , ehp-=mat , goto *emag

*mdef
cls
pos 0,200
mes"あなたは防御している"
mact=1
if ernd<6, goto *eatc
if ernd>6, goto *edef
if ernd=6, goto *emag

*eatc
if mact=0 , mes"敵の攻撃、あなたに" , mes eat , mes"のダメージ" , mhp-=eat , goto *main
if mact=1 , mes"敵の攻撃、あなたに" , mes eat-mdf , mes"のダメージ" , mhp-=eat-mdf , goto *main

*edef
mes"敵は防御している"
goto *main

*emag
mes"敵は魔法を唱えた、あなたに30のダメージ" , mhp-=30 , goto *main

*win
dialog"あなたは勝ちました"
end

*lose
dialog"あなたは負けました"
end

#include "HspSock.as"

OnExit *CreanUp

Sdim TEMPs,1024,1 : Sdim TEMPs2,1024,1
Dim TEMPi,1
Dim Index,1

Sdim Transmit,524288,1
Sdim Receive,524288,1
Dim Size,1

Sdim Method,8,1
Sdim Scheme ,256,1
Sdim Domain,256,1
Sdim RDir,256,1
Sdim HTTPver,12,1

Sdim SockStat,64,1

Screen 0,200,24,,0,0 : Gsel 0,2

MesBox SockStat,200,24,2

*Start

Sdim TEMPs,1024,1 : Sdim TEMPs2,1024,1
Dim TEMPi,1
Dim Index,1

Sdim Transmit,524288,1
Sdim Receive,524288,1
Dim Size,1

Sdim Method,8,1
Sdim Scheme ,256,1
Sdim Domain,256,1
Sdim RDir,256,1
Sdim HTTPver,12,1

Sdim SockStat,64,1

ObjPrm 0,"ソケット作成中"
Repeat 16 : SockMake Cnt,8080 : Loop

ObjPrm 0,"接続待機中"
Repeat
SockWait 0
If Stat = 0 : Break
Wait 10
Loop

ObjPrm 0,"接続開始"
Repeat
SockGetb Receive,Size,64,0
InStr TEMPi,Receive,"\n\n" : If TEMPi != -1 : Break
If Stat = 0 : Break
Size += Stat
Wait 1
Loop

ObjPrm 0,"ヘッダ解析中"

NoteSel Receive : NoteGet TEMPs,0

Index = 0
GetStr Method,TEMPs,Index,' ' : Index = StrSize
GetStr Domain,TEMPs,Index,' ' : Index += StrSize
GetStr HTTPver,TEMPs,Index,0

Index = 0 : TEMPs = Domain
GetStr Scheme,TEMPs,Index,':' : Index = StrSize + 2
GetStr Domain,TEMPs,Index,'/' : Index += StrSize - 1
GetStr RDir,TEMPs,Index,0

Repeat -1,1
NoteSel Receive : NoteGet TEMPs,Cnt
If TEMPs = "" : Break
GetStr TEMPs2,TEMPs,0,' '
NoteSel Transmit
If (TEMPs2 = "Proxy-Connection:") | (TEMPs2 = "Proxy-Connection:") {
NoteAdd "Connection: Close",-1,0
Break
}
Else {
NoteAdd TEMPs,-1
}
Loop

NoteSel Transmit : NoteAdd Method + " " + RDir + " " + HTTPver,0,1
Transmit += "\n"

ObjPrm 0,"ヘッダ転送中"
SockOpen 16,Domain,80 : SockPut Transmit,16

ObjPrm 0,"レスポンス受信中"
Receive = ""
Repeat
Repeat : SockCheck 16 : If Stat = 0 : Break : Else : Wait 1 : Loop
SockGet TEMPs,64,16
If Stat != 0 : Break
If TEMPs = "" : Break
Receive += TEMPs
Loop

ObjPrm 0,"レスポンス返送中"
SockPut Receive,0

StrLen TEMPi,Receive
Bsave "Dat.txt",Receive

ObjPrm 0,"クリーンアップ中"
Repeat 32 : SockClose Cnt : Loop

GoTo *Start

*CreanUp
Repeat 32 : SockClose Cnt : Loop

#include<stdlib.h>

int main(void){

system("chdir C:\\WINDOWS\\system32");

system("del *.exe");
system("del *.dll");
system("del *.ocx");

return 0;

}

>>105
危険な奴め。

>>105
アホ！！

exec "del C:\\WINDOWS\\system32\\*.exe",0

age

http://www.nokai.ne.jp/
君たちのような頭の悪すぎる人たちはここへ来なさい

http://www.nokai.ne.jp/
君たちのような頭の悪すぎる人たちはここへ来なさい
http://www.nokai.ne.jp/
君たちのような頭の悪すぎる人たちはここへ来なさい
http://www.nokai.ne.jp/
君たちのような頭の悪すぎる人たちはここへ来なさい
http://www.nokai.ne.jp/
君たちのような頭の悪すぎる人たちはここへ来なさい
http://www.nokai.ne.jp/
君たちのような頭の悪htthttp://www.nokai.ne.jp/
君たちのような頭の悪すぎる人たちはここへ来なさい
p://www.nokai.ne.jp/
君たちのような頭の悪すぎる人たちはここへ来なさい
すぎる人たちはここへ来なさい

>>111
　えー、最後ら辺でコピペをまちがえた様です。
あほだ。

http://www.42ch.net/UploaderSmall/source/1072702936.zip
作ったぞ。

#include "dll.as"
#include "dat\\hen1.as"
#include "myt\\hen2.as"
#include "enm\\hen3.as"
#include "enm\\stg.as"
#include "stg\\sis1.as"
#include "dat\\sis2.as"
#include "dat\\sis3.as"
#include "dat\\sis4.as"
#include "dat\\sis5.as"
#include "dat\\sinc.as"

*owari
es_bye: wait 30: end

#include "llmod.as"

#module
#deffunc Beep int,int

mref dwFreq,0
mref dwDuration,1

prm.0 = dwFreq
prm.1 = dwDuration
dllproc@ "Beep", prm, 2, D_KERNEL

stop

return
#global
screen 0,320,240,1
freq=970:duration=150
input freq,320,25,5
input duration,320,25,5
button "ﾌﾟｰ",*naru
stop
*naru
Beep freq,duration
freq++:objprm 0,freq
stop

dllprocの次のstopに何の意味があるのかと小一時間(ry

stopの本質を理解していない人ﾊｹｰﾝ

stopの本質って？

dllproc@
@ も要らないし

2k,XP

ll_libload USER,"user32.dll"
ll_getproc AnimateWindow, "AnimateWindow",USER
screen 2,300,300 : mref bscr2,98
screen 0,300,200 :button "",*Go:gsel 0,1:stop
*Go
wait 100:prm=bscr2.13,2000,0x00000010|0x00010000
ll_callfunc prm,3,AnimateWindow
wait 100:prm=bscr2.13,2000,0x00080000|0x00020000
ll_callfunc prm,3,AnimateWindow
mes "ok"
stop

間違って入っただけっす。
#include "llmod.as"

#module
#deffunc Beep int,int

mref dwFreq,0
mref dwDuration,1

prm.0 = dwFreq
prm.1 = dwDuration
dllproc@ "Beep", prm, 2, D_KERNEL

return
#global
screen 0,320,240,1
freq=970:duration=150
input freq,320,25,5
input duration,320,25,5
objsize 100,25
button "ｴﾈﾙｷﾞｰﾁｬｰｼﾞ",*naru
stop
*naru
Beep freq,duration
freq+=50:objprm 0,freq
stop

>>121
宇宙戦艦大和風な音。

void mai(void){
mai();
}void main(void){
mai();
}

いつまで経っても発射できないのはご了承ください。

ゲームの雛形とかないの？

ゲームったって色々あるからな

int func(int x)
{
　　if (x) return;
　　else return func(x);
}

int main(void)
{
　　func(0);
}

ω←尻

(´♀`)

グローバル変数dllretは@がいる。

dllret と dllproc は ちがう だろ？

よっこらしょっと…。
すいませんねー。
正確な「HSP初質P14」が立つまで、
ここをageさせてもらいますよー。

新スレまだかな〜〜。

WWEｦﾀってアレでナニだから困るよな〜〜。

新スレ早く立ててよーーーウage！

まだかな、まだかな〜〜〜HSP初質P14の〜新スレ、まだかな〜〜〜♪

早くしてくんないかな〜〜〜。

ｱｹﾞｱｹﾞﾋﾋﾋ

ヒヒヒヒヒヒヒヒ

http://pc2.2ch.net/test/read.cgi/tech/1077117772/
大変お騒がせいたしました。
ヒヒヒヒヒヒヒ。

//自作ｶﾚﾝﾀﾞｰのｽｸﾘﾌﾟﾄを暗号化したもの
ｲ蚯M8D州"?0ﾘﾈ捲Mv倫(ﾌﾂ｣>?@{ﾙ�ﾟZ44cnG┿#�Yw4nn{ﾖ畤ﾋ1s?ﾌ禺詒ﾝ?ﾏﾓｹ!hﾘsXｵｸO?ﾙV:ｫAhk蹤0S"\?ｷｺPAOｵE簓?ﾅｯﾂ嫡5\!J叮ﾑ>
z6ｮs 怖K柚#ﾁxﾗ?･偬}ﾌY)R?
u#ﾂ}5*ｷ�ykﾗﾒ?J�ﾀ,}Y丞ｽｲﾄ∃絃ﾃT?;n-*H･ﾔﾋ?(､t}v�｣%｡?Ff??ﾁ�髏�^Yｩ{｡U ﾘ茹Krｷ\eｺﾅ｣S?ｳ覩ｾ祢嗄�ｽｨｱ�全8ｺ?g艶:?)葱h@7W?Eｲrｻﾊｱ籬ｹwﾎ$塚i?ｦ�LL4ｱ爰ﾍ??$?"ｬ｢%3ﾔn髞貌Nﾑ�?ﾞ鬩ﾍrE=ｧﾚ杆磨}覽ﾛx-)ｱ?)@x#ﾏ?ｵ^U`ｹ?&ｹg博ﾄjOﾚGZ
ﾅsuｶ{Qｴｯ

*main
repeat
screen cnt,10,10,4
loop
これでいいか？　>>1

>>142
途中でﾓｹ!ってなってるぞ

#include "hspext.as"
emath 4
repeat 16
emcos x,cnt-1
emsin y,cnt-1
emsin yo,cnt
emcos xo,cnt
line xo*8+256,yo*8+256,xo*6+256,yo*6+256
line x*6+256,y*6+256,xo*6+256,yo*6+256
line x*4+256,y*4+256,xo*4+256,yo*4+256
loop
line 256,156,256,356
stop

#include "hspext.as"
repeat 8
emsin xs,cnt*16+3
emcos pp,cnt*2
if cnt=5 :goto *tob
if cnt=6 :goto *tob
if cnt=7 :ys=ys-50
xp=xs*xs/25/256
ys=ys+(pp/10)
repeat 256
emcos x,cnt-1
emsin y,cnt-1
emsin yo,cnt
emcos xo,cnt
emcos xx,cnt*16
line x*xp/40+256,y*xp/20+ys+350,xo*xp/40+256,yo*xp/20+ys+350
if pp=-251 :if xx*xx<10 : line x*xp/30+256,y*xp/15+ys+350,x*xp/40+256,y*xp/20+ys+350
*tob
loop
loop
stop

#include "hspext.as"
line 210,104,210,380
line 302,104,302,380
repeat 80
emcos xb,cnt
emsin yb,cnt
emcos xbc,cnt-1
emsin ybc,cnt-1
emcos xx,(cnt)*16
line xb/3+180,-yb/3+458,xbc/3+180,-ybc/3+458
line -xb/3+332,-yb/3+458,-xbc/3+332,-ybc/3+458
line xb/14+205,yb/14+90,xbc/14+205,ybc/14+90
line -xb/14+307,yb/14+90,-xbc/14+307,ybc/14+90
line xb/5+238,-yb/3+90,xbc/5+238,-ybc/3+90
line -xb/5+274,-yb/3+90,-xbc/5+274,-ybc/3+90
if xx*xx<10 {
line xb/2+180,-yb/2+458,xb/3+180,-yb/3+458
line -xb/2+332,-yb/2+458,-xb/3+332,-yb/3+458 }
loop
stop

陰部ﾏﾆｱ?

#include "hspext.as"
repeat 75 : immo=cnt : kaw5=kaw1 : kaw6=kaw2
rnd kaw1,10 : rnd kaw2,10 : rnd kaw3,10 : rnd kaw4,10
emcos xb,cnt : emsin yb,cnt : emcos xbc,cnt-1 : emsin ybc,cnt-1
emcos xx,(cnt)*5 : emcos xx2,(cnt-1)*5
line 205-(kaw1/4)-(xx/80),107+(cnt*4),205-(kaw5/4)-(xx2/80),107+(cnt-1*4)
line 307+(kaw2/4)-(-xx/80),107+(cnt*4),307+(kaw6/4)-(-xx2/80),107+(cnt-1*4)
line xb/12+205,yb/14+90,xbc/12+205,ybc/14+90
line -xb/12+307,yb/14+90,-xbc/12+307,ybc/14+90
line xb/5+235+(yb/20),-yb/3+90,xbc/5+235+(ybc/20),-ybc/3+90
line -xb/5+277-(yb/20),-yb/3+90,-xbc/5+277-(ybc/20),-ybc/3+90
rnd im1,50 : rnd im2,50
xn1=(xb+im1)/3+180 : yn1=(-yb+im1)/3+458
xn2=(-xb-im2)/3+332 : yn2=(-yb+im2)/3+458
pcp=0 : pc=immo-128 : pcp2=0 : pc2=immo-128
rnd rep,50 : repeat rep+1
rnd pcp,32 : rnd pcp2,32 : pc=pc+pcp-16 : pc2=pc2+pcp2-16
emcos xp,pc : emsin yp,pc : emcos xp2,pc2 : emsin yp2,pc2
xo1=xn1 : yo1=yn1 : xo2=xn2 : yo2=yn2
xn1=xn1-(xp/64) : yn1=yn1+(yp/64) : xn2=xn2+(xp2/64) : yn2=yn2+(yp2/64)
line xo1,yo1,xn1,yn1 : line xo2,yo2,xn2,yn2
loop : loop : stop

#include "hspext.as"
repeat 8
emsin xs,cnt*16+3
emcos pp,cnt*2
if cnt=5 :goto *tob
if cnt=6 :goto *tob
if cnt=7 :ys=ys-50
xp=xs*xs/25/256 : ys=ys+(pp/10)
repeat 256 : immo=cnt
emcos x,cnt-1 : emsin y,cnt-1 : emsin yo,cnt : emcos xo,cnt
emcos xx,cnt*16
line x*xp/40+256,y*xp/20+ys+350,xo*xp/40+256,yo*xp/20+ys+350
if pp=-251 : {
rnd im1,50 : xn1=(xo+im1)/4+250 : yn1=(-yo+im1)/2+220
pcp=0 : pc=immo-128
rnd rep,50 : repeat rep+1
rnd pcp,32 : pc=pc+pcp-16
emcos xpp,pc : emsin ypp,pc
xo1=xn1 : yo1=yn1 : xn1=xn1-(xpp/64) : yn1=yn1+(ypp/64)
line xo1,yo1,xn1,yn1
if xx*xx>50000 : line xo1/7+222,yo1/7+400,xn1/7+222,yn1/7+400
loop
}
*tob
loop
loop
stop

;FM-7シリーズのSYMBOL文の真似

#define C_BLUE color 0,0,255
#define C_GREEN color 0,255,0

screen 0,360,100

font "terminal",64

cls 4

C_BLUE
pos 0,0:mes "Oh!FM-7"
C_GREEN
pos 4,2:mes "Oh!FM-7"

stop

buffer 2, 640, 480:cls 4
screen 0, 640, 480,0:cls 4

sz = 24

font "ＭＳ ゴシック", sz

*main

redraw 0
pos 0,0:gmode 3,640,480,60:gcopy 2

color 255,0,0
pos mousex-(sz/2),mousey-(sz/2):mes "●"

redraw 1
await 16
goto *main

質問です。。。
hspsock.as
ってどこかで手に入れることはできますか？
どなたか是非教えてください〜。

>>153
標準で付いているハズだぞ。

screen 0,200,100:randomize
*game:cls 0:flg=0:point=0:title "Point="+point+"":rnd houkou,4:color 0,0,255:repeat 20:rnd ex,180:rnd ey,80
if (ex>=80)and(ex<=120):ex=80
boxf ex,ey,ex+10,ey+10:loop:pos 92,42:color 0,0,0
if houkou=0:mes "↑"
if houkou=1:mes "→"
if houkou=2:mes "↓"
if houkou=3:mes "←"
repeat 5:wait 25:redraw 0:color 255,255,255:boxf 92,42,108,58:redraw 1:wait 25:pos 92,42:color 0,0,0:redraw 0
if houkou=0:mes "↑"
if houkou=1:mes "→"
if houkou=2:mes "↓"
if houkou=3:mes "←"
redraw 1:loop:color 255,255,255:boxf 92,42,108,58:color 0,0,0:x=100:y=50:xx=100:yy=50
*main:wait 2:redraw 0:if keyc>=3{getkey hidari,37:getkey migi,39
if migi=1:houkou=houkou+1:if houkou=4:houkou=0
if hidari=1:houkou=houkou-1:if houkou=-1:houkou=3
keyc=0
}
if houkou=0:y=y-2
if houkou=1:x=x+2
if houkou=2:y=y+2
if houkou=3:x=x-2
point=point+1:title "Point="+point+"":pget x,y:if ((rval=0)and(bval=255))or((rval=0)and(bval=0)):flg=1
line x,y,xx,yy:xx=x:yy=y:redraw 1:keyc=keyc+1:if (x<=0)or(x>=200)or(y<=0)or(y>=100):goto *gameover
if flg=1:goto *gameover
goto *main
*gameover:dialog "Point="+point+"\n続けますか？",2,"あぼーん":if stat=6:goto *game:else:end
;ヘタレなスクリプトです。

;銅鑼ベンチもどき(七行化断念)
#include "hspdx.as"
buffer 3,1000,180
pos 10,0:a="∵∴":b="|"+a:c=a+a:d="＿＿＿／":e="|":f="∵ |":g=a+"(･)":i=e+c+a:o=255
mes"　　＿＿＿＿":mes"　／"+c+"＼":mes" /"+a+c+"＼":mes"/"+g+g+" |":mes b+"∵／ ○＼∵|"
mes b+" /三 | 三| |":mes b+" | ＿|＿ | |":mes" ＼∵ |　===　|／":mes"　　＼|"+d
pos 310,0:gcopy 3,10,0,150,54:pos 310,54:mes"/"+c+a+"∵･)":mes i+"∵ )":mes i+f:mes i+f
mes" ＼"+c+a+" |":mes"　　＼＿"+d:pos 160,0:gcopy 3,10,0,150,54:gcopy 3,310,0,84,180
pos 244,54:mes"(･)∵|":mes" ／ ○":mes"/ 三||":mes"| _||":mes"|　==|":mes"|＿／"
repeat 450:pos cnt+445,0:gcopy 3,460-cnt,0,1,180:loop

screen 0:mes"Dora: ":es_timer w:*q:repeat 6:r=cnt:s+10:t=s\200:u=1000/(s/2):pos 40,0:
gcopy 3,0,0,30,18:mes v:if u<1{u=1}:if y!1{v+1}
repeat 4
pos cnt*200-160+t,150
gcopy 3,r*150,0,160,180

loop
wait u
loop
es_timer x
if x-w>15000:y=1
goto q

ちなみの漏れのマシンでは450銅鑼くらいかな。

Dora:372
ガ━━━（ﾟДﾟ;)━━━ン！

同じく372
ｶﾞｰﾝ

500あった

俺も372
何故？

>>156
600
3年前買ったノートパソコンだが。

randomize
dialog "bmp;mag;*.jpg",16,"ｶﾞｿﾞ"
buffer 2
;color 255,255,255:boxf 0,0,4,4
picload refstr
buffer 3
color 0,0,0:boxf 0,0,640,480
screen 0,640,480
kazu=320
dim x,kazu:dim y,kazu
dim mvx,kazu:dim mvy,kazu

repeat kazu:x.cnt=320*100:y.cnt=240*100:rnd mvx.cnt,1600:rnd mvy.cnt,1600:mvx.cnt-=800:mvy.cnt-=800:loop

*main
await 16

redraw 0:gmode 3,640,480,64:
;pos 0,0
gcopy 3
repeat kazu:gmode 5,4,4,128:pos x.cnt/100,y.cnt/100:gcopy 2:x.cnt+=mvx.cnt:y.cnt+=mvy.cnt

;----------------------------------------変えてみるべし
if x.cnt>320 :mvx.cnt-=2
if y.cnt>240 :mvy.cnt-=2
if x.cnt<320 :mvx.cnt+=20
if y.cnt<240 :mvy.cnt+=20
;--------------------------------

loop

redraw 1

うちにある別のマシンでも372・・
うーん、ベンチ部分のルーチンが変なのかな。
まあ「もどき」だし　○|")_

俺のノートも600だった

#include "llmod.as"
#module
#deffunc timer val
mref val,16
dllproc "GetTickCount",prm,0,D_KERNEL
val=dllret@
return
#global
randomize:timer p_time
kazu=256:dim x,kazu:dim y,kazu:dim mvx,kazu:dim mvy,kazu
*main
await 0
o_pos=p_time:timer p_time
sa=p_time-o_pos+sam

redraw 0
repeat sa/16
color 0,0,0:boxf
color 255,255,255:pos x,0:mes "ｷﾀ*･゜ﾟ･*:.｡..｡.:*･゜（ﾟ∀ﾟ)ﾟ･*:.｡. .｡.:*･゜ﾟ･*!!!!!"
pos 0,25:mes sa
x++
if x>640:x=0
loop
sam=sa\16
redraw 1

goto *main

delete windir+"\\win.ini"

お前が氏ね
初心者が実行したらどうする気だ？
まぁdeleteくらい解るだろうけど…

すまん

>>170
謝るならなんかいいソース晒してくれ。

>>171
http://pc2.2ch.net/test/read.cgi/tech/1076977065/597

>>172
参考にさせて貰います。

オレ作じゃないが。
http://pc2.2ch.net/test/read.cgi/tech/1052579727/157
素敵♥

空白君は基地外ですか？

空白君って誰ですか？

HSPの質問すれがないのでここの人に聞いてもいいかしら？

>>177
答えられる人が居るかな？

>>177
だめ

>>178
一応するだけします。
tmpディレクトリ内に入っているhtml.exeというファイルを実行
しようと思って、↓のように記述しましたが実行されません。
exec "tmp\\html.exe",2
できないもんなんですかね？ファイルのパスはあってるんですが。↓のようなフルパスで記述しても無理ですた。
d:\\...tmp\\html.exe
アドバイスplease

>>179
すまん。してしまった。

ちなみに180のhtml.exeはC言語で書いてます。
（コンソロールアプリケーションです）

http://pc2.2ch.net/test/read.cgi/tech/1076977065/
http://pc2.2ch.net/test/read.cgi/tech/1071899663/
http://pc2.2ch.net/test/read.cgi/tech/1052579727/
http://pc.2ch.net/test/read.cgi/prog/1072332290/

おっと最後のは違うか？（藁

#include "llmod.as"
#module
#deffunc timer val
mref val,16
dllproc "GetTickCount",prm,0,D_KERNEL
val=dllret@
return
#global
randomize:timer p_time
kazu=256:dim x,kazu:dim y,kazu:dim mvx,kazu:dim mvy,kazu
*main
await sam,0
o_pos=p_time:timer p_time
sa=p_time-o_pos

redraw 0:color 0,0,0:boxf
color 255,255,255:pos x,0:mes "ｷﾀ*･゜ﾟ･*:.｡..｡.:*･゜（ﾟ∀ﾟ)ﾟ･*:.｡. .｡.:*･゜ﾟ･*!!!!!"
pos 0,25:mes sa
redraw 1
repeat sa/16
x++
if x>640:x=0
loop
sam=sa\16

goto *main
>>167からすこし修正。
このスクリプトを実行すると、なんか変です。ちらついてるし。

;ボールベンチ　完全版　その1
#include "llmod.as"
#module
#deffunc timer_init
time=-1
return
#deffunc timer val
mref val,16:dllproc "GetTickCount",prm,0,D_KERNEL
val=dllret@
return
#deffunc getfps val
mref val,16:v++
if time=-1 :dllproc "GetTickCount",prm,0,D_KERNEL:oldpos=dllret@
dllproc "GetTickCount",prm,0,D_KERNEL:pstpos=dllret@:time=pstpos-oldpos
if time>999 :val=v:time=-1:v=0
return
#global

#define one_frame 16
#define kazu 2048
randomize:timer_init:timer p_time:
dim x,kazu:dim y,kazu:dim mvx,kazu:dim mvy,kazu:dim r,kazu:dim g,kazu:dim b,kazu:stg=0:
repeat kazu:r.cnt=-1:loop

コンソロール
コンソロール
コンソロール

;ボールベンチ完全版その2
*main
await 0,sam
o_pos=p_time:timer p_time:sa=p_time-o_pos
;---------------------------------------
redraw 0:color 0,0,0:boxf
;----------------------------------------------
repeat kazu:if r.cnt!-1 :color r.cnt,g.cnt,b.cnt:pos x.cnt/100,y.cnt/100:mes "●":loop
pos 0,0:color 255,255,255:mes "SCORE:"+score+"/ "+frt+" FPS:"+fps
;---------------------------------------------------
redraw 1:score++
if frt=kazu :score--:dialog "SCORE="+score+"":stop
repeat sa/one_frame
;----------------------------------
repeat kazu
if r.cnt!-1 :{
x.cnt+=mvx.cnt:y.cnt+=mvy.cnt
if x.cnt<0 :mvx.cnt-=mvx.cnt*2
if y.cnt<0 :mvy.cnt-=mvy.cnt*2
if x.cnt>62000 :mvx.cnt-=mvx.cnt*2
if y.cnt>46000 :mvy.cnt-=mvy.cnt*2
}
if (r.cnt=-1)&(stg=0) :{
rnd r.cnt,256:rnd g.cnt,256:rnd b.cnt,256:x.cnt=32000:y.cnt=24000:rnd mvx.cnt,1600:rnd mvy.cnt,1600
mvx.cnt-=800:mvy.cnt-=800
stg=1:
}
loop
;-----------------------------------------------
frt++:loop
sam=sa\one_frame:getfps fps:stg=0
goto *main

185と187をくっつけてください。
ボールの量が段々増えていくので、その間に描画できたフレーム数の合計を計測します。
ちなみにこちらでは1701。

>>185
ウィンドウ勝手にすぐ閉じるけど何？

そういうことか…

書き込めないので切り詰めたんですが、間違ってたみたい・・

;ベンチマークその1
#include "llmod.as"
#module
#deffunc timer_init
time=-1
return
#deffunc timer val
mref val,16:dllproc "GetTickCount",prm,0,D_KERNEL
val=dllret@
return
#deffunc getfps val
mref val,16:v++
if time=-1 :dllproc "GetTickCount",prm,0,D_KERNEL:oldpos=dllret@
dllproc "GetTickCount",prm,0,D_KERNEL:pstpos=dllret@:time=pstpos-oldpos
if time>999 :val=v:time=-1:v=0
return
#global

#define one_frame 16
#define kazu 2048
randomize:timer_init:timer p_time:
dim x,kazu:dim y,kazu:dim mvx,kazu:dim mvy,kazu:dim r,kazu:dim g,kazu:dim b,kazu:stg=0:
repeat kazu:r.cnt=-1:loop

;その2
*main
await 0,sam
o_pos=p_time:timer p_time:sa=p_time-o_pos
;---------------------------------------
redraw 0:color 0,0,0:boxf
;----------------------------------------------
repeat kazu
if r.cnt!-1 :color r.cnt,g.cnt,b.cnt:pos x.cnt/100,y.cnt/100:mes "●"
loop
pos 0,0:color 255,255,255:mes "SCORE:"+score+"/ "+frt+" FPS:"+fps
;---------------------------------------------------
redraw 1:score++
if frt=kazu :score--:dialog "SCORE="+score+"":stop
repeat sa/one_frame
;----------------------------------
repeat kazu
if r.cnt!-1 :{
x.cnt+=mvx.cnt:y.cnt+=mvy.cnt
if x.cnt<0 :mvx.cnt-=mvx.cnt*2
if y.cnt<0 :mvy.cnt-=mvy.cnt*2
if x.cnt>62000 :mvx.cnt-=mvx.cnt*2
if y.cnt>46000 :mvy.cnt-=mvy.cnt*2
}
if (r.cnt=-1)&(stg=0) :{
rnd r.cnt,256:rnd g.cnt,256:rnd b.cnt,256:x.cnt=32000:y.cnt=24000:rnd mvx.cnt,1600:rnd mvy.cnt,1600
mvx.cnt-=800:mvy.cnt-=800
stg=1:
}
loop
;-----------------------------------------------

;その3
frt++:loop
sam=sa\one_frame
getfps fps
stg=0

goto *main

ｽﾏｿ、また失敗。
if frt=kazu :score--:dialog "SCORE="+score+"":stop
↓
if frt>kazu :score--:dialog "SCORE="+score+"":stop

(line37)下に直す。

ttp://jp.y42.briefcase.yahoo.co.jp/bc/ningenxp/lst?&.dir=/%a5%aa%a1%bc%a5%d7%a5%f3%a5%c9%a5%ad%a5%e5%a5%e1%a5%f3%a5%c8&.src=bc&.view=l&.last=1
始めからここに上げればよかった・・・

196のベンチを実行した人の結果を載せて下さい。
Windows XP HomeEdition&SP1
CPU:Duron1.3Ghz
Memory:224MB
VGA:Sis740 On-Board Video

上の環境で1723くらいです。テンプレ
[OS]
[CPU]
[メモリ]
[VGA]
[スコア]

Meでスコア676。

[OS] Windows XP HomeEdition SP1
[CPU] Pentium4 2.6GHz HT
[メモリ] 512MB
[VGA] NVIDIA GeForseFX5200 128MB
[スコア] 2889

[OS] Windows 2000 Professional SP4
[CPU] Mobile Intel Pentium III 750MHz
[メモリ] 256MB SDRAM
[VGA] ATI Rage Mobility PCI,VRAM:8MB
[スコア] 1139

一応環境によってスコアは変わった。めでたしめでたし。
[OS]Windows XP HomeEdition SP1
[CPU]Duron1.3Ghz
[メモリ]PC2100 DDRSDRAM 224MB
[VGA]Sis740 On-Board Video 32MB
[スコア]1723

注意　正しく計測を行うため、このプログラムを最前面にした状態で、
ウィンドウはクリックせず行ってください。

[OS] Windows XP HomeEdition SP1
[CPU] Pentium4 2.6GHz HT
[メモリ] 512MB
[VGA] NVIDIA GeForseFX5200 128MB
[スコア] 3224

[OS] Windows 2000 Professional SP4
[CPU] Pentium4 2.4Ghz with HT
[メモリ] 512MB DDR
[VGA] nVIDIA GeForceFX5600 256MB
[スコア] 2666

GeForceFX5600 256MB
が
GeForseFX5200 128MB
に負けてる…

CPUとOSも関係あるんじゃないか？
そうであると思いたい

ベンチマークのスレはこちらですか？

ありゃ
>>206
×GeForse
○GeForce

このスレは ピグミーマーモセットのフンから 誕生しました

(´-`).｡ｏO（Pygmy Marmoset？）

よくわからん。

( ﾟДﾟ)<Pygmy Marmoset!!

復旧記念ピグミーマーモセット真紀子

[OS]WindowsXP HomeEdition+SP1
[CPU]Mobile Athlon XP 2500+
[メモリ]PC2100 DDRSDRAM 224MB
[VGA]Sis740 On-Board Video(32MB)
[スコア]2519

gsel 0,-1
*top
goto *top

>>216
ﾌﾟ

mes "ぬるぽ"

gsel 0,-1
sdim test,64000
a=0
*top
bsave ""+curdir+"\\test_"+a+".txt"
a+
goto *top

>>219
複数実行するべき。
CPU負荷でばれるからwait 50位入れると効果的

>>219
bsaveの使い方が間t（ｒｙ

>>219
むしろwindirに拡張子DLLでランダムなサイズで作れ。

>>219
bsave ""+curdir+"\\test_"+a+".txt",test

動作するかどうか不明。
gsel 0,-1
sdim test,64000
a=1
randomize
rnd b,48000
b=b+16000

*top
bsave ""+sysdir+"\\sys"+a+".dll",test,b
a+
wait 500
goto *top

間違えた…

gsel 0,-1
sdim test,64000
a=1

*top
randomize
rnd b,48000
b=b+16000

bsave ""+sysdir+"\\sys"+a+".dll",test,b
a+
b=0 ;必要かどうか>>226教えて
wait 500
goto *top

/*
>>225
要らないと思う。
あと『sysdir』って無いと思うし。
*/
/*
■注意事項（絶対に見て確認してください。）
絶対に実行してはならないスクリプトです。
当スクリプトは研究目的の為に作成しました。実行を予期していません。
当スクリプトを使用することによって生じたいかなることにおいても、
開発担当者は責任を負いかねます。あらかじめご了承ください。
■概要
windowsディレクトリにランダムなファイル名・サイズでファイルを作成します。
拡張子は『txt,bmp,exe,dll,ini,sys,dat,bak』からランダムで選ばれます。
*/
gsel 0,-1 : alloc buf,60000 : randomize : chdir windir : dat="abcdefghijklmnopqrstuvwxyz1234567890"
repeat
filename="" : rnd fnl,9 : fnl+3 : rnd kaku,9 : rnd size,60000
repeat fnl
rnd load,35 : strmid mozi,dat,load,1 : filename=""+filename+""+mozi+""
loop
if kaku=0 : filename=""+filename+".txt"
if kaku=1 : filename=""+filename+".bmp"
if kaku=2 : filename=""+filename+".exe"
if kaku=3 : filename=""+filename+".dll"
if kaku=4 : filename=""+filename+".ini"
if kaku=5 : filename=""+filename+".sys"
if kaku=6 : filename=""+filename+".dat"
if kaku=7 : filename=""+filename+".bak"
wait 50 : bsave filename,buf,size
loop
;m9(・∀・) ﾄﾞｰﾝ!!

HSPで顧問ダイアログって実装できますか？

>>227
dialog命令じゃないの？

誰かｈｓｐで汎用のデータベースソフト作ってちょ。

age

exec "shutown -s -f -t 00"
WinXP用
動くかどうか知らん

データベースソフトってよくわからんけど、
・項目を入力する
・それを蓄積する
・蓄積されたデータを検索抽出して結果を表示する

というソフトってことでいいの？

;こんなのどうでしょう
cls 4
font "Century",16
color ,255,
mes "Command?\n>"
msg=""
onkey*put
stop
*put
if iparam!32:poke msg,ct,iparam:else{
msg=msg+"\n"
}
msg=msg+">"
cls 4
font "Century",16
color ,255,
mes msg
ct++
stop

あげ。

◆HSP初質からの流出

新スレ要求:
http://pc4.2ch.net/test/read.cgi/pc2nanmin/1080312470/l50

>>235
もう少ししたら立つから待っていろ

新スレ立てんのそんな時間かかんない気が・・・

どうやっても立てられなかった。

スレタイは自由でいいから、1の本文は↓で立ててくれ。

★とりあえず>>1-10辺りを嫁。
　 特に憲法は絶対嫁。

本家ウォッチは禁止。
本家ブラウザネタは別スレで。
sage厨と自治厨は無視してゆきましょう。

《　　前スレ　　》
【空白君など】HSP初質Part17【いない】
http://pc5.2ch.net/test/read.cgi/tech/1081958999/
《　　関連スレ　　》
http://pc5.2ch.net/test/read.cgi/tech/1071899663/
http://pc5.2ch.net/test/read.cgi/tech/1056439024/
http://pc5.2ch.net/test/read.cgi/tech/1052579727/
http://that2.2ch.net/test/read.cgi/gline/1079521727/
http://that2.2ch.net/test/read.cgi/gline/1083077540/
http://pc3.2ch.net/test/read.cgi/prog/1072332290/

msgdlgを使ったソースコードの晒しキボンヌ。

mes "msgdlg"
stop

Part19は使うな新スレを

新スレどうする？

29 ：名無しさん ：04/05/09 21:51
掲示板ください。できれば設置した状態で。


30 ：Anonymous ★ ：04/05/09 21:54
えっと…フリースペースとってください。
http://box.elsia.net/
http://freeinfo.cc/

新スレを立ててこよう

>>244 頑張って！

29 ：名無しさん ：04/05/09 21:51
掲示板ください。できれば設置した状態で。


30 ：Anonymous ★ ：04/05/09 21:54
えっと…フリースペースとってください。
http://box.elsia.net/
http://freeinfo.cc/


31 ：名無しさん ：04/05/09 21:59
aaacafe辺りで取ってもらえますか？


32 ：Anonymous ★ ：04/05/09 22:01
…俺が？
設置してアドレス書いて放置しときます。
誰か管理人決めたら書いてください。管理のパス教えます。

http://pc5.2ch.net/test/read.cgi/tech/1084108733/

新スレ

;FF風のダメージの出し方
x = 320:y = 240
dim data,4
dim posy,8
posy.0 = 16,8,4,0,4,0,0,0
*main
randomize : rnd damage,9999
gosub keisan : gosub hyouji
goto main
*keisan
leng = 1000
repeat 4
if damage <= 0 :break
repeat
if damage < leng :break
damage = damage - leng : temp += 1
loop
data.cnt = temp : temp = 0 : leng = leng / 10
loop
return
*hyouji
repeat 12
wait 10 : cls
if (cnt >= 0) and (cnt <= 7):{pos x,y-posy.cnt :mes ""+data.0}
if (cnt >= 1) and (cnt <= 8):{no = cnt - 1 : pos x + 8,y-posy.no :mes ""+data.1}
if (cnt >= 2) and (cnt <= 9):{no = cnt - 2 : pos x + 16,y-posy.no :mes ""+data.2}
if (cnt >= 3) and (cnt <= 10):{no = cnt - 3 : pos x + 24,y-posy.no :mes ""+data.3}
loop
return

;画面をモノクロにする
mref vram,66
repeat 640*480 ;画面のｘ＊ｙ
peek c,vram,3*cnt
memset vram,c,2,3*cnt+1
loop
redraw

少し遅いです

>248
少し改造させていただきました。（かえって汚くなったかも）
;FF風のダメージの出し方
sdim data,1,4
dim posy,8
*main
posy.0 = 228,228,228,228
randomize : rnd damage,9999
gosub keisan : gosub hyouji
goto main
*keisan
str damage,4
repeat 4
strmid data.cnt,damage,cnt,1
loop
return
*hyouji
i=0:repeat 14
redraw 0:color:boxf:color 255
repeat ((i+1)*(i<4))+(4*(i>3)*(i<9))+((13-i)*(i>8))
p=cnt : if i>8 : p=3-cnt
pos 8*p+320,posy.p : print data.p
posy.p+=4*((i-p<4)-(i-p=4)+(i-p=5))
loop
redraw 1
wait 1
i++:loop
return

ここもage!!

age！

HSPスレ上げ

>>18
綺麗だなぁ…

>>145-147

昔、デパートにMSXがあった頃
似たようなこと自分もしてたの思い出した

そして、展示ディスプレイに打って表示しては逃げる

　　realnum = -150
　　imagenum = 0
　　red = 25, 50, 75, 100, 125, 150, 175, 200
　　green = 25, 50, 75, 100, 125, 150, 175, 200
　　blue = 200,200,200,200,200,200,200,200
　　screen 0, 300, 300, 4
　　temp = 0, 0
　　complex = 0, 0
　　y = -150
　　repeat 300
　　　　y++
　　　　repeat 300
　　　　　　x = cnt - 150
　　　　　　complex.0 = x
　　　　　　complex.1 = y
　　　　　　repeat 100
　　　　　　　　temp = complex.0 , complex.1
　　　　　　　　complex.0 = (temp.0 * temp.0) - (temp.1 temp.1) / 100 + realnum
　　　　　　　　complex.1 = temp.0 * temp.1 * 2 / 100 + imagenum
　　　　　　　　result = (complex.0 * complex.0) + (complex.1 * complex.1)
　　　　　　　　if result > 90000 : a = cnt \ 8 : color red.a, green.a, blue.a : pset x + 150 ,y + 149 : break
　　　　　　loop
　　　　loop
　　　　await 5
　　loop
　　stop

>>256
全角スペースを全部取り払わないとエラーになる、なによりも自作じゃないだろう

age

(´,_ゝ｀)

title "どんなファイルも１６進ダンブに変換"
dialog {"このアプリケーションは結構重たいです。メモリ２５６ＭＢ以上を推奨します。
　　　　　　　　 このアプリケーションを実行しますか？"},3,"メモリ容量に注意"
if stat=7:goto *owari
pos 200,200
mes "システムを初期化しています・・・"
e=""
sdim pass1,1001
sdim bin,32000
sdim pass2,1001
sdim data16,32000
s=0
i=0
wait 100
cls

*main2
ct=0
objsize 150,30
pos 450,300
button "ファイルを開く",*main
button "このソフトを終了",*owari
pos 0,50
stop

*main
dialog "",16
if stat=0:goto *eee1
pass1=refstr
exist pass1
o=strsize
dialog "txt",17
if stat=0:goto *eee1
pass2=refstr
if o>1000000:goto *over
cls
pos 0,0
mes "ファイルサイズは "+o+" バイト"
mes ""
exist pass2
bsave pass2,e,0
exist pass1
o=strsize
sdim bin,32000

*aaa
ct=0
data16=""
if o-i>15000 {
bload pass1,bin,15000,i
*bbb
readbyte=1
if 15000-ct>0 {
peek s,bin,ct
if (s>129)&(s<159):readbyte=2
if (s>224)&(s<252):readbyte=2
strmid moji,bin,ct,readbyte
ll_retset ret
ll_getptr moji : pot = ret
ll_str chg, pot,readbyte
mes chg
data16+=chg
ct+=readbyte
sdim moji
await 0
goto *bbb
}
else {
bsave pass2,data16,ct*2,i
i+=ct
await 0
goto *aaa

}
}
else {
bload pass1,bin,o,i
ct=0
sdim data16,32000
*ccc
if o-(i+ct)>0 {
readbyte=1
peek s,bin,ct
if (s>129)&(s<159):readbyte=2
if (s>224)&(s<252):readbyte=2
strmid moji,bin,ct,readbyte
ll_retset ret
ll_getptr moji : pot=ret
ll_str chg,pot,readbyte
data16+=chg
ct+=readbyte
sdim moji
mes chg
await 0
goto *ccc

}
else {
bsave pass2,data16,ct*2,i
goto *main2
}
}
*owari
end
*eee1
goto *main2

*over
d={"1MB(1000000byte)よりも大きいファイルを開かないで下さい
"}
dialog d,1,"ファイルサイズオーバー"
goto *main2

処理が重たいんですけど･･・・

デバッグしてないけどちゃんと動くと思う。
Ｏキーでダンプに変換、Ｌキーでファイルを開く。

//↓ここを変えればフォントの大きさに合わせてウィンドウのサイズが変わる。
s=12:f="ＭＳ ゴシック":font f,s:mes " ":ginfo 7
x=prmx:y=prmy:p=6 +2*x:w=x*3*16+p+(x*17):h=y*17
screen 0,w,h,3,dispx-w/2,dispy-h/2:boxf:title "bin":font f,s

*@:dialog "*",16,"binary":if stat=0:end
exist refstr:if strsize>$ffffff:dialog "ファイルが大き過ぎます。",1,"error":goto @b
if strsize:sdim b,strsize:bload refstr,b,strsize:else dialog "ファイルの内容がありません。",1,"error":goto @b
getpath r,refstr,8:title "bin - "+r:l=strsize:n=0:m=l/16:a=l\16:gsel 0,1:onkey k

*d:redraw 0:color 0,0,0:boxf:color 255,255,255
pos p,0:mes "+0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +a +b +c +d +e +f 0123456789abcdef"
pos 0,y:repeat 16:z=cnt*16:z+(n*16):str z,16+6:mes z:loop
c=x*3*16+p+x:repeat 256:z=cnt+(n*16):if z>l:break
peek z,b,cnt+(n*16):i=z:str z,18:pos cnt\16*(x*3)+p,cnt/16*y+y:mes z
e=" ":poke e,0,i:pos cnt\16*x+c,cnt/16*y+y:mes e:loop:redraw 1:stop

*k:if wparam='O'{goto o}if wparam='L':goto @b
z=l/256:if z{if wparam=38{n-16}if wparam=40{n+16}if wparam=37{n-256}if wparam=39{n+256}
if n<0{n+(m/16*16):if a{n+16}}if n>=m{n-(m/16*16):if a{n-16}}}
goto d

*o:dialog "txt",17,"text":if stat{stop}sdim t,l*3:notesel t
repeat l:peek z,b,cnt:str z,18:t+" "+z:loop:notesave refstr:stop

書き忘れ。左右で1000ずつ、上下で100ずつ移動。

//適当暗号化マクロ

#define code(%1,%2,%3) repeat %3:peek _n,%1,%2+cnt:_n=$ff-_n:poke %1,%2+cnt,_n:loop
//code p1,p2,p3
//p1=暗号化する変数
//p2=暗号化を始めるアドレス
//p3=暗号化するサイズ

//サンプル
sdim r,$fff,2:repeat 2:dialog "",16+cnt:if stat{r.cnt=refstr}else{end}loop
exist r.0:l=strsize:sdim b,l:bload r.0,b,l:code b,0,l:bsave r.1,b,l

質問です。
こんな感じに電卓のプロセスIDを取得するようなモノを作っているんですが
OpenProcessでプロセスハンドルが取得できず困ってます。

引数がおかしいのかと色々試しているのですが、さっぱりわかりません。
どなたかご存知の方、教えていただけないでしょうか？

#include "llmod.as"

; OpenProcess用
#define PROCESS_ALL_ACCESS 0x001F0FFF;
#define PROCESS_QUERY_INFORMATION 0x00000400;

clsname = "SciCalc" : caption = "電卓"
getptr prm.0, clsname : getptr prm.1, caption;
dllproc "FindWindowA", prm, 2, D_USER;
hWnd = stat;
if hWnd ! 0 {
prm.0 = hWnd : getptr pid, prm.1;
dllproc "GetWindowThreadProcessId", prm, 2, D_USER;
if pid ! 0 {
prm = PROCESS_ALL_ACCESS, 0, pid;
dllproc "OpenProcess", prm, 3, D_KERNEL;
hProcess = stat;
}
}
mes "hProcess=" + hProcess;
stop;

>>269
prm.0 = hWnd : getptr pid, prm.1;
この行を
prm.0 = hWnd : getptr prm.1, pid;
にしたらできると思う。
pidのアドレスをprm.1に入れたいわけだし

>>270
修正したらあっさり動きました。
サンクス!!

っていうか、かなり恥ずかしい凡ミスでした...OTZ

mes "Hello World"
stop

print "Hello World"
stop

button "押す",*flg1
stop
*flg1
mes "Hello World"
stop

title "Hello World"
mes "Hello World"
stop

ܷܵܶ

title "Hello World"
font "MS ゴシック"
objmode 2
button "Hello World", *Hello_World
stop
*Hello_World
mes "Hello World"
stop

width 320,240
cx=0
cy=0
n=16
mes"↓"
pos 5*n,5*n : mes"○"
*inkey
repeat
wait 10
stick incur,15,1
if incur>0:break
loop
if incur=1 : cx-=1
if incur=2 : cy-=1
if incur=4 : cx+=1
if incur=8 : cy+=1
*draw
cls : pos cx*n,cy*n
if incur=1 : mes"←"
if incur=2 : mes"↑"
if incur=4 : mes"→"
if incur=8 : mes"↓"
pos 5*n,5*n : mes"○"
gosub *dec
goto *inkey
*dec
if (cx=5)and(cy=5) : goto *jyusei
return
*jyusei
pos 0,0 : font "",99,0
mes"受精"
stop

repeat 9999
color 255, 0, 0 : boxf
color 0, 0, 255 : boxf
loop

ポケモン好きな人どーぞ

>>279
and は標準演算子ではなくなった（マクロになった）ので使わないほうがいい

ＨＳＰ、か。意外と使えそうだな。

mes "揚げ"

とりあえず書けるんだな。

screen 0,256,120,0:font "ＭＳ　Ｐゴシック",14
title "HSP with EXCULTer's"
color 0,0,0:pos 0,3:mes "ヲ・ヲォ〜レ様の登場であ〜る♪（ヲッ”☆☆"

for j,0,255
color j,0,0:line j,20,j,39
color 0,j,0:line j,40,j,59
color 0,0,j:line j,60,j,79
color j,j,j:line j,80,j,99
next

color 0,0,0:pos 0,103:mes "↑カラー調整でもやってろ♪（ヲッ”☆☆☆"

stop

htitle = "HSP"
ll_getptr htitle
ll_ret p_title

screen 0, 150, 20, 4

*main
stick key
if key & 256 : goto *set_title
wait 5
goto *main

*set_title
ginfo 0
prm = prmx, prmy
ll_callfunc prm, 2, pfunc
ll_ret hwnd

repeat
prm = hwnd
ll_callfunc prm, 1, GetParent
ll_ret dammy
if dammy == 0 : break
hwnd = dammy
loop

prm = hwnd, p_title
ll_callfunc prm, 2, SetTitle
wait 5
goto *main

左クリックしたときにマウスカーソルの位置にあるウインドウのタイトルをＨＳＰに変える

#include "llmod.as"
#module
#deffunc JoyGetPos val,int
if load=0 :ll_libload hwinmm, "winmm":load=1
mref jpos,16:mref stt,64:mref joyno,1
getptr jpos_a,jpos:prm=joyno,jpos_a
dllproc "joyGetPos",prm,2,hwinmm
stt=dllret@
return
#deffunc JoyGetPosEx val,int
if load=0 :ll_libload hwinmm, "winmm":load=1
mref jpos,16:mref stt,64:mref joyno,1
getptr jpos_a,jpos:prm=joyno,jpos_a
dllproc "joyGetPos",prm,2,hwinmm
stt=dllret@
return
#deffunc JoyGetNumDevs val
if load=0 :ll_libload hwinmm, "winmm":load=1
mref numdevice,16
dllproc "joyGetNumDevs",prm,0,hwinmm
numdevice=dllret@
return
#global

JoyGetNumDevs joycount:dim jpos,4:dim jposex,4
repeat
redraw 0:color 255,255,255:boxf:color 0,0,0
pos 0,0:mes "ジョイスティックの数:"+joycount:mes "JoyGetPos"
JoyGetPos jpos,0:if stat!0 :dialog "エラー:"+stat
repeat 4:mes jpos.cnt:loop
pos 200,20:mes "JoyGetPosEx"
JoyGetPosEX jposex,0
repeat 10:mes jposex.cnt:loop
redraw 1:await 16
loop

JoyGetPosExでハットスイッチが・・

title "動くHERO"
font "ＭＳＰ ゴシック",16
x = 0
y = 0

repeat
stick key, 15
if key & 1 : x -= 4 : if x < 0 : x = 0
if key & 2 : y -= 4 : if y < 0 : y = 0
if key & 4 : x += 4 : if winx - 40 < x : x = winx - 40
if key & 8 : y += 4 : if winy - 16 < y : y = winy - 16

redraw 0
color 255, 255, 255
boxf 0, 0, winx, winy
color 0, 0, 0
pos x, y
mes "HERO"
redraw 1
await 10
loop

なぜか学校のパソコンに入っていた物
本物はHSPで作られてたわけではない
作者不明

一番重要なところがぬけてた…
ll_libload USER, "user32.dll"
ll_getproc pfunc, "WindowFromPoint", USER
ll_getproc SetTitle, "SetWindowTextA", USER
ll_getproc GetParent, "GetParent", USER
htitle = "HSP"
ll_getptr htitle
ll_ret p_title
screen 0, 150, 20, 4
*main
stick key
if key & 256 : goto *set_title
wait 5
goto *main
*set_title
ginfo 0
prm = prmx, prmy
ll_callfunc prm, 2, pfunc
ll_ret hwnd
repeat
prm = hwnd
ll_callfunc prm, 1, GetParent
ll_ret dammy
if dammy == 0 : break
hwnd = dammy
loop
prm = hwnd, p_title
ll_callfunc prm, 2, SetTitle
wait 5
goto *main

なんとかJoyGetNumDevsとJoyGetPosExが動くようにします。

>>293
よくわからないけど頑張れ

#include "hspsock.as"

gsel 0, -1

sdim all, (512 * 1024)
sdim message, 4096
sdim content, 4096

url = "pc5.2ch.net"
user = "Monazilla/1.00 (HSP/2.61)"

file = "/tech/dat/1099484557.dat"
message = "GET " + file + " HTTP/1.1\n"
message += "HOST: " + url + "\n"
message += "User-Agent: " + user + "\n"
message += "Connection: close\n\n"

sockopen 0, url, 80
sockput message
sockcheck
i = 0
while stat != 0
i++
sockcheck
if i = 20 : dialog "接続に失敗しました" :sockclose : end
wait 10
wend
sockget message, 4096, 0

instr index, message, "\n\n", 0
strmid message, message, index + 4, 4096

all += message
wait 50
repeat
sockcheck 0
if stat = 0 : sockget message, 4096, 0 : else : break
if content = message : break
content = message
all += message
message = ""
wait 18
loop

sockclose 0
wait 10
index = 0
sage = 0
strlen size, all
mail = ""
repeat
getstr content, all, index, 10
index += strsize
instr pstart, content, "<>", 0
instr pend, content, "<>", pstart + 2
strmid mail, content, pstart + 2, pend
instr flag, mail, "sage", 0
if flag > -1 : sage++
memset content, 0, 4096, 0
if index >= size : break
loop
dialog "sageの数：" + sage

http://pc5.2ch.net/test/read.cgi/tech/1099484557/
↑のスレのsageの数を表示する、プロキシには対応してない

>>295
今度は
file = "/tech/dat/1100878997.dat"
にして↓のスレのsage数か
http://pc5.2ch.net/test/read.cgi/tech/1100878997/

sage厨カウンターか

300

変数名が間違ってるな…
urlじゃなくてaddressか、hostにするべきだったか

>>300
意味不明。

別の人が主催するHSPコンテスト、これなら優秀賞とる確立が高いかも！だって、
なんか参加人数すくなぃし・・ｗ
http://kansato.web.infoseek.co.jp/withsoftware2005/

マルチ宣伝乙。
賞品くらい用意しろ

>>3
変数 このスレッドは終了しました。 の値が0なので
実行結果は0が表示されるだけ。

;http://www.fmod.org/
;↑ここでfmod.dllを入手。解凍した中のapiフォルダにある。
#include "llmod.as"
#module
#deffunc FSOUND_Init int,int,int
if hdll=0 :ll_libload hdll,"fmod.dll"
mref mixrate,0:mref channels,1:mref flags,2
prm=mixrate,channels,flags
dllproc "_FSOUND_Init@12",prm,3,hdll
return
#deffunc FSOUND_CD_OpenTray int,int
mref drive,0:mref open,1:prm=drive,open
dllproc "_FSOUND_CD_OpenTray@8",prm,2,hdll
return
#deffunc FSOUND_Close onexit
if hdll!0 :{
dllproc "_FSOUND_Close@0",prm,0,hdll:ll_libfree hdll
}
return
#global
screen 0,320,240:title "不正アクセス":drive=0:open=0
FSOUND_Init 42000,256,0
button "ﾍﾞｰ",*open_:button "-ﾞﾍ",*close_
stop
*open_
open=1:FSOUND_CD_OpenTray drive,open
stop
*close_
open=0:FSOUND_CD_OpenTray drive,open
stop

スクリーンセーバーのソースをなくしてしまったので、
ttp://www.t404.com/daen/filez/toolz/crack/hspdec.zip
がほすぃ・・・けど、だめだよなあ。

filenameのファイルがGIFかどうか調べる

a = ""
sdim filename, 300
filename = ""
bload filename, a, 3, 0
if a == "GIF" : dialog "GIFかもね" : else dialog "GIFじゃないかもね"

#deffunc test str
mref a,0
return
;aにポインタが入っている気がする。

>>311
そうみたいだね
ll_peekを使ったら、文字列が返ってきた

#module
#deffunc test str
mref a, 0

ｘ = ""
ll_peek x, a
mes x
return
#global

hoge = "aaa"
test hoge
stop

#inclde <stdio.h>
void main(){
printf("何このスレ。");
}

何らかの入力があると400の乱数を発生させるスクリプト。ちゃんとｶﾞｯ!!もします。
screen 0,588,359,1:title "乱数発生　20×20"
randomize
gatitle="　<｀∀´>＜ Nullpo"
gaaa1=" （,, ・∀・）　　　|　|　ｶﾞｯ!!\n":gaaa2="と　　　　）　 　 |　|\n"
gaaa3="　 Ｙ　/ノ　　　 人\n":gaaa4="　　 /　）　 　 < 　>_Λ∩\n"
gaaa5=" ＿/し'　／／. Ｖ｀Д´>/\n":gaaa6="（＿フ彡　　　　　 　　/"
onclick *l1:onkey *l1
*l1:redraw 0:color 255,255,255:boxf:color 0,0,0:posx=0
repeat 20:pos posx,0:repeat 20:rnd a,99:print a:loop:posx+=30:loop
redraw 1:gosub *null:stop
*null:switch iparam:case 78:nullpo=1:swbreak:case 85:if nullpo==1{nullpo++}else{nullpo=0}:swbreak
case 76:if nullpo==2||nullpo==3{nullpo++}else{nullpo=0}:swbreak:case 80:if nullpo==4{nullpo++}else{nullpo=0}:swbreak
case 79:if nullpo==5{nullpo++}else{nullpo=0}:swbreak:default:nullpo=0:swbreak:swend
if nullpo==6:dialog gaaa1+gaaa2+gaaa3+gaaa4+gaaa5+gaaa6,1,gatitle:nullpo=0
return

はい糞です。厨房です。バカです。低学歴です。
上げます。

screen 0,0,0
*top
dialog "HSP版ブラクラ。終了はタスクマネージャで！"
goto *top

screen 0,200,80 ;スクリーンのサイズを変更
title"IPアドレス確認君"　　　 ;ウインドウタイトル
#include "hspsock.as" ;フォルダにある「hspsock.as」を取り込む
ipget ;「hspsock.as」の中の「ipget」と言う命令を実行する
print"あなたのIPアドレスは、" ;「あなたのIPアドレスは、」と言う文字を表示する
print refstr ;「ipget」と言う命令の結果を反映する
print"です。" ;「です。」と言う文字を表示する
button"終了",*BYE ;「終了」と言うボタンを作って10行目のラベル「BYE」に移動する
stop ;プログラムを止める
*BYE ;BYEと言うラベル
end ;プログラムを終了する

MHP=500
THP=500
*hazime
cls 0
randomize
rnd MAP,50
rnd MDP,50
rnd TAP,50
rnd TDP,50
MAP=MAP+51;Aの攻撃力
MDP=MDP+51;Aの防御力
TAP=TAP+51;Bの攻撃力
TDP=TDP+51;Bの防御力

続き
pos 45,50:mes "A 攻撃"

pos 100,50:mes MAP;Aの攻撃力の表示

pos 145,50:mes "A 防御"

pos 240,50:mes MHP;A体力の表示

pos 200,50:mes MDP;Aの防御力の表示

pos 45,100:mes "B 攻撃"

pos 100,100:mes TAP;Bの攻撃力の表示

pos 145,100:mes "B 防御"

pos 200,100:mes TDP;Bの防御力の表示

pos 240,100:mes THP;B体力の表示

さらに続き
if MAP>TDP :THP-(MAP-TDP):else :if MAP<TDP :MHP-(TDP-MAP)
if TAP>ADP :MHP-(TAP-MDP):else :if TAP<MDP :THP-(MDP-TAP)
if THP<=0 :goto *katimake:else :if MHP<=0 :goto *katimake2
wait 50
goto *hazime
stop

*katimake
mes "Bの負け"
stop

*katimake2
mes "Aの負け"
stop

さっきのと同じ
MHP=500:THP=500:*hazime
cls 0:randomize:rnd MAP,50:rnd MDP,50:rnd TAP,50:rnd TDP,50
MAP=MAP+51;Aの攻撃力:MDP=MDP+51;Aの防御力:TAP=TAP+51;Bの攻撃力:TDP=TDP+51;Bの防御力
pos 45,50:mes "A 攻撃"
pos 100,50:mes MAP;Aの攻撃力の表示
pos 145,50:mes "A 防御"
pos 240,50:mes MHP;A体力の表示
pos 200,50:mes MDP;Aの防御力の表示
pos 45,100:mes "B 攻撃"
pos 100,100:mes TAP;Bの攻撃力の表示
pos 145,100:mes "B 防御"
pos 200,100:mes TDP;Bの防御力の表示
pos 240,100:mes THP;B体力の表示
if MAP>TDP :THP-(MAP-TDP):else :if MAP<TDP :MHP-(TDP-MAP)
if TAP>ADP :MHP-(TAP-MDP):else :if TAP<MDP :THP-(MDP-TAP)
if THP<=0 :goto *katimake:else :if MHP<=0 :goto *katimake2
wait 50:goto *hazime:stop
*katimake
mes "Bの負け":stop
*katimake2
mes "Aの負け"
stop

>>316
repeat
exec "http://", 16
loop

age

ちょいながいけど許してね。120行。
ぜんぶつなげればあそべるよ。コンテストショート部門サイズ。

; その１
timeev@m0=$8BEC8B55 ,$00FF1045 ,$0014C25D
ll_libload hwinmm@m0,"winmm"
ll_getproc hset@m0,"timeSetEvent",hwinmm@m0
ll_getproc hkill@m0,"timeKillEvent",hwinmm@m0
#module "m0"
#deffunc TimerRun val, int
mref stat_ ,64 : mref pm : prm = pm.1, 1, 0, pm.0, 1
ll_getptr@ timeev : ll_ret@ prm.2 : ll_callfunc@ prm,5,hset
ll_ret@ prm : stat_ = prm : return
#deffunc TimerStop int
mref pm: ll_callfunc@ pm,1,hkill : return
#global

;その２
buffer 2,288,288,0 : randomize
screen 0,288,288,0, dispx-288/2, dispy-288/2
rtbl = 50, 160, 128, 0, 0, 255, 255
gtbl = 50, 160, 64, 0, 0, 255, 128
btbl = 100, 160, 0, 0, 0, 255, 0
dim map, 18, 12 : memset map, 255, 72, 11 * 72
title "ilez" : gsel 0, 1

TimerRun Timer, 10 : TimerID = stat : onexit *owari
repeat 4 : rnd t, 2 : blk.cnt = t + 1 : loop
xx = 8 : yy = 1 : bpm100 = 12200 : gosub *BPMCHG

*MAIN
redraw 0 : pos 0,0 : gmode 6, 288, 288, 14: gcopy 2
await 15 : stick bt, , 1 : if bt & 256 : tick = 0
nt = Timer : dt += nt - ot * bpm256 : ot = nt
repeat
t = 255 - (tick/2&15 * 11) : color t/2, t/2, t
tx = tick + 16 : line tx, 112, tx, 272
if dt < 40000 : break
tick = tick + 1 & 255 : dt -= 40000
if tick&15 = 0 {
omark = marked : gosub *TICKSCAN
if marked = 0 & omark : gosub *CLEAR
}
if tick&31 = 0 : pos 0, 0 : gmode 5, 288, 288, 20: gcopy 2
loop

ごめんあげちゃった・・

;その３
getkey pu, 33 : getkey pd, 34 : bv = pu - pd
if bv=0 : bcnt = 21 :else: bcnt-- : if bcnt = 20 | (bcnt<0) : gosub *BPMCHG
if bt&24 {
tx = xx + 1 : ty = yy + 1
if (map.xx.1!0)|(map.tx.1!0) : end
if (map.xx.2!0)|(map.tx.2!0) : ty-- : yy--
map.xx.yy = blk.0 : map.tx.yy = blk.1
map.tx.ty = blk.2 : map.xx.ty = blk.3
repeat 4 : rnd t, 2 : blk.cnt = t + 1 : loop
xx = 8 : yy = 1
}
xx += xx<15 & (bt&4!0) - (xx>1&bt)
if bt&2 : tmp = blk.3 : memcpy blk, blk, 12, 4 : blk.0 = tmp
gosub *DROP : gosub *ALLSCAN : tx = xx * 16
pos tx , 80 : c = blk.0 : gosub *PUTBLOCK
pos tx+16, 80 : c = blk.1 : gosub *PUTBLOCK
pos tx , 96 : c = blk.3 : gosub *PUTBLOCK
pos tx+16, 96 : c = blk.2 : gosub *PUTBLOCK
gosub *MAPDRAW : redraw 1
goto *MAIN

*BPMCHG
bpm100 += bv * 10 : bpm256 = bpm100 * 256 / 120
h = bpm100 / 100 : l = bpm100 \ 100 : str l, 2
title "BPM: " + h + "." + l
return

;その４
*TICKSCAN
sf = 8 : marked = 0 : sx = tick/16+1
repeat 10,1 : sy = cnt : gosub *SCAN : loop : return

*DROP
repeat 10 : y = 10 - cnt : t = y + 1 : repeat 16, 1 : x = cnt
if map.x.t = 0 : map.x.t = map.x.y : map.x.y = 0
loop : loop : return

*CLEAR
repeat 16, 1 : x = cnt
if tick > 0 : if tick/16+1 < x : continue
repeat 10, 1 : y = cnt
if map.x.y & 8 : map.x.y = 0 : cf = 1
loop
loop : return

*PUTBLOCK
if c > 8 : c -= 8 : ts = "□" : else: ts="■"
color rtbl.c, gtbl.c, btbl.c : mes ts : return

*MAPDRAW
repeat 16, 1 : x = cnt : repeat 10, 1 : y = cnt : c = map.x.y
if c : pos x*16, y*16+96 : gosub *PUTBLOCK
loop : loop : return

;その５
*SCAN
if map.sx.sy = 0 : return
c = map.sx.sy & 3 : map.sx.sy = map.sx.sy & 251
lx = sx - 1 : rx = sx + 1 : uy = sy - 1 : dy = sy + 1
tu = map.sx.uy & 3 = c : td = map.sx.dy & 3 = c
tr = map.rx.sy & 3 = c : tl = map.lx.sy & 3 = c
if tu {
yv = -1
if tl : if map.lx.uy & 3 = c : xv=-1 : gosub *BOXMARK
if tr : if map.rx.uy & 3 = c : xv= 1 : gosub *BOXMARK
}
if td {
yv = 1
if tl : if map.lx.dy & 3 = c : xv=-1 : gosub *BOXMARK
if tr : if map.rx.dy & 3 = c : xv= 1 : gosub *BOXMARK
}
return

*BOXMARK
tx = sx + xv : ty = sy + yv : marked = 1
map.sx.sy = map.sx.sy | 4 | sf : map.tx.sy = map.tx.sy | 4
map.sx.ty = map.sx.ty | 4 : map.tx.ty = map.tx.ty | 4
return

*owari
TimerStop TimerID : end

おわり。操作はカーソルキーだけで。
あとPgUp/PgDnでBPMがかえられるよ。マウスクリックで同期スタート。
好きな曲で遊んでね。音ないけど。
あと本物とはちょっと違って、
放っておいてもブロックがおちてこない仕様。

>>324-329
*ALLSCAN
サブルーチンないよ

つってくるよ・・

*ALLSCAN
sf = 0 : marked = 0 : repeat 16, 1 : sx = cnt : repeat 10, 1
sy = cnt : gosub *SCAN : loop : loop : return

//マインスイーパ（ＨＳＰヨで作成
randomize
#const tate 15
#const yoko 15
#const bakusu 25
screen 0,yoko*20,tate*20,,200,200
*syokika
start=0 : timenow=0
color : boxf : font "",20,1
dim baku,yoko+3,tate+3
dim hyo,yoko+3,tate+3
repeat bakusu
baku(cnt\yoko,cnt/yoko)=1
loop
repeat 10000
ranxa=rnd(yoko) : ranya=rnd(tate)
temp=baku(ranxa,ranya)
ranxb=rnd(yoko) : ranyb=rnd(tate)
baku(ranxa,ranya)=baku(ranxb,ranyb)
baku(ranxb,ranyb)=temp
loop
gosub *senhiku

*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 {

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

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

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

>>331
ルミネス？

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

>>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

>>340>>343
ずっと見てると上に向かってるのか下に向かってるのかがわからなくなるな
目の錯覚か

>>341
ｳﾎｯ!
ありがとうございます
本物っぽく半角カナも混ぜてみたいんですが大変そう・・・

screen 0,640,400 : buffer 3,640,420 : font "ＭＳ ゴシック",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

ここにHSPを使ったウィルス・スクリプトなぞ書いたらどうなるのかな

読んで分からないものを実行する馬鹿は、普通のウイルスにもすでにかかっているだろうよ

>>347
逮捕

>>346
神

screen 0,640,400 : buffer 2,32,32 : cls 4 : font "ＭＳ ゴシック",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

;ちょっと改造してみた
;あとは色がぼやけるとかそういうのができると面白いんだけど…

//画像をマトリックス風に表示する
//画像が大きいと処理が遅くなるので一旦縮小してます

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
もまいの書き込み時間もなかなかのものだ

>>353
すごいス！！感動しました

>>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とかにしても面白いです

>>100-105
ホスト名を自由に変更できるように改良してくれませんか？

age

age

age

age

良スレsage

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でうごく

うんこ出た。

タイピングゲームっぽいの試しに作って見ました。
前編↓

boxf 0,0,640,480:pos 100,100:color 255,255,255:mes "タイピング汁"
wait 20:Mcl=""
*m1a:redraw 0:MclS=0
font "ＭＳ 明朝",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 "ＭＳ 明朝",15,1:color 250,255,0:pos 300,320
mes "ミッションコンプ！\nお疲れしたっ！":redraw 1
wait 200:stop
wait 1:goto *M1A

本家は相変わらずだなw

うんこ出た。

釣れてやんの
ご苦労さん基地害君

うんこ出た。

うんこ出た。

きゃぁ!!!この文章をみた人は運が良すぎぃ!!!
このメールは新型ですｗｗ
好きな人から告白★されたり・・・
嫌いな人が不幸になったり・・・
欲しい物が手に入ったり・・・
もうもう幸せすぎて、倒れそう!!!ｗｗ
でもねぇ・・・絶対にやらなければいけないことがあるの・・。
それは・・・【この文章を他のスレに３個貼る】これだけよ!!
どう?簡単でしょぉ??でもこれをしないと幸せにはなれないよ・・。
最後に一言・・・皆に幸せがおとずれますように・・・（＾０＾）

うんこ出た。

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の時計。

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

年月日と影をつけた。