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
ready = 0
myscore = 0
yourscore = 0
cheat = 0
tick = 0

----

constant
msg0 = "...dealing cards.", 
msg1 = "...draw a card (  1 to 4  )", 
msg2 = "You Lose  : )", 
msg3 = "You Win  !!", 

MyWin    = create( Window, "Card-Trix-3", 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

----

sequence temp_wins = { MyWin, yours, mine } -- fix a snag
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

----

procedure play( integer picked )
integer pos, rnd, you, me
  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()
  sleep( 1 )
  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()
  sleep( 2 )
  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
  sleep( 3 )
  green()
  deck=shuffle( deck )
  tick = 0
  setText( statBar, msg0 )
  setTimer( MyWin, myTimer, 500 )
end procedure

----

procedure start_up( atom self, atom event, sequence params )
  green()
  deck = shuffle( deck )
  setText( statBar, msg0 )
  setTimer( MyWin, myTimer, 500 )
end procedure
--
setHandler(  MyWin, w32HOpen, routine_id( "start_up" ) )
----

procedure stall(  atom x )
atom delay
  delay=time()
  while time() < delay + x do
  end while
end procedure

--

procedure draw_normal( integer count )
  bitBlt( dealPix, count*20, 0, deckPix, 0, 0, 71, 98, PatInvert )
  copyBlt( MyWin, 80, 140, dealPix )
  sound_off()
  stall( .03 )
  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()
  stall( .03 )
  bitBlt( dealPix, count*20, 0, deckPix, 0, 0, 71, 98, SrcCopy )
  copyBlt( MyWin, 80, 140, dealPix )
  tick = tick + 1
end procedure

----

procedure do_deal( atom self, atom event, sequence params )        --( integer timerId )
atom timerId = params[1]
  if timerId = 1 then
    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
    setText( statBar, msg1 )
  end if
end procedure
--
setHandler(  MyWin, w32HTimer, routine_id( "do_deal" ) )
----

procedure kill_timers()
  killTimer( MyWin, myTimer )
  killTimer( MyWin, myTimer2 )
end procedure

----

procedure cheat_deal()
  kill_timers()
  ready=0
  if cheat = 0 then cheat = 1 else cheat = 0 end if
  green()
  tick=0
  setTimer( MyWin, myTimer, 500 )
  do_deal( 0, 0, {1} )
end procedure
--
setHandler(  menuCheat, w32HClick, routine_id( "cheat_deal" ) )
----

procedure pick( atom self, atom event, sequence params )    --( integer key, integer shift )
  atom key = params[1]
  if ready=1 then ready=0
    if key > 48 and key < 53 then
      picked = key - 48
      play( picked )
    end if
  end if
end procedure
--
setHandler(  MyWin, w32HKeyDown, routine_id( "pick" ) )

----

procedure on_bitmap( atom self, atom event, sequence params )    --( integer event, atom x, atom y, atom shift )
atom x = params[2]
atom y = params[3]

integer picked
  if 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
            play( picked )
          end if
        end if
      end if
    end if
  end if
end procedure
--
setHandler(  MyWin, w32HMouse, routine_id( "on_bitmap" ) )
----

procedure re_paint( atom self, atom event, sequence params )    --( integer x1, integer y1, integer x2, integer y2 )
  copyBlt( MyWin, 80, 140, dealPix )
  copyBlt( MyWin, 70, 35, playPix )
end procedure
--
setHandler(  MyWin, w32HPaint, routine_id( "re_paint" ) )
----

procedure quit( atom self, atom event, sequence params )
  closeWindow(  MyWin  )
end procedure
--
setHandler(  menuOut, w32HClick, routine_id( "quit" )  )

----

WinMain(  MyWin, Normal  )
