----------------------------------- BladeOfDeath Sun Jan 04, 2004 9:28 am ISP whatdotcolor problem again... ----------------------------------- This time I said screw making pacman stop, if he hits a wall he dies. Who would run into a wall and be fine. Well this game he burns in hell, actually i just came here to check why the code doesn't work. I need help because its due tomorrow this is just the raw code for the game but here it is anyway... View.Set ("graphics:offscreenonly") setscreen ("graphics:vga") setscreen ("nocursor") setscreen ("noechoe") %%%%%%%%%%Variables for Pacman%%%%%%%%%% const pacWid : int := 12 var pacX, pacY, pacXchange, pacYchange, pacMth, pacMth1, mthCls, mthChange : int pacX := 100 pacY := 100 pacXchange := 0 pacYchange := 0 pacMth := 0 pacMth1 := 360 mthCls := 0 mthChange := 0 var reply : string (1) var kill : boolean := false const bgclr : int := 7 %%%%%%%%%%Screen Procedures%%%%%%%%%% procedure background drawfillbox (maxx div 2 - 5, maxy - 50, maxx div 2 + 5, maxy - 100, 1) drawfillbox (0, maxy - 50, maxx, maxy - 55, 1) drawfillbox (0, maxy - 55, 5, maxy - 150, 1) drawfillbox (maxx, maxy - 55, maxx - 5, maxy - 150, 1) drawfillbox (0, maxy - 150, 145, maxy - 155, 1) drawfillbox (maxx, maxy - 150, maxx - 145, maxy - 155, 1) drawfillbox (140, maxy - 155, 145, maxy - 200, 1) drawfillbox (maxx - 140, maxy - 155, maxx - 145, maxy - 200, 1) drawfillbox (0, maxy - 200, 145, maxy - 205, 1) drawfillbox (maxx - 145, maxy - 200, maxx, maxy - 205, 1) drawfillbox (0, maxy - 235, 145, maxy - 240, 1) drawfillbox (maxx, maxy - 235, maxx - 145, maxy - 240, 1) drawfillbox (0, 19, maxx, 14, 1) drawfillbox (0, 19, 5, 114, 1) drawfillbox (maxx, 19, maxx - 5, 114, 1) drawfillbox (0, 109, 145, 114, 1) drawfillbox (maxx, 114, maxx - 145, 109, 1) drawfillbox (140, 109, 145, 159, 1) drawfillbox (maxx - 140, 109, maxx - 145, 159, 1) drawfillbox (0, 159, 145, 164, 1) drawfillbox (maxx - 145, 400, maxx, 405, 1) drawbox (35, maxy - 85, 145, maxy - 120, 1) drawbox (maxx - 45, maxy - 85, maxx - 145, maxy - 120, 1) drawbox (180, maxy - 85, maxx div 2 - 40, maxy - 120, 1) drawbox (maxx - 180, maxy - 85, maxx div 2 + 40, maxy - 120, 1) drawbox (180, maxy - 150, 195, maxy - 205, 1) drawbox (maxx - 180, maxy - 150, maxx - 195, maxy - 205, 1) drawbox (230, maxy - 150, maxx - 230, maxy - 160, 1) drawbox (195, maxy - 190, 245, maxy - 205, 1) drawbox (maxx - 195, maxy - 190, maxx - 245, maxy - 205, 1) drawbox (280, maxy - 160, maxx - 280, maxy - 205, 1) drawbox (230, maxy - 235, maxx - 230, maxy - 290, 1) drawbox (240, maxy - 245, maxx - 240, maxy - 280, 1) drawbox (180, maxy - 235, 195, maxy - 290, 1) drawbox (maxx - 180, maxy - 235, maxx - 195, maxy - 290, 1) drawbox (180, maxy - 320, 245, 49, 1) drawbox (maxx - 180, maxy - 320, maxx - 245, 49, 1) drawbox (280, maxy - 320, maxx - 280, 49, 1) drawbox (40, maxy - 320, 145, 49, 1) drawbox (maxx - 40, maxy - 320, maxx - 145, 49, 1) drawline (195, maxy - 191, 195, maxy - 204, 7) drawline (maxx - 195, maxy - 191, maxx - 195, maxy - 204, 7) drawline (maxx div 2 - 38, maxy - 160, maxx div 2 + 39, maxy - 160, 7) end background %%%%%%%%%%Procedures%%%%%%%%%% procedure pacRgt (pacX : int, pacY : int) pacMth := 30 pacMth1 := 330 drawfillarc (pacX + pacXchange, pacY + pacYchange, pacWid, pacWid, pacMth1, pacMth, bgclr) drawfillarc (pacX + pacXchange, pacY + pacYchange, pacWid, pacWid, pacMth - mthCls, pacMth1 + mthCls, 14) end pacRgt procedure pacUp (pacX : int, pacY : int) pacMth := 120 pacMth1 := 60 drawfillarc (pacX + pacXchange, pacY + pacYchange, pacWid, pacWid, pacMth1, pacMth, bgclr) drawfillarc (pacX + pacXchange, pacY + pacYchange, pacWid, pacWid, pacMth - mthCls, pacMth1 + mthCls, 14) end pacUp procedure pacDown (pacX : int, pacY : int) pacMth := 300 pacMth1 := 240 drawfillarc (pacX + pacXchange, pacY + pacYchange, pacWid, pacWid, pacMth1, pacMth, bgclr) drawfillarc (pacX + pacXchange, pacY + pacYchange, pacWid, pacWid, pacMth - mthCls, pacMth1 + mthCls, 14) end pacDown procedure pacLeft (pacX : int, pacY : int) pacMth := 210 pacMth1 := 150 drawfillarc (pacX + pacXchange, pacY + pacYchange, pacWid, pacWid, pacMth1, pacMth, bgclr) drawfillarc (pacX + pacXchange, pacY + pacYchange, pacWid, pacWid, pacMth - mthCls, pacMth1 + mthCls, 14) end pacLeft procedure clrPac (pacX : int, pacY : int) drawfilloval (pacX + pacXchange, pacY + pacYchange, pacWid + 1, pacWid + 1, 7) end clrPac procedure hit (pacX, pacY : int) if whatdotcolor (pacX, pacY) = 1 then kill := true else kill := false end if end hit %%%%%%%%%%Program%%%%%%%%%% colourback (black) cls pacRgt (pacX, pacY) background colourback (black) getch (reply) mthChange := 2 loop if hasch then getch (reply) else reply := reply end if if reply = chr (200) then hit (pacX, pacY + 13) clrPac (pacX, pacY) pacYchange := pacYchange + 1 pacUp (pacX, pacY) elsif reply = chr (208) then hit (pacX, pacY-13) clrPac (pacX, pacY) pacYchange := pacYchange - 1 pacDown (pacX, pacY ) elsif reply = chr (205) then hit (pacX + 13, pacY) clrPac (pacX, pacY) pacXchange := pacXchange + 1 pacRgt (pacX, pacY) elsif reply = chr (203) then hit (pacX - 13, pacY) clrPac (pacX, pacY) pacXchange := pacXchange - 1 pacLeft (pacX, pacY) end if delay (10) mthCls := mthCls + mthChange if mthCls = 30 or mthCls = -6 then mthChange *= -1 end if View.Update exit when kill = true end loop ----------------------------------- Kuntzy Sun Jan 04, 2004 3:04 pm ----------------------------------- Your whatdotcolor needs to read the pixel in front of the pac man, not his center. ----------------------------------- BladeOfDeath Sun Jan 04, 2004 3:07 pm ----------------------------------- And I would do this how exactly? I am pretty good at turing at school just no the whatdotcolor aspect so please dont mind me. ----------------------------------- BladeOfDeath Sun Jan 04, 2004 3:45 pm ----------------------------------- i fixed it a bit... he actually dies sometime now, but not all the time, he can eat walls a bit... Anyway i need help but here it is, its long so im no gonna repost ill make it a download. PLEASE HELP!!! this is due tomorrow... ----------------------------------- BladeOfDeath Sun Jan 04, 2004 5:15 pm ----------------------------------- I dont normally ask for help unless im really stuck so please try to help me someone? :( :( :( :( :cry: :cry: :cry: ----------------------------------- BladeOfDeath Sun Jan 04, 2004 6:27 pm ----------------------------------- CAN ANYONE HEAR ME?!?!?!?! PLEASE HELP I NEED THIS QUICKLY!!!! ----------------------------------- Dan Sun Jan 04, 2004 10:14 pm ----------------------------------- man it is the holidays, but dan allways likes a good pac man game so i thougth i whould fix it any way. here you go :wink: it's not perfuick but what can you exspted when i am on hoiladays have not sleped in a few days. bacily u where not checking the rigth spot for the color and i found some stuff in your code i did not know what it did so i just delted it :P seems to work ok ----------------------------------- BladeOfDeath Mon Jan 05, 2004 12:10 am ----------------------------------- Dan you are the king. *bows down to dan* You have saved my life!!! ----------------------------------- Dan Mon Jan 05, 2004 9:46 pm ----------------------------------- :dance: