summaryrefslogtreecommitdiffstats
path: root/doc/scriptexamples/tutorial/minesweeper7.kvs
diff options
context:
space:
mode:
Diffstat (limited to 'doc/scriptexamples/tutorial/minesweeper7.kvs')
-rw-r--r--doc/scriptexamples/tutorial/minesweeper7.kvs253
1 files changed, 253 insertions, 0 deletions
diff --git a/doc/scriptexamples/tutorial/minesweeper7.kvs b/doc/scriptexamples/tutorial/minesweeper7.kvs
new file mode 100644
index 00000000..701c09d3
--- /dev/null
+++ b/doc/scriptexamples/tutorial/minesweeper7.kvs
@@ -0,0 +1,253 @@
+# The scripts in this tutorial implement the famous minesweeper game
+# STEP 7
+
+class(minelabel,label)
+{
+ mousePressEvent()
+ {
+ @$parent()->$mineLabelPressed($this,$0)
+ }
+}
+
+class(minesweepermain,widget)
+{
+ constructor($0 = rows,$1 = cols,$2 = num mines)
+ {
+ # We should check the parameters passed here, and maybe return 0
+ # if the params are not positive numbers
+ echo $0,$1,$2
+ @%rows = $0
+ @%cols = $1
+ @%mines = $2
+ @%bGameRunning = 0
+
+ @%layout = $new(layout,$this)
+
+ for(%i = 0;%i < @%rows;%i++)
+ {
+ for(%j = 0;%j < @%cols;%j++)
+ {
+ @%label{%i,%j}=$new(minelabel,$this,"%i_%j")
+ @%label{%i,%j}->%row = %i
+ @%label{%i,%j}->%col = %j
+ @%label{%i,%j}->$setMinimumWidth(26)
+ @%label{%i,%j}->$setMinimumHeight(26)
+ @%label{%i,%j}->$setAlignment(HCenter , VCenter)
+ @%layout->$addWidget(@%label{%i,%j},%i,%j)
+ }
+ }
+ }
+
+ newGame()
+ {
+ for(%i = 0;%i < @%rows;%i++)
+ {
+ for(%j = 0;%j < @%cols;%j++)
+ {
+ %l = @%label{%i,%j}
+ %l->$setFrameStyle(Raised,WinPanel);
+ %l->%bIsMine = 0
+ %l->%numMines = 0
+ %l->%bIsDiscovered = 0
+ %l->%iState = 0; # In state 0 it doesn't show anything
+ %l->$setText("")
+ %l->$setImage(); # show no image
+ %l->$setEnabled(1)
+ }
+ }
+
+ for(%i = 0;%i < @%mines;%i++)
+ {
+ %row = $rand($(@%rows - 1))
+ %col = $rand($(@%cols - 1))
+ while(@%label{%row,%col}->%bIsMine != 0)
+ {
+ %row = $rand($(@%rows - 1))
+ %col = $rand($(@%cols - 1))
+ }
+ @%label{%row,%col}->%bIsMine = 1
+ if(%row > 0)
+ {
+ @%label{$(%row - 1),%col}->%numMines++
+ if(%col > 0)@%label{$(%row - 1),$(%col - 1)}->%numMines++
+ if(%col < (@%cols - 1))@%label{$(%row - 1),$(%col + 1)}->%numMines++
+ }
+ if(%row < (@%rows - 1))
+ {
+ @%label{$(%row + 1),%col}->%numMines++
+ if(%col > 0)@%label{$(%row + 1),$(%col - 1)}->%numMines++
+ if(%col < (@%cols - 1))@%label{$(%row + 1),$(%col + 1)}->%numMines++
+ }
+ if(%col > 0)@%label{%row,$(%col - 1)}->%numMines++
+ if(%col < (@%cols - 1))@%label{%row,$(%col + 1)}->%numMines++
+ }
+ @%bGameRunning = 1
+ # We keep track of the number of the discovered cells
+ @%iTotalNonMineCells = $((@%rows * @%cols) - @%mines)
+ @%iUndiscoveredNonMineCells = @%iTotalNonMineCells
+ }
+
+ mineLabelPressed($0 = mine label object that has been pressed,$1 = the button that has been pressed)
+ {
+ if(!@%bGameRunning)return
+
+ if($1 == 1)
+ {
+ # Right button
+ if($0->%bIsDiscovered)return; # does nothing
+ switch($0->%iState)
+ {
+ case(0):
+ {
+ $0->$setImage(58)
+ $0->%iState = 1
+ }
+ case(1):
+ {
+ $0->$setImage(28)
+ $0->%iState = 2
+ }
+ case(2):
+ {
+ $0->$setImage()
+ $0->%iState = 0
+ }
+ }
+ return;
+ }
+
+ if($0->%bIsMine)
+ {
+ @$gameFailure($0)
+ } else {
+ @$discoverCells($0)
+ if(@%iUndiscoveredNonMineCells == 0)
+ {
+ # Finished!
+ @$gameSuccess()
+ } else {
+ @$emit(userMoved)
+ }
+ }
+ }
+
+ discoverAllCells()
+ {
+ for(%i = 0;%i < @%rows;%i++)
+ {
+ for(%j = 0;%j < @%cols;%j++)
+ {
+ %l = @%label{%i,%j}
+ if(!%l->%bIsDiscovered)
+ {
+ %l->$setFrameStyle(WinPanel,Sunken)
+ if(%l->%bIsMine)%l->$setImage(82)
+ else {
+ %l->$setImage("")
+ if(%l->%numMines > 0)%l->$setText(%l->%numMines)
+ else %l->$setText("")
+ }
+ }
+ %l->$setEnabled(0)
+ }
+ }
+ }
+
+ gameFailure($0 = the game cell that had the bomb)
+ {
+ @$discoverAllCells()
+ $0->$setFrameStyle(WinPanel,Sunken)
+ $0->$setImage(82); # 82 is a bomb
+ $0->$setEnabled(1)
+ @%bGameRunning = 0
+ @$emit(gameOver)
+ }
+
+ gameSuccess()
+ {
+ @$discoverAllCells()
+ @%bGameRunning = 0
+ @$emit(success)
+ }
+
+ discoverCells($0 = mine label that has to be discovered)
+ {
+ if($0->%bIsMine)return;
+ if($0->%bIsDiscovered)return;
+ $0->%bIsDiscovered = 1
+ $0->$setFrameStyle(WinPanel,Sunken)
+ @%iUndiscoveredNonMineCells--
+ if($0->%iState != 0)$0->$setImage(); # ensure that no image is shown
+ if($0->%numMines > 0)$0->$setText($0->%numMines)
+ else {
+ if($0->%row > 0)
+ {
+ @$discoverCells(@%label{$($0->%row - 1),$0->%col})
+ if($0->%col > 0)@$discoverCells(@%label{$($0->%row - 1),$($0->%col - 1)})
+ if($0->%col < (@%cols - 1))@$discoverCells(@%label{$($0->%row - 1),$($0->%col + 1)})
+ }
+ if($0->%row < (@%rows - 1))
+ {
+ @$discoverCells(@%label{$($0->%row + 1),$0->%col})
+ if($0->%col > 0)@$discoverCells(@%label{$($0->%row + 1),$($0->%col - 1)})
+ if($0->%col < (@%cols - 1))@$discoverCells(@%label{$($0->%row + 1),$($0->%col + 1)})
+ }
+ if($0->%col > 0)@$discoverCells(@%label{$0->%row,$($0->%col - 1)})
+ if($0->%col < (@%cols - 1))@$discoverCells(@%label{$0->%row,$($0->%col + 1)})
+ }
+ }
+
+}
+
+
+class(minesweeper,window)
+{
+ constructor()
+ {
+ @$setCaption("KVIrc's Minesweeper (0.1.0)");
+
+ @%layout = $new(layout,$$)
+
+ @%menubar = $new(menubar,$$)
+ @%menubar->$insertItem(test)
+ @%layout->$addWidget(@%menubar,0,0)
+
+ @%gamepool = $new(minesweepermain,$$,myGamepool,10,10,10)
+ @%layout->$addWidget(@%gamepool,1,0)
+ connect @%gamepool gameOver $$ gameOver
+ # We connect the two new signals
+ connect @%gamepool userMoved $$ showState
+ connect @%gamepool success $$ success
+ @%output = $new(label,$$)
+ @%output->$setFrameStyle(WinPanel,Sunken)
+ @%layout->$addWidget(@%output,2,0)
+
+ @$newGame()
+ }
+
+ showState()
+ {
+ @%output->$setText("@%gamepool->%iUndiscoveredNonMineCells to go")
+ }
+
+ success()
+ {
+ @%output->$setText("You did it!")
+ }
+
+ gameOver()
+ {
+ @%output->$setText("Game Over :(")
+ }
+
+ newGame()
+ {
+ @%gamepool->$newGame()
+ @%output->$setText("Ready")
+ @$showState()
+ }
+}
+
+
+%m = $new(minesweeper)
+%m->$show()