Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
- SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
- Archive := "chatlog/archive"
- Chatlog := A_MyDocuments . "/GTA San Andreas User Files/SAMP/chatlog.txt"
- Exe := "gta_sa.exe"
- TTS := true
- IfNotExist, Archive
- FileCreateDir, % Archive
- If SubStr(Archive, 0, 1) != "/" or SubStr(Archive, 0, 1) != "\"
- {
- If InStr(Archive, "/")
- Archive := Archive . "/"
- Else
- Archive := Archive . "\"
- }
- Loop,
- {
- Process, Wait, % Exe
- Process, WaitClose, % Exe
- FileMove, % Chatlog, % Archive . "chatlog-" . A_Now . ".txt"
- If TTS
- ComObjCreate("SAPI.SpVoice").Speak("Chatlog archived.")
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement