Here Doggy! game!

[keen]

I am developing a game called Here Doggy! The game will be loaded with features such as:

• Pet your dog
• Feed dog
• multiple dogs
• give water to your dog
• shop for dog items
• dog races
• play fetch
• WORLDWIDE PLAY! (Avalible for purchace)
• MORE

Here is version 1.0 beta releace. Feedback would be greatly apreciated!

DOWNLOAD: http://putstuff.putfile.com/94657/8745230

THANKS!

[idusy]

Sounds interesting but... It doesn't actually do anything? The whole login screen leads to a dead end...

[idusy]

Well, It does do something, but not much.

After the incredibly long load time (20 secs) I got to make an account and dog in single player. I then tried to log on, but nothing happened.

By "anything", I meant what it claimed to do. If you look at the script, the login literally leads to no where.

[alien13]

Hey,

This sounds interesting. As it is developed more it will be interesting to look at how it works.

I have done a few modifications, you don't need to keep them though, I was bored so went through and fixed some things. I have commented on what I done and what they do:

expandcollapse popup

#include <GUIConstants.au3>

$Config = "\ini\gameinfo.ini" ; Links to the ini file for tidyness in the script

$username = IniRead (@ScriptDir & $Config,"Username","1","")
$password = IniRead (@ScriptDir & $Config,"Password","1","")
$name = IniRead (@ScriptDir & $Config,"Dogname","1","")
$breed = IniRead (@ScriptDir & $Config,"Dogbreed","1","")

$GUI = GUICreate("  Here Doggy!", 705, 557, 188, 142, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_STATICEDGE))
$Button1 = GUICtrlCreateButton("Create New Dog", 240, 504, 185, 25)
GUICtrlCreateGroup("", 8, 488, 689, 49)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\IMG_0635.JPG", 8, 48, 689, 401) ; Changed this so it uses the pic from the script dir instead of your hdd
GUICtrlCreateLabel("Welcome to Here Doggy! ", 216, 8, 286, 28)
GUICtrlSetFont(-1, 11, 800, 0, "Snap ITC")
$Userinfo = GUICtrlCreateLabel("Your current dog is: "& $name, 14, 464, 500, 20)
$Button2 = GUICtrlCreateButton("Play Now!", 568, 456, 97, 25)

If $name = "" Then
    GUICtrlSetData ( $Userinfo, "You currently have no account. Please register by clicking Create New Dog.")
EndIf
    

GUISetState(@SW_SHOW)

While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $Button1
            If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
            $iMsgBoxAnswer = MsgBox(52,"Warning!","Creating a new account will delete your old account. Continue?")
            Select
                Case $iMsgBoxAnswer = 6 ;Yes
                    $user = InputBox("Create Acount","Please type requested username:")
                    $pass = InputBox("Create Acount","Please type requested password:")
                    $dogname = InputBox("Create Acount","Please type requested dog name:")
                    $dogbreed = InputBox("Create Acount","Please type requested dog breed:")
                    ;Changed these below so they only save to one ini for tidyness and reduced the length for script tidyness using the $Config change
                    IniWrite (@ScriptDir & $Config,"Username","1",$user)
                    IniWrite (@ScriptDir & $Config,"Password","1",$pass)
                    IniWrite (@ScriptDir & $Config,"Dogname","1",$dogname)
                    IniWrite (@ScriptDir & $Config,"Dogbreed","1",$dogbreed)
                    MsgBox(0, "Complete", "You have created a new dog. Game will now restart with changes.")
                    Sleep(1000) ; Waits 1 second
                    Run(@ScriptDir & "\First page.exe") ; Runs the First Page.exe file (if its created)
                    Exit 
                Case $iMsgBoxAnswer = 7 ;No
                    Exit
            EndSelect
        Case $msg = $Button2
            InputBox ( "Login", "Please enter your username:")
            InputBox ( "Login", "Please enter your password:","", "*")
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case Else
        ;;;;;;;
    EndSelect
WEnd
Exit

Hope that helps you!

Good luck with this!

alien13

[keen]

Opps! I uploaded the wrong zip file. Sorry. Let me see if i can find the new one. And alien13, thanks! will add that to help!

[keen]

Here is version 2.0 beta.

NEW FEATURES:

All info stored on one ini file

new walk feature

First time playing feature

MORE!

Here is the download link:

http://putstuff.putfile.com/96112/6377833

Run the Mainpage.exe file first.

Edited July 20, 2007 by keen