分享一些传奇游戏自动修装备脚本的代码

### 按键精灵（VBScript）示例
```vbs
' 定义修理NPC的坐标
Dim repairNPCX, repairNPCY
repairNPCX = 100
repairNPCY = 200

' 定义装备栏坐标（假设10个装备位置）
Dim equipmentSlotX(9), equipmentSlotY(9)
For i = 0 To 9
equipmentSlotX(i) = 50 + i * 30
equipmentSlotY(i) = 150
Next

' 定义检查装备持久度函数
Function CheckEquipmentDurability()
For i = 0 To 9
' 这里假设游戏有函数获取装备持久度，实际需根据游戏情况调整
Dim durability
durability = GetEquipmentDurability(equipmentSlotX(i), equipmentSlotY(i))
If durability < 30 Then '假设持久度低于30修理
Call RepairEquipment(i)
End If
Next
End Function

' 定义修理装备函数
Sub RepairEquipment(slotIndex)
' 移动到修理NPC
MoveTo repairNPCX, repairNPCY
LeftClick 1
Delay 1000 '等待弹出菜单

' 点击修理选项（假设坐标）
Dim repairOptionX, repairOptionY
repairOptionX = 120
repairOptionY = 220
MoveTo repairOptionX, repairOptionY
LeftClick 1
Delay 500

' 放入装备
MoveTo equipmentSlotX(slotIndex), equipmentSlotY(slotIndex)
LeftClick 1
Delay 500

' 点击确认修理（假设坐标）
Dim confirmRepairX, confirmRepairY
confirmRepairX = 150
confirmRepairY = 250
MoveTo confirmRepairX, confirmRepairY
LeftClick 1
Delay 2000 '等待修理完成
End Sub

' 主循环
Do
Call CheckEquipmentDurability()
Delay 300000 '每5分钟检查一次
Loop
```

### AutoHotkey示例
```autohotkey
; 定义修理NPC坐标
repairNPCX := 100
repairNPCY := 200

; 定义装备栏坐标
equipmentSlotX := []
equipmentSlotY := []
Loop, 10
{
equipmentSlotX.Push(50 + (A_Index - 1) * 30)
equipmentSlotY.Push(150)
}

CheckEquipmentDurability()
{
Loop, 10
{
index := A_Index - 1
; 假设获取持久度函数，需根据实际调整
durability := GetEquipmentDurability(equipmentSlotX[index], equipmentSlotY[index])
if (durability < 30)
{
RepairEquipment(index)
}
}
}

RepairEquipment(slotIndex)
{
MouseMove, repairNPCX, repairNPCY
Click
Sleep, 1000

; 点击修理选项
MouseMove, 120, 220
Click
Sleep, 500

; 放入装备
MouseMove, equipmentSlotX[slotIndex], equipmentSlotY[slotIndex]
Click
Sleep, 500

; 点击确认修理
MouseMove, 150, 250
Click
Sleep, 2000
}

; 主循环
Loop
{
CheckEquipmentDurability()
Sleep, 300000
}
```