fc-magnetite: src/ui3/bmi/mmiGame.c annotate

annotate src/ui3/bmi/mmiGame.c @ 613:6f0874b00973

LICENSE: current status

author	Mychaela Falconia <falcon@freecalypso.org>
date	Fri, 21 Jun 2019 23:08:01 +0000
parents	6a4d9f47793e
children

rev	line source
420 e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 CONDAT (UK)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 ********************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 This software product is the property of Condat (UK) Ltd and may not be
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 disclosed to any third party without the express permission of the owner.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 ********************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 $Project name: Basic MMI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 $Project code: BMI (6349)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 $Module: Game
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 $File: Mmigame.c
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 $Revision: 1.0
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 $Author: Condat(UK)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 $Date: 03/07/01
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 ********************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 Description
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 Aug 16, 2004 REF: CRR 24323 Deepa M.D
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 Bug:Clenup of sprintf used for tracing
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 Fix:Replace the char buf[]; sprintf (buf, "...", ...); TRACE_EVENT (buf); statements by TRACE_EVENT_PX
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 This provides the main game (four in a row) functionality
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 ********************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 Include files
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 #define ENTITY_MFW
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 /* includes */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #include <string.h>
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 #include <stdio.h>
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #include <stdlib.h>
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 #if defined (NEW_FRAME)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 #include "typedefs.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50 #include "vsi.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 #include "pei.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 #include "custom.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 #include "gsm.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 #include "STDDEFS.H"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 #include "custom.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 #include "gsm.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 #include "vsi.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 #include "mfw_sys.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 #include "cus_aci.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 #include "mfw_mfw.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 #include "mfw_win.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 #include "mfw_kbd.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 /* SPR#1428 - SH - New Editor changes */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 #ifndef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 #include "mfw_edt.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 #include "mfw_lng.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 #include "mfw_tim.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 #include "mfw_icn.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 #include "mfw_mnu.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 #include "mfw_phb.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 #include "mfw_cm.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 #include "mfw_sim.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 #include "mfw_nm.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 #include "mfw_sat.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 #include "mfw_ss.h" /for convert/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 #include "mfw_phb.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 #include "ksd.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 #include "psa.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 #include "mfw_sms.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 #include "mfw_cphs.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 #include "mfw_sat.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 #include "Mfw_band.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 #include "mfw_ffs.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 #include "Mmigame.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 #include "dspl.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 #include "MmiMmi.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 #include "MmiDialogs.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 #include "MmiLists.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 #include "MmiBand.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 #include "MmiCPHS.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 /* SPR#1428 - SH - New Editor changes */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 #include "ATBCommon.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 #include "ATBDisplay.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 #include "ATBEditor.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 #include "AUIEditor.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 #include "MmiEditor.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 #include"MmiBookShared.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 #include "font_bitmaps.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 #include "mmiColours.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 #include "MmiResources.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 #include "Mmigame.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 //GW 14/09/01 Disable game when not required.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 #ifdef MMIGAME
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 void dspl_show_bitmap(int x,int y,t_font_bitmap* current_bitmap,U32 attr );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 internal data
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 #define FOUR_IN_A_ROW_INIT 121
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 #define MAX_X_BOARD 11
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 #define MAX_Y_BOARD 8
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 * The information related to every window must be encapsulated in such an structure
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 typedef struct
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 T_MMI_CONTROL mmi_control; // common control parameter
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 T_MFW_HND win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 T_MFW_HND kbd;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 T_MFW_HND menu;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 T_MFW_HND parent_win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 T_MFW_HND info_win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 char board_array[MAX_Y_BOARD][MAX_X_BOARD]; //the virtual board
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 } T_four_in_a_row;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 typedef struct
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 /* administrative data */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 T_MMI_CONTROL mmi_control;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 T_MFW_HND win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 T_MFW_HND parent_win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 /* SPR#1428 - SH - New editor data */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 T_AUI_EDITOR_DATA editor_data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 #else /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 T_EDITOR_DATA editor_data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 #endif /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 /* internal data */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 char buffer[80];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 UBYTE status;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 } tShowInfo;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 * These are common functions xxx_create and xxx_destroy
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 T_MFW_HND four_in_a_row_create(MfwHnd parent);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 void four_in_a_row_destroy (T_MFW_HND);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 * This dialog function (the same name as the window)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 * is used to handle the comunication between different windows. The global macro SEND_EVENT can be used with parameter win
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 * and the corresponding events to send from one mmi dialog to another.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 void four_in_a_row (T_MFW_HND win, USHORT event, SHORT value, void * parameter);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 * These are common optional functions handler
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 int four_in_a_row_kbd_cb (MfwEvt e, MfwKbd *k);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 int four_in_a_row_win_cb (MfwEvt e, MfwWin *w);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 int Game_Result;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 * This an optional function, used often to call, create and init a new dialog, with different parameters depending
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 * on the context
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 T_MFW_HND four_in_a_row_start (T_MFW_HND win_parent,char *character);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 int four_in_a_row_aktivate(MfwMnu* m, MfwMnuItem* i);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 int check_column(T_four_in_a_row *data, int where_from);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 void drop_stone(T_four_in_a_row *data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 int mobile_thinking(T_four_in_a_row *data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 int check_line(T_four_in_a_row *data, int x_value, int drop_position, int dx, int dy, BOOL where_from);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 void check_for_winner(T_four_in_a_row *data, int check_out_position);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 int random_scoring(void); // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 T_MFW_HND Game_Info(T_MFW_HND parent_window);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 static T_MFW_HND ShowGame_Information(MfwHnd parent_window);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 static void ShowGame_DialogCB(T_MFW_HND win, USHORT e, SHORT identifier, void *parameter);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 void ShowGameInfoEditor(T_MFW_HND win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 static void ShowInfoCB( T_MFW_HND win, USHORT Identifier,UBYTE reason);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 void showGameInfo_destroy(MfwHnd own_window);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 const char * info = "Welcome to Connect 4!";
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 const char * playAgain = "Play Again?";
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 //internal datas
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 int column; //this is the current position of white player cursor
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 int x_runer; //goes through the horizontal lines
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 int y_runer; //goes through the vertical lines
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 char winner; //describes the winner 0->nobody 'B'->black(mobile) 'W'->white(human player)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 int column_black; //this is the current position of black player cursor
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 int request_stone; //helps to decide between black or white (for strategical things)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 #ifndef BMP_FORMAT_BW_UNPACKED
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 #define BMP_FORMAT_BW_UNPACKED 1
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 t_font_bitmap plWin1 ={ 0, BMP_FORMAT_BW_UNPACKED, 21, 24, 0, (char*)player_win1};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 t_font_bitmap plWin2 ={ 0, BMP_FORMAT_BW_UNPACKED, 21, 24, 0, (char*)player_win2};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 t_font_bitmap plLost1 ={ 0, BMP_FORMAT_BW_UNPACKED, 21, 24, 0, (char*)player_lost1};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 t_font_bitmap plLost2 ={ 0, BMP_FORMAT_BW_UNPACKED, 21, 24, 0, (char*)player_lost2};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 t_font_bitmap draw1 ={ 0, BMP_FORMAT_BW_UNPACKED, 21, 24, 0, (char*)board_full1};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 t_font_bitmap draw2 ={ 0, BMP_FORMAT_BW_UNPACKED, 21, 24, 0, (char*)board_full2};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 t_font_bitmap gameName1 ={ 0, BMP_FORMAT_BW_UNPACKED, 18, 24, 0, (char*)game_name1};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 t_font_bitmap gameName2 ={ 0, BMP_FORMAT_BW_UNPACKED, 24, 24, 0, (char*)game_name2};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 #ifdef COLOURDISPLAY
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 char colBmp[256*4];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 t_font_bitmap allCol ={ 0, BMP_FORMAT_256_COLOUR, 32, 32, 0, colBmp };
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 t_font_bitmap stone_colour ={ 0, BMP_FORMAT_BW_UNPACKED, 8, 8, 0, (char*)black_stone_bw};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 t_font_bitmap gameCursor = { 0, BMP_FORMAT_BW_UNPACKED, 8, 8, 0, (char*)game_cursor};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 #ifdef LSCREEN
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 t_font_bitmap blackStone_bw ={ 0, BMP_FORMAT_BW_UNPACKED, 8, 8, 0, (char*)black_stone_bw};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 t_font_bitmap whiteStone_bw ={ 0, BMP_FORMAT_BW_UNPACKED, 8, 8, 0, (char*)white_stone_bw};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 t_font_bitmap gameCursor = { 0, BMP_FORMAT_BW_UNPACKED, 8, 8, 0, (char*)game_cursor};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 t_font_bitmap blackStone_bw ={ 0, BMP_FORMAT_BW_UNPACKED, 4, 4, 0, (char*)black_stone_bw};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 t_font_bitmap whiteStone_bw ={ 0, BMP_FORMAT_BW_UNPACKED, 4, 4, 0, (char*)white_stone_bw};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 t_font_bitmap gameCursor = { 0, BMP_FORMAT_BW_UNPACKED, 6, 6, 0, (char*)game_cursor};
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 t_font_bitmap blackStone, whiteStone;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 $Function: four_in_a_row_create
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 $Description:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 $Returns:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 $Arguments:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 T_MFW_HND four_in_a_row_create (T_MFW_HND parent_window)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 T_MFW_WIN * win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 * This window is dynamic, for that reason the associated data are allocated in the mfw heap
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 T_four_in_a_row * data = (T_four_in_a_row *)ALLOC_MEMORY (sizeof (T_four_in_a_row));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 TRACE_FUNCTION ("four_in_a_row_create()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 * Create window handler
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 data->win = win_create (parent_window, 0, E_WIN_VISIBLE, (T_MFW_CB)four_in_a_row_win_cb);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 if (data->win EQ 0)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 return 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 * These assignments are necessary to attach the data to the window, and to handle the mmi event communication.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 data->mmi_control.dialog = (T_DIALOG_FUNC)four_in_a_row;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 data->mmi_control.data = data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 data->parent_win = parent_window;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 win = ((T_MFW_HDR *)data->win)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 win->user = (void *) data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 * Create any other handler
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 data->kbd = kbd_create (data->win,KEY_ALL,(T_MFW_CB)four_in_a_row_kbd_cb);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 column=0; //set start value for game cursor
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 winner ='0'; //game starts, so set winner to nobody
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 /clear the board/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 for (y_runer=0;y_runer<MAX_Y_BOARD;y_runer++){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 for(x_runer=0;x_runer<MAX_X_BOARD;x_runer++){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 data->board_array[y_runer][x_runer] ='0';
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 winShow(data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 return data->win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 $Function: four_in_a_rowr_destroy
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 $Description:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 $Returns:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 $Arguments:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 void four_in_a_row_destroy (T_MFW_HND own_window)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 T_MFW_WIN * win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 T_four_in_a_row * data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 TRACE_EVENT("four_in_a_row_destroy");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 if (own_window)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 win = ((T_MFW_HDR *)own_window)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 data = (T_four_in_a_row *)win->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 if (data)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 * Exit Keyboard Handler
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 * Delete WIN Handler
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 win_delete (data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362 * In this case the data attached to window must be also deleted.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 FREE_MEMORY ((void *)data, sizeof (T_four_in_a_row));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 column=0; //set the current column back to 0
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 $Function: four_in_a_row_start
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 $Description: This function just creates and inits the new dialog
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 $Returns:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 $Arguments:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 T_MFW_HND four_in_a_row_start (T_MFW_HND win_parent,char *character)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 T_MFW_HND win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 MmiTetrisStart();
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 win = four_in_a_row_create (win_parent);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 TRACE_EVENT("four_in_a_row_start");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 if (win NEQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 SEND_EVENT(win,FOUR_IN_A_ROW_INIT,0,character);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 return win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 $Function: four_in_a_row
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 $Description:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 $Returns:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 $Arguments:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 void four_in_a_row (T_MFW_HND win, USHORT event, SHORT value, void * parameter)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 T_MFW_WIN * win_data = ((T_MFW_HDR *) win)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 T_four_in_a_row * data = (T_four_in_a_row *)win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 TRACE_FUNCTION ("four_in_a_row()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 * In this case the communication is very simple (only one intern event)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 switch (event)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 case FOUR_IN_A_ROW_INIT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 softKeys_displayId(TxtSearchName,TxtNull,0,COLOUR_IDLE);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 winShow(data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 $Function: four_in_a_row_win_cb
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 $Description: win calback function of four in a row
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 $Returns:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 $Arguments:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 int four_in_a_row_win_cb (MfwEvt e, MfwWin *w)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 // T_DISPLAY_DATA display_info; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 T_four_in_a_row * data = (T_four_in_a_row *)w->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 int xOfs,yOfs, xScale, yScale;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 int manOfsX,manOfsY;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 int xPos,yPos;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 int y_axis; //goes through the vertical lines
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 int x_axis; //goes through the horizontal lines
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 // int x,y,i,b; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 int displayPosX, temp;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 TRACE_FUNCTION ("four_in_a_row_win_cb()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 switch (e)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 case MfwWinVisible:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 #ifdef COLOURDISPLAY
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 whiteStone = &stone_colour;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 blackStone = &stone_colour;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 whiteStone = &blackStone_bw;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 blackStone = &whiteStone_bw;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 #ifdef LSCREEN
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 manOfsX = GAME_POS_X + 3;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 manOfsY = GAME_POS_Y + 3;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 manOfsX = GAME_POS_X + 1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 manOfsY = GAME_POS_Y + 1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 xOfs = GAME_POS_X;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 yOfs = GAME_POS_Y;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 xScale = GAME_SCALE_X;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 yScale = GAME_SCALE_Y;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 //dspl_ClearAll(); //Clears to white, not BGD!
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 TRACE_EVENT("display clear");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 resources_setColour( COLOUR_GAME );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 dspl_Clear( 0,0, SCREEN_SIZE_X,SCREEN_SIZE_Y);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 #ifdef LSCREEN
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 softKeys_displayId(TxtHelp,TxtExit,0,COLOUR_LIST_SUBMENU);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 resources_setColour( COLOUR_GAME );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 dspl_Clear( xOfs, yOfs, xOfs+MAX_X_BOARDxScale, yOfs+MAX_Y_BOARDyScale ); //Clears to white, not BGD!
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 //dspl_BitBlt(columnxScale+xOfs+1,yOfs-yScale,8,8,0,(void)game_cursor,0); //place the cursor bitmap
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 dspl_show_bitmap(column*xScale+xOfs+1,yOfs-yScale, &gameCursor, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502 for (y_axis=0;y_axis<=MAX_Y_BOARD;y_axis++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504 dspl_DrawLine( xOfs, yOfs+y_axis*yScale,
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 xOfs+MAX_X_BOARDxScale, yOfs+y_axisyScale);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 for(x_axis=0;x_axis<=MAX_X_BOARD;x_axis++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 dspl_DrawLine( xOfs+x_axis*xScale, yOfs,
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 xOfs+x_axisxScale, yOfs+MAX_Y_BOARDyScale);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 //go through the board-array and check for W or B and set the stones
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 for (y_axis=0;y_axis<MAX_Y_BOARD;y_axis++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 for(x_axis=0;x_axis<MAX_X_BOARD;x_axis++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518 xPos = manOfsX+x_axis*xScale;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 yPos = manOfsY+y_axis*yScale;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520 if(data->board_array[y_axis][x_axis] EQ 'W'){ //found white
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 //set white_stone bitmap
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 dspl_SetFgdColour( COL_R );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 dspl_show_bitmap(xPos,yPos, whiteStone, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525 if(data->board_array[y_axis][x_axis] EQ 'B'){ //found black
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 //set black_stone bitmap
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 dspl_SetFgdColour( COL_G ); //0x00404040
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 dspl_show_bitmap(xPos,yPos, blackStone, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532 dspl_SetFgdColour( COL_RB );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 dspl_SetBgdColour( COL_RG );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534 dspl_show_bitmap(GAME_NAMEPOSX1, GAME_NAMEPOSY1, &gameName1, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 displayPosX = (SCREEN_SIZE_X/2);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 temp = strlen((char*)playAgain);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537 //this if-clause is to set the bitmap, for win or lost game
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 if(winner EQ 'W'){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 //human player wins, so set win bitmap
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 #ifdef LSCREEN
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 dspl_SetFgdColour( COL_BLK );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 dspl_SetBgdColour( COL_TRANSPARENT );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 Game_Result = TRUE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 softKeys_displayId(TxtYes,TxtNo,0,COLOUR_LIST_SUBMENU);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 dspl_TextOut((displayPosX-((tempCHAR_WIDTH)/2)),170,DSPL_TXTATTR_NORMAL,(char)playAgain);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 dspl_SetFgdColour( COL_RB );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548 dspl_SetBgdColour( COL_GB );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549 dspl_show_bitmap(GAME_WINPOSX1, GAME_WINPOSY1, &plWin1, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 dspl_show_bitmap(GAME_WINPOSX2, GAME_WINPOSY2, &plWin2, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 if(winner EQ 'B'){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 //human player lost, so set lost bitmap
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 #ifdef LSCREEN
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556 dspl_SetFgdColour( COL_BLK );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 dspl_SetBgdColour( COL_TRANSPARENT );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 Game_Result = TRUE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559 softKeys_displayId(TxtYes,TxtNo,0,COLOUR_LIST_SUBMENU);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 dspl_TextOut((displayPosX-((tempCHAR_WIDTH)/2)),170,DSPL_TXTATTR_NORMAL,(char)playAgain);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 dspl_SetFgdColour( COL_RB );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 dspl_SetBgdColour( COL_GB );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 dspl_show_bitmap(GAME_WINPOSX1, GAME_WINPOSY1, &plLost1, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 dspl_show_bitmap(GAME_WINPOSX2, GAME_WINPOSY2, &plLost2, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568 if(winner EQ 'N'){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 //board is full, nobody (N) wins
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 #ifdef LSCREEN
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571 dspl_SetFgdColour( COL_BLK );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 dspl_SetBgdColour( COL_TRANSPARENT );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 Game_Result = TRUE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 softKeys_displayId(TxtYes,TxtNo,0,COLOUR_LIST_SUBMENU);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 dspl_TextOut((displayPosX-((tempCHAR_WIDTH)/2)),170,DSPL_TXTATTR_NORMAL,(char)playAgain);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 dspl_SetFgdColour( COL_R );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 dspl_SetBgdColour( COL_G );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580 dspl_show_bitmap(GAME_WINPOSX1, GAME_WINPOSY1, &draw1, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 dspl_show_bitmap(GAME_WINPOSX2, GAME_WINPOSY2, &draw2, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585 dspl_SetFgdColour( COL_RB );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586 dspl_SetBgdColour( COL_RG );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 dspl_show_bitmap(GAME_NAMEPOSX1, GAME_NAMEPOSY1, &gameName1, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 dspl_show_bitmap(GAME_NAMEPOSX2, GAME_NAMEPOSY2, &gameName2, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 dspl_show_bitmap(GAME_NAMEPOSX3, GAME_NAMEPOSY3, &gameName2, 0 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594 return 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 return 1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 $Function: four_in_a_row_kbd_cb
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 $Description:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 $Returns:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 $Arguments:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 int four_in_a_row_kbd_cb (MfwEvt e, MfwKbd *k)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615 T_MFW_HND win = mfw_parent (mfw_header());
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 T_MFW_WIN * win_data = ((T_MFW_HDR *)win)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 T_four_in_a_row * data = (T_four_in_a_row *)win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 TRACE_EVENT ("four_in_a_row_kbd_cb()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621 switch (k->code)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 case KCD_HUP: //quit the game "four in a row"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624 case KCD_RIGHT: //quit the game "four in a row"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 TRACE_EVENT ("quit four_in_a_row");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626 dspl_ClearAll(); //clear mobile screen
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 four_in_a_row_destroy (win); //destroy win-handler
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 case KCD_MNULEFT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 case KCD_1:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 if(winner EQ '0'){ //while nobody has won....
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 TRACE_EVENT ("KCD_1");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634 if(column > 0)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635 { //cursor must be greater than 0
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 column=column-1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 winShow(data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 case KCD_MNUSELECT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 case KCD_2:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 if(winner EQ '0'){ //while nobody has won....
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 TRACE_EVENT ("KCD_2");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645 drop_stone(data); //drop stone
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647 winShow(data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649 case KCD_MNURIGHT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650 case KCD_3:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651 if(winner EQ '0'){ //while nobody has won....
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 TRACE_EVENT ("KCD_3");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 if(column<MAX_X_BOARD-1 ){ //cursor must be less than 50
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 column=column+1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656 winShow(data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 case KCD_LEFT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 if(Game_Result == TRUE)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662 Game_Result = FALSE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663 four_in_a_row_destroy(win); //destroy win-handler
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664 four_in_a_row_start(win,0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 Game_Info(win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670 return MFW_EVENT_CONSUMED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675 $Function: four_in_a_row_aktivate
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677 $Description: Starts the game function on user selection
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679 $Returns: MFW_EVENT_CONSUMED if event handled, otherwise
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680 MFW_EVENT_PASSED
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682 $Arguments: menu, menu item
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685 int four_in_a_row_aktivate(MfwMnu* m, MfwMnuItem* i)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	688 T_MFW_HND parent = mfwParent( mfw_header());
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	689 TRACE_EVENT("four_in_a_row_aktivate()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	690 four_in_a_row_start(parent,0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	691 return MFW_EVENT_CONSUMED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	692 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	693
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	694 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	695
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	696 $Function: drop_stone
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	697
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	698 $Description: decide whether a stone can be droped and where it can be droped
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	699
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	700 $Returns:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	701
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	702 $Arguments: T_four_in_a_row
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	703
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	704 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	705 void drop_stone(T_four_in_a_row *data)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	706 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	707 int drop_position; //position (y in current board column) where to drop the stone
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	708
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	709 TRACE_EVENT("drop_stone()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	710 request_stone=0; //white is on turn
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	711 drop_position=check_column(data,request_stone); //set the drop position for the white stone in the current white, board column
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	712 if(drop_position>=0){ //if the current column is not filled up set stone
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	713 data->board_array[drop_position][column]='W'; //white is first and set a 'W' in the virtual board for a white stone
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	714 check_for_winner(data,drop_position); //check whether the last move(white) was a win-move...
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	715 if(winner EQ '0'){ //...if not, then the mobile(black) is on turn
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	716 drop_position=mobile_thinking(data); //set the drop position for the black stone in the current black, board column
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	717 data->board_array[drop_position][column_black]='B'; //set a 'B' for in the virtual board for a black stone
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	718 check_for_winner(data,drop_position); //check whether the last move(black) was a win-move...
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	719 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	720 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	721 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	722
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	723 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	724
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	725 $Function: check_for_winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	726
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	727 $Description: checks the current drop position for a win-position
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	728
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	729 $Returns:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	730
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	731 $Arguments: T_four_in_a_row
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	732
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	733 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	734 void check_for_winner(T_four_in_a_row *data, int check_out_position)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	735 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	736 int check_with_this_color; //set the color to check for
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	737 int color_regulator; //helps to switch between both colors
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	738 int check_this_column; //declares the column to check for
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	739
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	740 TRACE_EVENT("check_for_winner()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	741 if(data==NULL \|\| check_out_position<0 \|\| check_out_position>=MAX_Y_BOARD)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	742 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	743 TRACE_ERROR("check_for_winner() invalid parameters");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	744 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	745 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	746 color_regulator=0; //at first, use white to check for
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	747 winner='0'; //at first we don't know who wins, so nobody is set as winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	748 while(color_regulator<2){ //while checking for white(0) and black(1) is not ready....
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	749 if(color_regulator EQ 0){ //if color_regulator is 0, the board will be checked for white stones ('W')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	750 check_with_this_color='W';
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	751 }else{ //if color_regulator is 1, the board will be checked for black stones ('B')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	752 check_with_this_color='B';
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	753 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	754
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	755 if(request_stone EQ 0){ //if the board will be checked for white, use column as the current column
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	756 check_this_column=column;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	757 }else{ //if the board will be checked for black, use column_black as the current column
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	758 check_this_column=column_black;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	759 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	760 if(check_this_column<0 \|\| check_this_column>=MAX_X_BOARD)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	761 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	762 TRACE_ERROR("check_for_winner() invalid index check_this_column");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	763 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	764 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	765 /Begin with the checks, the mobile checks for vertical, horizontal and diagonal possibilities/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	766 //check row
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	767 if(check_this_column>=3 && check_this_column<=10 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	768 data->board_array[check_out_position][check_this_column-3] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	769 data->board_array[check_out_position][check_this_column-2] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	770 data->board_array[check_out_position][check_this_column-1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	771 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	772 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	773 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	774 }else if(check_this_column>=2 && check_this_column<=9 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	775 data->board_array[check_out_position][check_this_column-1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	776 data->board_array[check_out_position][check_this_column-2] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	777 data->board_array[check_out_position][check_this_column+1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	778 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	779 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	780 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	781 }else if(check_this_column>=0 && check_this_column<=7 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	782 data->board_array[check_out_position][check_this_column+1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	783 data->board_array[check_out_position][check_this_column+2] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	784 data->board_array[check_out_position][check_this_column+3] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	785 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	786 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	787 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	788 }else if(check_this_column>=1 && check_this_column<=8 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	789 data->board_array[check_out_position][check_this_column-1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	790 data->board_array[check_out_position][check_this_column+1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	791 data->board_array[check_out_position][check_this_column+2] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	792 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	793 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	794 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	795 //check column
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	796 }else if(check_out_position<=4 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	797 data->board_array[check_out_position+1][check_this_column] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	798 data->board_array[check_out_position+2][check_this_column] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	799 data->board_array[check_out_position+3][check_this_column] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	800 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	801 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	802 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	803 //check diagonal
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	804 }else if(check_out_position<=4 && check_this_column>=3 && check_this_column<=10 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	805 data->board_array[check_out_position+1][check_this_column-1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	806 data->board_array[check_out_position+2][check_this_column-2] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	807 data->board_array[check_out_position+3][check_this_column-3] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	808 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	809 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	810 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	811 }else if(check_out_position<=4 && check_this_column>=0 && check_this_column<=7 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	812 data->board_array[check_out_position+1][check_this_column+1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	813 data->board_array[check_out_position+2][check_this_column+2] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	814 data->board_array[check_out_position+3][check_this_column+3] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	815 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	816 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	817 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	818 }else if(check_out_position>=3 && check_this_column>=0 && check_this_column<=7 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	819 data->board_array[check_out_position-1][check_this_column+1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	820 data->board_array[check_out_position-2][check_this_column+2] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	821 data->board_array[check_out_position-3][check_this_column+3] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	822 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	823 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	824 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	825 }else if(check_out_position>=3 && check_this_column>=3 && check_this_column<=10 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	826 data->board_array[check_out_position-1][check_this_column-1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	827 data->board_array[check_out_position-2][check_this_column-2] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	828 data->board_array[check_out_position-3][check_this_column-3] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	829 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	830 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	831 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	832 }else if(check_out_position<=6 && check_out_position>=2 && check_this_column>=1 && check_this_column<=8 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	833 data->board_array[check_out_position+1][check_this_column-1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	834 data->board_array[check_out_position-1][check_this_column+1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	835 data->board_array[check_out_position-2][check_this_column+2] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	836 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	837 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	838 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	839 }else if(check_out_position<=5 && check_out_position>=1 && check_this_column>=2 && check_this_column<=9 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	840 data->board_array[check_out_position+1][check_this_column-1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	841 data->board_array[check_out_position+2][check_this_column-2] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	842 data->board_array[check_out_position-1][check_this_column+1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	843 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	844 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	845 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	846 }else if(check_out_position<=5 && check_out_position>=1 && check_this_column>=1 && check_this_column<=8 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	847 data->board_array[check_out_position-1][check_this_column-1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	848 data->board_array[check_out_position+1][check_this_column+1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	849 data->board_array[check_out_position+2][check_this_column+2] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	850 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	851 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	852 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	853 }else if(check_out_position>=2 && check_out_position<=6 && check_this_column>=2 && check_this_column<=9 &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	854 data->board_array[check_out_position-1][check_this_column-1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	855 data->board_array[check_out_position-2][check_this_column-2] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	856 data->board_array[check_out_position+1][check_this_column+1] EQ check_with_this_color &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	857 data->board_array[check_out_position][check_this_column] EQ check_with_this_color){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	858 winner=check_with_this_color; //set the current color to check for as the winner
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	859 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	860 }else{
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	861 winner='0'; //no win-moves found, so nobody is the winner and the game goes on
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	862 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	863 color_regulator++; //set the check color one up (to black)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	864 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	865 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	866 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	867
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	868 $Function: check_column
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	869
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	870 $Description: checks for already set stones
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	871
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	872 $Returns: int unused_position
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	873
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	874 $Arguments: T_four_in_a_row
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	875
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	876 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	877 int check_column(T_four_in_a_row *data, int where_from)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	878 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	879 int unused_position; //is for a free drop position
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	880 int column_for_check; //column (vertical board line) to check for
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	881
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	882 if(where_from EQ 0){ //is the current game color(player) 0 then use column
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	883 column_for_check=column;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	884 }else{ //is the current game color(player) 1 then use column_black
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	885 column_for_check=column_black;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	886 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	887 unused_position=-9999;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	888 for(y_runer=0;y_runer<MAX_Y_BOARD;y_runer++){ //test all vertical fields whether they are empty('0') or not
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	889 if(data->board_array[y_runer][column_for_check] EQ '0'){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	890 unused_position=y_runer; //.this field is empty, so it is a unused position
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	891 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	892 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	893 return unused_position; //return the unused position
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	894 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	895
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	896
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	897 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	898
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	899 $Function: mobile_thinking
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	900
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	901 $Description: mobile moves
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	902
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	903 $Returns: drop position of black stone (drop_me)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	904
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	905 $Arguments: T_four_in_a_row
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	906
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	907 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	908 int mobile_thinking(T_four_in_a_row *data)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	909 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	910 int position_score[11]; //this array takes the scoring values of each column in the game board
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	911 int drop_position; //drop position for stone
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	912 int drop_me; //buffer value
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	913 int scores[4]; //this array keeps the scores for row, column and diagonals
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	914 int add_random_score;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	915
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	916 TRACE_EVENT("mobile_thinking()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	917
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	918 request_stone=1; //black is
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	919 //check for good spots to drop the black stone
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	920 for(x_runer=0;x_runer<MAX_X_BOARD;x_runer++){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	921 //found the possible drop position
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	922 column_black=x_runer; //set the x_runer to the current column (column_black)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	923 drop_position=check_column(data,request_stone); //check for possible drop positions
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	924 if(drop_position>=0){ //if there is a possible drop position.....
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	925 //check the scoring of the current point
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	926 add_random_score=random_scoring();
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	927 data->board_array[drop_position][x_runer]='B'; //set a test black stone
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	928 scores[0]=check_line(data,x_runer,drop_position,1,0,0); //scores row
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	929 scores[1]=check_line(data,x_runer,drop_position,1,1,0); //scores diagonal right-up/left-down
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	930 scores[2]=check_line(data,x_runer,drop_position,1,-1,0); //scores diagonal left-up/right-down
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	931 scores[3]=check_line(data,x_runer,drop_position,0,1,0); //scores down(column)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	932 position_score[x_runer]=scores[0]+scores[1]+scores[2]+scores[3]; //count all scores together to one total score
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	933 if(drop_position-1 >=0){ //Is it possible to set a future stone here? If Yes go on...
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	934 data->board_array[drop_position-1][x_runer]='W'; //set a test white stone for a possible next opponent move
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	935 scores[0]=check_line(data,x_runer,drop_position-1,1,0,1); //scores row
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	936 scores[1]=check_line(data,x_runer,drop_position-1,1,1,1); //scores diagonal right-up/left-down
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	937 scores[2]=check_line(data,x_runer,drop_position-1,1,-1,1); //scores diagonal left-up/right-down
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	938 scores[3]=check_line(data,x_runer,drop_position-1,0,1,1); //scores down(column)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	939 position_score[x_runer]=position_score[x_runer]-scores[0]-scores[1]-scores[2]-scores[3]+add_random_score; //substraction of the future score from the normal score
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	940 data->board_array[drop_position-1][x_runer]='0'; //remove test white stone
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	941 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	942 data->board_array[drop_position][x_runer]='0'; //remove test black stone
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	943 }else{ //if there is no possible drop position set the score to -1
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	944 position_score[x_runer]=-9999;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	945 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	946 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	947
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	948 drop_me=-9999; //buffer is set to absolutely minus
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	949 column_black=-9999; //position of black cursor is left outer side of board
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	950 for(x_runer=0;x_runer<MAX_X_BOARD;x_runer++){ //goes through the scoring array to find the highest score
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	951 if(position_score[x_runer]>drop_me){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	952 drop_me=position_score[x_runer];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	953 column_black=x_runer; //set the x_runer to the current column(column_black)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	954 drop_position=check_column(data,request_stone); //this is the best drop position for the mobile
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	955 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	956 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	957 if(column_black EQ -9999){ //if the column is -1, then the game board is filled up and nobody has won
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	958 TRACE_EVENT("Board Full!!!");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	959 winner='N'; //set winner to nobody (N)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	960 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	961 return drop_position; //return the mobile drop position
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	962 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	963
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	964 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	965
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	966 $Function: check_line
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	967
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	968 $Description: set score points for the mobile, so the mobile knows where to set the next stone
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	969
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	970 $Returns: total_score
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	971
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	972 $Arguments: T_four_in_a_row, x_value, drop_position, dx, dy, where_from
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	973
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	974 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	975 int check_line(T_four_in_a_row *data, int x_value, int y_value, int dx, int dy, BOOL where_from)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	976 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	977 int lSc,nSc,oSc,total_score,sx,sy,i,j;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	978 int pl_nSc; //no of empty squares that have a man under them (i.e. we/opponent can use next shot)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	979 total_score=0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	980 for (i=0;i<4;i++){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	981 sx = x_value-i*dx;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	982 sy = y_value-i*dy;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	983 lSc=0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	984 nSc=0; pl_nSc=0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	985 oSc=0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	986 for (j=0;j<4;j++){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	987 if ((sx<0) \|\| (sx>=MAX_X_BOARD) \|\|(sy<0) \|\| (sy>=MAX_Y_BOARD)){ /a0393213 lint warnings removal - 'Possible access of out-of-bounds pointer'/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	988 lSc = -1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	989 }else if (lSc>=0){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	990 if(where_from EQ 0){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	991 if (data->board_array[sy][sx] EQ 'B'){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	992 lSc++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	993 }else if (data->board_array[sy][sx] EQ '0'){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	994 nSc++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	995 if ((sy EQ (MAX_Y_BOARD-1)) \|\| (data->board_array[sy+1][sx] NEQ '0')) /a0393213 lint warnings removal - 'Possible access of out-of-bounds pointer'/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	996 pl_nSc++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	997 }else if (data->board_array[sy][sx] EQ 'W'){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	998 oSc++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	999
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1000 }else //edge of board found
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1001 lSc=-1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1002 sx = sx+dx;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1003 sy = sy+dy;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1004 }else{
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1005 if (data->board_array[sy][sx] EQ 'W'){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1006 lSc++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1007 }else if (data->board_array[sy][sx] EQ '0'){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1008 nSc++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1009 if ((sy EQ (MAX_Y_BOARD-1)) \|\| (data->board_array[sy+1][sx] NEQ '0')) /a0393213 lint warnings removal - 'Possible access of out-of-bounds pointer'/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1010 pl_nSc++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1011 }else if (data->board_array[sy][sx] EQ 'B'){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1012 oSc++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1013
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1014 }else //edge of board found
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1015 lSc=-1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1016 sx = sx+dx;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1017 sy = sy+dy;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1018 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1019 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1020 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1021 if (lSc >= 0){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1022 if (lSc EQ 4){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1023 return(9999);//got 4 in a row.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1024 }else if (oSc EQ 3) //and ISc==1
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1025 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1026 // 3 opp men - good spot!
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1027 if(where_from EQ 0){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1028 total_score = total_score + 1000; //this is for the normal, current position score
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1029 }else{
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1030 total_score = -total_score - 1000; //this is for the possible future score, it must be minus, because it will be substracted from normal score
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1031 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1032 }else if ((lSc EQ 3) && (nSc EQ 1)){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1033 //playing here will form 3 in a row and a blank - good spot
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1034 if (pl_nSc EQ 0) //can't reach the 4th position
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1035 total_score = total_score + 75;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1036 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1037 total_score = total_score + 125;//better if we can reach 4th position
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1038 }else if ((oSc EQ 2) && (nSc EQ 1)){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1039 // 2 opp men + 1 blank- good spot!
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1040 if (pl_nSc EQ 0) //can't reach the 4th position-not too bad
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1041 total_score = total_score + 50;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1042 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1043 total_score = total_score + 200;//can get to both positions - have to block.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1044 }else if ((lSc EQ 2) && (nSc EQ 2)){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1045 // 2 in a row and 2 blanks - OK spot
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1046 if (pl_nSc EQ 0) //can't reach the 3rd or 4th position-not too good
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1047 total_score = total_score + 20;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1048 else if (pl_nSc EQ 1) //can reach one of the 3rd or 4th position - good
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1049 total_score = total_score + 45;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1050 else if (pl_nSc EQ 2) //can reach both 3rd and 4th position - very good
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1051 total_score = total_score + 95;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1052 }else if ((lSc EQ 1) && (nSc EQ 3)){
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1053 // 1 in a row and 3 blanks - OK spot, better if we can reach the other 3 points.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1054 total_score = total_score + 2*(pl_nSc+1); //pl_nSc=0,1,2 or 3 sc=sc+2,4,6 or 8
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1055 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1056 //else //line is neither good nor bad.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1057 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1058 else //line is not valid
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1059 total_score = total_score - 1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1060 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1061 return(total_score);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1062 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1063 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1064
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1065 $Function: check_line
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1066
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1067 $Description: generates a random number to add on the field scores
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1068
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1069 $Returns: random_score_result
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1070
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1071 $Arguments:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1072
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1073 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1074 int random_scoring(void)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1075 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1076 return(rand()%100);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1077 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1078
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1079
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1080
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1081 #define MAX_TET_X 11
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1082 #define MAX_TET_Y 20
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1083
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1084 typedef struct
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1085 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1086
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1087 T_MMI_CONTROL mmi_control; // common control parameter
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1088 T_MFW_HND win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1089 T_MFW_HND hKbd;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1090 T_MFW_HND menu;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1091 T_MFW_HND parent_win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1092 T_MFW_HND info_tim;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1093
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1094 int dropTime;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1095 int maxDropTime;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1096 int timeStep;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1097
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1098 int xPos;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1099 int yPos;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1100
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1101 int px;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1102 int py;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1103 int shapeId;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1104 char shapeStr[20];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1105 int rotateId;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1106
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1107 int score;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1108 int level;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1109 int linesToGo;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1110
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1111 int resetSpeed;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1112
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1113 int gameOver;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1114
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1115 char tetrisScreen[MAX_TET_X][MAX_TET_Y];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1116
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1117 } T_TETRIS;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1118
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1119
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1120 static MfwHnd TetrisCreate(MfwHnd hParentWin);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1121 static void TetrisExecCb (MfwHnd hWin, USHORT uiE, SHORT iValue, void *pParameter);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1122 static int TetrisKbdCb (MfwEvt uiE, MfwKbd *psK);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1123 static int tetris_tim_cb(MfwEvt e, MfwTim *t);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1124 static int TetrisWinCb (MfwEvt uiE, MfwWin *psWin);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1125
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1126
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1127 #define E_INIT 0x5000
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1128 #define E_EXIT 0x5001
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1129
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1130 void initTetGame(T_TETRIS *data)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1131 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1132 int x,y;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1133 for (y=0;y<MAX_TET_Y;y++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1134 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1135 for (x=0;x<MAX_TET_X;x++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1136 data->tetrisScreen[x][y]=' ';
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1137 data->tetrisScreen[0][y]='#';
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1138 data->tetrisScreen[MAX_TET_X-1][y]='#';
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1139
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1140 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1141 for (x=0;x<MAX_TET_X;x++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1142 data->tetrisScreen[x][MAX_TET_Y-1]='#';
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1143 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1144
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1145 #define MAX_SHAPE 7
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1146 void tetris_getShape(int shapeId, int rotate, char* shapeStr)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1147 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1148 int j,k;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1149 int index;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1150 const char* tetShape[44MAX_SHAPE] =
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1151 { " ", " A ", " B ", " C ", " ", "F ", " G ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1152 "EEEE", " AA ", " BB ", "CCC ", " DD ", "FFF ", "GGG ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1153 " ", " A ", " B ", " ", " DD ", " ", " ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1154 " ", " ", " ", " ", " ", " ", " ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1155 " E ", " AA ", "BB ", " C ", " ", " FF ", " G ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1156 " E ", "AA ", " BB ", " CC ", " DD ", " F ", " G ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1157 " E ", " ", " ", " C ", " DD ", " F ", " GG ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1158 " E ", " ", " ", " ", " ", " ", " ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1159 " ", " A ", " B ", " ", " ", " ", " ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1160 "EEEE", " AA ", " BB ", "CCC ", " DD ", "FFF ", "GGG ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1161 " ", " A ", " B ", " C ", " DD ", " F ", "G ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1162 " ", " ", " ", " ", " ", " ", " ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1163 " E ", " AA ", "BB ", " C ", " ", " F ", "GG ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1164 " E ", "AA ", " BB ", "CC ", " DD ", " F ", " G ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1165 " E ", " ", " ", " C ", " DD ", "FF ", " G ",
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1166 " E ", " ", " ", " ", " ", " ", " "
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1167 };
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1168
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1169
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1170 for (k=0;k<4;k++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1171 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1172 index = rotate4MAX_SHAPE+k*MAX_SHAPE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1173 for (j=0;j<4;j++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1174 shapeStr[j+k*4] = tetShape[index+shapeId][j];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1175 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1176 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1177
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1178 int tetris_getNextShapeId( void )
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1179 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1180 static int shapeIndex = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1181 shapeIndex = (shapeIndex+1) % MAX_SHAPE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1182 return (shapeIndex);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1183 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1184
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1185
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1186
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1187 void tetris_getNextShape(T_TETRIS *data)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1188 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1189 data->shapeId = tetris_getNextShapeId( );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1190 data->rotateId = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1191 tetris_getShape(data->shapeId, data->rotateId, data->shapeStr);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1192 data->px = (MAX_TET_X-2)/2;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1193 data->py = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1194 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1195
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1196 void tetris_getNextLevel(T_TETRIS *data)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1197 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1198 initTetGame(data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1199 tetris_getNextShape(data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1200 data->level = data->level+1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1201 data->linesToGo = 5*(data->level+1);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1202 data->resetSpeed = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1203 data->maxDropTime = (120-data->level*5);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1204 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1205
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1206 void initTetrisData( T_TETRIS *data )
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1207 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1208 data->level = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1209 data->score = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1210 data->gameOver = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1211 tetris_getNextLevel(data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1212 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1213
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1214 void dspl_FillRect( int x1, int y1, int sx, int sy)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1215 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1216 dspl_DrawFilledBgdRect(x1,y1,x1+sx,y1+sy);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1217 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1218
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1219 void tetris_drawScreen( int allScreen, T_TETRIS *data)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1220 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1221 int x1,y1,x2,y2;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1222 int bCol;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1223 int xOfs =5;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1224 int yOfs=10;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1225 int xOfs2=30;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1226 int yOfs2=10;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1227 int sx,sy;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1228 int px,py;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1229 // U32 oldfCol=0; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1230 // U32 oldbCol=0; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1231 int x = data->px;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1232 int y = data->py;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1233
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1234 // char dbg[80]; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1235
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1236
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1237 #ifdef LSCREEN
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1238 //Calculate size based on the screen properties
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1239 sx = (SCREEN_SIZE_X-xOfs-xOfs2)/MAX_TET_X;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1240 sy = (SCREEN_SIZE_Y-yOfs-yOfs2-Mmi_layout_softkeyHeight())/MAX_TET_Y;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1241 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1242 //Screen is very small - ensure shapes are as large as possible
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1243 sy = SCREEN_SIZE_Y/MAX_TET_Y;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1244 sx = SCREEN_SIZE_X/MAX_TET_X;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1245 if (sx >sy+1)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1246 sx = sy+1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1247 xOfs = 5;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1248 xOfs2 = SCREEN_SIZE_X - (sx*MAX_TET_X+xOfs);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1249 yOfs = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1250 yOfs2 = SCREEN_SIZE_Y - (sy*MAX_TET_Y+xOfs);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1251 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1252 //allScreen= 1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1253
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1254 resources_setColour(COLOUR_GAME);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1255
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1256 if (allScreen)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1257 { //redraw everything
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1258 x1 = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1259 y1 = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1260 x2 = MAX_TET_X;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1261 y2 = MAX_TET_Y;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1262
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1263 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1264 else //just draw+1 box around current man
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1265 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1266 x1 = x-1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1267 y1 = y-1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1268 x2 = x+5;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1269 y2 = y+4;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1270 if (x1<1)x1=1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1271 if (y1<0)y1=0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1272 if (x2>MAX_TET_X-1) x2=MAX_TET_X-1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1273 if (y2>MAX_TET_Y-1) y2=MAX_TET_Y-1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1274 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1275
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1276 #ifndef COLOURDISPLAY
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1277 dspl_Clear (xOfs+x1sx,yOfs+y1sy,xOfs+x2sx-1,yOfs+y2sy-1);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1278 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1279 for (px = x1;px<x2;px++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1280 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1281 for (py = y1;py<y2;py++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1282 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1283 char boardChr = data->tetrisScreen[px][py];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1284 if ((px >= x ) && (px < x+4) &&
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1285 (py >= y ) && (py < y+4))
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1286 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1287 int shapeX,shapeY;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1288 shapeX = px-x;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1289 shapeY = py-y;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1290 if (data->shapeStr[shapeX+shapeY*4] != ' ')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1291 boardChr = data->shapeStr[shapeX+shapeY*4];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1292 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1293 #ifdef COLOURDISPLAY
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1294 switch (boardChr)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1295 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1296 case '#': bCol = 0x00FFFFFF; break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1297 case ' ': bCol = 0x00404040; break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1298 case 'A': bCol = 0x000000FF; break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1299 case 'B': bCol = 0x0000FF00; break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1300 case 'C': bCol = 0x00FF0000; break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1301 case 'D': bCol = 0x0000FFFF; break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1302 case 'E': bCol = 0x00FF00FF; break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1303 case 'F': bCol = 0x00FFFF00; break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1304 default: bCol = 0x00FFFFFF; break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1305 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1306 dspl_SetBgdColour(bCol);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1307 dspl_FillRect(xOfs+pxsx,yOfs+pysy,sx,sy);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1308 // dspl_SetFgdColour(0x00802040);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1309 if (boardChr != ' ')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1310 dspl_DrawRect (xOfs+pxsx,yOfs+pysy,xOfs+pxsx+sx-1,yOfs+pysy+sy-1);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1311 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1312 if (boardChr != ' ')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1313 dspl_DrawRect (xOfs+pxsx,yOfs+pysy,xOfs+pxsx+sx-1,yOfs+pysy+sy-1);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1314 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1315 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1316 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1317 if (data->gameOver)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1318 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1319 int oldfCol = dspl_SetFgdColour(0x00FFFF00);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1320 dspl_SetBgdColour(0x008000FF);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1321 dspl_FillRect(xOfs+sx3-5,yOfs+sy3-5, xOfs+sx3+5+64,yOfs+sy*3+5+18);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1322 dspl_TextOut(xOfs+sx3,yOfs+sy3, 0, "GAME");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1323 dspl_TextOut(xOfs+sx3,yOfs+sy3+Mmi_layout_line_height()+4, 0, "OVER");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1324 dspl_SetFgdColour(oldfCol);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1325
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1326 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1327 resources_restoreColour();
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1328 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1329
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1330
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1331
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1332 int tetris_addShapeToScreen(T_TETRIS *data)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1333 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1334 int x,y;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1335 for (x=0;x<4;x++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1336 for (y=0;y<4;y++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1337 if (data->shapeStr[x+y*4] != ' ')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1338 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1339 if (data->tetrisScreen[data->px+x][data->py+y]!= ' ')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1340 return(1);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1341 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1342 data->tetrisScreen[data->px+x][data->py+y] = data->shapeStr[x+y*4];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1343 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1344 return(0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1345
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1346 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1347
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1348 int tetris_testForCompleteLines( T_TETRIS *data )
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1349 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1350 int nLines=0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1351 int x,y;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1352 int blanks;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1353 for (y=MAX_TET_Y-2;y>0;y--)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1354 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1355 blanks = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1356
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1357 for (x=1;x<MAX_TET_X-1;x++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1358 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1359 if (data->tetrisScreen[x][y] == ' ')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1360 blanks++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1361 if (nLines >0)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1362 data->tetrisScreen[x][y+nLines] = data->tetrisScreen[x][y];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1363 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1364 if (blanks==0)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1365 nLines++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1366
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1367 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1368 return (nLines);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1369 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1370
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1371
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1372 void tetris_testGameOver( T_TETRIS *data )
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1373 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1374 int linesComplete;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1375
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1376 data->gameOver = tetris_addShapeToScreen(data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1377 if (!data->gameOver)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1378 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1379
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1380 linesComplete = tetris_testForCompleteLines(data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1381 if (linesComplete >0)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1382 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1383 data->score = data->score + linesComplete*linesComplete;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1384 data->linesToGo = data->linesToGo - linesComplete;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1385 if (data->linesToGo <0)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1386 tetris_getNextLevel(data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1387 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1388 tetris_getNextShape(data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1389 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1390 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1391
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1392
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1393
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1394
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1395
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1396 void tetris_destroy (T_MFW_HND own_window)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1397 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1398 T_MFW_WIN * win = ((T_MFW_HDR *)own_window)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1399 T_TETRIS * data = (T_TETRIS *)win->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1400
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1401 TRACE_EVENT ("tetris_destroy()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1402
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1403 if (own_window == NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1404 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1405 TRACE_EVENT ("Error :- Called with NULL Pointer");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1406 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1407 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1408
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1409 if (data)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1410 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1411 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1412 * Exit ICON & KEYBOARD Handle
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1413 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1414 kbdDelete (data->hKbd);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1415 timDelete(data->info_tim);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1416 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1417 * Delete WIN Handler
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1418 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1419 winDelete (data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1420 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1421 * Free Memory
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1422 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1423 FREE_MEMORY ((void *)data, sizeof (T_TETRIS));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1424 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1425 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1426
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1427
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1428
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1429 int MmiTetrisStart(void )
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1430 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1431 MfwHnd hWin;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1432
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1433 MfwHnd hParentWin = mfwParent(mfwHeader());
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1434
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1435 TRACE_FUNCTION ("TetrisStart()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1436
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1437 hWin = TetrisCreate (hParentWin);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1438
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1439 if (hWin NEQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1440 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1441 SEND_EVENT (hWin, E_INIT, NULL, NULL);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1442 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1443
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1444 return 1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1445 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1446
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1447 void initTetrisData( T_TETRIS *data );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1448 static MfwHnd TetrisCreate(MfwHnd hParentWin)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1449 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1450 T_TETRIS psData = (T_TETRIS )ALLOC_MEMORY (sizeof( T_TETRIS));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1451 MfwWin *psWin;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1452 MfwWinAttr *win_attr;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1453
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1454 TRACE_FUNCTION ("TetrisCreate()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1455
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1456 if (psData == NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1457 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1458 TRACE_EVENT ("ALLOC_MEMORY() failed");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1459 return NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1460 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1461
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1462 win_attr = (MfwWinAttr *) ALLOC_MEMORY (sizeof(MfwWinAttr));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1463 if (win_attr)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1464 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1465 win_attr->win.px = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1466 win_attr->win.py = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1467 win_attr->win.sx = SCREEN_SIZE_X;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1468 win_attr->win.sy = SCREEN_SIZE_Y;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1469 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1470 psData->win = winCreate (hParentWin, win_attr, E_WIN_VISIBLE, (T_MFW_CB)TetrisWinCb);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1471 if (psData->win == NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1472 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1473 mfwFree((U8*) win_attr, sizeof(MfwWinAttr));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1474 FREE_MEMORY((void *)psData, sizeof (T_TETRIS));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1475 return NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1476 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1477 psData->mmi_control.dialog = (T_DIALOG_FUNC)TetrisExecCb;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1478 psData->mmi_control.data = psData;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1479 psData->timeStep = 150;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1480 psData->maxDropTime = 120;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1481 psData->dropTime = psData->maxDropTime;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1482 psWin = ((MfwHdr *)psData->win)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1483 psWin->user = (void *)psData;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1484 psData->parent_win = hParentWin;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1485 initTetrisData( psData );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1486
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1487 return psData->win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1488 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1489
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1490 static int TetrisWinCb (MfwEvt uiE, MfwWin *psWin)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1491 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1492 T_TETRIS psData = (T_TETRIS )psWin->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1493
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1494 TRACE_FUNCTION ("TetrisWinCb()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1495
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1496 switch (uiE)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1497 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1498 case MfwWinVisible:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1499 dspl_ResetWindow();
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1500 dspl_SetBgdColour(0x000000FF);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1501 dspl_Clear(0,0,SCREEN_SIZE_X-1,SCREEN_SIZE_Y-1 );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1502 tetris_drawScreen( 1, psData);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1503
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1504 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1505
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1506 case MfwWinFocussed:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1507 case MfwWinDelete:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1508 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1509 return MFW_EVENT_REJECTED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1510 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1511 TRACE_FUNCTION ("TetrisWinCb() - end");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1512 return MFW_EVENT_CONSUMED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1513 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1514
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1515 static void TetrisExecCb (MfwHnd hWin, USHORT uiE, SHORT iValue, void *pParameter)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1516 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1517 MfwWin psWin = ((MfwHdr ) hWin)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1518 T_TETRIS psData = (T_TETRIS )psWin->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1519
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1520 TRACE_FUNCTION ("TetrisExecCb()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1521
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1522 switch (uiE)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1523 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1524 case E_INIT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1525
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1526 psData->info_tim = timCreate(hWin, psData->timeStep, (MfwCb)tetris_tim_cb);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1527 psData->hKbd = kbdCreate(psData->win, KEY_ALL, (MfwCb)TetrisKbdCb);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1528 timStart(psData->info_tim);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1529
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1530 /* */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1531 winShow(hWin);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1532
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1533 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1534
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1535 case E_EXIT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1536 tetris_destroy(hWin);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1537 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1538
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1539 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1540 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1541 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1542
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1543 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1544 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1545
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1546
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1547 static int tetris_checkPos( T_TETRIS data, int px, int py, char shape)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1548 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1549 int x,y;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1550 for (x=0;x<4;x++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1551 for (y=0;y<4;y++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1552 if (shape[x+y*4] != ' ')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1553 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1554 if (data->tetrisScreen[px+x][py+y]!= ' ')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1555 return(1);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1556 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1557 return(0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1558 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1559
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1560 static int tetris_moveDown(T_TETRIS data,int px, int *py)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1561 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1562 int cannotMove;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1563 cannotMove = tetris_checkPos(data,px,py+1,data->shapeStr);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1564 if (cannotMove)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1565 return (1);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1566 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1567 py = py+1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1568 return (0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1569 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1570 static int tetris_moveLeft(T_TETRIS data, int px, int *py)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1571 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1572 int cannotMove;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1573 cannotMove = tetris_checkPos(data,px-1,py,data->shapeStr);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1574 if (cannotMove)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1575 return (1);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1576 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1577 px = px-1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1578 return (0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1579 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1580 static int tetris_moveRight( T_TETRIS data, int px, int *py)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1581 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1582 int cannotMove;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1583 cannotMove = tetris_checkPos(data,px+1,py,data->shapeStr);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1584 if (cannotMove)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1585 return (1);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1586 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1587 px = px+1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1588 return (0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1589 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1590
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1591 static int tetris_rotateLeft( T_TETRIS data, int px, int *py )
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1592 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1593 int i;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1594 int cannotMove;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1595 char tmpShape[20];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1596 tetris_getShape(data->shapeId,(data->rotateId+1)%4,tmpShape);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1597 cannotMove = tetris_checkPos(data,px,py,tmpShape);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1598 if (cannotMove)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1599 return (1);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1600 for (i=0;i<16;i++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1601 data->shapeStr[i] = tmpShape[i];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1602 data->rotateId = (data->rotateId+1)%4;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1603 return (0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1604 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1605
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1606 static int tetris_rotateRight( T_TETRIS data, int px, int *py )
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1607 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1608 int i;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1609 int cannotMove;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1610 char tmpShape[20];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1611 tetris_getShape(data->shapeId,(data->rotateId+3)%4,tmpShape);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1612 cannotMove = tetris_checkPos(data,px,py,tmpShape);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1613 if (cannotMove)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1614 return (1);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1615 for (i=0;i<16;i++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1616 data->shapeStr[i] = tmpShape[i];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1617 data->rotateId = (data->rotateId+3)%4;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1618 return (0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1619 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1620 #define KEY_TET_MOVELEFT KCD_1
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1621 #define KEY_TET_MOVERIGHT KCD_3
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1622 #define KEY_TET_ROTATELEFT KCD_4
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1623 #define KEY_TET_ROTATERIGHT KCD_6
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1624 #define KEY_TET_DROPALL KCD_5
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1625 #define KEY_TET_DROP KCD_2
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1626
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1627
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1628 static int TetrisKbdCb (MfwEvt uiE, MfwKbd *psK)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1629 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1630 MfwHnd hWin = mfwParent(mfwHeader());
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1631 MfwWin psWin = ((MfwHdr )hWin)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1632 T_TETRIS psData = (T_TETRIS )psWin->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1633 int cannotMove=0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1634
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1635
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1636 TRACE_FUNCTION ("TetrisKbdCb()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1637 /*************************Go-lite Optimization changes Start*********************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1638 // Aug 16, 2004 REF: CRR 24323 Deepa M.D
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1639 TRACE_EVENT_P1 ("Code : %d",(int)psK->code);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1640 /*************************Go-lite Optimization changes Start*********************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1641
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1642
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1643 switch(psK->code )
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1644 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1645 case KEY_TET_MOVELEFT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1646 case KCD_MNULEFT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1647 tetris_moveLeft(psData,&psData->px,&psData->py);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1648 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1649 case KEY_TET_MOVERIGHT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1650 case KCD_MNURIGHT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1651 tetris_moveRight(psData,&psData->px,&psData->py);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1652 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1653 case KEY_TET_ROTATELEFT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1654 tetris_rotateLeft(psData,&psData->px,&psData->py);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1655 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1656 case KCD_MNUSELECT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1657 case KEY_TET_ROTATERIGHT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1658 tetris_rotateRight(psData,&psData->px,&psData->py);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1659 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1660 case KEY_TET_DROP:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1661 cannotMove = tetris_moveDown(psData,&psData->px,&psData->py);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1662 if (cannotMove)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1663 tetris_testGameOver( psData );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1664 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1665 case KEY_TET_DROPALL:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1666 while(tetris_moveDown(psData,&psData->px,&psData->py) ==0)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1667 { //loop until we hit the bottom
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1668
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1669 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1670 cannotMove = 1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1671 tetris_testGameOver( psData );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1672 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1673
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1674
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1675 case KCD_RIGHT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1676 SEND_EVENT (hWin, E_EXIT, 0, 0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1677 return MFW_EVENT_CONSUMED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1678
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1679 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1680
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1681 return MFW_EVENT_CONSUMED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1682 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1683 tetris_drawScreen(cannotMove, psData);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1684
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1685 TRACE_FUNCTION ("TetrisKbdCb()-end");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1686 return MFW_EVENT_CONSUMED;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1687 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1688
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1689 static int tetris_tim_cb(MfwEvt e, MfwTim *t)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1690 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1691 T_MFW_HND win = mfw_parent (mfw_header());
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1692 T_MFW_WIN * win_data = ((T_MFW_HDR *)win)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1693 T_TETRIS * data = (T_TETRIS *)win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1694 static int nCycles = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1695 int cannotMove;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1696
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1697 char bfr[80];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1698 nCycles = nCycles+ data->timeStep;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1699 if (nCycles > 1000)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1700 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1701 nCycles = nCycles - 1000;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1702 data->maxDropTime = data->maxDropTime-1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1703 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1704 TRACE_EVENT("tetris_tim_cb");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1705 data->dropTime = data->dropTime - data->timeStep;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1706 if (data->dropTime < 0)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1707 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1708 if (data->maxDropTime > 90)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1709 data->dropTime = data->dropTime+75*10;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1710 else if (data->maxDropTime > 60)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1711 data->dropTime = data->dropTime+(60+(data->maxDropTime-60)/2)*10;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1712 else if (data->maxDropTime > 30)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1713 data->dropTime = data->dropTime+data->maxDropTime*10;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1714 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1715 data->dropTime = data->dropTime+(data->maxDropTime+90)/4*10;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1716
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1717 if (data->dropTime < data->timeStep)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1718 data->dropTime = data->timeStep;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1719 else if (data->dropTime < data->timeStep)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1720 data->dropTime = data->timeStep;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1721
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1722 resources_setColour(COLOUR_GAME);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1723 sprintf(bfr,"%d ",data->score);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1724 dspl_TextOut(SCREEN_SIZE_X-30 ,10, 0, bfr);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1725 sprintf(bfr,"%d ",data->linesToGo);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1726 dspl_TextOut(SCREEN_SIZE_X-30 ,12+Mmi_layout_line_height(), 0, bfr);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1727 resources_restoreColour();
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1728 cannotMove = tetris_moveDown(data,&data->px,&data->py);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1729 tetris_getNextShapeId( );//To randomize it
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1730
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1731 if (cannotMove)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1732 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1733 tetris_testGameOver( data );
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1734 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1735 tetris_drawScreen(cannotMove, data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1736 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1737
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1738 timStart(data->info_tim);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1739 TRACE_EVENT("tetris_tim_cb-end");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1740 return 1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1741 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1742
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1743 T_MFW_HND Game_Info(T_MFW_HND parent_window)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1744 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1745 T_MFW_HND win = ShowGame_Information(parent_window);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1746 TRACE_FUNCTION("ShowVerion()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1747 if (win NEQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1748 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1749 SEND_EVENT (win, SHOWGAMEINFO_INIT, 0, 0);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1750 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1751
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1752 return win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1753 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1754
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1755 static T_MFW_HND ShowGame_Information(MfwHnd parent_window)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1756 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1757 tShowInfo* data = (tShowInfo*)ALLOC_MEMORY (sizeof (tShowInfo));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1758 T_MFW_WIN* win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1759
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1760 if (data EQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1761 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1762 return NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1763 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1764
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1765 // Create the window handler
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1766 data->win = win_create (parent_window, 0, E_WIN_VISIBLE, NULL);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1767 if (data->win EQ NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1768 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1769 return NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1770 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1771
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1772 // connect the dialog data to the MFW window
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1773 data->mmi_control.dialog = (T_DIALOG_FUNC)ShowGame_DialogCB;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1774 data->mmi_control.data = data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1775
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1776 win = ((T_MFW_HDR *)data->win)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1777 win->user = (void *)data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1778 data->parent_win = parent_window;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1779
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1780 return data->win;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1781 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1782
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1783 static void ShowGame_DialogCB(T_MFW_HND win, USHORT e, SHORT identifier, void *parameter)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1784 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1785 T_MFW_WIN win_data = ((T_MFW_HDR ) win)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1786 tShowInfo* data = (tShowInfo*) win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1787 /* SPR#1428 - SH - New editor data */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1788 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1789 // T_AUI_EDITOR_DATA editor_data; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1790 #else /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1791 // T_EDITOR_DATA editor_data; // RAVI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1792 #endif /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1793
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1794 switch (e)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1795 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1796 case SHOWGAMEINFO_INIT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1797 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1798 strcat(data->buffer, info);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1799
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1800 ShowGameInfoEditor(win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1801
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1802 /* SPR#1428 - SH - New editor changes */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1803 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1804 data->editor_data.Callback = (T_AUI_EDIT_CB)ShowInfoCB;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1805 AUI_edit_Start(win, &(data->editor_data));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1806 #else /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1807 data->editor_data.Callback = (T_EDIT_CB)ShowInfoCB;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1808 editor_start(win, &(data->editor_data));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1809 #endif /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1810
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1811 winShow(data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1812 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1813 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1814
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1815 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1816 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1817 TRACE_EVENT("Show Game Info : Unknown Event");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1818 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1819 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1820 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1821 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1822
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1823 void ShowGameInfoEditor (T_MFW_HND win)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1824 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1825 T_MFW_WIN win_data = ((T_MFW_HDR ) win)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1826 tShowInfo* data = (tShowInfo*) win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1827
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1828 /* SPR#1428 - SH - New editor changes */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1829 #ifdef NEW_EDITOR
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1830 AUI_edit_SetDefault(&data->editor_data);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1831 AUI_edit_SetDisplay(&data->editor_data, NULL, COLOUR_EDITOR, EDITOR_FONT);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1832 AUI_edit_SetTextStr(&data->editor_data, TxtSoftBack, TxtNull, TxtNull, NULL);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1833 AUI_edit_SetEvents(&data->editor_data, 0, TRUE, FOREVER, NULL);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1834 AUI_edit_SetBuffer(&data->editor_data, ATB_DCS_ASCII, (UBYTE *)data->buffer, 35);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1835 AUI_edit_SetMode(&data->editor_data, ED_MODE_READONLY, ED_CURSOR_NONE);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1836 #else /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1837 editor_attr_init(&((data->editor_data).editor_attr), NULL, edtCurNone, 0, (char*)data->buffer, 35, COLOUR_EDITOR);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1838 editor_data_init(&data->editor_data, NULL, TxtSoftBack, TxtNull, 0, 1, READ_ONLY_MODE, FOREVER);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1839
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1840 data->editor_data.hide = FALSE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1841 data->editor_data.Identifier = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1842 data->editor_data.TextString = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1843 data->editor_data.destroyEditor = TRUE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1844 #endif /* NEW_EDITOR */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1845 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1846
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1847 static void ShowInfoCB( T_MFW_HND win, USHORT Identifier,UBYTE reason)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1848 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1849 T_MFW_WIN win_data = ( (T_MFW_HDR ) win )->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1850 tShowInfodata = (tShowInfo) win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1851
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1852
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1853 TRACE_FUNCTION("ShowVerionCB()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1854
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1855 switch (reason )
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1856 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1857 case INFO_KCD_LEFT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1858 case INFO_KCD_HUP:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1859 case INFO_KCD_RIGHT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1860
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1861 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1862 showGameInfo_destroy(data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1863 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1864 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1865 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1866
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1867 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1868
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1869 $Function: showVersion_destroy
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1870
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1871 $Description: Destroys the editor
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1872
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1873 $Returns:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1874
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1875 $Arguments:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1876
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1877 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1878 void showGameInfo_destroy(MfwHnd own_window)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1879 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1880 T_MFW_WIN * win_data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1881
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1882 tShowInfo* data = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1883
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1884 if (own_window == NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1885 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1886 TRACE_EVENT ("Error : showGameInfo_destroy called with NULL Pointer");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1887 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1888 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1889
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1890
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1891 win_data = ((T_MFW_HDR *)own_window)->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1892 if (win_data != NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1893 data = (tShowInfo*)win_data->user;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1894
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1895 if (data)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1896 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1897 TRACE_EVENT ("calc_destroy()");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1898
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1899 win_delete (data->win);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1900 // Free Memory
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1901 FREE_MEMORY ((void *)data, sizeof (tShowInfo));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1902
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1903 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1904 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1905 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1906 TRACE_EVENT ("calc_destroy() called twice");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1907 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1908 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1909 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1910

FreeCalypso > hg > fc-magnetite

annotate src/ui3/bmi/mmiGame.c @ 613:6f0874b00973