I have been trying for a while now to make a video game much like/exactly like the old board game Warhammer quest. Unfortunatly I have no programming or graphics experience. I was gonna try to keep the graphics simple with 2D and keep much of the gameplay the same as the board game just in a video game format. I have no idea what I need to do next, where to go from the little code that I have now. I have looked up and down the forums and searched all I can think of on the web with no luck. I have alot of free time and am willing to learn. I have been thinking about going to school to learn how to make video games. I have attached the code that I have thus far. In case that didn't work I also have copy and pasted the code here into this message. Basically I am looking for some help/ a point in the right direction of what to do next and how to do it. Any info would be greatly appreciated. Thank you for your time.
REM Project: Warhammer Quest
REM Created: 1/18/2008 11:01:39 PM
REM
REM ***** Main Source File *****
REM
GLOBAL PLAYERS = 0
DIM DWARF(4,17)
DWARF(4,PLAYER)=0
REM DWARF(4,NAME$)=DWARFNAME$
DWARF(4,MAXHP)=14
DWARF(4,HP)=14
DWARF(4,MOVEMENT)=4
DWARF(4,WEAPONSKILL)=4
DWARF(4,BALLISTICSKILL)=5
DWARF(4,STR)=3
DWARF(4,TOUGHNESS)=4
DWARF(4,ARMOR)=1
DWARF(4,INITIATIVE)=2
DWARF(4,WILLPOWER)=4
DWARF(4,ATTACKS)=1
DWARF(4,PINNING)=5
DWARF(4,DAMAGE)=RND(6)
DWARF(4,LUCK)=0
DWARF(4,LVL)=1
DIM ORC(101,9)
ORC(101,HP)=3
ORC(101,MOVEMENT)=4
ORC(101,WEAPONSKILL)=3
ORC(101,BALLISTICSKILL)=4
ORC(101,STR)=3
ORC(101,TOUGHNESS)=4
ORC(101,ATTACKS)=1
ORC(101,DAMAGE)=RND(6)
ORC(101,GOLD)=55
SET DISPLAY MODE 800,600,32
Set Text OPAQUE
SYNC ON
SYNC RATE 0
SYNC
COLOR BACKDROP 0
LOAD MUSIC "GLYCERINE.WMA",1
PLAY MUSIC 1
LOAD BITMAP "whqlogo1.bmp",1
LOAD BITMAP "whqchrsel.bmp",2
LOAD IMAGE "Barbarian1.bmp",1
rem LOAD IMAGE "BertonnianKnight1.bmp"'2
LOAD IMAGE "ChaosWarrior1.bmp",3
LOAD IMAGE "Dwarf1.bmp",4
LOAD IMAGE "Elf1.bmp",5
LOAD IMAGE "ElfRanger1.bmp",6
LOAD IMAGE "ImperialNoble1.bmp",7
LOAD IMAGE "PitFighter1.bmp",8
LOAD IMAGE "TrollSlayer1.bmp",9
LOAD IMAGE "wardancer1.bmp",10
LOAD IMAGE "WarriorPriest1.bmp",11
LOAD IMAGE "WitchHunter1.bmp",12
LOAD IMAGE "Wizard1.bmp",13
LOAD IMAGE "SEARCHBUTTON.BMP",14
LOAD IMAGE "MOVEBUTTON.BMP",15
LOAD IMAGE "ATTACKBUTTON.BMP",16
LOAD IMAGE "SHOOTBUTTON.BMP",17
LOAD IMAGE "CASTSPELLBUTTON.BMP",18
LOAD IMAGE "USESKILLBUTTON.BMP",19
LOAD IMAGE "USEITEMBUTTON.BMP",20
LOAD IMAGE "EQUIPITEMBUTTON.BMP",21
LOAD IMAGE "LEAVEDUNGEONBUTTON.BMP",22
LOAD IMAGE "MINIMAP.BMP",23
LOAD IMAGE "TARGETSCREEN.BMP",24
LOAD IMAGE "COMBATLOGAREA.BMP",25
LOAD IMAGE "POWERPHASEAREA.BMP",26
SYNC
Mainmenu:
Do
Mx=MouseX(): My=MouseY(): Mc=MouseClick()
Gosub CheckRegion
Sync
Loop
End
CheckRegion:
Copy Bitmap 1,0
Rem New Game Button
If Mx > 300 and My > 190 And Mx < 500 And My < 220
If MC=1
GOSUB PartyCreation
REM Center Text 400,580,"You Clicked On Button 1!"
Else
UnfilledBox(300,190,500,220,RGB(255,0,0))
Endif
Endif
Rem Load Game Button
If Mx > 290 and My > 250 And Mx < 510 and My < 280
If MC=1
Rem CODE GOES HERE TO LOAD A GAME
Center Text 400,580,"You Clicked On Button 2!"
Else
UnfilledBox(290,250,510,280,RGB(255,0,0))
Endif
Endif
Rem Hall of Legends Button
If Mx > 250 and My > 310 And Mx < 550 And My < 340
If MC=1
Rem CODE GOES HERE TO SEE HIGH SCORES
Center Text 400,580,"You Clicked On Button 3!"
Else
UnfilledBox(250,310,550,340,RGB(255,0,0))
Endif
Endif
Rem Options Button
If Mx > 320 and My > 370 And Mx < 480 And My < 400
If MC=1
Rem CODE GOES HERE TO OPEN OPTIONS WINDOW
Center Text 400,580,"You Clicked On Button 4!"
Else
UnfilledBox(320,370,480,400,RGB(255,0,0))
Endif
Endif
Rem Credits Button
If Mx > 330 and My > 430 And Mx < 470 And My < 460
If MC=1
Rem CODE GOES HERE TO READ CREDITS
Center Text 400,580,"You Clicked On Button 5!"
Else
UnfilledBox(330,430,470,460,RGB(255,0,0))
Endif
Endif
Rem Quit Game Button
If Mx > 300 and My > 490 and Mx < 500 and My < 520
If MC=1
END
Rem CODE GOES HERE TO EXIT GAME
Center Text 400,580,"You Clicked On Button 6!"
Else
UnfilledBox(300,490,500,520,RGB(255,0,0))
Endif
Endif
Return
sync
REM PARTY CREATION SCREEN
PartyCreation:
CLS
COPY BITMAP 2,0
P = 1
DWARFPICKED = 0
Do
Mx=MouseX(): My=MouseY(): Mc=MouseClick()
Gosub CheckRegion2
Sync
Loop
End
CheckRegion2:
REM BARBARIAN BUTTON
If Mx > 15 and My > 100 And Mx < 110 And My < 120
If MC=1
CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(15,100,110,120,RGB(0,100,150))
PASTE IMAGE 1,430,90
Endif
Endif
REM BERTONNIAN KNIGHT BUTTON
If Mx > 15 and My > 140 And Mx < 190 And My < 160
If MC=1
CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(15,140,190,160,RGB(0,100,150))
rem PASTE IMAGE 2,430,90
Endif
Endif
REM CHAOS WARRIOR BUTTON
If Mx > 15 and My > 180 And Mx < 160 And My < 200
If MC=1
CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(15,180,160,200,RGB(0,100,150))
PASTE IMAGE 3,430,90
Endif
Endif
REM DWARF BUTTON
If Mx > 15 and My > 220 And Mx < 80 And My < 240
If MC=1 and DWARFPICKED = 0
DWARF(4,PLAYER)= P
INC PLAYERS,1
INC DWARFPICKED,1
INC P,1
PRINT PLAYERS
PRINT DWARFPICKED
PRINT DWARF(4,PLAYER)
PRINT P
INPUT "WHAT IS THIS CHARACTERS NAME",dwarfname$
REM CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(15,220,80,240,RGB(0,100,150))
PASTE IMAGE 4,430,90
Endif
Endif
REM ELF BUTTON
If Mx > 15 and My > 260 And Mx < 50 And My < 280
If MC=1
CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(15,260,50,280,RGB(0,100,150))
PASTE IMAGE 5,430,90
Endif
Endif
REM ELF RANGER BUTTON
If Mx > 15 and My > 300 And Mx < 120 And My < 320
If MC=1
CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(15,300,120,320,RGB(0,100,150))
PASTE IMAGE 6,430,90
Endif
Endif
REM IMPERIAL NOBLE BUTTON
If Mx > 15 and My > 335 And Mx < 160 And My < 360
If MC=1
CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(15,335,160,360,RGB(0,100,150))
PASTE IMAGE 7,430,90
Endif
Endif
REM PIT FIGHTER BUTTON
If Mx > 15 and My > 377 And Mx < 125 And My < 400
If MC=1
CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(15,377,125,400,RGB(0,100,150))
PASTE IMAGE 8,430,90
Endif
Endif
REM TROLL SLAYER BUTTON
If Mx > 232 and My > 100 And Mx < 350 And My < 120
If MC=1
CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(232,100,350,120,RGB(0,100,150))
PASTE IMAGE 9,430,90
Endif
Endif
REM WARDANCER BUTTON
If Mx > 232 and My > 140 And Mx < 340 And My < 160
If MC=1
CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(232,140,340,160,RGB(0,100,150))
PASTE IMAGE 10,430,90
Endif
Endif
REM WARRIOR PRIEST BUTTON
If Mx > 232 and My > 180 And Mx < 380 And My < 200
If MC=1
CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(232,180,380,200,RGB(0,100,150))
PASTE IMAGE 11,430,90
Endif
Endif
REM WITCH HUNTER BUTTON
If Mx > 232 and My > 220 And Mx < 367 And My < 240
If MC=1
CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(232,220,367,240,RGB(0,100,150))
PASTE IMAGE 12,430,90
Endif
Endif
REM WIZARD BUTTON
If Mx > 232 and My > 260 And Mx < 305 And My < 280
If MC=1
CENTER TEXT 0,0, "THIS CHR DISABLED"
REM CODE GOES HERE IF PICKED
Else
UnfilledBox2(232,260,305,280,RGB(0,100,150))
PASTE IMAGE 13,430,90
Endif
Endif
REM BEGIN QUEST BUTTON
If Mx > 640 and My > 518 And Mx < 758 And My < 540
If MC=1 AND PLAYERS =1 OR PLAYERS = 2 OR PLAYERS = 3 OR PLAYERS = 4
CLS
GOTO MAINGAME
REM CENTER TEXT 0,0, "THIS BUTTON DISABLED"
REM CODE GOES HERE TO START MAIN PRG
Else
UnfilledBox2(640,518,758,540,RGB(0,100,150))
Endif
Endif
REM BACK BUTTON
If Mx > 640 and My > 562 And Mx < 685 And My < 580
If Mc=1
REM CENTER TEXT 0,0, "THIS BUTTON DISABLED"
CLS
Goto Mainmenu
Else
UnfilledBox2(640,562,685,580,RGB(0,100,150))
Endif
Endif
RETURN
MAINGAME:
CLS
PASTE IMAGE 14,650,375
PASTE IMAGE 15,650,400
PASTE IMAGE 16,650,425
PASTE IMAGE 17,650,450
PASTE IMAGE 18,650,475
PASTE IMAGE 19,650,500
PASTE IMAGE 20,650,525
PASTE IMAGE 21,650,550
PASTE IMAGE 22,650,575
PASTE IMAGE 23,650,0
PASTE IMAGE 24,650,150
PASTE IMAGE 25,0,450
PASTE IMAGE 26,350,450
Do
Mx=MouseX(): My=MouseY(): Mc=MouseClick()
Gosub CheckRegion3
Sync
Loop
End
CHECKREGION3:
REM SEARCH BUTTON
If Mx > 650 and My > 375 And Mx < 800 And My < 400
If MC=1
CENTER TEXT 0,0, "THIS BUTTON DISABLED"
REM CODE GOES HERE TO START MAIN PRG
Else
UnfilledBox3(650,375,800,400,RGB(255,0,0))
Endif
Endif
REM MOVE BUTTON
If Mx > 650 and My > 400 And Mx < 800 And My < 425
If MC=1
CENTER TEXT 0,0, "THIS BUTTON DISABLED"
REM CODE GOES HERE TO START MAIN PRG
Else
UnfilledBox3(650,400,800,425,RGB(255,0,0))
Endif
Endif
REM ATTACK BUTTON
If Mx > 650 and My > 425 And Mx < 800 And My < 450
If MC=1
CENTER TEXT 0,0, "THIS BUTTON DISABLED"
REM CODE GOES HERE TO START MAIN PRG
Else
UnfilledBox3(650,425,800,450,RGB(255,0,0))
Endif
Endif
REM SHOOT BUTTON
If Mx > 650 and My > 450 And Mx < 800 And My < 475
If MC=1
CENTER TEXT 0,0, "THIS BUTTON DISABLED"
REM CODE GOES HERE TO START MAIN PRG
Else
UnfilledBox3(650,450,800,475,RGB(255,0,0))
Endif
Endif
REM CAST SPELL BUTTON
If Mx > 650 and My > 475 And Mx < 800 And My < 500
If MC=1
CENTER TEXT 0,0, "THIS BUTTON DISABLED"
REM CODE GOES HERE TO START MAIN PRG
Else
UnfilledBox3(650,475,800,500,RGB(255,0,0))
Endif
Endif
REM USE SKILL BUTTON
If Mx > 650 and My > 500 And Mx < 800 And My < 525
If MC=1
CENTER TEXT 0,0, "THIS BUTTON DISABLED"
REM CODE GOES HERE TO START MAIN PRG
Else
UnfilledBox3(650,500,800,525,RGB(255,0,0))
Endif
Endif
REM USE ITEM BUTTON
If Mx > 650 and My > 525 And Mx < 800 And My < 550
If MC=1
CENTER TEXT 0,0, "THIS BUTTON DISABLED"
REM CODE GOES HERE TO START MAIN PRG
Else
UnfilledBox3(650,525,800,550,RGB(255,0,0))
Endif
Endif
REM EQUIP ITEM BUTTON
If Mx > 650 and My > 550 And Mx < 800 And My < 575
If MC=1
CENTER TEXT 0,0, "THIS BUTTON DISABLED"
REM CODE GOES HERE TO START MAIN PRG
Else
UnfilledBox3(650,550,800,575,RGB(255,0,0))
Endif
Endif
REM EQUIP ITEM BUTTON
If Mx > 650 and My > 575 And Mx < 800 And My < 600
If MC=1
CENTER TEXT 0,0, "THIS BUTTON DISABLED"
REM CODE GOES HERE TO START MAIN PRG
Else
UnfilledBox3(650,575,800,600,RGB(255,0,0))
Endif
Endif
RETURN
SYNC
POWERPHASE:
PP = RND(6)
REM PRINT PP ,450,460
IF PP = 1
GOSUB MONSTERLVL
ENDIF
RETURN
MONSTERLVL:
MLVL = P1LVL + P2LVL + P3LVL + P4LVL / PLAYERS
IF MLVL = 1
GOSUB MONSTERCHART1
IF MLVL = 2
GOSUB MONSTERCHART2
IF MLVL = 3
GOSUB MONSTERCHART3
IF MLVL = 4
GOSUB MONSTERCHART4
IF MLVL = 5
GOSUB MONSTERCHART5
IF MLVL = 6
GOSUB MONSTERCHART6
IF MLVL = 7
GOSUB MONSTERCHART7
IF MLVL = 8
GOSUB MONSTERCHART8
IF MLVL = 9
GOSUB MONSTERCHART9
IF MLVL = 10
GOSUB MONSTERCHART10
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
RETURN
MONSTERCHART1:
MONSTERCHART2:
MONSTERCHART3:
MONSTERCHART4:
MONSTERCHART5:
MONSTERCHART6:
MONSTERCHART7:
MONSTERCHART8:
MONSTERCHART9:
MONSTERCHART10:
REM FUNCTIONS
Function UnfilledBox(X1,Y1,X2,Y2,Color)
LOAD BITMAP "WHQLOGO1.BMP",0
Ink Color,0
Line X1-1,Y1-1,X2+1,Y1-1
Line X2+1,Y1-1,X2+1,Y2+1
Line X2+1,Y2+1,X1-1,Y2+1
Line X1-1,Y2+1,X1-1,Y1-1
EndFunction
Function UnfilledBox2(X1,Y1,X2,Y2,Color)
LOAD BITMAP "WHQCHRSEL.BMP",0
Ink Color,0
Line X1-1,Y1-1,X2+1,Y1-1
Line X2+1,Y1-1,X2+1,Y2+1
Line X2+1,Y2+1,X1-1,Y2+1
Line X1-1,Y2+1,X1-1,Y1-1
EndFunction
Function UnfilledBox3(X1,Y1,X2,Y2,Color)
PASTE IMAGE 14,650,375
PASTE IMAGE 15,650,400
PASTE IMAGE 16,650,425
PASTE IMAGE 17,650,450
PASTE IMAGE 18,650,475
PASTE IMAGE 19,650,500
PASTE IMAGE 20,650,525
PASTE IMAGE 21,650,550
PASTE IMAGE 22,650,575
PASTE IMAGE 23,650,0
PASTE IMAGE 24,650,150
PASTE IMAGE 25,0,450
PASTE IMAGE 26,350,450
Ink Color,0
Line X1,Y1,X2,Y1
Line X2,Y1,X2,Y2
Line X2,Y2,X1,Y2
Line X1,Y2,X1,Y1
EndFunction
