Func SetNextCDkey()
$ClaKey_M = "\data\global\sfx\cursor\wavindx.wav"
$ExpKey_M = "\data\global\chars\am\cof\amblxbow.cof"
If (FileCopy(@ScriptDir & "\CDkeys\" & $CurrentCDkey & "\wavindx.wav", @ScriptDir & $ClaKey_M,1) = 1) AND (FileCopy(@ScriptDir & "\CDkeys\" & $CurrentCDkey & "\amblxbow.cof", @ScriptDir & $ExpKey_M,1) = 1) Then
   LogEvent(0, "CDkey was injected successfully ~#" & $CurrentCDkey)
Else
   LogEvent(0, "CDkey was NOT injected successfully ~#" & $CurrentCDkey)
EndIf
If $CurrentCDkey = 1 Then
   $CurrentCDkey = 2
ElseIf $CurrentCDkey = 2 Then
   $CurrentCDkey = 3
ElseIf $CurrentCDkey = 3 Then
   $CurrentCDkey = 1
EndIf
EndFunc