From 30a48990e2954d7919acc79d0f22ddc4f13f409a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ruben=20Mu=CC=88ller?= <r.mueller@purzwei.de>
Date: Sat, 20 Aug 2011 17:40:18 +0200
Subject: [PATCH] stuff

---
 data/gfx/flyer.bmp                        | Bin 0 -> 15510 bytes
 data/gfx/tilemap01.bmp                    | Bin 49208 -> 0 bytes
 data/gfx/tileset01.bmp                    | Bin 0 -> 32824 bytes
 data/gfx/{tilemap01.psd => tileset01.psd} | Bin
 src/Functions.pbi                         |   2 +-
 src/Globals.pbi                           |  12 +++++++++++-
 src/Main.pb                               |  10 +++++++---
 7 files changed, 19 insertions(+), 5 deletions(-)
 create mode 100644 data/gfx/flyer.bmp
 delete mode 100644 data/gfx/tilemap01.bmp
 create mode 100644 data/gfx/tileset01.bmp
 rename data/gfx/{tilemap01.psd => tileset01.psd} (100%)

diff --git a/data/gfx/flyer.bmp b/data/gfx/flyer.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..7afc360a5f6f5d388f6d38183db354cd1b2b166c
GIT binary patch
literal 15510
zcmeI2F>Vzx5J1fZs5t^BKq*q8v~-jdIYJJQ15l(!93cmwr2GfqNGyH`y=XGl{_kBj
zh_U`!qgi`q{ATQRq`d#|<+}CuZt34H&!^?NTAo+!&C<7aySzWW=IM&+ia-%40!5$*
z6oHpa;HtNq-foADk@SCmMUL}hZ&|RcWhPGh%DkXw<czNwl8$pfCicRr?}p99*7G6$
zhu*&RhK#i_B}Zru!!Yl#d|9>FV=;jS<Y9gvTBc{9Yi67g-r~zWF~mBFnZj2H@V6q1
z6FnX?U-n*1A`R~pcK6rb9(zMZpJm5-GJ;KK#1-PYvh4B5j?G>&+3|B;IsP@(68+ld
z|H*_bz}z$-?B28)xu(Z{Bp<UJtBbj7ym$<8I`UX8c*nkX4RSGwOvnyw_vm5HNs?6~
zeqA|?XYL+RVUx8N6BEvukPG%B<I!xDBkXXVPziX+_B&&I{&*Fa$#F%j7k#V~^u@$v
zoDs-SQCpoe*s&KX;YVobU02)2fHhYLQJDs^qb(-p0~tt?FM4)8H@C}rY??ph?FE^$
z!ntGad<^!5O?xp1%f-YrEJMar<JaL_4c6?%^}sy@zvw-Zx#xO}<GrFa72+6*iD_8&
zozu+ymA8H@yH2o7J=hwu>xX#GtrOdHRM<JULW+qAWOA$)PHg(q>PC)Y2GP6cyXKL+
zUG3`R2&oe+u$FA4>-EJXV+EObqX?JKR1xQ*;q)Mz$l1u$ba>&a!`fCAVm`&hG%R}`
zk&BR`R1vf93h~zgeav-gI=t}QJu0M_m_R0bACcdXsAm+^iN7Y)178y+Aft~XpD`L#
z#IxTSQcN-encim$*%{v-*yC7x^0z~4_pN>IzeV`<>&>@KG-Lb3z{tJNkYbV%$n>#V
z$XD#ipzUyCp!c^1y+<-8+C;;>_t*+?w8g|UEJKF;a^{nFXO_P~Jd4wVljM7A%g?9E
zlaaj$Yz_PVmiheg+@s`TGA8f;U2(O<I$3|7Fqb;PCK`N=<9P{hi%FIRlVR7Vb<*!7
zoF|+x@w>xZ+xb^2#C(d0X;_8~d7sJbR(2fQQSw%6*~-pQ9HL)t4m0<Mc?&VBV>R<D
UnzwK)f%0Aiia-%40)Ghn1hD6djsO4v

