Jump to content

under constructie


Cloudsx
 Share

Recommended Posts

i have made a script with some help of you but i want to have 1 more thing

i am tryng to make a game with autoit

i am tryng to make a war game with autoit

so here is my problem

i have a parent Guicreate en an child Guicreate but i have a building in the child and i want that to make

so i click on it the building and it going to make

but i want to see what i am built on the parent guicreate

so how can i fix that

Link to comment
Share on other sites

i have made a script with some help of you but i want to have 1 more thing

i am tryng to make a game with autoit

i am tryng to make a war game with autoit

so here is my problem

i have a parent Guicreate en an child Guicreate but i have a building in the child and i want that to make

so i click on it the building and it going to make

but i want to see what i am built on the parent guicreate

so how can i fix that

HI,

would you post your code, please? It is much easier than.

So long,

Mega

Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Link to comment
Share on other sites

oke i will do

#include <GUIConstants.au3>

GUICreate("game",350,400); will create a dialog box that when displayed is centered
GUISetState (@SW_SHOW); will display an empty dialog box

GUICtrlCreateLabel("onder constructie",50,50)

Opt("GUICoordMode",4)
$gebouwen = GUICtrlCreateButton("gebouwen",290,100,60)
$militair = GUICtrlCreateButton("militair",290,125,60)
$voertuigen = GUICtrlCreateButton("voertuigen",290,150,60)
$onderzoek = GUICtrlCreateButton("onderzoek",290,175,60)
$verdediging = GUICtrlCreateButton("verdediging",290,200,61)
$overzicht = GUICtrlCreateButton("overzicht",290,225,60)

GUISetState ();this wil create a button

Dim $2, $3, $4, $5, $6, $7

While 1
$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then
If WinActive("game") then Exit
If WinActive("gebouwen") then GUIDelete( $2)
If WinActive("militair") then GUIDelete( $3)
if WinActive("voertuigen") then GUIDelete( $4)
If WinActive("onderzoek") then GUIDelete( $5)
If WinActive("verdediging") then GUIDelete( $6)
If WinActive("overzicht") then GUIDelete($7)
EndIf
if $msg = $gebouwen Then GUI2Create()
If $msg = $militair then Gui3create()
if $msg = $voertuigen then Gui4create()
If $msg = $onderzoek then Gui5create()
If $msg = $verdediging then gui6create()
If $msg = $overzicht then Gui7create()

Wend

Func GUI2Create()
If WinExists("gebouwen") then Return
$2 = GUICreate("gebouwen",350,350)
GUISetState (@SW_SHOW)
EndFunc

Func Gui3create()
If WinExists("militair") then Return
$3 = GUICreate("militair",350,350)
GUISetState (@SW_SHOW)
EndFunc

Func Gui4create()
If WinExists("voertuigen") then Return
$4 = GUICreate("voertuigen",350,350)
GUISetState (@SW_SHOW)
EndFunc

Func gui5create()
If WinExists("onderzoek") then Return
$5 = GUICreate("onderzoek",350,350)
GUISetState (@SW_SHOW)
EndFunc

Func gui6create()
If WinExists("verdediging") then Return
$6 = GUICreate("verdediging",350,350)
GUISetState (@SW_SHOW)
EndFunc

Func gui7create()
If WinExists("overzicht") then Return
$7 = GUICreate("overzicht",350,350)
GUISetState (@SW_SHOW)
EndFunc

here i want it what i sad about under constructie

Edited by Cloudsx
Link to comment
Share on other sites

#include <GUIConstants.au3>

GUICreate("game",350,400); will create a dialog box that when displayed is centered
GUISetState (@SW_SHOW); will display an empty dialog box

$label = GUICtrlCreateLabel("onder constructie",50,50)

Opt("GUICoordMode",4)
$gebouwen = GUICtrlCreateButton("gebouwen",290,100,60)
$militair = GUICtrlCreateButton("militair",290,125,60)
$voertuigen = GUICtrlCreateButton("voertuigen",290,150,60)
$onderzoek = GUICtrlCreateButton("onderzoek",290,175,60)
$verdediging = GUICtrlCreateButton("verdediging",290,200,61)
$overzicht = GUICtrlCreateButton("overzicht",290,225,60)

GUISetState ();this wil create a button

Dim $2, $3, $4, $5, $6, $7

While 1
$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then
If WinActive("game") then Exit
If WinActive("gebouwen") then GUIDelete( $2)
If WinActive("militair") then GUIDelete( $3)
if WinActive("voertuigen") then GUIDelete( $4)
If WinActive("onderzoek") then GUIDelete( $5)
If WinActive("verdediging") then GUIDelete( $6)
If WinActive("overzicht") then GUIDelete($7)
EndIf
if $msg = $gebouwen Then GUI2Create()
If $msg = $militair then Gui3create()
if $msg = $voertuigen then Gui4create()
If $msg = $onderzoek then Gui5create()
If $msg = $verdediging then gui6create()
If $msg = $overzicht then Gui7create()

Wend

Func GUI2Create()
If WinExists("gebouwen") then Return
    GUICtrlSetData($label, "Like this")
$2 = GUICreate("gebouwen",350,350)
GUISetState (@SW_SHOW)
EndFunc

Func Gui3create()
If WinExists("militair") then Return
$3 = GUICreate("militair",350,350)
GUISetState (@SW_SHOW)
EndFunc

Func Gui4create()
If WinExists("voertuigen") then Return
$4 = GUICreate("voertuigen",350,350)
GUISetState (@SW_SHOW)
EndFunc

Func gui5create()
If WinExists("onderzoek") then Return
$5 = GUICreate("onderzoek",350,350)
GUISetState (@SW_SHOW)
EndFunc

Func gui6create()
If WinExists("verdediging") then Return
$6 = GUICreate("verdediging",350,350)
GUISetState (@SW_SHOW)
EndFunc

Func gui7create()
If WinExists("overzicht") then Return
$7 = GUICreate("overzicht",350,350)
GUISetState (@SW_SHOW)
EndFunc

8)

NEWHeader1.png

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...