--
card-trix-4.exw
--
card-trix-4.exw
-- card-trix-4.exw --
include win32lib.ew
without warning
sequence deck, cards
deck = {1, 2, 3, 4, 5}
cards = {"Ten", "Jack", "Queen", "King", "Ace"}
integer ready, picked, myscore, yourscore, cheat, tick, tick2
ready = 0
myscore = 0
yourscore = 0
cheat = 0
tick = 0
tick2 = 0
----
constant
msg0 = "...dealing cards.",
msg1 = "...draw a card ( 1 to 4 )",
msg2 = "You Lose : )",
msg3 = "You Win !!",
MyWin = create( Window, "Card-Trix-4", 0, 10, 10, 300, 320, 0 ),
yours = create( LText, "You", MyWin, 5, 10, 100, 20, 0 ),
mine = create( RText, "Me", MyWin, 180, 10, 100, 20, 0 ),
menuBar = create( Menu, "&Program", MyWin, 0, 0, 0, 0, 0 ),
menuCheat = create( MenuItem, "&Cheat", menuBar, 0, 0, 0, 0, 0 ),
menuOut = create( MenuItem, "E&xit", menuBar, 0, 0, 0, 0, 0 ),
statBar = create( StatusBar, "", MyWin, 0, 0, 0, 0, 0 ),
deckPix = create( Pixmap, "", 0, 0, 0, 421, 71, 0 ),
dealPix = create( Pixmap, "", 0, 0, 0, 131, 98, 0 ),
playPix = create( Pixmap, "", 0, 0, 0, 149, 98, 0 ),
myTimer = 1,
myTimer2 = 2,
myTimer3 = 3
----
-- fix a snag ... old code here delayed running on Windows 10.
sequence temp_wins = { MyWin, yours, mine }
for i=1 to length(temp_wins) do
setWindowBackColor( temp_wins[i], Green )
end for
setFont( yours, "System", 0, 0 )
setFont( mine, "System", 0, 0 )
setPixmap( deckPix, loadBitmapFromFile( ".\\Bin\\cardtrix.bmp" ) )
----
function shuffle( sequence s )
integer r
object temp
for i = length( s ) to 1 by -1 do
r = rand( i )
temp = s[r]
s[r] = s[i]
s[i] = temp
end for
return s
end function
----
procedure green( )
setPenColor( dealPix, Green )
drawRectangle( dealPix, 1, 0, 0, 131, 98 )
copyBlt( MyWin, 80, 140, dealPix )
setPenColor( playPix, Green )
drawRectangle( playPix, 1, 0, 0, 149, 98 )
copyBlt( MyWin, 70, 35, playPix )
end procedure
----
procedure sound_off( )
object jk
jk = playSound( ".\\Bin\\pop.wav" )
end procedure
----
function anything_but( integer x )
integer r
r = rand( 3 )
if r >= x then r += 1 end if
return r
end function
----
integer me, you
me=0 you=0
procedure play( integer picked )
integer pos, rnd
if tick2=0 then -- show player's card
setTimer( MyWin, myTimer3, 1000 )
setText( statBar, "...you drew the " & cards[deck[picked]] )
you = deck[picked]
pos = deck[picked]*70
bitBlt( playPix, 0, 0, deckPix, pos, 0, 71, 98, SrcCopy )
copyBlt( MyWin, 70, 35, playPix )
sound_off( )
elsif tick2=1 then -- show computer's card
setTimer( MyWin, myTimer3, 2000 )
rnd = anything_but( picked )
me = deck[rnd]
pos = deck[rnd]*70
bitBlt( playPix, 78, 0, deckPix, pos, 0, 71, 98, SrcCopy )
copyBlt( MyWin, 70, 35, playPix )
sound_off( )
elsif tick2=2 then -- show score
setTimer( MyWin, myTimer3, 3000 )
if me > you then
setText( statBar, msg2 )
myscore += 1
setText( mine, "Me " & sprintf( "%d", myscore ) )
else
setText( statBar, msg3 )
yourscore += 1
setText( yours, "You " & sprintf( "%d", yourscore ) )
end if
elsif tick2=3 then -- start over again
killTimer( MyWin, myTimer3 )
green( )
deck=shuffle( deck )
tick = 0
setText( statBar, msg0 )
setTimer( MyWin, myTimer, 500 )
end if
end procedure
----
procedure start_up( integer self, integer event, sequence params )
green( )
deck = shuffle( deck )
setText( statBar, msg0 )
setTimer( MyWin, myTimer, 500 )
end procedure
--
setHandler( MyWin, w32HOpen, routine_id( "start_up" ) )
----
procedure draw_normal( integer count )
bitBlt( dealPix, count*20, 0, deckPix, 0, 0, 71, 98, PatInvert )
copyBlt( MyWin, 80, 140, dealPix )
sound_off( )
bitBlt( dealPix, count*20, 0, deckPix, 0, 0, 71, 98, SrcCopy )
copyBlt( MyWin, 80, 140, dealPix )
tick = tick + 1 -- increment the counter
end procedure
----
procedure draw_cheat( )
bitBlt( dealPix, 0, 0, deckPix, deck[1]*70, 0, 71, 98, SrcCopy )
copyBlt( MyWin, 80, 140, dealPix )
tick = tick + 1
end procedure
----
procedure draw_after_cheat( integer count )
bitBlt( dealPix, count*20, 0, deckPix, 0, 0, 71, 98, PatInvert )
copyBlt( MyWin, 80, 140, dealPix )
sound_off( )
bitBlt( dealPix, count*20, 0, deckPix, 0, 0, 71, 98, SrcCopy )
copyBlt( MyWin, 80, 140, dealPix )
tick = tick + 1
end procedure
----
procedure do_deal( integer self, integer event, sequence params )
integer timerId = params[1]
if timerId = 1 then
setEnable( menuCheat, 0 )
tick2=0
setTimer( MyWin, myTimer2, 600 )
if cheat = 0 then
draw_normal( tick )
if tick = 4 then -- are we done ?
killTimer( MyWin, myTimer )
end if
else
if tick = 0 then
draw_cheat( )
else
draw_after_cheat( tick-1 )
end if
if tick = 5 then
killTimer( MyWin, myTimer )
end if
end if
elsif timerId = 2 then
killTimer( MyWin, myTimer2 )
ready = 1
setEnable( menuCheat, 1 )
setText( statBar, msg1 )
-- the following would show all cards dealt...
-- setText( statBar, msg1 & sprintf( " %d %d %d %d",
-- {deck[1], deck[2], deck[3], deck[4]} ) )
elsif timerId = 3 then
killTimer( MyWin, myTimer3 )
play( picked )
tick2 += 1
end if
end procedure
setHandler( MyWin, w32HTimer, routine_id( "do_deal" ) )
----
procedure kill_timers( )
killTimer( MyWin, myTimer )
killTimer( MyWin, myTimer2 )
killTimer( MyWin, myTimer3 )
end procedure
----
procedure cheat_deal( integer self, integer event, sequence params )
kill_timers( )
ready=0
if cheat = 0 then
cheat = 1 setCheck( menuCheat, 1 ) else
cheat = 0 setCheck( menuCheat, 0 )
end if
green( )
tick=0
setTimer( MyWin, myTimer, 500 )
do_deal( self, event, {1} )
end procedure
setHandler( menuCheat, w32HClick, routine_id( "cheat_deal" ) )
----
procedure pick( integer self, integer event, sequence params )
integer key = params[1]
if ready=1 then ready=0
if key > 48 and key < 53 then
picked = key - 48
setTimer( MyWin, myTimer3, 100 )
end if
end if
end procedure
setHandler( MyWin, w32HKeyDown, routine_id( "pick" ) )
----
procedure on_bitmap( integer self, integer event, sequence params )
integer mouse_event = params[1]
integer x x = params[2]
integer y y = params[3]
if ready=1 then
if mouse_event = LeftDown then
if x > 80 then
if x < 211 then
if y > 141 and y < 237 then
picked = 0
for i = 80 to 140 by 20 do
if x > i+1 and x < i + ( 20 - 1 ) then
picked = floor( ( i - 80 ) / 20 ) + 1
end if
end for
if x > 140 and x < 210
then picked = 4
end if
if picked != 0 and ready = 1 then
ready = 0
setTimer( MyWin, myTimer3, 100 )
end if
end if
end if
end if
end if
end if
end procedure
setHandler( MyWin, w32HMouse, routine_id( "on_bitmap" ) )
----
procedure re_paint( integer self, integer event, sequence params )
copyBlt( MyWin, 80, 140, dealPix )
copyBlt( MyWin, 70, 35, playPix )
end procedure
setHandler( MyWin, w32HPaint, routine_id( "re_paint" ) )
----
procedure quit( integer self, integer event, sequence params )
closeWindow( MyWin )
end procedure
setHandler( menuOut, w32HClick, routine_id( "quit" ) )
----
WinMain( MyWin, Normal )
----..end of lesson.