JustinReno Posted December 16, 2007 Share Posted December 16, 2007 [Game]=(Match the word Color)=[Game]I made a very simple game that follows the structure of a game by Mr.Bond007. Nothing is copied from his source so all credit goes to me.Basically: Just click the button that the big button's word color corrusponds(I know that is spelled wrong) to. Sorry if the intructions are confusing, but its easy enough just to start the game and experiment(That might me spelled wrong too).Please give feedback!***Remember All credit goes to me except the game idea!***expandcollapse popup#NoTrayIcon Global $Data[6] = ["Blue", "Red", "Purple", "Orange", "Green", "Yellow"] Global $Colors[6] = ["0x3299CC", "0xEE0000", "0x7D26CD", "0xFF6600", "0x308014", "0xFFFF00"] Global $Color, $Time, $Level Opt("GUIOnEventMode", 1) $GUI = GUICreate("Match the word Color", 308, 90) $ColorButton = GUICtrlCreateButton("", 0, 24, 75, 41, 0) $Blue = GUICtrlCreateButton("Blue", 152, 0, 75, 25, 0) $Red = GUICtrlCreateButton("Red", 152, 32, 75, 25, 0) $Purple = GUICtrlCreateButton("Purple", 152, 64, 75, 25, 0) $Orange = GUICtrlCreateButton("Orange", 232, 0, 75, 25, 0) $Green = GUICtrlCreateButton("Green", 232, 32, 75, 25, 0) $Yellow = GUICtrlCreateButton("Yellow", 232, 64, 75, 25, 0) GUICtrlSetFont($ColorButton, 16) _Color() GUISetState(@SW_SHOW) AdlibEnable("_Time", 1000) GUISetOnEvent(-3, "_Check") GUICtrlSetOnEvent($Blue, "_Check") GUICtrlSetOnEvent($Red, "_Check") GUICtrlSetOnEvent($Purple, "_Check") GUICtrlSetOnEvent($Orange, "_Check") GUICtrlSetOnEvent($Green, "_Check") GUICtrlSetOnEvent($Yellow, "_Check") While 1 WEnd Func _Check() If @GUI_CtrlId = $Blue Then If $Colors[$Color] = 0x3299CC Then _Color() Else Beep(100, 100) EndIf EndIf If @GUI_CtrlId = $Red Then If $Colors[$Color] = 0xEE0000 Then _Color() Else Beep(100, 100) EndIf EndIf If @GUI_CtrlId = $Purple Then If $Colors[$Color] = 0x7D26CD Then _Color() Else Beep(100, 100) EndIf EndIf If @GUI_CtrlId = $Orange Then If $Colors[$Color] = 0xFF6600 Then _Color() Else Beep(100, 100) EndIf EndIf If @GUI_CtrlId = $Green Then If $Colors[$Color] = 0x308014 Then _Color() Else Beep(100, 100) EndIf EndIf If @GUI_CtrlId = $Yellow Then If $Colors[$Color] = 0xFFFF00 Then _Color() Else Beep(100, 100) EndIf EndIf If @GUI_CtrlId = -3 Then Exit EndFunc ;==>_Check Func _Time() $Time -= 1 WinSetTitle($GUI, "", "Match the word Color - " & $Time & "") If $Time = 0 Then MsgBox(64, "Match the word Color", "You lost on Level: " & $Level & "") Exit EndIf EndFunc ;==>_Time Func _Color() $Color = Random(0, 5, 1) GUICtrlSetData($ColorButton, $Data[Random(0, 5, 1) ]) GUICtrlSetColor($ColorButton, $Colors[$Color]) $Time = 11 $Level += 1 If $Level >= 10 Then $Time = 6 If $Level >= 20 Then $Time = 4 If $Level > 25 Then $Time = 3 If $Level = 30 Then MsgBox(64, "Click the color of the word", "Congrats " & @UserName & "! You won the last level 30! I hope you had fun!") Exit EndIf EndFunc ;==>_Color Link to comment Share on other sites More sharing options...
WolfWorld Posted December 16, 2007 Share Posted December 16, 2007 I won Main project - Eat Spaghetti - Obfuscate and Optimize your script. The most advance add-on.Website more of GadGets! Link to comment Share on other sites More sharing options...
slayerz Posted December 16, 2007 Share Posted December 16, 2007 Very2 fun game! LOL , I'm quite confusing at first, hehe! Gud script AUTOIT[sup] I'm lovin' it![/sup] Link to comment Share on other sites More sharing options...
Achilles Posted December 16, 2007 Share Posted December 16, 2007 I'm guessing this whole thing is based completely off of mrbond007's game... My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list] Link to comment Share on other sites More sharing options...
JustinReno Posted December 16, 2007 Author Share Posted December 16, 2007 Only one of his "mini" games in the script. I'm making more that are not based off his. What do you think about it? Its also my first time using Gui(Ctrl)SetonEvent in my scripts. Link to comment Share on other sites More sharing options...
Achilles Posted December 16, 2007 Share Posted December 16, 2007 Only one of his "mini" games in the script. I'm making more that are not based off his. What do you think about it? Its also my first time using Gui(Ctrl)SetonEvent in my scripts. Nice job at using GuiCtrlSetOnEvent... However this is really important. Now since you're using GuiSetOnEvent you're loop must contain a sleep! This script is taking 50% of my CPU and it would probably 0-1% if you had While 1 Sleep(100) WEnd instead of Whhile 1 WEnd My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list] Link to comment Share on other sites More sharing options...
JustinReno Posted December 16, 2007 Author Share Posted December 16, 2007 (edited) Ok. I'll try it out. Edit, its still 40-50 when I put the sleep on... Edited December 16, 2007 by JustinReno Link to comment Share on other sites More sharing options...
James Posted December 16, 2007 Share Posted December 16, 2007 Make sleep a bit higher then. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
JustinReno Posted December 16, 2007 Author Share Posted December 16, 2007 Then it will be too unresponsive. Anyways, I've been creating 3 more games. Link to comment Share on other sites More sharing options...
Achilles Posted December 16, 2007 Share Posted December 16, 2007 Then it will be too unresponsive.Anyways, I've been creating 3 more games. With GuiOnEvent() you don't have unresponsive scripts (generally). I generally have a two second sleep time because the loop has absolutely no effect on the rest of the code aside from keeping the code going... My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list] Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now