-----------------------------------

bball_mvp88

Sun May 23, 2004 4:08 pm


black jack helpppp

-----------------------------------

can any one tell me why it would  not add the score probably at the end??

var p1 : int := Pic.FileNew ("acehearts.jpg")
var p2 : int := Pic.FileNew ("aceclubs.jpg")
var p3 : int := Pic.FileNew ("acediamonds.jpg")
var p4 : int := Pic.FileNew ("acespades.jpg")
var p5 : int := Pic.FileNew ("twohearts.jpg")
var p6 : int := Pic.FileNew ("twoclubs.jpg")
var p7 : int := Pic.FileNew ("twospades.jpg")
var p8 : int := Pic.FileNew ("twodiamonds.jpg")
var p9 : int := Pic.FileNew ("threehearts.jpg")
var p10 : int := Pic.FileNew ("threeclubs.jpg")
var p11 : int := Pic.FileNew ("threespades.jpg")
var p12 : int := Pic.FileNew ("threediamonds.jpg")
var p13 : int := Pic.FileNew ("fourhearts.jpg")
var p14 : int := Pic.FileNew ("fourclubs.jpg")
var p15 : int := Pic.FileNew ("fourspades.jpg")
var p16 : int := Pic.FileNew ("fourdiamonds.jpg")
var p17 : int := Pic.FileNew ("fivehearts.jpg")
var p18 : int := Pic.FileNew ("fiveclubs.jpg")
var p19 : int := Pic.FileNew ("fivespades.jpg")
var p20 : int := Pic.FileNew ("fivediamonds.jpg")
var p21 : int := Pic.FileNew ("sixhearts.jpg")
var p22 : int := Pic.FileNew ("sixclubs.jpg")
var p23 : int := Pic.FileNew ("sixspades.jpg")
var p24 : int := Pic.FileNew ("sixdiamonds.jpg")
var p25 : int := Pic.FileNew ("sevenhearts.jpg")
var p26 : int := Pic.FileNew ("sevenclubs.jpg")
var p27 : int := Pic.FileNew ("sevendiamonds.jpg")
var p28 : int := Pic.FileNew ("sevenspades.jpg")
var p29 : int := Pic.FileNew ("eighthearts.jpg")
var p30 : int := Pic.FileNew ("eightclubs.jpg")
var p31 : int := Pic.FileNew ("eightspades.jpg")
var p32 : int := Pic.FileNew ("eightdiamonds.jpg")
var p33 : int := Pic.FileNew ("ninehearts.jpg")
var p34 : int := Pic.FileNew ("nineclubs.jpg")
var p35 : int := Pic.FileNew ("ninespades.jpg")
var p36 : int := Pic.FileNew ("ninediamonds.jpg")
var p37 : int := Pic.FileNew ("tenhearts.jpg")
var p38 : int := Pic.FileNew ("tenclubs.jpg")
var p39 : int := Pic.FileNew ("tenspades.jpg")
var p40 : int := Pic.FileNew ("tendiamonds.jpg")
var p41 : int := Pic.FileNew ("jackhearts.jpg")
var p42 : int := Pic.FileNew ("jackclubs.jpg")
var p43 : int := Pic.FileNew ("jackspades.jpg")
var p44 : int := Pic.FileNew ("jackdiamonds.jpg")
var p45 : int := Pic.FileNew ("queenhearts.jpg")
var p46 : int := Pic.FileNew ("queenclubs.jpg")
var p47 : int := Pic.FileNew ("queenspades.jpg")
var p48 : int := Pic.FileNew ("queendiamonds.jpg")
var p49 : int := Pic.FileNew ("kinghearts.jpg")
var p50 : int := Pic.FileNew ("kingclubs.jpg")
var p51 : int := Pic.FileNew ("kingspades.jpg")
var p52 : int := Pic.FileNew ("kingdiamonds.jpg")

randomize
var y:int:=0
randint (y,p1,p52)
var x:int:=0
randint (x,p1,p52)

Pic.Draw (x, 40, 90, picCopy)
Pic.Draw (y, 60, 70, picCopy)
var sum:int:=0
var x5,y5,bnum5,bud5:int
var e:int:=0
    loop
        buttonwait ("down", x5, y5, bnum5, bud5)

        if x5 >= 280 and x5 = 80 and y5 = 280 and x6 = 80 and y6 = 280 and x7 = 30 and y7