Fry
Joined: 01 Nov 2007
Posts: 880
|
 Posted: Mon Jul 13, 2009 3:10 am Post subject: Child Friendly Game Player |
 |
|
I originally made this for my brother, so he can play games, while not having much ads, or clicking on the wrong things. It requires the child to record there own sounds, making it more fun for them. It also has a password simply for aesthetics to make it seem for the child there the only person who can access there space. It also supports a background for the child of there choice. Sadly though, this version requires 1440 x 900 resolution, but I can change this.
Requirements:
Use sound recorder (sndrec32.exe), record this.
Password Incorrect - saved as PassIn.wav
Password Correct - saved as PassCo.wav
A Welcome Message when they login - saved as Welcome.wav
A loading message - saved as Loading.wav
Background - saved as in.jpg
COM Library by Sean
It supports some games from addictinggames and max games, however they can access youtube(can be disabled). It also has two shows from hulu (Simpsons,King of the hill) But hulu can also be accessed, so they can watch other shows. Same goes for Addictinggames and max games. They can search addictinggames. If the child finds a page they like, they click add, and type in its name. It can be later accessed by clicking on Game List, and choosing it. It has a minimize button, if someone else needs to access the pc.
Comments in the script tell you how to set it up, and theres a picture gallery below. Feel free to change this script according to your childs needs!
| Code: | #Include COM.ahk
InputBox, pass, Enter Secret Code,Enter, hide
If pass = test123 ; **Setup password here!**
{
Soundplay, PassCo.wav
sleep 2500
gosub maingui
}
Else
{
Soundplay, PassIn.wav
msgbox, Closing....
exitapp
}
return
maingui:
COM_AtlAxWinInit()
sleep 500
Gui +LastFound
sleep 500
pwb := COM_AtlAxGetControl(COM_AtlAxCreateContainer(WinExist(),1,40,1440,860, "Shell.Explorer") )
url:="http://www.addictinggames.com"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
Gui, -caption
Gui, +LastFound
Gui, Add, Button, x6 y7 w90 h20 gag, Addicting Games
Gui, Add, Button, x106 y7 w70 h20 gmg, Max Games
Gui, Add, Button, x186 y7 w50 h20 ghu, Hulu
Gui, Add, Button, x246 y7 w70 h20 gsag, Search AG
Gui, Add, Picture, x-4 y37 w1445 h900 , in.jpg
Gui, Add, Button, x326 y7 w60 h20 gyou, Youtube
Gui, Add, Button, x396 y7 w70 h20 gminimize, Minimize
Gui, Add, Button, x476 y7 w60 h20 gGLS, Game list
Gui, Add, Button, x536 y7 w30 h20 gADDg, Add
; Generated using SmartGUI Creator 4.0
Gui, Show, x0 y0 h900 w1440, Max Site
soundplay, Welcome.wav
Return
GuiClose:
ExitApp
ag:
gui, 2:destroy
Gui ,2: Add, Button, x6 y7 w60 h20 graft, Raft Wars
Gui ,2: Add, Button, x76 y7 w60 h20 gheist, The Heist
Gui ,2: Add, Button, x146 y7 w60 h20 gblob, Blobz
Gui ,2: Add, Button, x6 y37 w90 h20 gimpq, Impossible Quiz
Gui ,2: Add, Button, x6 y67 w200 h20 gagga, Addicting Games
; Generated using SmartGUI Creator 4.0
Gui, 2:Show, x298 y266 h98 w219, A Games
return
raft:
Soundplay, loading.wav
sleep 1000
gui, 2:destroy
url:="http://www.addictinggames.com/raftwars.html"
COM_Invoke(pwb, "Navigate", url)
return
heist:
Soundplay, loading.wav
sleep 1000
gui, 2:destroy
url:="http://www.addictinggames.com/theheist.html"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
blob:
Soundplay, loading.wav
sleep 1000
gui, 2:destroy
url:="http://www.addictinggames.com/blobz.html"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
agga:
Soundplay, loading.wav
sleep 1000
gui, 2:destroy
url:="http://www.addictinggames.com/"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
impq:
Soundplay, loading.wav
sleep 1000
gui, 2:destroy
url:="http://www.addictinggames.com/theimpossiblequiz.html"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
mg:
gui, 3:destroy
Gui, 3:Add, Button, x6 y7 w70 h20 gbc, Box Clever
Gui, 3:Add, Button, x86 y7 w70 h20 gjc, John Citizen
Gui, 3:Add, Button, x6 y37 w70 h20 gmg2, Max Games
Gui, 3:Add, Button, x86 y37 w70 h20 gl2f, Learn 2 Fly
Gui, 3:Add, Text, x6 y67 w70 h20 , Meeblings
Gui, 3:Add, Button, x86 y67 w30 h20 gme1, 1
Gui, 3:Add, Button, x126 y67 w30 h20 gme2, 2
; Generated using SmartGUI Creator 4.0
Gui, 3:Show, x182 y136 h110 w173, Max Games
return
jc:
Soundplay, loading.wav
sleep 1000
gui, 3:destroy
url:="http://www.maxgames.com/game/john-citizen.html"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
bc:
Soundplay, loading.wav
sleep 1000
gui, 3:destroy
url:="http://www.maxgames.com/game/box-clever.html"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
mg2:
Soundplay, loading.wav
sleep 1000
gui, 3:destroy
url:="http://www.maxgames.com/"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
l2f:
Soundplay, loading.wav
sleep 1000
gui, 3:destroy
url:="http://www.maxgames.com/play/learn-to-fly.html"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
me1:
Soundplay, loading.wav
sleep 1000
gui, 3:destroy
url:="http://www.maxgames.com/play/meeblings.html"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
me2:
Soundplay, loading.wav
sleep 1000
gui, 3:destroy
url:="http://www.maxgames.com/play/meeblings.html-2"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
hu:
gui, 4:destroy
Gui, 4:Add, Button, x6 y7 w60 h20 gsimp, Simpsons
Gui, 4:Add, Button, x76 y7 w80 h20 gkoth, King of the Hill
Gui, 4:Add, Button, x6 y37 w150 h20 ghu2, Hulu
; Generated using SmartGUI Creator 4.0
Gui, 4:Show, x131 y91 h71 w164, Hulu
return
simp:
Soundplay, loading.wav
sleep 1000
gui, 4:destroy
url:="http://www.hulu.com/the-simpsons"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
hu2:
Soundplay, loading.wav
sleep 1000
gui, 4:destroy
url:="http://www.hulu.com/"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
koth:
Soundplay, loading.wav
sleep 1000
gui, 4:destroy
url:="http://www.hulu.com/king-of-the-hill"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
sag:
InputBox, pass, What to search on Addicting Games?,Enter,
If pass =
{
msgbox, No Search!?
return
}
pass1 = http://www.addictinggames.com/profile/searchPage.php?pageAction=search&type=games&text=%pass%
StringReplace, pass1, pass1, %A_SPACE%, +, All
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", pass1)
return
Input:
InputBox, URL, Website,[DIAG] Enter Website,
If URL =
{
return
}
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", URL)
return
you:
Soundplay, loading.wav
sleep 1000
url:="http://www.youtube.com"
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
minimize:
winminimize, Max Site
return
onmaximize:
Gui, +LastFound
return
GLS:
Gui, 5:Destroy
Gui, 5:Add, ListBox, x6 y27 w500 h260 gGetG vGList,
Gui, 5:Add, Text, x7 y4 w127 h16 , Click a game to open it
Gui, 5:Show, x204 y199 h287 w511, Game List
Gui, 5:Default
i = 0 ;Index used for array element number
Loop, Read, GDir.ini
{
StringLeft, L, A_LoopReadLine, 1
;Possible Section name, so check right side
If L = [
{
StringRight, R, A_LoopReadLine, 1
;If its a right bracket Section found
If R = ]
{
i++
;Econt = Element Contents
ECont = %A_LoopReadLine%
StringTrimLeft, ECont, ECont, 1
StringTrimRight, ECont, ECont, 1
ECont = %ECont%|
If ECont = PIN
GuiControl,, GList, %GList%
Else
GuiControl,, GList, %GLIst%%ECont%
}
}
}
return
GetG:
Gui, Submit, NoHide
IniRead, url, GDir.ini, %GList%, %GList%
COM_Invoke(pwb, "Silent=", True)
COM_Invoke(pwb, "Navigate", url)
return
ADDG:
InputBox, gamevar, Game,Type the name,
If gamevar =
{
msgbox, No name!!!
return
}
value := COM_Invoke(pwb, "LocationUrl")
IniWrite, %value%, GDir.ini, %gamevar%, %gamevar%
msgbox, Added
return
^down::Soundset -10
^up::Soundset +10
^F12::gosub Input
|
Picture Gallery (click link)
http://img115.imageshack.us/gal.php?g=20849250.png |
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
