ColorRow játék leírása

Az init metódus inicializáló függvény. Az összes adattagnak helyet foglal és kezdeti értékeire állítja őket, illetve kiírja a játékot segítő magyarázatot. Az ablakban megjelenő gombok befűzése is itt történik. Itt kell odafigyelni arra, hogy a gombok valamiféle rendszerbe legyenek szedve, hiszen később a játék logikája szempontjából fontos a lenyomott gomb tulajdonságainak beazonosítása. A gombok különböző kategóriái más-mást kell előidézzenek, ha lenyomásra kerültek (pl. PickColor lenyomása előidézi a selCol aktualizálását), és a kategórián belül sem mindegy, hogy melyik volt lenyomva (előző példa folytatása: hányadik szín volt kiválasztva? - az indexe lesz annak a bizonyos színnek a számkódja.) A rendszerezést úgy oldjuk meg, hogy mátrixba szedjük az azonos kategóriájú gombokat, x és y értékeiket pedig a mátrixban való elhelyezkedésük x, y koordinátájával inizializáljuk. A példakód az init függvénynek egy részlete.

"..." gTable := Matrix new: 8. rTable := Matrix new: 8. 1 to: 8 do: [:y | "sor" 1 to: 4 do: [ :x | "oszlop" b := MyColorButton new. b initalizeX: x y: y m: gTable win: self val: 0. self addMorph: b. b calcPosition. gTable at: y at: x put: b. b := MyReturnButton new. b initalizeX: x y: y m: rTable win: self. self addMorph: b. b calcPosition. rTable at: y at: x put: b. ]. ]. "..."

evaluate metódus: A játék „mesterséges intellicenciáját” megvalósító metódus, vagyis amelyik által a számítógép visszajelez a játékos által megtippelt színsor kapcsán. Az actRow adattag ismeretében tudja, hogy a gTable melyik sorát kell kiértékelje. Ennek minden elemére a számítógép által generált színsorra tekintve vizsgál tartalmazást, vagy azonos indexen lévő elemek megegyezését. Itt van lekezelve az is, hogy ha a játékos teljesítette a feladatot. Ezt egy Boolean változóval kezeli le, az allOK nevűvel, mely igaz értékkel indít, és amennyiben a kiértékelt sor és a kitalálandó sor között eltérést észlel hamis értéket kap. Különben a kiértékelést követőn szövegesen jelzi a játékosnak a győzelmét. Ugyanakkor az is előfodulhat, hogy a játékos mind a 8 találgatási lehetőségét felhasználta. Ugyancsak az eval kezeli le ezt az esetet az actRow értékét minden kiértékelés után növelve és ellenőrizve. A teljes függvényt a következő kódpélda tartalmazza.

evaluate "a megtippelt színsor kiértékelése" |myButton myColor colorToPick rButton allOk| allOk := true. "allOK - feltételezem, hogy minden tipp talált" "a megtippelt színsor minden elemét egyenként kiértékelem" 1 to: 4 do: [:i| myButton := gTable at: actRow at: i. myColor := myButton val. colorToPick := randomRow at: i. "ha az éppen kiértékelt szín eleme a véletlen színsornak" (randomRow hasLiteralThorough: myColor) ifTrue: [ rButton := rTable at: actRow at: i. rButton color: Color white. " ]. "ha az éppen kiértékelt szín megegyezik véletlen színsorban azonos indexüvel" (myColor = colorToPick) ifTrue: [ rButton := rTable at: actRow at: i. rButton color: Color black. ] "ha egy tipp nem talált, akkor hamira állítom az allOK-t" ifFalse: [allOk := false]. ]. actRow := actRow +1. (actRow>8) ifTrue: [ tM textColor: Color red. tM newContents: 'Sajnálom, elfogytak a lehetöségeid!' (allOk) ifTrue: [ actRow := 100. tM textColor: Color red. tM newContents: 'Gratulálok! :) Kitaláltad!' ]

MyColorButton osztály

A MyColorButton osztály ősosztálya a BasicButton osztály. A MyColorButton osztály a következő adattagokkal egészítit ki ezt az osztályt: X- hányadik oszlopban van az elem a találgatós táblában; Y- hányadik sorban van az elem a találgatós táblában; m -melyik mátrix tartalmazza az elemet; win - melyik Window tartalmazza az elemet; val - milyen értéke van az elemnek. Mint ahogyan azt már jeleztük, ezek lesznek azok a gombok melyek a találgatásra alkalmas táblát képezik. Ennél fogva, amellett, hogy ismerik saját koordinátájukat, ismerniük kell a saját éréküket is, mely látvány szempontjából egy szín lenne, a megvalósítás szempontjából a színhez rendelt számkód lesz. Hasonlóképpen az osztály adattagjainak elérésére biztosítva vannak a megfelelő függvények. Az initializeX:y:m:win:val függvény elvégzi az inicializálást, kezdeti értékként a val 0 értéket kap.

calcPosition metódus: