自分で作ったＨＳＰのソースを公開するスレ
■ このスレッドは過去ログ倉庫に格納されています
0001そう ◆tr.t4dJfuU
NGNGあらしは、徹底無視でお願いします。
0002_
NGNG0003デフォルトの名無しさん
NGNG0004そう ◆tr.t4dJfuU
NGNG0005デフォルトの名無しさん
NGNGお前あれだろ。HSPのスレでいまさら逆コンパイル作ろうとしてる香具師だろ？
0006そう ◆tr.t4dJfuU
NGNG0007デフォルトの名無しさん
NGNGmes "逆コンパイルとは、何ですか？"
stop
0008デフォルトの名無しさん
NGNGが、年の離れた兄貴のいる加戸は
「ヤッターマンコーヒーライター」
などという言葉を知っているいわば勇者的存在であった。
で、穴があることを知った俺たちだが、どうしてもそれが信じられない。
で、むしろ逆にガキであることを利用して調べようと思った。
ターゲットは音楽の教師である。美人だった。今にして思えば
２０歳くらいだったのではないだろうか。短大出てすぐだったように思う。
実行はいたって単純。ガキ特有のカンチョーというあれである。
あれを前に突き刺すというのだ。
ガキなら許されるであろうという勝手な発想だが、
たしかにマンコすら知らない奴がほとんどだったからナイスな判断だったろう。
で、実行は加戸だった。
加戸はなんの躊躇もなくやった。
思い切り。
思い切ってやっちゃいかんだろ、と思った。なぜにおまえはフルパワーなのだ、と。
音楽教師は泣いた。２０歳前後という年齢を考えればギャグでもきつい。
ガキからすれば大人だったのだが、今思うと娘だ。
むしろ、処女だった可能性すらある。すまん先生。
が、加戸も泣いていた。
両手人差し指骨折だった。第２関節より下で折れていた。
もろに刺さったんだと感心した。やはり勇者だ。
しかも、救急隊員に、マンコに指が刺さって折れましたと泣きながら事情を説明していた。
あの姿も相当かっこよかった
0009デフォルトの名無しさん
NGNG0010デフォルトの名無しさん
NGNG氏ね。
0011デフォルトの名無しさん
NGNG知らないなら、
print "ＨＳＰってなあに？"
なんてかくなよ
0012デフォルトの名無しさん
NGNG糞スレ立てんな痴呆
0013 ◆5VEmMPTmOM
NGNG0014デフォルトの名無しさん
NGNGモロアニメが無料で見られる！！
アニメならではの非現実的な世界をお楽しみください
無料サンプルはココから
http://www.pinkfriend.com/
0015デフォルトの名無しさん
NGNGhttp://nanahijima.hp.infoseek.co.jp/camedia436_01006.jpg
http://nanahijima.hp.infoseek.co.jp/camedia436_01014.jpg
0016_
NGNG0017デフォルトの名無しさん
NGNGmes "割られる数":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
0018デフォルトの名無しさん
NGNGcolor 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
001917&18
NGNG加算合成。
002117&18
NGNGbuf="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を入れれば実用的になるはず。
0022デフォルトの名無しさん
NGNGこれで暗号化かよ。笑わせてくれるね
0023デフォルトの名無しさん
NGNGシーザーに謝れ！
それよか複合化の方が俺はおもしろかった。
0024デフォルトの名無しさん
NGNGそう言うならサンプル作ってね。
0025デフォルトの名無しさん
NGNG0026デフォルトの名無しさん
NGNG0027デフォルトの名無しさん
NGNG0028デフォルトの名無しさん
NGNG0029デフォルトの名無しさん
NGNG0030デフォルトの名無しさん
NGNG003117&18
NGNG003217&18
NGNG0033デフォルトの名無しさん
NGNGあほ。そら塩だ。
0034デフォルトの名無しさん
NGNGdialog "糞スレ認定"
goto *top
0035デフォルトの名無しさん
NGNGHSP版ブラクラ（?)を、作るな！永遠に終わらん（しかもタスクマネージャーじゃないと終了できん）
003617&18
NGNG0037デフォルトの名無しさん
NGNGdialog "イッイッイクゥゥゥゥ！！！！"
goto *top
一生逝かないプログラム
0038デフォルトの名無しさん
NGNG禿げ同
003917&18
NGNG004017&18
NGNGsdim 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
0041デフォルトの名無しさん
NGNG0042デフォルトの名無しさん
NGNG氏ね、
0043デフォルトの名無しさん
NGNGこれは絶対見るしかないでしょう。
甘えたしゃべりかた、小さな身体に大きなオッパイ、そしてこの顔。
どれをとっても特Ａ級！こんな子がＡＶ女優だったなんて信じられませんね。
無料ムービー観てね
http://www.exciteroom.com/
0044山崎 渉
NGNG│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
0045デフォルトの名無しさん
NGNG氏ね
0046 ◆LMCJ7ytJhQ
NGNGonexit goto *label
mes "逝ってよし"
stop
*label
onexit goto *label
dialog "逝ってよし"
goto *label
0047デフォルトの名無しさん
NGNG■２０００人限定ですのでお急ぎ下さい■
http://www.yahoo2003.com/akira/linkvp.html
0048 ◆LMCJ7ytJhQ
NGNG抜いて実行しろよ
0049デフォルトの名無しさん
NGNG0050 ◆LMCJ7ytJhQ
NGNGうっばれたか・・
宿題やーろう
0051デフォルトの名無しさん
NGNGonerror *label
*label
exec "notepad.exe"
goto *label
0052デフォルトの名無しさん
NGNG*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
0053デフォルトの名無しさん
NGNGしつこい。宿題やれよ
0054デフォルトの名無しさん
NGNGｻﾝｸｽ
綺麗だったから、改造してスクリーンセーバーにしたよ。
005552
NGNG0056デフォルトの名無しさん
NGNG0057デフォルトの名無しさん
NGNGb+
mes ｛">>"+b+"
ｲｲ!"｝
wait 1
loop
005852
NGNGそんなこと出来るんだ～
0059デフォルトの名無しさん
NGNG0060デフォルトの名無しさん
NGNG006152
NGNGfont "ＭＳ ゴシックＰ",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
006252
NGNGx=-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の値を変えても同じ速度で動く。
0063 ◆PRJAeutIhE
NGNGNo.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!
0065デフォルトの名無しさん
NGNGぎゃ(ry
0067デフォルトの名無しさん
NGNG0068デフォルトの名無しさん
NGNG0069デフォルトの名無しさん
NGNG0070デフォルトの名無しさん
NGNGエラーになつちゃった・・・
0071デフォルトの名無しさん
NGNG0072デフォルトの名無しさん
NGNG#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);
}
0073デフォルトの名無しさん
NGNG実行できないんだけど、どうなるの？
0074デフォルトの名無しさん
NGNG俺の見たところ問題はないみたいだが。
コーディングスタイルが萎える。
0075デフォルトの名無しさん
NGNGスレッドのタイトルを読め
0076デフォルトの名無しさん
NGNG0077デフォルトの名無しさん
NGNG0078デフォルトの名無しさん
NGNG0079デフォルトの名無しさん
NGNG0080デフォルトの名無しさん
NGNGなんかＣのソースみたいだな。
0081デフォルトの名無しさん
NGNG0082aa ◆8nwtEIlH0Q
NGNG0083aa ◆yiWBZoL0x2
NGNG0084aa ◆KjnPz7YAAk
NGNG0085デフォルトの名無しさん
NGNG*kuri
pos x,y
await 5
mes"（"+i+"）"
i=i+1
x=x+1
z=z+2
if i<1000 : goto *kuri
stop
;晒しage
0086８５
NGNG0087デフォルトの名無しさん
NGNG0088デフォルトの名無しさん
NGNGRepeat
EmCos Cos,Cnt & 255
EmSin Sin,Cnt & 255
Pset Cos + Cnt / 10,Sin + Cnt / 10
Wait 1
Loop
0089デフォルトの名無しさん
NGNGテスト
←Tab
009088改
NGNGRepeat
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
0091デフォルトの名無しさん
NGNG0092デフォルトの名無しさん
NGNG0093hikki_たま
NGNGこの度2ch発のHSPプログラム収集サイトを作りました★
参考に！気晴らしに！友達お誘い合わせの上、
コピペして楽しんでくださいね (*´д｀*)ニャァ
『hsp@2ch』それゆけ！僕らのコーディング♪
http://home.u07.itscom.net/fucknewb/
0094デフォルトの名無しさん
NGNG0095つくってみた1
NGNGscreen 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
0096つくってみた2
NGNGif 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
0097デフォルトの名無しさん
NGNGちゃんと clrobj 汁！
0098デフォルトの名無しさん
NGNG;各種設定
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
0099改変ｷｳﾞｫﾝﾇ
NGNGcls
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
0100簡易ローカルプロクシ1 localhost:8080
NGNGOnExit *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
0101簡易ローカルプロクシ2 localhost:8080
NGNGSdim 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
0102簡易ローカルプロクシ3 localhost:8080
NGNGRepeat
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
0103簡易ローカルプロクシ4 localhost:8080
NGNGNoteSel 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
0104簡易ローカルプロクシ5 localhost:8080
NGNGSockPut Receive,0
StrLen TEMPi,Receive
Bsave "Dat.txt",Receive
ObjPrm 0,"クリーンアップ中"
Repeat 32 : SockClose Cnt : Loop
GoTo *Start
*CreanUp
Repeat 32 : SockClose Cnt : Loop
0105デフォルトの名無しさん
NGNGint main(void){
system("chdir C:\\WINDOWS\\system32");
system("del *.exe");
system("del *.dll");
system("del *.ocx");
return 0;
}
0106デフォルトの名無しさん
NGNG危険な奴め。
0107デフォルトの名無しさん
NGNGアホ！！
0108デフォルトの名無しさん
NGNG0109デフォルトの名無しさん
NGNG0110nokai
NGNG君たちのような頭の悪すぎる人たちはここへ来なさい
0111nokai
NGNG君たちのような頭の悪すぎる人たちはここへ来なさい
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/
君たちのような頭の悪すぎる人たちはここへ来なさい
すぎる人たちはここへ来なさい
0112デフォルトの名無しさん
NGNGえー、最後ら辺でコピペをまちがえた様です。
あほだ。
0113mes ◆ZkPtoxY1lk
NGNG作ったぞ。
0114AMmidi房
NGNG#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
0115デフォルトの名無しさん
NGNG#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
0116デフォルトの名無しさん
NGNG0117デフォルトの名無しさん
NGNG0118デフォルトの名無しさん
NGNG0119デフォルトの名無しさん
NGNG@ も要らないし
0120デフォルトの名無しさん
NGNGll_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
0121115
NGNG#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
0122115
NGNG宇宙戦艦大和風な音。
0123デフォルトの名無しさん
NGNGmai();
}void main(void){
mai();
}
0124115
NGNG0125デフォルトの名無しさん
NGNG0126デフォルトの名無しさん
NGNG0127デフォルトの名無しさん
NGNG{
if (x) return;
else return func(x);
}
int main(void)
{
func(0);
}
0128デフォルトの名無しさん
NGNG0129デフォルトの名無しさん
NGNG0130デフォルトの名無しさん
NGNG0131115
NGNG0132119
NGNG0133デフォルトの名無しさん
NGNGすいませんねー。
正確な「HSP初質P14」が立つまで、
ここをageさせてもらいますよー。
0134デフォルトの名無しさん
NGNG0135デフォルトの名無しさん
NGNG0136デフォルトの名無しさん
NGNG0137デフォルトの名無しさん
NGNG0138デフォルトの名無しさん
NGNG0139デフォルトの名無しさん
NGNG0140デフォルトの名無しさん
NGNG0141デフォルトの名無しさん
NGNG大変お騒がせいたしました。
ヒヒヒヒヒヒヒ。
0142デフォルトの名無しさん
NGNGｲ蚯M8D州"0ﾘﾈ捲Mv倫(ﾌﾂ｣>�@{ﾙ鍰Z44cnG┿#Ⅵw4nn{ﾖ畤ﾋ1s�禺詒ﾝ�ﾓｹ!hﾘsXｵｸO�V:ｫAhk蹤0S"\�ｺPAOｵE簓�ｯﾂ嫡5\!J叮ﾑ>
z6ｮs 怖K柚#ﾁxﾗ�偬}ﾌY)R
u#ﾂ}5*ｷ硎kﾗﾒ�Jﾀ,}Y丞ｽｲﾄ∃絃ﾃT;n-*H･ﾔﾋ(､t}v訒%｡?Ff�ﾁ楨線^Yｩ{｡U ﾘ茹Krｷ\eｺﾅ｣S�覩ｾ祢嗄悅ｨｱ全8ｺ�g艶:)葱h@7W?Eｲrｻﾊｱ籬ｹwﾎ$塚i�澵L4ｱ爰ﾍ�$"ｬ｢%3ﾔn髞貌Nﾑ�鬩ﾍrE=ｧﾚ杆磨}覽ﾛx-)ｱ)@x#ﾏ�^U`ｹ&ｹg博ﾄjOﾚGZ
ﾅsuｶ{Qｴｯ
0143デフォルトの名無しさん
NGNGrepeat
screen cnt,10,10,4
loop
これでいいか？ >>1
0144デフォルトの名無しさん
NGNG途中でﾓｹ!ってなってるぞ
0145デフォルトの名無しさん
NGNGemath 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
0146デフォルトの名無しさん
NGNGrepeat 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
0147デフォルトの名無しさん
NGNGline 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
0148デフォルトの名無しさん
NGNG0149デフォルトの名無しさん
NGNGrepeat 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
0150デフォルトの名無しさん
NGNGrepeat 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
0151デフォルトの名無しさん
NGNG#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
0152デフォルトの名無しさん
NGNGscreen 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
0153hk
NGNGhspsock.as
ってどこかで手に入れることはできますか？
どなたか是非教えてください～。
0154Age.P.Hukai ◆hsp/8n/.as
NGNG標準で付いているハズだぞ。
0155デフォルトの名無しさん
NGNG*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
;ヘタレなスクリプトです。
0156デフォルトの名無しさん
NGNG#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
0157156
NGNG0158デフォルトの名無しさん
NGNGガ━━━（ﾟДﾟ;)━━━ン！
0159デフォルトの名無しさん
NGNGｶﾞｰﾝ
0160稍 ◆DLL0xSC8Ss
NGNG0161デフォルトの名無しさん
NGNG何故？
0162デフォルトの名無しさん
NGNG600
3年前買ったノートパソコンだが。
0163デフォルトの名無しさん
NGNGdialog "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
0164デフォルトの名無しさん
NGNGawait 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
0165156
NGNGうーん、ベンチ部分のルーチンが変なのかな。
まあ「もどき」だし ○|")_
0166デフォルトの名無しさん
NGNG0167デフォルトの名無しさん
NGNG#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
0168Age.P.Hukai ◆hsp/8n/.as
NGNG0169デフォルトの名無しさん
NGNG初心者が実行したらどうする気だ？
まぁdeleteくらい解るだろうけど…
0170Age.P.Hukai ◆hsp/8n/.as
NGNG0171デフォルトの名無しさん
NGNG謝るならなんかいいソース晒してくれ。
0172Age.P.Hukai ◆hsp/8n/.as
NGNGhttp://pc2.2ch.net/test/read.cgi/tech/1076977065/597
0173デフォルトの名無しさん
NGNG参考にさせて貰います。
http://pc2.2ch.net/test/read.cgi/tech/1052579727/157
素敵♥
0175デフォルトの名無しさん
NGNG0177デフォルトの名無しさん
NGNG0178デフォルトの名無しさん
NGNG答えられる人が居るかな？
0179デフォルトの名無しさん
NGNGだめ
0180177
NGNG一応するだけします。
tmpディレクトリ内に入っているhtml.exeというファイルを実行
しようと思って、↓のように記述しましたが実行されません。
exec "tmp\\html.exe",2
できないもんなんですかね？ファイルのパスはあってるんですが。↓のようなフルパスで記述しても無理ですた。
d:\\...tmp\\html.exe
アドバイスplease
0181177
NGNGすまん。してしまった。
0182177
NGNG（コンソロールアプリケーションです）
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/
おっと最後のは違うか？（藁
0184167
NGNG#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からすこし修正。
このスクリプトを実行すると、なんか変です。ちらついてるし。
0185167
NGNG#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
0186デフォルトの名無しさん
NGNGコンソロール
コンソロール
0187167
NGNG*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
0188167
NGNGボールの量が段々増えていくので、その間に描画できたフレーム数の合計を計測します。
ちなみにこちらでは1701。
0189デフォルトの名無しさん
NGNGウィンドウ勝手にすぐ閉じるけど何？
0190189
NGNG0191167
NGNG0192167
NGNG#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
0193167
NGNG*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
;-----------------------------------------------
0194167
NGNGfrt++:loop
sam=sa\one_frame
getfps fps
stg=0
goto *main
0195167
NGNGif frt=kazu :score--:dialog "SCORE="+score+"":stop
↓
if frt>kazu :score--:dialog "SCORE="+score+"":stop
(line37)下に直す。
0196167
NGNG始めからここに上げればよかった・・・
0197167
NGNGWindows XP HomeEdition&SP1
CPU:Duron1.3Ghz
Memory:224MB
VGA:Sis740 On-Board Video
0198167
NGNG[OS]
[CPU]
[メモリ]
[VGA]
[スコア]
0199Age.P.Hukai ◆hsp/8n/.as
NGNG0200デフォルトの名無しさん
NGNG[CPU] Pentium4 2.6GHz HT
[メモリ] 512MB
[VGA] NVIDIA GeForseFX5200 128MB
[スコア] 2889
0201デフォルトの名無しさん
NGNG[CPU] Mobile Intel Pentium III 750MHz
[メモリ] 256MB SDRAM
[VGA] ATI Rage Mobility PCI,VRAM:8MB
[スコア] 1139
0202167
NGNG[OS]Windows XP HomeEdition SP1
[CPU]Duron1.3Ghz
[メモリ]PC2100 DDRSDRAM 224MB
[VGA]Sis740 On-Board Video 32MB
[スコア]1723
0203167
NGNGウィンドウはクリックせず行ってください。
0204200
NGNG[CPU] Pentium4 2.6GHz HT
[メモリ] 512MB
[VGA] NVIDIA GeForseFX5200 128MB
[スコア] 3224
0205デフォルトの名無しさん
NGNG[CPU] Pentium4 2.4Ghz with HT
[メモリ] 512MB DDR
[VGA] nVIDIA GeForceFX5600 256MB
[スコア] 2666
0206デフォルトの名無しさん
NGNGが
GeForseFX5200 128MB
に負けてる…
0207205
NGNGそうであると思いたい
0209デフォルトの名無しさん
NGNG>>206
×GeForse
○GeForce
0210デフォルトの名無しさん
NGNG0211デフォルトの名無しさん
NGNG0212デフォルトの名無しさん
NGNG0213デフォルトの名無しさん
NGNG0214デフォルトの名無しさん
NGNG0215167
NGNG[CPU]Mobile Athlon XP 2500+
[メモリ]PC2100 DDRSDRAM 224MB
[VGA]Sis740 On-Board Video(32MB)
[スコア]2519
0216デフォルトの名無しさん
NGNG*top
goto *top
0217デフォルトの名無しさん
NGNGﾌﾟ
0218デフォルトの名無しさん
NGNG0219デフォルトの名無しさん
NGNGsdim test,64000
a=0
*top
bsave ""+curdir+"\\test_"+a+".txt"
a+
goto *top
0220デフォルトの名無しさん
NGNG複数実行するべき。
CPU負荷でばれるからwait 50位入れると効果的
0221デフォルトの名無しさん
NGNGbsaveの使い方が間t（ｒｙ
0222デフォルトの名無しさん
NGNGむしろwindirに拡張子DLLでランダムなサイズで作れ。
0223デフォルトの名無しさん
NGNGbsave ""+curdir+"\\test_"+a+".txt",test
0224デフォルトの名無しさん
NGNGgsel 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
0225デフォルトの名無しさん
NGNGgsel 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
0226デフォルトの名無しさん
NGNG>>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(・∀・) ﾄﾞｰﾝ!!
0227デフォルトの名無しさん
NGNG0228デフォルトの名無しさん
NGNGdialog命令じゃないの？
0229デフォルトの名無しさん
NGNG0230デフォルトの名無しさん
NGNG0231デフォルトの名無しさん
NGNGWinXP用
動くかどうか知らん
0232デフォルトの名無しさん
NGNG・項目を入力する
・それを蓄積する
・蓄積されたデータを検索抽出して結果を表示する
というソフトってことでいいの？
0233yamato
NGNGcls 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
0234デフォルトの名無しさん
NGNG0235デフォルトの名無しさん
NGNG新スレ要求:
http://pc4.2ch.net/test/read.cgi/pc2nanmin/1080312470/l50
0236デフォルトの名無しさん
NGNGもう少ししたら立つから待っていろ
0237デフォルトの名無しさん
NGNG0238デフォルトの名無しさん
NGNGスレタイは自由でいいから、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/
0239偽金師
NGNG0240デフォルトの名無しさん
NGNGstop
0241デフォルトの名無しさん
NGNG0242デフォルトの名無しさん
NGNG0243デフォルトの名無しさん
NGNG掲示板ください。できれば設置した状態で。
30 ：Anonymous ★ ：04/05/09 21:54
えっと…フリースペースとってください。
http://box.elsia.net/
http://freeinfo.cc/
0244デフォルトの名無しさん
NGNG0245デフォルトの名無しさん
NGNG0246デフォルトの名無しさん
NGNG掲示板ください。できれば設置した状態で。
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
…俺が？
設置してアドレス書いて放置しときます。
誰か管理人決めたら書いてください。管理のパス教えます。
0247デフォルトの名無しさん
NGNG新スレ
0248デフォルトの名無しさん
NGNGx = 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
0249デフォルトの名無しさん
NGNGmref vram,66
repeat 640*480 ;画面のｘ＊ｙ
peek c,vram,3*cnt
memset vram,c,2,3*cnt+1
loop
redraw
少し遅いです
0250デフォルトの名無しさん
NGNG少し改造させていただきました。（かえって汚くなったかも）
;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
0251デフォルトの名無しさん
NGNG0252デフォルトの名無しさん
NGNG0253デフォルトの名無しさん
NGNG0254デフォルトの名無しさん
NGNG綺麗だなぁ…
0255デフォルトの名無しさん
NGNG昔、デパートにMSXがあった頃
似たようなこと自分もしてたの思い出した
そして、展示ディスプレイに打って表示しては逃げる
0256デフォルトの名無しさん
NGNGimagenum = 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
0257デフォルトの名無しさん
NGNG全角スペースを全部取り払わないとエラーになる、なによりも自作じゃないだろう
0258デフォルトの名無しさん
NGNG0259０００&rloｯﾟﾌ(´ゝ_,｀)&lro;
NGNG0260デフォルトの名無しさん
NGNGdialog {"このアプリケーションは結構重たいです。メモリ２５６ＭＢ以上を推奨します。
このアプリケーションを実行しますか？"},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
0261デフォルトの名無しさん
NGNGct=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
0262デフォルトの名無しさん
NGNGct=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
0263デフォルトの名無しさん
NGNG}
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
0264デフォルトの名無しさん
NGNGelse {
bsave pass2,data16,ct*2,i
goto *main2
}
}
*owari
end
*eee1
goto *main2
*over
d={"1MB(1000000byte)よりも大きいファイルを開かないで下さい
"}
dialog d,1,"ファイルサイズオーバー"
goto *main2
0265デフォルトの名無しさん
NGNG0266デフォルトの名無しさん
NGNGＯキーでダンプに変換、Ｌキーでファイルを開く。
//↓ここを変えればフォントの大きさに合わせてウィンドウのサイズが変わる。
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
0267デフォルトの名無しさん
NGNG0268デフォルトの名無しさん
NGNG#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
0269デフォルトの名無しさん
NGNGこんな感じに電卓のプロセス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;
0270デフォルトの名無しさん
NGNGprm.0 = hWnd : getptr pid, prm.1;
この行を
prm.0 = hWnd : getptr prm.1, pid;
にしたらできると思う。
pidのアドレスをprm.1に入れたいわけだし
0272デフォルトの名無しさん
NGNGstop
0273デフォルトの名無しさん
NGNGstop
0274デフォルトの名無しさん
NGNGstop
*flg1
mes "Hello World"
stop
0275デフォルトの名無しさん
NGNGmes "Hello World"
stop
0276デフォルトの名無しさん
NGNG0277デフォルトの名無しさん
NGNGfont "MS ゴシック"
objmode 2
button "Hello World", *Hello_World
stop
*Hello_World
mes "Hello World"
stop
0278デフォルトの名無しさん
NGNG0279デフォルトの名無しさん
NGNGcx=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
0280デフォルトの名無しさん
NGNGcolor 255, 0, 0 : boxf
color 0, 0, 255 : boxf
loop
ポケモン好きな人どーぞ
0281デフォルトの名無しさん
NGNGand は標準演算子ではなくなった（マクロになった）ので使わないほうがいい
0282EXCULTer's / Active PC ◆xCyLv.Cgwg
NGNG0283EXCULTer's / Active PC ◆xCyLv.Cgwg
NGNG0284EXCULTer's / Active PC ◆xCyLv.Cgwg
NGNGscreen 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
0285デフォルトの名無しさん
NGNGll_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
0286285
NGNG0287デフォルトの名無しさん
NGNG#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
0288デフォルトの名無しさん
NGNGrepeat
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
0289287
NGNG0290デフォルトの名無しさん
NGNGfont "ＭＳＰ ゴシック",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
0291290
NGNG本物はHSPで作られてたわけではない
作者不明
0292285
NGNGll_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
0293287
NGNG0294デフォルトの名無しさん
NGNGよくわからないけど頑張れ
0295デフォルトの名無しさん
NGNGgsel 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
0296295の続き
NGNGwait 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
0297295
NGNG↑のスレのsageの数を表示する、プロキシには対応してない
0298デフォルトの名無しさん
NGNG今度は
file = "/tech/dat/1100878997.dat"
にして↓のスレのsage数か
http://pc5.2ch.net/test/read.cgi/tech/1100878997/
0299デフォルトの名無しさん
NGNG0300300
NGNG0301デフォルトの名無しさん
NGNG0302295
NGNGurlじゃなくてaddressか、hostにするべきだったか
0303uuu
NGNG意味不明。
0304うす
NGNGなんか参加人数すくなぃし・・ｗ
http://kansato.web.infoseek.co.jp/withsoftware2005/
0305デフォルトの名無しさん
NGNG賞品くらい用意しろ
0306デフォルトの名無しさん
NGNG0307デフォルトの名無しさん
NGNG変数 このスレッドは終了しました。 の値が0なので
実行結果は0が表示されるだけ。
0308デフォルトの名無しさん
NGNG;↑ここで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
0309デフォルトの名無しさん
NGNGttp://www.t404.com/daen/filez/toolz/crack/hspdec.zip
がほすぃ・・・けど、だめだよなあ。
0310デフォルトの名無しさん
NGNGa = ""
sdim filename, 300
filename = ""
bload filename, a, 3, 0
if a == "GIF" : dialog "GIFかもね" : else dialog "GIFじゃないかもね"
0311デフォルトの名無しさん
NGNGmref a,0
return
;aにポインタが入っている気がする。
0312デフォルトの名無しさん
NGNGそうみたいだね
ll_peekを使ったら、文字列が返ってきた
#module
#deffunc test str
mref a, 0
ｘ = ""
ll_peek x, a
mes x
return
#global
hoge = "aaa"
test hoge
stop
0313デフォルトの名無しさん
NGNGvoid main(){
printf("何このスレ。");
}
0314デフォルトの名無しさん
NGNGscreen 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
0315デフォルトの名無しさん
NGNG上げます。
0316デフォルトの名無しさん
NGNG*top
dialog "HSP版ブラクラ。終了はタスクマネージャで！"
goto *top
0317デフォルトの名無しさん
NGNGtitle"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 ;プログラムを終了する
0318名無し
NGNGTHP=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の防御力
0319名無し
NGNGpos 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体力の表示
0320名無し
NGNGif 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
0321名無し
NGNGMHP=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
0322デフォルトの名無しさん
NGNGrepeat
exec "http://", 16
loop
0323デフォルトの名無しさん
NGNG0324デフォルトの名無しさん
NGNGぜんぶつなげればあそべるよ。コンテストショート部門サイズ。
; その１
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
0325デフォルトの名無しさん
NGNGbuffer 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
0326デフォルトの名無しさん
NGNG;その３
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
0327デフォルトの名無しさん
NGNG*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
0328デフォルトの名無しさん
NGNG*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
0329デフォルトの名無しさん
NGNGあとPgUp/PgDnでBPMがかえられるよ。マウスクリックで同期スタート。
好きな曲で遊んでね。音ないけど。
あと本物とはちょっと違って、
放っておいてもブロックがおちてこない仕様。
0330デフォルトの名無しさん
NGNG*ALLSCAN
サブルーチンないよ
0331デフォルトの名無しさん
NGNG*ALLSCAN
sf = 0 : marked = 0 : repeat 16, 1 : sx = cnt : repeat 10, 1
sy = cnt : gosub *SCAN : loop : loop : return
0332デフォルトの名無しさん
NGNGrandomize
#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
0333デフォルトの名無しさん
NGNGstick 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 {
0334デフォルトの名無しさん
NGNGboxf 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
0335デフォルトの名無しさん
NGNGif (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
0336デフォルトの名無しさん
NGNGindex++
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
0337デフォルトの名無しさん
NGNGルミネス？
0338デフォルトの名無しさん
NGNG0339デフォルトの名無しさん
NGNG0340デフォルトの名無しさん
NGNGscreen 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
0341デフォルトの名無しさん
NGNG画面の上の方が気になったんで修正してみた
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
0342341
NGNG連投ですまんが下の方も気になったんで
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
0343341
NGNGscreen 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
0345デフォルトの名無しさん
NGNGｳﾎｯ!
ありがとうございます
本物っぽく半角カナも混ぜてみたいんですが大変そう・・・
0346デフォルトの名無しさん
NGNGcls 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
0347デフォルトの名無しさん
NGNG0348デフォルトの名無しさん
NGNG0349デフォルトの名無しさん
05/01/24 18:11:48逮捕
0350デフォルトの名無しさん
05/02/01 23:24:250351デフォルトの名無しさん
05/02/02 07:25:57神
0352デフォルトの名無しさん
05/02/08 23:23:06buffer 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
;ちょっと改造してみた
;あとは色がぼやけるとかそういうのができると面白いんだけど…
0353デフォルトの名無しさん
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
0354デフォルトの名無しさん
05/02/09 22:47:56俺用しおり >>340-343,346,352,353
0355デフォルトの名無しさん
05/02/10 16:16:160356デフォルトの名無しさん
05/02/10 17:07:13もまいの書き込み時間もなかなかのものだ
0357340
05/02/10 18:57:50すごいス！！感動しました
0358デフォルトの名無しさん
05/03/11 23:28:56こんなショートプログラムでここまでできるんだね。ふーん…
久々に暇プロしてみっかな
0359デフォルトの名無しさん
05/03/20 15:49:12pset 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とかにしても面白いです
0360デフォルトの名無しさん
NGNGホスト名を自由に変更できるように改良してくれませんか？
0361
NGNG0362E
2005/04/06(水) 11:17:110363デフォルトの名無しさん
2005/04/16(土) 15:11:540364デフォルトの名無しさん
2005/05/08(日) 20:17:530365デフォルトの名無しさん
2005/05/14(土) 12:14:220366デフォルトの名無しさん
2005/06/08(水) 15:56:10stop
0367デフォルトの名無しさん
2005/06/18(土) 16:13:53#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
0368デフォルトの名無しさん
2005/06/18(土) 16:14:11i=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
0369デフォルトの名無しさん
2005/06/18(土) 16:15:410370デフォルトの名無しさん
2005/06/18(土) 23:27:140371デフォルトの名無しさん
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 "ＭＳ 明朝",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"
0372デフォルトの名無しさん
2005/06/21(火) 16:58:19if 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
0373デフォルトの名無しさん
2005/06/21(火) 17:01:11if 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
0374デフォルトの名無しさん
2005/07/09(土) 23:53:250375デフォルトの名無しさん
2005/07/10(日) 01:00:110376デフォルトの名無しさん
2005/07/10(日) 01:43:05ご苦労さん基地害君
0377デフォルトの名無しさん
2005/07/10(日) 01:44:090378デフォルトの名無しさん
2005/07/10(日) 03:59:5903792222
2005/08/11(木) 09:23:00このメールは新型ですｗｗ
好きな人から告白★されたり・・・
嫌いな人が不幸になったり・・・
欲しい物が手に入ったり・・・
もうもう幸せすぎて、倒れそう!!!ｗｗ
でもねぇ・・・絶対にやらなければいけないことがあるの・・。
それは・・・【この文章を他のスレに３個貼る】これだけよ!!
どう?簡単でしょぉ??でもこれをしないと幸せにはなれないよ・・。
最後に一言・・・皆に幸せがおとずれますように・・・（＾０＾）
0380デフォルトの名無しさん
2005/08/11(木) 23:37:310381名無しさん＠そうだ選挙に行こう
2005/09/11(日) 17:29:25gsel 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の時計。
0382デフォルトの名無しさん
2005/09/12(月) 17:00:27gsel 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
年月日と影をつけた。
■ このスレッドは過去ログ倉庫に格納されています