來自作者:ymlk http://ymlk.myweb.hinet.net
一個人單純跳舞就好了,不要用情侶!還未支援!
可以掛更久!!不會斷線,不會不能跳舞! ' 第五大街 4 方鍵
' 1024 x 768 全螢幕
' 注意,每個不同地圖舞場 P 點位置有變更,善用 [ ] 鍵來調數字
' 主程式先上層視窗,看Test數值哪些 P 點位置!
Speed 1 ' 指令速度
Cn{11} = 1
Test = 645 ' 數字的 P 點位置
:再重次
While GetPixel[ 309 , 555 , 230.G ] <> 16777215
Select Case GetKey
Case 219 : Test -= 1 : Delay 50 ' [ 鍵 P 點位置減 1
Case 221 : Test += 1 : Delay 50 ' ] 鍵 P 點位置加 1
End Select
End While
Cn{20} = 277 ' 最多10個位置中心點:重複
If GetPixel[ Cn{20} , 596 , 220.G ] = 16777215 And GetPixel[ Cn{20} - 7 , 596 - 7 , 220.G ] = 16777215 And GetPixel[ Cn{20} - 7 , 596 + 7 , 220.G ] = 16777215
Keybd_KeyDown[ 37 ] : Keybd_KeyUp[ 37 ] : GoTo 加設定 ' 左鍵
ElseIf GetPixel[ Cn{20} , 596 , 220.G ] = 16777215 And GetPixel[ Cn{20} - 7 , 596 - 7 , 220.G ] = 16777215 And GetPixel[ Cn{20} + 7 , 596 - 7 , 220.G ] = 16777215
Keybd_KeyDown[ 38 ] : Keybd_KeyUp[ 38 ] : GoTo 加設定 ' 上鍵
ElseIf GetPixel[ Cn{20} , 596 , 220.G ] = 16777215 And GetPixel[ Cn{20} + 7 , 596 - 7 , 220.G ] = 16777215 And GetPixel[ Cn{20} + 7 , 596 + 7 , 220.G ] = 16777215
Keybd_KeyDown[ 39 ] : Keybd_KeyUp[ 39 ] : GoTo 加設定 ' 右鍵
ElseIf GetPixel[ Cn{20} , 596 , 220.G ] = 16777215 And GetPixel[ Cn{20} - 7 , 596 + 7 , 220.G ] = 16777215 And GetPixel[ Cn{20} + 7 , 596 + 7 , 220.G ] = 16777215
Keybd_KeyDown[ 40 ] : Keybd_KeyUp[ 40 ] : GoTo 加設定 ' 下鍵
End If:加設定
If Cn{11} = 10
While GetPixel[ Test , 546 , 255.R ] <> 16777215
End While
If GetPixel[ 450 , 509 , 255.R ] = 16777215
'絕技 按 1
Keybd_KeyDown[ 49 ] : Keybd_KeyUp[ 49 ] : Delay 50
Else
'按空白鍵
Keybd_KeyDown[ 32 ] : Keybd_KeyUp[ 32 ] : Delay 50
End If
Cn{11} = 1 : GoTo 再重次
End If
Cn{20} += 47 : Cn{11} += 1
GoTo 重複 |