Dim $ps
$ps="Primalscript Professional -"
blockinput(0)
Opt("MouseCoordMode",0)
WinActivate($ps)
send("!TO")
sleep(250)
send("+{Tab}C")
sleep(250)
;color
mouseclick("main",68,106,1)
sleep(250)
send("!A")
sleep(250)
winactivate("Options")
;background
mouseclick("main",441,89,1)
sleep(250)
mouseclick("main",439,147,1)
sleep(250)
;foreground
mouseclick("main",447,131,1)
sleep(250)
mouseclick("main",601,247,1)
sleep(250)
;Text Selected
mouseclick("main",216,84,1)
;background
mouseclick("main",441,89,1)
sleep(250)
mouseclick("main",602,204,1)
sleep(250)
;foreground
mouseclick("main",447,131,1)
sleep(250)
mouseclick("main",437,192,1)
sleep(250)
;OK
mouseclick("main",333,384,1)

xit()

func xit()
blockinput(1)
exit
endfunc