- 小学六年级
- 8522251
- 143
- 0
- 107 朵
- 134 个
- 109 个
- 0
- 2021-11-01
|
9#
t
T
发表于 2022-06-04 12:37
|
|只看该用户
- Dim 滿血血量
- 滿血血量 = 目前血量
- Call Lib.雜項.對話("滿血血量為 " & 滿血血量)
- Delay 500
- Call Lib.雜項.對話("血量只要有變動就會喝水")
- Delay 500
- Call Lib.雜項.對話("腳本開始")
- Do
- If 滿血血量 <> 目前血量 Then
- Call Lib.雜項.喝水
- End If
- Delay 10
- Loop
- Function 目前血量
- Dim i, j, 個位數, 十位數, 百位數, 千位數, 萬位數
- i = 41 : j = 589
- IfColor i - 3, j - 4, "EFEBEF", 0 Then //0,1,2,3,5,6,7,8,9
- Call Lib.雜項.對話("請滿血再執行腳本")
- ExitScript
- End If
- IfColor i - 3, j - 3, "EFEBEF", 0 Then//4
- Call Lib.雜項.對話("請滿血再執行腳本")
- ExitScript
- End If
- IfColor i + 2, j + 4, "EFEBEF", 0 Then
- 個位數 = 2
- Else
- IfColor i - 2, j - 4, "EFEBEF", 0 Then
- 個位數 = 7
- Else
- IfColor i, j + 3, "EFEBEF", 0 Then
- 個位數 = 1
- Else
- IfColor i, j - 3, "EFEBEF", 0 Then
- 個位數 = 4
- Else
- IfColor i, j + 1, "EFEBEF", 0 Then
- 個位數 = 9
- Else
- IfColor i - 2, j + 4, "EFEBEF", 0 Then
- 個位數 = 5
- Else
- IfColor i + 2, j - 4, "EFEBEF", 0 Then
- 個位數 = 6
- Else
- IfColor i + 1, j - 1, "EFEBEF", 0 Then
- 個位數 = 3
- Else
- IfColor i, j, "EFEBEF", 0 Then
- 個位數 = 8
- Else
- IfColor i + 2, j, "EFEBEF", 0 Then
- 個位數 = 0
- Else
- 個位數 = -1
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- i = i - 6
- IfColor i + 2, j + 4, "EFEBEF", 0 Then
- 十位數 = 2
- Else
- IfColor i - 2, j - 4, "EFEBEF", 0 Then
- 十位數 = 7
- Else
- IfColor i, j + 3, "EFEBEF", 0 Then
- 十位數 = 1
- Else
- IfColor i, j - 3, "EFEBEF", 0 Then
- 十位數 = 4
- Else
- IfColor i, j + 1, "EFEBEF", 0 Then
- 十位數 = 9
- Else
- IfColor i - 2, j + 4, "EFEBEF", 0 Then
- 十位數 = 5
- Else
- IfColor i + 2, j - 4, "EFEBEF", 0 Then
- 十位數 = 6
- Else
- IfColor i + 1, j - 1, "EFEBEF", 0 Then
- 十位數 = 3
- Else
- IfColor i, j, "EFEBEF", 0 Then
- 十位數 = 8
- Else
- IfColor i + 2, j, "EFEBEF", 0 Then
- 十位數 = 0
- Else
- 十位數 = -1
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- i = i - 6
- IfColor i + 2, j + 4, "EFEBEF", 0 Then
- 百位數 = 2
- Else
- IfColor i - 2, j - 4, "EFEBEF", 0 Then
- 百位數 = 7
- Else
- IfColor i, j + 3, "EFEBEF", 0 Then
- 百位數 = 1
- Else
- IfColor i, j - 3, "EFEBEF", 0 Then
- 百位數 = 4
- Else
- IfColor i, j + 1, "EFEBEF", 0 Then
- 百位數 = 9
- Else
- IfColor i - 2, j + 4, "EFEBEF", 0 Then
- 百位數 = 5
- Else
- IfColor i + 2, j - 4, "EFEBEF", 0 Then
- 百位數 = 6
- Else
- IfColor i + 1, j - 1, "EFEBEF", 0 Then
- 百位數 = 3
- Else
- IfColor i, j, "EFEBEF", 0 Then
- 百位數 = 8
- Else
- IfColor i + 2, j, "EFEBEF", 0 Then
- 百位數 = 0
- Else
- 百位數 = -1
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- i = i - 6
- IfColor i + 2, j + 4, "EFEBEF", 0 Then
- 千位數 = 2
- Else
- IfColor i - 2, j - 4, "EFEBEF", 0 Then
- 千位數 = 7
- Else
- IfColor i, j + 3, "EFEBEF", 0 Then
- 千位數 = 1
- Else
- IfColor i, j - 3, "EFEBEF", 0 Then
- 千位數 = 4
- Else
- IfColor i, j + 1, "EFEBEF", 0 Then
- 千位數 = 9
- Else
- IfColor i - 2, j + 4, "EFEBEF", 0 Then
- 千位數 = 5
- Else
- IfColor i + 2, j - 4, "EFEBEF", 0 Then
- 千位數 = 6
- Else
- IfColor i + 1, j - 1, "EFEBEF", 0 Then
- 千位數 = 3
- Else
- IfColor i, j, "EFEBEF", 0 Then
- 千位數 = 8
- Else
- IfColor i + 2, j, "EFEBEF", 0 Then
- 千位數 = 0
- Else
- 千位數 = -1
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- i = i - 6
- IfColor i + 2, j + 4, "EFEBEF", 0 Then
- 萬位數 = 2
- Else
- IfColor i - 2, j - 4, "EFEBEF", 0 Then
- 萬位數 = 7
- Else
- IfColor i, j + 3, "EFEBEF", 0 Then
- 萬位數 = 1
- Else
- IfColor i, j - 3, "EFEBEF", 0 Then
- 萬位數 = 4
- Else
- IfColor i, j + 1, "EFEBEF", 0 Then
- 萬位數 = 9
- Else
- IfColor i - 2, j + 4, "EFEBEF", 0 Then
- 萬位數 = 5
- Else
- IfColor i + 2, j - 4, "EFEBEF", 0 Then
- 萬位數 = 6
- Else
- IfColor i + 1, j - 1, "EFEBEF", 0 Then
- 萬位數 = 3
- Else
- IfColor i, j, "EFEBEF", 0 Then
- 萬位數 = 8
- Else
- IfColor i + 2, j, "EFEBEF", 0 Then
- 萬位數 = 0
- Else
- 萬位數 = -1
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- 目前血量 = 個位數 + 十位數 * 10 + 百位數 * 100 + 千位數 * 1000 + 萬位數 * 10000
- End Function
复制代码
|