HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
0731
ウーパールーパー続感想を聞かせて3解決


ウーパールーパー

リンク

2007/7/31(Tue) 11:21:13|NO.9938

これも感想を聞かせてください


;uparupasoft does not take responsibility at all
screen 0,400,150
year=2007
kuso=0
print "$タイムマシン$未来行き(多分)"
wait 150
*top
cls
print "タイムマシンで君は2018年に行くのだ"
button "+",*up_year
print year
stop
*up_year
if year=2012:goto *sinu
year+=1:goto *top
*sinu
kuso=kuso+1
if kuso=2:goto *k
if kuso=3:goto *kk
if kuso=4:goto *kkk
if kuso=5:goto *kkkk
mes"(エラー)2012年には地球はありません"
stop
*k
mes"(エラー)無い物はない"
stop
*kk
mes"(エラー)だからもうこれ以上先には進めんの"
stop
*kkk
mes"(エラー)くどいなぁ〜おめ〜"
stop
*kkkko
cls
mes"もう戻れません"
wait 190
*kkkk
cls
mes"(システムエラー)ガガガガガガッガガ"
x=100
wait 100
cls
mes"システムエラーデス\nウイルスプログラム\n「C-popkiH678」と「くさいう○こ」\nをインストールしています"
onexit goto *kkkko
pos 70,100
mes"0%"
pos 320,100
mes"100%"
repeat 20
pos x,100
mes "■"
x+10
wait 50
if x=300:goto *tinpi
loop
*tinpi
cls
dialog "uparupasoft does not take\n responsibility at all",1,"責任"
mes"ウイルス作動中"
wait 400
goto *tinko
*tinko
cls
onexit goto *ex
mes"うそだよ"
mes"もう戻れるよ"
stop
*ex
end



この記事に返信する


ウーfルーf

リンク

2007/7/31(Tue) 14:56:35|NO.9945

初・・・げふんげふん。不審者です。僕も感想教えてください。
#define locate(%1,%2)	pos %1*16 , %2*16
screen 0 , 512 , 384 : font "MS ゴシック" , 16 , 1 cp = "  | \n>−+●\n  | " : ct = "=>" : ce = "■■■\n■■■\n■■■" x = 0 : y = 0 : tx = 32 : ty = 0 : tf = 0 : ex = 32 : ey = 0 : ef = 0 *mainloop stick st,15,0 if ( st and 16 ) != 0 and tf = 0 { tx = x + 4 : ty = y + 1 : tf = 1 } if ef = 0 { ex = 32 : ey = rnd(21) : ef = 1 } x = x - ( ( ( st and 1 ) != 0 ) and x > 0 ) + ( ( ( st and 4 ) != 0 ) and x < 28 ) y = y - ( ( ( st and 2 ) != 0 ) and y > 0 ) + ( ( ( st and 8 ) != 0 ) and y < 21 ) tx = tx + ( tf = 1) : tf = (tf = 1 and tx < 32) ex = ex - ( ef = 1) : ef = (ef = 1 and ex > 0) redraw 0 color 96 , 96 , 255 : boxf color 255 , 255 , 255 : locate x , y : print cp color 255 , 96 , 96 : locate tx , ty : print ct color 0 , 0 , 0 : locate ex , ey : print ce redraw 1 if ( y - 2 <= ey ) + ( y + 2 >= ey ) + ( x - 1 <= ex ) + ( x + 3 >= ex ) = 4 { stop } if ( ty - 2 <= ey ) + ( ty >= ey ) + ( tx - 1 <= ex ) + ( tx + 2 >= ex ) = 4 { tf = 0 :tx = 32 : ef = 0 } await 50 goto *mainloop



kamikaze1012

リンク

2007/7/31(Tue) 15:34:43|NO.9947

ウーfルーfさんのは楽しかったですよ。



GENKI

リンク

2007/8/1(Wed) 08:50:08|NO.9965

このスレってショートプログラムの感想を募集するスレだったんですねー。(いつのまに)


ウーパールーパーさんのは、ジョークと分かるジョークソフトで安心して楽しめました。
演出がリアルな心底キモを冷やすようなのはちょっと怖すぎていやなんで…。

ウーfルーfさんのはすごいですね。たったこれだけでゲームに仕上がるんもんなんですね。
ゲームオーバー時に止まって動かなくなるのがちょっと残念ではあります。



(…人の感想なんか書いてる場合じゃないのに…orz)



ONION software Copyright 1997-2023(c) All rights reserved.