ﾜﾛﾀ

ﾜﾛﾀat GAMEDEV

ﾜﾛﾀ - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

217:名前は開発中のものです。
 07/07/03 22:07:14 MsPLQWVr
ﾜﾛﾀ

218:名前は開発中のものです。
 07/07/03 22:40:32 Xbl4ovSh
国民がいない件

219:名前は開発中のものです。
 07/07/03 22:43:59 MsPLQWVr
帝王さま～ 
ﾜﾛﾀｼｭｰﾃｨﾝｸﾞくだしあ＞＜ 
愚民からの　お・ね・が・い♪

220:ﾜﾛﾀ第二帝国 ◆DzhWnUSADA 
 07/07/06 00:22:06 q3sHP+7o BE:294544962-2BP(0)
【スカイダイビング中】 
 
 
 
　　　　　　　 ｎ∧,,∧ｎ 
　　　　　　　o(`・ω・´)o 
　　ｎ∧,,∧ｎ　｀￣￣´　　 　　　　　　　　　 　　 　　ｎ∧,,∧ｎ 
　o(`・ω・´)o　 ｎ∧,,∧ｎ　　　　　　　ｎ∧,,∧ｎ　 o(`・ω・´)o 
　　｀￣￣´　　o(`・ω・´)o　　　 　　o(`・ω・´)o　　｀￣￣´ 
　　 　　　　　　　｀￣￣´　　 　　　　 　｀￣￣´ 
 
ｺﾞﾒﾝﾖｩ(`∇´；)ｺﾞﾒﾝﾖｩ

221:名前は開発中のものです。
 07/07/07 19:12:52 zQI1iZmw
Public あ As Single, い As Single, うう As Single 
Dim I As Single 
Private Sub Command1_Click() 
End 
End Sub 
Private Sub Command2_Click() 
Beep 
For I = 4000 To 1450 Step -1 
If (I Mod 30) = 0 Then ああ 
If (I Mod 70) = 0 Then いい 
For K = 0 To 100: Next 
Image1.Top = I 
Next 
Image1.Top = 4000 
End Sub 
Private Sub ああ() 
If うう < 5 Then Shape1.Left = 800: Label2.Left = 1700: Label1.Left = 1700 
If うう > 10 Then うう = 0 
うう = うう + 1 
End Sub 
Private Sub いい() 
If (うう < 10 And うう > 5) Then Shape1.Left = 400: Label2.Left = 1300: Label1.Left = 1300 
If うう > 10 Then うう = 0 
うう = うう + 1 
End Sub 
縦型シューティング用の 
BOM爆発を左右に揺らす演出の一部 
キャラクタとバックBGは自分で用意しろ

次ページ