[go: up one dir, main page]

Menu

[r39]: / gocops / stable / gocops.au3  Maximize  Restore  History

Download this file

112 lines (83 with data), 3.2 kB

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
#comments-start
Copyright 2011-2012 Jeroen De Meerleer
This file is part of Go Cops! 2: The Reanimation.
Go Cops! 2: The Reanimation is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
Go Cops! 2: The Reanimation is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with Go Cops! 2: The Reanimation. If not, see <http://www.gnu.org/licenses/>.
#comments-end
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\icons\icon.ico
#AutoIt3Wrapper_Outfile=..\..\..\bin\gocops1104_86.exe
#AutoIt3Wrapper_Outfile_x64=..\..\..\bin\gocops1104_64.exe
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_Res_Fileversion=1.1.0.4
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;add constants;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;add other scripts;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include "new.au3"
#include "save.au3"
#include "savegame.au3"
#include "inbox.au3"
#include "game.au3"
#include "manager.au3"
;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;main window;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;
; create window
guicreate("Go Cops! 2: The Reanimation", 400, 500)
; create title-labels
$gocops = guictrlcreatelabel("Go Cops! 2", 25, 150, 350, 75)
$rean = guictrlcreatelabel("The reanimation", 25, 215, 150, 25)
; set font of title labels
guictrlsetfont($gocops, 48, 1200)
guictrlsetfont($rean, 12, 200)
; create version-information
$ver = guictrlcreatelabel("Version 1.1 (build " & $build & ")", 1, 487)
; create credit
$created = guictrlcreatelabel("Created by Jeroen De Meerleer", 252, 487)
; create buttons
$new = guictrlcreatebutton("New game", 50, 350, 100, 50)
$save = guictrlcreatebutton("Open saved game", 250, 350, 100, 50)
$manager = guictrlcreatebutton("Open manager", 150, 350, 100, 50)
; view window
guisetstate()
while 1
; get pressed button
$msg = guigetmsg()
select
; window is closed
case $msg = $GUI_EVENT_CLOSE
; ask to close
$close = msgbox(4, "Really quit?", "Are you sure you want to close Go Cops!?")
; if pressed yes then close Go Cops!
if $close = 6 then Exit
; New game button is pressed
case $msg = $new
; start new game
new()
; Open saved game button is pressed
case $msg = $save
; open window for selection of new game
save()
; Open manager button is pressed
case $msg = $manager
; open manager
manager()
EndSelect
wend