- UID
- 32406
- 帖子
- 1681
- 主題
- 71
- 精華
- 0
- 積分
- 454
- 楓幣
- 5099
- 威望
- 375
- 存款
- 0
- 贊助金額
- 0
- 推廣
- 0
- GP
- 189
- 閱讀權限
- 0
- 性別
- 保密
- 在線時間
- 1582 小時
- 註冊時間
- 2013-7-4
- 最後登入
- 2018-6-19
|
提示: 作者被禁止或刪除 內容自動屏蔽,只有管理員或有管理權限的成員可見
本帖最後由 cycjanes2013 於 2015-6-30 17:51 編輯
可參閱這篇:無奈的數據"開關"製作法
如果數據沒加上控制開關的話,可以自行參閱文章
若有加入要控制的話,可以定義一個變數或是用Textbox儲存以下字串(需先載入數據並設定MobControl為0)
以下只需要一個ComboBox。兩個變數:String *1 , Integer *1
舉例:
[Enable]
MobControl:
DD 03 //01左 02右 03跟隨 04定怪 05定點
[Disable]
MobControl:
DD 0 //不執行任何動作
若VB.NET寫法的話就可以用這樣:
Dim MobControl_script As String
Dim Mob_index As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'控制數據
MobControl_script = "[Enable]" & vbCrLf
MobControl_script = MobControl_script & "MobControl:" & vbCrLf
MobControl_script = MobControl_script & "DD " & Mob_index & vbCrLf
MobControl_script = MobControl_script & "[Disable]" & vbCrLf
MobControl_script = MobControl_script & "MobControl:" & vbCrLf
MobControl_script = MobControl_script & "DD 0"
'項目載入
ComboBox1.Items.Add("左")
ComboBox1.Items.Add("右")
ComboBox1.Items.Add("跟隨")
ComboBox1.Items.Add("定怪")
ComboBox1.Items.Add("定點")
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Mob_index = ComboBox1.SelectedIndex + 1 '因為選項一是0,所以需+1
CeAutoAsm(MobControl_script, 0, True)
End Sub
|
-
總評分: GP + 1
查看全部評分
|