AHK

;#NoEnv   Recommended for performance and compatibility with future AutoHotkey releases.
 ;#Warn   Enable warnings to assist with detecting common errors.
SendMode Input   ;Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%   ;Ensures a consistent starting directory.

Home:
Gui, Home:Add, Text, x10 y15 w260 h55, Please enter the name off the group you want to write the permissions for
Gui, Home:Add, Button, x275 y260 w43 h23 gHomeGuiClose, Exit
Gui, Home:Add, Button, x225 y260 w43 h23 gWait, Start
Gui, Home:Show, w324 h289, Minecraft Permissions Writer
return
HomeGuiClose:
ExitApp
Wait:
Sleep 5000
;Send, broadcast [&4Warning&r]: All Setting Permissions!
;Send, {Enter}
gosub default
return
Default:
Loop
{
SetKeyDelay  20,100
FileReadLine, permission1, %A_ScriptDir%\Permission nodes\Default.txt, %A_Index%
if (ErrorLevel = 0)
{
SendEvent,/lp group default permission set %permission1%
Send, {Enter}
}
else
{
FileAppend, Default.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
gosub Pokemontrainer
}
}
return
Pokemontrainer:
Loop
{
SetKeyDelay  20,100
if (ErrorLevel = 0)
{
SendEvent,/lp group pokemontrainer permission set group.default
Send, {Enter}
}
else
{
FileAppend, Pokemontrainer.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
gosub Pokefan
}
}
return
Pokefan:
Loop
{
SetKeyDelay  20,100
FileReadLine, permission3, %A_ScriptDir%\Permission nodes\pokefan.txt, %A_Index%
if (ErrorLevel = 0)
{
SendEvent,/lp group pokefan permission set %permission3%
Send, {Enter}
}
else
{
FileAppend, Pokefan.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
gosub Pokemaniac
}
}
return
Pokemaniac:
Loop
{
SetKeyDelay  20,100
FileReadLine, permission4, %A_ScriptDir%\Permission nodes\pokemaniac.txt, %A_Index%
if (ErrorLevel = 0)
{
SendEvent,/lp group pokemaniac permission set %permission4%
Send, {Enter}
}else{
FileAppend, Pokemaniac.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
gosub Pokestar
}
}
return
Pokestar:
Loop
{
SetKeyDelay  20,100
FileReadLine, permission5, %A_ScriptDir%\Permission nodes\pokestar.txt, %A_Index%
if (ErrorLevel = 0)
{
SendEvent,/lp group pokestar permission set %permission5%
Send, {Enter}
}else{
FileAppend, Pokestar.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
gosub Pokebreeder
}
}
return
Pokebreeder:
Loop
{
SetKeyDelay  20,100
FileReadLine, permission6, %A_ScriptDir%\Permission nodes\pokebreeder.txt, %A_Index%
if (ErrorLevel = 0)
{
SendEvent,/lp group pokebreeder permission set %permission6%
Send, {Enter}
}else
{
FileAppend, Pokebreeder.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
gosub Pokeelite
}
}
return
Pokeelite:
Loop
{
SetKeyDelay  20,100
FileReadLine, permission7, %A_ScriptDir%\Permission nodes\pokeelite.txt, %A_Index%
if (ErrorLevel = 0)
{
SendEvent,/lp group pokeelite permission set %permission7%
Send, {Enter}
}else{
FileAppend, Pokeelite.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
gosub Pokelegend
}
}
return
Pokelegend:
Loop
{
SetKeyDelay  20,100
FileReadLine, permission8, %A_ScriptDir%\Permission nodes\pokelegend.txt, %A_Index%
if (ErrorLevel = 0)
{
SendEvent,/lp group pokelegend permission set %permission8%
Send, {Enter}
}else
{
FileAppend, Pokelegend.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
gosub Pokegod
}
}
return
Pokegod:
Loop
{
SetKeyDelay  20,100
FileReadLine, permission9, %A_ScriptDir%\Permission nodes\pokegod.txt, %A_Index%
if (ErrorLevel = 0)
{
SendEvent,/lp group pokegod permission set %permission9%
Send, {Enter}
}
else
{
FileAppend, Pokegod.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
gosub Pokeislander
}
}
return
Pokeislander:
Loop
{
SetKeyDelay  20,100
FileReadLine, permission10, %A_ScriptDir%\Permission nodes\pokeislander.txt, %A_Index%
if (ErrorLevel = 0)
{
SendEvent,/lp group pokeislander permission set %permission10%
Send, {Enter}
}
else
{
FileAppend, Pokeislander.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
gosub Helper
}
}
return
Helper:
Loop
{
SetKeyDelay  20,100
FileReadLine, permission11, %A_ScriptDir%\Permission nodes\helper.txt, %A_Index%
if (ErrorLevel = 0)
{
SendEvent,/lp group helper permission set %permission11%
Send, {Enter}
}
else
{
FileAppend, Helper.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
gosub mod
}
}
return
mod:
Loop
{
SetKeyDelay  20,100
FileReadLine, permission12, %A_ScriptDir%\Permission nodes\mod.txt, %A_Index%
if (ErrorLevel = 0)
{
SendEvent,/lp group mod permission set %permission12%
Send, {Enter}
}
else
{
FileAppend, Mod.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
gosub Gym
}
}
return
gym:
Loop
{
SetKeyDelay  20,100
FileReadLine, permission12, %A_ScriptDir%\Permission nodes\gymleader.txt, %A_Index%
if (ErrorLevel = 0)
{
SendEvent,/lp group gymleader permission set %permission12%
Send, {Enter}
}
else
{
FileAppend, Mod.`n, C:\Users\Test\Desktop\Permission Writer\groups completed.txt
;Send, broadcast [Completed]: All permissions are set!
;Send, {Enter}
msgbox,,Completed,Your Permissions are set!
}
}
return

Esc::
ExitApp
return