Tilebased Platformer....

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|711\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Tilebased Platformer....
Thu, 19 Oct 2006, 12:22
mole	Hiya! OK, so, i started on my long lost game, "The \|edit\| Chronicles... my game is the chronicles... \|edit\| of Huji" again. I painfully managed to get the basic basics down... draw the tiles+pickups, handle picking up pickups, handle Huji stepping on a specail square (e.g. the exit square or th "four flowers" sqaure (you lose health if you step on the 4flower square because.... you eat them and it hurts you XD.. it was purely for testing the snazzy health bar..) What is wrong, you may ask. Well, plenty Player collisions only work if Huji is moving at 32 pixels (width and height of each tile) per frame. If it is not set to 32... well.. try and see for yourself, then fix pl0x Scrolling the map.... :/ Yeah.... someone gonna tell me how I can implement this? I have seen planty of tutorials (Krylar's book for example) but i cannot do it to save my life... ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Title: The Chronicles of Huji: The Secret Unfolds ;Notes: First game of a series ;;;;;;;;;;;;;;;;;;;;;;;;;;;; Const grw = 800,grh = 600 ;set the graphics width and height Const UP_KEY = 200 Const DOWN_KEY = 208 Const RIGHT_KEY = 205 Const LEFT_KEY = 203 Const ENTER = 28 Const BSPACE = 14 Graphics grw,grh,16,3 ;set up the graphics mode AppTitle"Huji: The Secret Unfolds" ;the title for the window SetBuffer BackBuffer() ;enable page flipping SeedRnd MilliSecs() ;seed the random generator ;#inclde files Include "libraries\particle_lib.bb" ;the paticles lib Include "libraries\fadeScreen_lib.bb" ;the lib for fading screen. ;--------------------------------------------------------------- Global ground = LoadImage("graphics\tiles\dirt_floor.png") Global dirt = LoadImage("graphics\tiles\dirt.png") Global water = LoadImage("graphics\tiles\water.png") Global wall = LoadImage("graphics\tiles\wall.png") Global grass = LoadImage("graphics\tiles\grass.png") Global flow_2 = LoadImage("graphics\tiles\flower_2.png") Global flow_4 = LoadImage("graphics\tiles\flower_4.png") Global finish = LoadImage("graphics\tiles\exit.png") Global gem = LoadImage("graphics\pickups\gem.png") Global bg_image = LoadImage("graphics\title\huji_bg.png") ;the cool image in the title screen Global s_bttn = LoadAnimImage("graphics\title\start_button.png",149,46,0,2) ;the start button Global e_bttn = LoadAnimImage("graphics\title\exit_button.png",149,46,0,2) ;the exit button Global mouse = LoadImage("graphics\title\mouse.png") ;the mouse image Global ss_logo = LoadImage("graphics\misc\ss_logo.png") ;the squigglesoft logo Global huji_image = LoadAnimImage("graphics\chars\huji_anim_img.png",32,32,0,32) ;Huji's image Global jap_fnt = LoadFont("shoguns clan",40,0,0,0) ;load the main font (japanese style) Global jap_fnt_ingame = LoadFont("shoguns clan",20,0,0,0) MaskImage mouse,255,255,255 ;mask the mouse image MaskImage huji_image,255,0,255 ;the huji himself MaskImage gem,255,0,0 ;----------------------------------------------------------------- Global offsetx = 0 Global offsety = 0 Global map_width = 25 Global map_height = 19 Global finishedLevel = 0 Global title = 1 ;flag for showing the title sceen ;the colour for the text on the title screen Global r# = 0 Global g# = 0 Global b# = 0 Global start_button = 0 ;start button boolean: 0 = not pressed, 1 = pressed Global exit_button = 0 ;exit button boolean: 0 = not pressed, 1 = pressed Global rotations = 32 Global s_frame = 0 ;the start button's current frame Global e_frame = 0 ;the exit button's current frame Global s_x = ((grw/2)-(ImageWidth(s_bttn)/2)) ;the start button's x coordinate Global e_x = ((grw/2)-(ImageWidth(e_bttn)/2)) ;the exit button's start coordinate Global s_y = (grh/2)+100 ;the start button's y coordinate Global e_y = (grh/2)+200 ;the exit button's y coordinate Global exit_game = 0 Global FrameTimer = MilliSecs() Global button_click = LoadSound("sounds\button_click.wav") ;----------------------------------------------------------------- ;Arrays Dim map$(2,map_width,map_height) ;array for level 1 map ;----------------------------------------------------------------- ;Types Type huji ;The type that most enemies and characters will be using Field image ;image handle Field x,y ;x and y variables Field speed ;speed of char Field health ;health of char Field score ;huji's score Field level ;current level Field dir ;players direction Field frame ;the current frame End Type Global huji.huji = New huji huji\image = huji_image huji\x = 32 huji\y = 32 huji\speed = 32 huji\health = 100 huji\score = 0 huji\level = 1 huji\dir = 4 huji\frame = 0 ;------------------------------------------------------------------ ;------------------------------------------------------------------ MoveMouse((grw/2),(grh/2)) ;move the mouse to the centre of the screen title_music = PlayMusic("sounds\title.mid") ;play the title music While start_button = 0 ;while the start button has not been pressed Cls ;clear the screen title() ;do the title() function Flip ;flip the buffers Wend ;end of title loop ;------------------------------------------------------------------ ;file$ = RequestInput$("Filename for save file: ",20,20) ;iniHUJI(file$) fade() While Not KeyDown(1) Cls level = ChooseLevel() Select level Case 1 level1() Case 2 level2() End Select Flip Wend ;------------------------------------------------------------------ ;;;;;;;;;;;;;;;;;;;;;;;; ;Functions ;;;;;;;;;;;;;;;;;;;;;;;; ;title(): handles everything to do with the title screen Function title() particles(MouseX()+(ImageWidth(mouse)/2),MouseY()+(ImageHeight(mouse)/2),Rand(0,255),Rand(0,100),Rand(0,100),1) DrawImage bg_image,((grw/2)-(ImageWidth(bg_image)/2)),0 DrawImage s_bttn,s_x,s_y,s_frame DrawImage e_bttn,e_x,e_y,e_frame DrawImage mouse,MouseX(),MouseY() SetFont jap_fnt ;set the font to the main one Color r,g,b ;set the colour Text (grw/2),300,"Welcome to the game",1,1 ;draw the text r = r+0 g = g+0 b = b+1 ;update the blue colour ;something about capping the colour... If r >= 255 r = 255 EndIf If g >= 255 g = 255 EndIf If b >= 255 b = 255 EndIf If MouseX() => s_x And MouseY() => s_y And MouseX() <= (s_x+ImageWidth(s_bttn)) And MouseY() <= (s_y+ImageHeight(s_bttn)) ;see if the start button has been clicked If MouseHit(1) ChannelVolume button_click,1.0 PlaySound button_click Delay 1000 start_button = 1 ;if it has, update the button's flag EndIf s_frame = 1 ;update the button frame particles(s_x,s_y,Rand(0,70),Rand(0,70),255,2) ;make some particles on the corner particles(s_x+ImageWidth(s_bttn),s_y,Rand(0,70),Rand(0,70),255,2) ;make some more particles on the other corner PlaySound button_roll ;play the roll over sound Else s_frame = 0 ;when user does not have mouse over button, reset the frame EndIf If MouseX() => e_x And MouseY() => e_y And MouseX() <= (e_x+ImageWidth(e_bttn)) And MouseY() <= (e_y+ImageHeight(e_bttn)) ;see if the exit button has been clicked If MouseHit(1) ChannelVolume button_click,1.0 PlaySound button_click Delay 1000 End EndIf e_frame = 1 particles(e_x,e_y,Rand(0,70),255,Rand(0,70),2) particles(e_x+ImageWidth(e_bttn),e_y,Rand(0,70),255,Rand(0,70),2) PlaySound button_roll Else e_frame = 0 EndIf If start_button = 1 ;if the user hit the start button EndIf update_particles() ;update the particles End Function ;-------------- Function iniHUJI(filename$) huji.huji = New huji If huji <> Null Then load_data = OpenFile("data\"+filename$+".dat") ;try and open the file If load_data <> 0 ;if there is a file ;read the data huji\level = ReadInt(load_data) huji\x = ReadInt(load_data) huji\y = ReadInt(load_data) huji\score = ReadInt(load_data) huji\health = ReadInt(load_data) CloseFile(load_data) Else write_data = WriteFile("data\"+filename$+".dat") ;then make one If write_data <> 0 WriteInt(write_data,1) WriteInt(write_data,322) WriteInt(write_data,322) WriteInt(write_data,0) WriteInt(write_data,100) CloseFile(write_data) Else RuntimeError "Failed to make a save file" EndIf EndIf Else RuntimeError("Falied to create new instance of -huji-!") EndIf End Function ;-------------- Function RequestInput$(prompt$,textX,textY) SetFont(LoadFont("Arial",12,0,0,0)) While Not KeyDown(ENTER) Cls key=GetKey() If key >= 97 And key <= 122 Then response$ = response$ + Chr$(key) If key >= 65 And key <= 90 Then response$ = response$ + Chr$(key) If key = 8 Then response$ = Left(response$,Len(response$)-1) Color 255,255,255 Text textX,textY,prompt$+response$+"_" Flip Wend FlushKeys() Return response$ End Function ;-------------- Function drawHUD() SetFont jap_fnt_ingame Color 255,255,255 Text 0,0,"Health: "+huji\health Text 100,0,"Up: "+collideUP() Text 150,0,"Down: "+collideDOWN() Text 250,0,"Left: "+collideLEFT() Text 350,0,"Right: "+collideRIGHT() Color 255,0,0 Rect 20,200,20,2100,1 Color 0,0,0 Rect 20,200,20,2(100-huji\health),1 Text 500,0,"Tile X: "+ huji\x/32 Mod 32 Text 600,0,"Tile Y: "+huji\y/32 Mod 32 End Function ;-------------- Function level1() load_level(1,"data\level1.lev") While Not finishedLevel Cls draw_level() drawHUD() update_player() If KeyDown(1) Then End Delay 2 Flip Wend End Function Function level2() load_level(2,"level1.lev") While Not KeyDown(1) Cls draw_level() drawHUD() update_player() ;collide() ;proove_level() If KeyDown(1) Then End Delay 2 Flip Wend End Function ;-------------- Function load_level(levelNumber%,level_file$) levelFinished = 0 Select levelnumber% Case 1 ;load_level = ReadFile(level_file$) ;If load_level <> 0 Then ; map_width = ReadInt(load_level) ; ;FilePos(load_level) = FilePos(load_level) + 1 ; map_height = ReadInt(load_level) ; For i = 0 To map_height-2 ; map_data$ = ReadString$(load_level) ; For x = 0 To map_width-2 ; map$(0,x,y) = Mid(map_data$,x+1,1) ; Next ; y=y+1 ; Next ; CloseFile(load_level) ;Else ; RuntimeError("Could not load file!") ;EndIf Restore level_1_data For i = 0 To map_height Read map_data$ For x = 0 To map_width map$(0,x,y) = Mid(map_data$,x+1,1) Next y=y+1 Next Restore level_1_pickups For i_pick = 0 To map_height Read pick_up$ For x_pick = 0 To map_width map$(1,x_pick,y_pick) = Mid(pick_up$,x_pick+1,1) Next y_pick = y_pick+1 Next Case 2 Restore level_2_data For i = 0 To map_height Read map_data$ For x = 0 To map_width map$(0,x,y) = Mid(map_data$,x+1,1) Next y=y+1 Next Restore level_2_pickups For i_pick = 0 To map_height Read pick_up$ For x_pick = 0 To map_width map$(1,x_pick,y_pick) = Mid(pick_up$,x_pick+1,1) Next y_pick = y_pick+1 Next End Select End Function ;-------------- Function draw_level() For x_map=0 To map_width For y_map=0 To map_height If map$(0,x_map,y_map)="f" Then DrawImage ground, (x_map32)-offsetx, (y_map32)-offsety If map$(0,x_map,y_map)="d" Then DrawImage dirt, (x_map32)-offsetx, (y_map32)-offsety If map$(0,x_map,y_map)="w" Then DrawImage water, (x_map32)-offsetx, (y_map32)-offsety If map$(0,x_map,y_map)="q" Then DrawImage wall, (x_map32)-offsetx, (y_map32)-offsety If map$(0,x_map,y_map)="g" Then DrawImage grass, (x_map32)-offsetx, (y_map32)-offsety If map$(0,x_map,y_map)="j" Then DrawImage flow_2, (x_map32)-offsetx, (y_map32)-offsety If map$(0,x_map,y_map)="k" Then DrawImage flow_4, (x_map32)-offsetx, (y_map32)-offsety If map$(0,x_map,y_map)="e" Then DrawImage finish, (x_map32)-offsetx, (y_map32)-offsety Next Next For x_pick=0 To map_width For y_pick=0 To map_height If map$(1,x_pick,y_pick)="g" Then DrawImage gem, (x_pick32)-offsetx, (y_pick32)-offsety Next Next End Function ;-------------- Function update_player() DrawImage huji\image,huji\x,huji\y,huji\frame Local xPos = huji\x / 32 Local yPos = huji\y / 32 If map$(0,xPos,yPos) = "e" Then fade() Cls SetFont jap_fnt:Color 0,0,255 Text grw/2,grh/2,"Congratulations! You have completed level "+huji\level+"!",1,1 Text grw/2,grh*.75,"Press any key to continue!",1,1 Flip SetFont jap_fnt_ingame FlushKeys() WaitKey() fade() huji\level = huji\level + 1 finishedLevel = 1 ResetHuji() EndIf If map$(1,xPos,yPos) = "g" Then huji\score = huji\score + 20 map$(1,xPos,yPos) = "n" EndIf If map$(0,xPos,yPos) = "k" Then huji\health = huji\health - 1 map$(0,xPos,yPos) = "g" EndIf ;oldX = huji\x ;oldY = huji\y If collideRIGHT() If KeyDown(RIGHT_KEY) huji\x = huji\x + huji\speed ;move player huji\dir = 3 huji\frame = 8 huji\frame = huji\frame + 1 ;offsetx = offsetx + huji\speed If MilliSecs() > FrameTimer + 50 If huji\frame <= 8 huji\frame = 15 EndIf If huji\frame >= 15 huji\frame = 8 EndIf FrameTimer = MilliSecs() EndIf EndIf EndIf If collideLEFT() If KeyDown(LEFT_KEY) huji\x = huji\x - huji\speed huji\dir = 1 huji\frame = 0 ;offsetx = offsetx - huji\speed If MilliSecs() > FrameTimer + 50 If huji\frame >= 7 huji\frame = 0 EndIf huji\frame = huji\frame + 1 FrameTimer = MilliSecs() EndIf EndIf EndIf If collideUP() If KeyDown(UP_KEY) huji\y = huji\y - huji\speed huji\dir = 2 huji\frame = 24 ;offsety = offsety - huji\speed If MilliSecs() > FrameTimer + 50 If huji\frame <= 24 huji\frame = 31 EndIf If huji\frame >= 31 huji\frame = 24 EndIf huji\frame = huji\frame + 1 FrameTimer = MilliSecs() EndIf EndIf EndIf If collideDOWN() If KeyDown(DOWN_KEY) huji\y = huji\y + huji\speed huji\dir = 4 huji\frame = 16 ;offsety = offsety + huji\speed If MilliSecs() > FrameTimer + 50 If huji\frame <= 16 huji\frame = 23 EndIf If huji\frame >= 23 huji\frame = 16 EndIf huji\frame = huji\frame + 1 FrameTimer = MilliSecs() EndIf EndIf EndIf End Function ;-------------- Function ChooseLevel() If huji\level = 0 Then huji\level = 1 Return huji\level End Function ;------------------------------------------------------------------ Function ResetHuji() huji\x = 32 huji\y = 32 huji\health = 100 End Function Function collideRIGHT() Local xPos = (huji\x/32) Local yPos = (huji\y/32) Select map$(0,xPos+1,yPos) Case "w","q" Return False Default Return True End Select End Function Function collideLEFT() Local xPos = (huji\x/32) Local yPos = (huji\y/32) Select map$(0,xPos-1,yPos) Case "w","q" Return False Default Return True End Select End Function Function collideDOWN() Local xPos = (huji\x/32) Local yPos = (huji\y/32) Select map$(0,xPos,yPos+1) Case "w","q" Return False Default Return True End Select End Function Function collideUP() Local xPos = (huji\x/32) Local yPos = (huji\y/32) Select map$(0,xPos,yPos-1) Case "w","q" Return False Default Return True End Select End Function ;All the data .level_1_data Data "qqqqqqqqqqqqqqqqqqqqqqqqq" Data "qdddddqgggggggggggggggkgq" Data "qdddddqgkgggggggggggggggq" Data "qdqqqdqggddddddgjgggggggq" Data "qdqwqdqggdwwwwdgggggggggq" Data "qdqwqdqggdwwwwdgggggjgggq" Data "qdqwqdqjgdwwwwdddddddddwq" Data "qdqwqdqggdwwwwwwwwwwwwdwq" Data "qdqwqdqggdddddddddddwwdwq" Data "qdqwqdqgkdddddddedddwwdwq" Data "qdqwqdqqqdddddddddddwwdwq" Data "qdqwqdqwwwwdwwwwwwwwwwdwq" Data "qdqwqdqqqqqdddddddwwwwdwq" Data "qdqwqdqggggdwwwwwdwwdddwq" Data "qdqwqdqgjggdwwwwwdwwdgggq" Data "qdqwqdqggggdwwwwwdwwdggkq" Data "qdqqqdqggggdwwwwwdwwdjggq" Data "qdddddddddddwwwwwddddgggq" Data "qqqqqqqqqqqqqqqqqqqqqqqqq" .level_1_pickups Data "nnnnnnnnnnnnnnnnnnnnnnnnn" Data "nnnnnnnnnnnnnnnnngggnnnnn" Data "nnnnnnnnnnnnnnnnngggnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngggggggggggnnnnnnnnnnnnn" Data "nnnnnnnnnnnnnnnnnnnnnnnnn" .level_2_data Data "qqqqqqqqqqqqqqqqqqqqqqqqq" Data "qdddddqgggggggggggggggkgq" Data "qddgggggggggggggggggggggq" Data "qdqqggqggddddddgjgggggggq" Data "qdqwgggggdwwwwdgggggggggq" Data "qdqwgggggdwwwwdgggggjgggq" Data "qdqwgggjgdwwwwdddddddddwq" Data "qdqwggqggdwwwwwwwwwwwwdwq" Data "qdqwggqggdddddddddddwwdwq" Data "qdqgqdqgkdddddddeddddddwq" Data "qdqwqddqqgggdddddddddwdwq" Data "qdqwqddwwwwwwddddwwdwwdwq" Data "qdqwqddqqqdddddddddwwwdwq" Data "qdqwqdqdgdgdwwdwwdwwdddwq" Data "qdqwqdqddggdwwdwwdwwdgggq" Data "qdqwqdqggggdggggwdgwdggkq" Data "qdqqqdqggggdwwdwwgwwdjggq" Data "qdddddddddddwwdwwddddgggq" Data "qqqqqqqqqqqqqqqqqqqqqqqqq" ;Data "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq" ;Data "qdddddqgggggggggggggggkgggggggq" ;Data "qdddddqgkgggggggggggggggggggggq" ;Data "qdwwwwwwwwwwwwwwwwwwwwwgggggggq" ;Data "qddwwwwwwwwwwwwwwwwwwwggggggggq" ;Data "qddwwwwwwwwwwwwwwwwwwgggggggggq" ;Data "qdddwwwwwwwddddewwwwdddwggggggq" ;Data "qddwqwwwwwwddwwwwwwdddddggggggq" ;Data "qddwqdwwwwwddwwwwwddwwdwggggggq" ;Data "qddwqdqwwwwddwwwwdddwwdwggggggq" ;Data "qddwqdqqwwwddwwwddddwwdwggggggq" ;Data "qddwqddddwwddwwddddddddwggggggq" ;Data "qddwqdqqqqwddwddddwwwwdwggggggq" ;Data "qddwqdqggggddgggggggggdwggggggq" ;Data "qddwqdqgjggddggggggwdgggggggggq" ;Data "qddwqdqggggddggggggggggkggggggq" ;Data "qddddddddddddgggggggggggggggggq" ;Data "qddddddddddddgggggggggggggggggq" ;Data "qddddddddddddgggggggggggggggggq" ;Data "qddddddddddddgggggggggggggggggq" ;Data "qddddddddddddgggggggggggggggggq" ;Data "qddddddddddddgggggggggggggggggq" ;Data "qddddddddddddgggggggggggggggggq" ;Data "qddddddddddddgggggggggggggggggq" ;Data "qddddddddddddgggggggggggggggggq" ;Data "qddddddddddddgggggggggggggggggq" ;Data "qddddddddddddgggggggggggggggggq" ;Data "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq" .level_2_pickups Data "nnnnnnnnnnnnnnnnnnnnnnnnn" Data "nnnnnnnnnnnnnnnnngggnnnnn" Data "nnnnnnnnnnnnnnnnngggnnnnn" Data "ngnnggggnnnnnnnnnnnnnnnnn" Data "ngnnnnnnggggggnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnggggggg" Data "ngnnnnngggggggnnnnnnnnnnn" Data "ngnnnngggggggggnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnggggggggnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnnnnnnnggggggnnnnnnnn" Data "ngnnnnnnnnnnnnnnnnnnnnnnn" Data "ngnnnngggggggnnnnnnnnnnnn" Data "ngnnnnnnnnnnnnnggggggnnnn" Data "ngggggggggggnnnnnnnnnnnnn" Data "nnnnnnnnnnnnnnnnnnnnnnnnn" ;Data "nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn" ;Data "nnggggnnnnnnnnnnngggnnnnnnnnnnn" ;Data "nnnnnnggggnnnnnnngggnnnnnnnnnnn" ;Data "ngnnnnnnnnnnnnnnnnnnnnnnnnnnnnn" ;Data "ngnnnnnnnnnnnnnnnnnnnnnnnnnnnnn" ;Data "ngnnnngggggnnnnnnnnnngggnnnnnnn" ;Data "ngnnnnnnngggggnnnnnnnnnnnnnnnnn" ;Data "ngnnnnnnnnnnnnnnnnnnnnnnnnnnnnn" ;Data "ngnnnnnnnnnnnngggggnnnnnnnnnnnn" ;Data "ngnnnnnnnnnnggnnnnngnnnnnnnnnnn" ;Data "ngnnnnnnnnnnnnnnnnnnnnnnnnnnnnn" ;Data "ngnnnnnnnnnnnnnnnnnnnnnnnnnnnnn" ;Data "ngnnnnngnnnnnnnnnnnnnnnnnnnnnnn" ;Data "ngnnnnnnggnnnngggggggnnnnnnnnnn" ;Data "ngnnnnnnnngnnnnnnnnnnnnnnnnnnnn" ;Data "ngnnnnnnnnngggnnnnnnnnnnnnnnnnn" ;Data "ngnnnnnnnnnnnnnnnnnnnnnnnnnnnnn" ;Data "ngggggggggggnnnnnnnnnnnnnnnnnnn" ;Data "ngggggggggggnnnnnnnnnnnnnnnnnnn" ;Data "ngggggggggggnnnnnnnnnnnnnnnnnnn" ;Data "ngggggggggggnnnnnnnnnnnnnnnnnnn" ;Data "ngggggggggggnnnnnnnnnnnnnnnnnnn" ;Data "ngggggggggggnnnnnnnnnnnnnnnnnnn" ;Data "ngggggggggggnnnnnnnnnnnnnnnnnnn" ;Data "ngggggggggggnnnnnnnnnnnnnnnnnnn" ;Data "ngggggggggggnnnnnnnnnnnnnnnnnnn" ;Data "ngggggggggggnnnnnnnnnnnnnnnnnnn" ;Data "nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn" --v I will upload the graphics etc. when i can, run now i have to leave, pretty quickly xD cheers, mole
Thu, 19 Oct 2006, 12:33
magicman	this most likely wont help you, but when i do platformers(i dont, did once though) i make the tiles a type, that way you can have easy collisions, i think that might make it run slow however. i cant really look at your code at the moment, im in school. -=-=- Stuff... Yeah...
Thu, 19 Oct 2006, 15:20
Jayenkai	I'll take a look once you upload the graphics, since I'm not in the mood for tweaking together a few images I must admit, you've done an awful lot of work!! If your collision is only working when the player is at steps of 32, then why not create a kind of Grid-Based platformer.. If the player hits right, then the character takes 8*4 pixel steps, leaving him stood back at the 32nd pixel. It's kind of a cheat, but if you look at Mario Vs Donkey Kong on the GBA it does that, and it's only about 3/4 years old. So there's nothing especially wrong with that method. So long as it fits in with the style of gameplay. -=-=- ''Load, Next List!''
Thu, 19 Oct 2006, 16:01
mole	ahhh.. 8*4 steps... thats sneaky! I will have a crack at that tomorow... Just gonna upload a .rar onto my new apache site \|edit\| hmmm... not much point in putting it on my apache website seeing as it will probably be off when all the millions of people flood to download the .rar... but it is there anyway and also on my freewebs: My apache one Freewebs site, just add 'huji.rar' to get to the file. Have fun fixing my dirty, horrible code for me \|edit\|
Sat, 21 Oct 2006, 02:25
mole	I just posted this on devcrunch... it is a bit clearer. jay: What you say about 84 steps... i tried a for.. next loop in the movement bits (update_player()) but it did not work. I am doing something wrong? Media: huji.rar Devcrunch post: I tried what you suggested...[rob was saying i should try defining the y_pick and y variables in the load_level() function] (and also resetting all the variables involved to 0 and even changing the variable names in case that was the problem) but to no avail The error for the level 2 pickups problem, according to blitz debug, is in the line Restore level_2_pickups For i_pick2 = 0 To map_height Read pick_up2$ ;;;;;;;;;;;;;;;;;<<<<<<<<THIS LINE For x_pick2 = 0 To map_width map$(1,x_pick2,y_pick2) = Mid(pick_up2$,x_pick2+1,1) Next y_pick2 = y_pick2+1 Next --v To help, i will plit up my code, showing the bits that are involved with the problems i have: Movement is handled in my big sexy update_player() func, with help from the collide***() functions, which simply return whether the square next to huij is unpassable. How can i get it to work properly as in moving in steps smaller than 32 (thats the tile size) per keyhit? update_player() (i have removed the animation code... unneeded and not working): Function update_player() DrawImage huji\image,huji\x,huji\y,huji\frame Local xPos = huji\x / 32 Local yPos = huji\y / 32 If map$(0,xPos,yPos) = "e" Then fade() Cls SetFont jap_fnt:Color 0,0,255 Text grw/2,grh/2,"Congratulations! You have completed level "+huji\level+"!",1,1 Text grw/2,grh.75,"Press any key to continue!",1,1 Flip SetFont jap_fnt_ingame FlushKeys() WaitKey() fade() huji\level = huji\level + 1 finishedLevel = 1 ResetHuji() EndIf If map$(1,xPos,yPos) = "g" Then huji\score = huji\score + 20 map$(1,xPos,yPos) = "n" EndIf If map$(0,xPos,yPos) = "k" Then huji\health = huji\health - 1 map$(0,xPos,yPos) = "g" EndIf If collideRIGHT() If KeyDown(RIGHT_KEY) huji\x = huji\x + huji\speed huji\dir = 3 huji\frame = 8 huji\frame = huji\frame + 1 ;offsetx = offsetx + huji\speed EndIf EndIf If collideLEFT() If KeyDown(LEFT_KEY) huji\x = huji\x - huji\speed huji\dir = 1 huji\frame = 0 ;offsetx = offsetx - huji\speed EndIf EndIf If collideUP() If KeyDown(UP_KEY) huji\y = huji\y - huji\speed huji\dir = 2 huji\frame = 24 ;offsety = offsety - huji\speed EndIf EndIf If collideDOWN() If KeyDown(DOWN_KEY) huji\y = huji\y + huji\speed huji\dir = 4 ;offsety = offsety + huji\speed EndIf EndIf End Function --v Scrolling the map..... I have no idea howw to implement this basically. It involves updating offsetx and offsety, but where? How can i get it to scroll nicely (as of this point, i dont mind whther the map scrolls so you cannot see past the edge of the edge tiles, or whther you can)? How do i keep the collisions all working? Lots of questions XD Hope thats a bit clearer, mole
Sun, 22 Oct 2006, 02:42
mole	OK, so rob over at devcrunch helped me fix the level 2 pickups thing... i was missing a -1 in the for..next loop to load the pickups XD Can anyone help with scrolling or movement?