江中游按键精灵论坛教学
零基础教你快速做一个打怪辅助
第2部分 第6课 薛定谔的汤姆猫——完结
顶帖产生的灵异事件：
u大家不要把问题搞的太复杂了，只要理解基础那么就可以做很多脚本
u学习很简单：
u遇到问题—分析问题—解决问题
u遇到问题：
u如何把两个子程序放到一个子程序中
u遇到问题：
u如何调换逻辑值
u遇到问题：
u返回值的目的
u注意，按键的逻辑整数值是：
u真true是-1
u假false是0
Dim 辐射值, 叠加值, 进度条长度
Dim tmp
tmp = False
进度条长度 = Form1.进度条.Width
TracePrint 进度条长度
叠加值 = 0
Randomize
Do
Delay 10
辐射值 = Int((500 - 1 + 1) * Rnd + 1)
// TracePrint 辐射值
If 辐射值 < 100 Then
TracePrint "辐射了..............."
叠加值 = 叠加值 + 辐射值
TracePrint 叠加值
Form1.标签提示.Caption = "辐射中：" & 叠加值
Form1.进度条.Value = 100 / 10000 * 叠加值
If tmp Then
tmp = 猫在动(- 1 , 0)
Else
tmp = 猫在动(0, - 1 )
End If
End If
If 叠加值 > 10000 Then
// TracePrint "巴比Q.........."
Form1.标签提示.Caption = "完蛋了，芭比Q............"
Form1.天.Visible = True
Exit Do
End If
Loop
Function 猫在动(m1, m2)
Form1.猫1.Visible = m1
Form1.猫2.Visible = m2
If tmp Then
Form1.猫1.Left = 进度条长度 / 10000 * 叠加值
猫在动 = False
Else
Form1.猫2.Left = 进度条长度 / 10000 * 叠加值
猫在动 = True
End If
End Function
闽公网安备 35010002000112号