literal 0
HcmV?d00001

diff --git a/data/gfx/tilemap01.bmp b/data/gfx/tilemap01.bmp
deleted file mode 100644
index 0ee909e12f3a977968f1c65eded4036194b1dbaf..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 49208
zcmeI$+fN*I90l;zCllX%@=x%^M@_X#Ds6#6xkG_+TVM<9E|&#%xt6y7iT{JedaH^t
zDYRIDVoNZoG132{9{APqgabS9w25=busM5nUiLHJ`OVB$H(ppz9sPZX*Z1&$@Ady1
zsdtf5sW;bCsdwHE|3?L0{{GxsB?Vrc=MM+#JiEX0{^hysV;>gqJg|ml`=|*w_F)ap
z_E8gV?86$G?V~2#*oQSV+eb~fu@7r#wvU={V;|PgY#%k@#y+f}**<E*jeS@{vwhTr
zn*{pcD|@S;0FPg6PT+jTn(z+xVGYgpQ4?<L!y20HqbA(ghcz_YM@_h~4{K<)kD72}
zAJ))pA2s2|KCGeHK5D{^eON=Yebj^-`>=*)`=|*w_F)ap_E8gV66k}k?5%<VJbtk`
zf%6$_!aLZ9H8k5tO}McSYiPEQns8$u*3fJpHQ~lStfARHYQl|uSVOaY)Px)Ru!d&)
zs0larVGYgpQ4?<L!y20HqbA(ghcz_YM@_g%pbx&Xw+agI_{HV~&S$I%?_eL+&}<(y
z;l@6!q1ira!i{}cL$iI<gd6*?hGzSy2{-m(4bApZ6K?Fo8k+5+CfwMEH8k5tO}McS
zYiPEQns8$u*3fJpHQ^?KKKRPsDk#9?7n>6}pRp#qgMC;-vwhTr8~d<^X8WiKH}+u-
z&Gu0fZtTMvn(d<|+}MXTG}}i_xUmmwXts}<aAP0V&}<(y;l@6!q1ira!i{}cL$iI<
zgqsBV;46Eppa73wY);^O#+vXB_F)ap_E8gV?86$G?V~2#*oQSV+eb~fu@7r#wvU={
zV;|PgY#%k@#y+f}**<E*jeS@{vwhTr8~d<^X8WiKH}+u-&Gu0fZW8E&uk5XY0z7`P
zIf3&TYr;F&hcz_YM@_h~4{K<)kD72}AJ))pA2s2|KCGeHK5D{^eON=Yebj^-`>=*)
z`=|*w_F)ap_E8gV?86$G?V~2#*oQSV+eb~fNuba6qc8q?xf8at<i75fu#JuMP31Gu
z+YknN+q0vCbyqG{SAEb>TZOXf{kP7w;SeNh+uQo)ME@7RK8*So+uuhy0#EmK4)x!N
z-i9!h%M=T_+RGnzcU%w6x$v<wpAND4e{jC+Y^+7LJpTu~KSe$J&(BR}Zw>VKv`*$m
zrt`Os`J>5?4`Keh+8gYDmigJ;TzmfXJIF`d-jlC)Htt7n5&k^b!fv4%9quj8<V!Po
z90)8yx0i4{hBN7IoD1px&dKZuPJxb=x|=te;6HG)&GTR8DB%2k_V__G=MX+I^Encx
zx-c<%XQhO*psAs{t*NFoJF&W4ytlfDZ6Z5-z3$S)`0(<=%-!1y_Al>$n)zvc@XrkO
zz;>{=9d8@2UBcCNu8><@F5O-#)?U8Y(Nc>G@$f)bUw5nh%ll)giDsVXoc*yPMf(JQ
zEG&0d=CRs@xA4b`lph<y{I@sP)>MBKdc4}dy#My2`_G>~gf_O_%`bo7`#EHOMTtWY
zng|x_4=%xYd!wzszUEWhc4FEw|BI#RtDjxKB_Ql+|2Y4X*L-M4GtYTsup6*g`R}aE
z4-XvPe>OK<9=O>)a(D^uT!nves<XAOxuM$rW#q$0xc;*3S@Ke;fC-<Q&aN!Z0vyPh
zbkD-vB(Ang^99@#m1gtUVX-(}m>k7n^8A-M3dj8a*xx*H=J~kbZl|^JYJMz@^#_;W
z`NKP((sVw9D*~GNxd{YpgS{QNP4)dx8GL*c{10~5_qTt*#dmM(^&$^&-gY+EaA-o)
z)7e;GQ-voiAY--9jSgbSaTee$P60gp;{G$NJb1+k;`uLg2#(D^oMY!d*y4iQ-_wTG
z2A2ce`Q*mZ=pm1bLRgfdLty{2`@ej#aiafkzkD0@|N2)!es(&GbsqRQ7U+?W9>Esy
z2yFi{?9oS<|NWgGBiqx~|AS}${T38p>#lq<p6SQ5r~5k4^ma94!~Ekx81uhSoWcWg
z*wgbLX={K#7Joc~;pd&*#}9D-&&&Saldqx%KU0K{f-3I$r*b26g)H9UcV^u1W5ds$
Zc=AH%Y`u2$@O$`6wf&VnYT%zr{R6g{a5De^

diff --git a/data/gfx/tileset01.bmp b/data/gfx/tileset01.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..99f8196e4fd150e1b682a7b636027ecd3ba26548
GIT binary patch
literal 32824
zcmeI0F^<|m7=<0Q1t?9Fj+I<cSjr$#xNsCB(WGRR3xtA#A_W{_rQHL-J+?7NfuneD
zu$kY(C<txd7TYZL#|YbltM~rze>20+Uq2p`=JVZOzxnUu>H8`9;-8YF_n0JKKZkGg
zgTLJOx;<VV)VS}dw=WO8#~<YYd?<J5ANYU|<p6vrcgPR;fDh#Wd?<Iw5BTUhAKgCv
z!++QLN567_{!s3)e}E78P!7O{a)<nY5BN|Hz=v{&{D6=5^1=CEIS60M9r6c0;6ph8
zAIcr_13utGIRGEZ9r6P{;6ph8AIcr_qwA-C`h)&Z4#0<Uhx~*O_)reOhjNGffDiak
z4#0<Uhx~vK_)reK%}3Y&0Z{IdFK_dMf64*;Q|{1T@Btsn0r*hvkRR{?AIbsvQ0|Z)
z@X>WXIR7gG=nv%%`3WEJp&Wn@<qr7)AMl|ZfDh#k`2ipBp&Wn@<qrAL_0vE7L4PO*
z;6u4Xe!>TQC<ov}xkG-y2Ye_8;6u4Xe!vHOC<or=W4O5gW8;7KwX?CCRC#zh&GSLp
zAG*=nJ>BT>(f?tXUg)1LgCFr8^lsdy@gdBr{7?+iyUb=<{nL%A&PT|v%eqJ1@qQ?F
zleMez^ZMJYJ^H81;UbLb>29-y?+6>)$)T{Zo782MZzo2A>7QrqsQ>K+|Cc-%<NLfW
z*UpW`*`cV*=h^eD%H62Sk7Zr9jsMs5Z+-2p|J|rRGzaQ(kj{PgZ+vI8Re#LIka)(v
zJ(>P0f1b^=K^op%zy8?&i&g0Oa9ylI8l3B&XD;1&AL{a0^cw=&TmRSxThF*DHvY$c
zy|)B3{qxLb?bm<wTKB%^O~0)LeqP#oaP(vES-5`w!+vM6dVL=__I0j&{?}f0NCA7Y
z%5R+ga{c<JOG|+BwLd0+-S09tvaG91>wFtl|F|34w5I;C-!Jc`*m?bj!ss{MM#I0|
z@b%aKb^hc2x6wb^PWHavL)DLk-vOQ0!|U(=sPnS_f1l1lrhkyy?l;!lPCwTBmVRx}
kf4=J5b4-HUX8&&*=b344_J3(V9r$6ZzwQ36Uw@MP1<IMdaR2}S

literal 0
HcmV?d00001

diff --git a/data/gfx/tilemap01.psd b/data/gfx/tileset01.psd
similarity index 100%
rename from data/gfx/tilemap01.psd
rename to data/gfx/tileset01.psd
diff --git a/src/Functions.pbi b/src/Functions.pbi
index ac27194..ecff12c 100644
--- a/src/Functions.pbi
+++ b/src/Functions.pbi
@@ -1 +1 @@
-; This file holds all the functions If it gets too big,
; we can split it in categories

; *****************************************************************************
; * Tileset

Procedure InitTileset()
  LoadImage
EndProcedure

; *****************************************************************************


; *****************************************************************************
; * Menu

Procedure Menu_GotoCurrent()
  If *ActiveMenu\Entries()\Selected <> #True
    FirstElement(*ActiveMenu\Entries());
    
    ForEach *ActiveMenu\Entries()
      If *ActiveMenu\Entries()\Selected = #True
        Break
      EndIf
    Next
  EndIf
EndProcedure

; *****************************************************************************
\ No newline at end of file
+; This file holds all the functions If it gets too big,
; we can split it in categories

; *****************************************************************************
; * Tileset

Procedure InitTileset()
	CatchSprite(#Tile01, ?Gfx_Tileset)
	;ClipSprite(0, 0, 0, 16, 16)
	
	; test the sprite
	;DisplaySprite(0, 20, 20)
EndProcedure

; *****************************************************************************


; *****************************************************************************
; * Menu

Procedure Menu_GotoCurrent()
  If *ActiveMenu\Entries()\Selected <> #True
    FirstElement(*ActiveMenu\Entries());
    
    ForEach *ActiveMenu\Entries()
      If *ActiveMenu\Entries()\Selected = #True
        Break
      EndIf
    Next
  EndIf
EndProcedure

; *****************************************************************************
\ No newline at end of file
diff --git a/src/Globals.pbi b/src/Globals.pbi
index 3392bfe..247bda4 100644
--- a/src/Globals.pbi
+++ b/src/Globals.pbi
@@ -12,4 +12,14 @@ Global *ActiveMenu.GameMenu
 
 ; Fonts
 Global Font_H1 = LoadFont(1, "Courier", 40, #PB_Font_Bold)
-Global Font_H2 = LoadFont(2, "Verdana", 18)
\ No newline at end of file
+Global Font_H2 = LoadFont(2, "Verdana", 18)
+
+; Graphics
+Enumeration 500
+	#Tile01
+	#Tile02
+	#Tile03
+	#Tile04
+	#Tile05
+	#Tile06
+EndEnumeration
\ No newline at end of file
diff --git a/src/Main.pb b/src/Main.pb
index f1fed6a..875f1bc 100644
--- a/src/Main.pb
+++ b/src/Main.pb
@@ -47,8 +47,6 @@ If ReadFile(0, "../data/menu.data")
   CloseFile(0)
 EndIf
 
-InitTileset()
-
 Menus("MAIN_MENU")\Title = "ESCape"
 
 Define Item.GameMenuItem
@@ -73,6 +71,8 @@ If InitSprite() = 0 Or InitKeyboard() = 0
   End
 EndIf
 
+InitTileset()
+
 ; Start the main loop which will create the window, wait for events and draw things
 ; on the screen. To escape from this loop, press ESC or close the window.
 If OpenWindow(0, 0, 0, Screen\Width, Screen\Height, title, #PB_Window_ScreenCentered)
@@ -112,4 +112,8 @@ If OpenWindow(0, 0, 0, Screen\Width, Screen\Height, title, #PB_Window_ScreenCent
   Until KeyboardPushed(#PB_Key_Escape)
 EndIf
 
-End
\ No newline at end of file
+End
+
+DataSection
+	Gfx_Tileset:
+		IncludeBinary "../data/gfx/tileset01.bmp"
\ No newline at end of file