Organization - GameCreators Forum

Author

Message

misifield

18

Years of Service

User Offline

Joined: 23rd Nov 2007

Location: ohio

Posted: 4th Oct 2011 02:45

Link

Hello, I am making a very simple low graphic RPG type game. I have tried several times to make this same game but always run into a problem eventually because I can not write organized code or think of better ways to create variables. Are header files good for organization? Like one header file would be monsters, one header would be items? The last time I tried to use header files I failed. Can anyone give me a few good tips on this please. Check my code out also so you can see what I am talking about, can you give me suggestions on how to create a structured/organized code.

type players
   x as float
   y as float

map as integer
   class as integer
   target as integer
   inv as integer

name as string
   desc as string
   password as string
endtype
   global dim player(100,100) as players

type npcs
   x as float
   y as float

size as integer
   aggro as integer
   quest as integer

name as string
   desc as string
endtype
   global dim npc(1000) as npcs

type maps

obj as integer
   ext as integer
   npc as integer

name as string
   desc as string
endtype
   global dim map(1000, 100, 5) as maps

type objects
   size as integer
   shape as integer
   color as integer
   kind as integer
   weight as integer
   static as integer
   action as integer

name as string
   desc as string
endtype
   global dim object(1000) as objects
   global mx# as float
   global my# as float
   global buttonclick as integer

remstart
   START OF THE MAIN SECTION START SCREEN / MAKE PLAYER
remend
   num=1 rem player number
   mapnum=1 rem map number
   loadvariable=0 rem load variables into memory
   loadplayer=0 rem if load player = 1 then execute the load THIS WILL BE ADDED AT SOME POINT, not now
   player(num).x = 100
   player(num).y = 100
   player(num).name = "Sid"
   mx#=100
   my#=100

remstart
   text 0, 0, "WELCOME TO dotRPG"
      set cursor 25,25
      input "Account Name: ",player(num).name
      set cursor 25,50
      input "Class: ",player(num).class
      cls
remend

sync on
sync rate 60
do
   if loadvariable=0 then gosub _loadvars
   cls
   ink rgb (255,255,255), rgb(0,0,0)
   gosub _createmap
   gosub _createhud
   gosub _controlplayer

sync
loop

_createmap:
      line 10, 30, 400, 30 rem top
      line 10, 30, 10, 300 rem left
      line 400, 30, 400, 300 rem right
      line 10, 300, 400, 300 rem bottom
         gen=0
         for i=1 to 100
             if map(mapnum, i).obj>=1
                gen=map(mapnum, i).obj

if object(gen).color=1 then ink rgb(255,255,255), rgb(0,0,0) rem white object
                if object(gen).color=2 then ink rgb(139,69,19), rgb(0,0,0) rem brown
                if object(gen).color=3 then ink rgb(0, 0, 255), rgb(0,0,0) rem blue

if object(gen).shape=1 rem SQAURE OBJECT
                    genx = map(mapnum, i, 1).obj
                    geny = map(mapnum, i, 2).obj
                    gensize = object(gen).size
                     line genx, geny, genx+gensize, geny
                     line genx, geny, genx, geny+gensize
                     line genx, geny+gensize, genx+gensize, geny+gensize
                     line genx+gensize, geny, genx+gensize, geny+gensize
                        map(mapnum, i, 3).obj=genx+gensize/2
                        map(mapnum, i, 4).obj=geny+gensize/2
                endif
                if object(gen).shape=2 rem OVAL OBJECT
                    ellipse map(mapnum, i, 1).obj, map(mapnum, i, 2).obj, object(gen).size, object(gen).size/2
                    map(mapnum, i, 3).obj=map(mapnum, i, 1).obj
                    map(mapnum, i, 4).obj=map(mapnum, i, 2).obj
                endif
             endif
         next i
         ink rgb(255,255,255), rgb(0,0,0)
         gen=0
         for i=1 to 100
            if map(mapnum, i).npc>=1
               gen=map(mapnum, i).npc
               if npc(gen).aggro=1 then ink rgb(0,255,0), rgb(0,0,0) rem unaggro non-fight green
               if npc(gen).aggro=2 then ink rgb(255,0,0), rgb(0,0,0) rem aggro red
               if npc(gen).aggro=3 then ink rgb(255,255,0), rgb(0,0,0) rem unaggro fight yellow

circle map(mapnum, i, 1).npc, map(mapnum, i, 2).npc, npc(map(mapnum, i).npc).size
                  map(mapnum, i, 3).npc=map(mapnum, i, 1).npc
                  map(mapnum, i, 4).npc=map(mapnum, i, 2).npc
            endif
         next i
         ink rgb(255,255,255), rgb(0,0,0)
   return

_createhud:
         makebox(410, 265, "Chat", 1)
         makebox(450, 265, "Skills", 2)
         makebox(505, 265, "Inventory", 3)
         makebox(585, 265, "Close", 0)
         rem make a chat box area
         if buttonclick=1
            text 410, 30, "Chat is open"
         endif
         rem make skills box
         if buttonclick=2
            text 410, 30, "Skills are open"
         endif
         rem make inventory/gear
         if buttonclick=3
            text 410, 30, "Inventory is open"
         endif
         rem make store frame
         if buttonclick=4

endif
         rem make player hp/sp area
         text 0, 310, player(num).name
         text text width (player(num).name)+5, 310, "HP"
         text text width (player(num).name+"hp")+10, 310, "MP"

rem this is the target npc/player area
         if mouseclick()=4 then player(num).target=0 : player(num, 1).target=0
            if player(num).target > 0
               if player(num, 1).target=1 rem a npc is being targeted
                  text 0, 325, npc(player(num).target).name
                  text text width (npc(player(num).target).name)+5, 325, "HP"
                  text text width (npc(player(num).target).name+"hp")+10, 325, "MP"
               endif
               if player(num, 1).target=2 rem a player is being targeted
                  text 0, 325, player(player(num).target).name
                  text text width (player(player(num).target).name)+5, 325, "HP"
                  text text width (player(player(num).target).name+"hp")+10, 325, "MP"
               endif
            endif
   return

_controlplayer:
         ink rgb(255,255,255), rgb(0,0,0)
         if player(num).class=1 then ink rgb(255,0,0), rgb(0,0,0) rem color player red

circle player(num).x, player(num).y, 5
         if mouseclick()=1 and mousex()<400 and mousey()<300
            mx#=mousex()
            my#=mousey()
         endif
               rem continue to move the player if they have not made it to click point.
               oldx#=player(num).x
               oldy#=player(num).y
               if player(num).x<mx# then inc player(num).x, 1
               if player(num).x>mx# then dec player(num).x, 1
               if player(num).y<my# then inc player(num).y, 1
               if player(num).y>my# then dec player(num).y, 1

rem check for static objects
               for i=1 to 100
                  if map(mapnum, i).obj>=1
                    distx#=player(num).x-map(mapnum, i, 3).obj
                    disty#=player(num).y-map(mapnum, i, 4).obj
                    dist#=SQRT((distx#*distx#)+(disty#*disty#))
                       modistx#=mousex()-map(mapnum, i, 3).obj
                       modisty#=mousey()-map(mapnum, i, 4).obj
                       modist#=SQRT((modistx#*modistx#)+(modisty#*modisty#))
                     rem being to close to static objects
                     if dist#<object(map(mapnum, i).obj).size+2 and object(map(mapnum, i).obj).static=1 then player(num).x=oldx# : player(num).y=oldy#
                     rem scroll over
                     if modist#<object(map(mapnum, i).obj).size then text mousex()-15, mousey()-20, object(map(mapnum, i).obj).name
                     rem interact with and object
                     if dist#<object(map(mapnum, i).obj).size+5 and modist#<object(map(mapnum, i).obj).size and mouseclick()=1
                           text 0, 0, object(map(mapnum, i).obj).name+": "+object(map(mapnum, i).obj).desc
                     endif
                     rem perform action to an object, like pickup items
                     if dist#<object(map(mapnum, i).obj).size+5 and modist#<object(map(mapnum, i).obj).size and mouseclick()=2
                           if object(map(mapnum, i).obj).action>0 then gosub _itemactions
                           if object(map(mapnum, i).obj).action=0 then text 0, 0, "There is no action to perform here"
                     endif
                     rem targeting function
                     if modist#<object(map(mapnum, i).obj).size and dist#<object(map(mapnum, i).obj).size+20 and mouseclick()=4
                           text 0, 0, "Objects cannot be targeted!"
                     endif
                  endif
               next i

rem check for npcs
               for i=1 to 100
                  if map(mapnum, i).npc>=1
                    distx#=player(num).x-map(mapnum, i, 3).npc
                    disty#=player(num).y-map(mapnum, i, 4).npc
                    dist#=SQRT((distx#*distx#)+(disty#*disty#))
                       medistx#=mousex()-map(mapnum, i, 3).npc
                       medisty#=mousey()-map(mapnum, i, 4).npc
                       medist#=SQRT((medistx#*medistx#)+(medisty#*medisty#))
                     rem being to close to an npc
                     if dist#<npc(map(mapnum, i).npc).size+2 then player(num).x=oldx# : player(num).y=oldy#
                     rem scroll over
                     if medist#<npc(map(mapnum, i).npc).size then text mousex()-15, mousey()-20, npc(map(mapnum, i).npc).name
                     rem interact with and object
                     if dist#<npc(map(mapnum, i).npc).size+5 and medist#<npc(map(mapnum, i).npc).size and mouseclick()=1
                           text 0, 0, npc(map(mapnum, i).npc).name+": "+npc(map(mapnum, i).npc).desc
                     endif
                     rem perform action with an npc, this could start a fight
                     if dist#<npc(map(mapnum, i).npc).size+5 and medist#<npc(map(mapnum, i).npc).size and mouseclick()=2
                           text 0, 0, "You are performing an action"
                     endif
                     rem make a targeting function
                     if medist#<npc(map(mapnum, i).npc).size and dist#<npc(map(mapnum, i).npc).size+20 and mouseclick()=4
                           text 0, 0, "You target "+npc(map(mapnum, i).npc).name
                           player(num).target=map(mapnum, i).npc
                           player(num,1).target=1
                     endif
                  endif
               next i

rem check for player
               for i=1 to 100
                  if player(i).map=player(num).map
                    distx#=player(num).x-player(i).x
                    disty#=player(num).y-player(i).y
                    dist#=SQRT((distx#*distx#)+(disty#*disty#))
                       mpdistx#=mousex()-player(i).x
                       mpdisty#=mousey()-player(i).y
                       mpdist#=SQRT((mpdistx#*mpdistx#)+(mpdisty#*mpdisty#))
                     rem all players can be walked through
                     rem scroll over
                     if mpdist#<5 and i<>num then text mousex()-15, mousey()-20, player(i).name
                     rem interact with and object
                     if dist#<5 and i<>num and mouseclick()=1
                           text 0, 0, player(i).name+": "+player(i).desc
                     endif
                     rem perform action with an npc, this could start a fight
                     if dist#<5 and i<>num and mouseclick()=2
                           rem do level checks and other checks to see if target can be hit
                     endif
                     rem make a targeting function
                     if mpdist#<5 and i<>num and dist#<20 and mouseclick()=4
                           text 0, 0, "You target "+player(i).name
                           player(num).target=i
                           player(num,1).target=2
                     endif
                     if mpdist#<5 and i=num and mouseclick()=4
                           text 0, 0, "You target yourself!"
                           player(num).target=i
                           player(num,1).target=2
                     endif
                  endif
               next i

rem make sure the guy stays in the map
               if player(num).x>397 or player(num).x<15 or player(num).y<33 or player(num).y>297 then player(num).x=oldx# : player(num).y=oldy#

return

_loadvars:
   rem maps_____maps_____maps____maps
            map(1).name="Rookie Hall"
            map(1).desc="The area is indoors. There seems to be a door to the north."
            map(1, 1).obj=1
               map(1,1,1).obj=50
               map(1,1,2).obj=50
            map(1, 2).obj=2
               map(1,2,1).obj=200
               map(1,2,2).obj=30
               map(1,2,5).obj=2
            map(1, 1).npc=1
               map(1,1,1).npc=375
               map(1,1,2).npc=275

map(2).name="Town Hall"
            map(2).desc="The area is outdoors. A door is on a wall to the south."
            map(2, 1).obj=2
               map(2,1,1).obj=200
               map(2,1,2).obj=280
               map(2,1,5).obj=1

rem obj_____obj_____obj_____obj
   remstart

remend
            rem This object is the rookie sign. It just states that the player is in the rookie room.
            object(1).size=10
            object(1).shape=1
            object(1).color=2
            object(1).kind=1
            object(1).weight=1000
            object(1).static=1
            object(1).name="Sign"
            object(1).desc="An arrow pointing north. In bold letters the words Khronos Town is written."

object(2).size=20
            object(2).shape=1
            object(2).color=3
            object(2).kind=1
            object(2).weight=1000
            object(2).static=0
            object(2).name="Door"
            object(2).desc="This is a door."
            object(2).action=1

remstart
      npc____npc____npc___npc
   remend
            npc(1).aggro=1
            npc(1).size=5
            npc(1).name="Samuel"
            npc(1).desc="I need someone to hunt cows."
            npc(1).quest=1
return

_itemactions:

rem enter a door/portal
if object(map(mapnum,i).obj).action=1
   checker=map(mapnum, i, 5).obj

for j=1 to 100
      if map(checker, j, 5).obj=mapnum
         player(num).x=map(checker, j, 1).obj
         player(num).y=map(checker, j, 2).obj
            mx#=player(num).x
            my#=player(num).y
            j=100
      endif
   next j

mapnum=checker
endif

return

function makebox(x, y, t$, num)
        if mousex()<=x+text width(t$) and mousex()>=x and mousey()<=y+text height(t$) and mousey()>y
           box x,y,x+text width(t$),y+text height(t$),rgb(255,255,255),rgb(255,255,255),rgb(255,255,255),rgb(255,255,255)
           ink rgb(0,0,0),rgb(255,255,255)
           text x,y,t$
                if mouseclick()=1 then buttonclick=num
        else
           box x,y,x+text width(t$),y+text height(t$),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0)
           ink rgb(0,0,0),rgb(255,0,0)
           text x,y,t$
        endif
        ink rgb(255,255,255), rgb(0,0,0)
endfunction

function freemapobj(map, free, replace)
         rem this function will be used to create an object on the map, in the mouseclick area-when clicked this space needs to be freed
endfunction

+ Code Snippet

type players
   x as float
   y as float

   map as integer
   class as integer
   target as integer
   inv as integer

   name as string
   desc as string
   password as string
endtype
   global dim player(100,100) as players

type npcs
   x as float
   y as float

   size as integer
   aggro as integer
   quest as integer

   name as string
   desc as string
endtype
   global dim npc(1000) as npcs

type maps

   obj as integer
   ext as integer
   npc as integer

   name as string
   desc as string
endtype
   global dim map(1000, 100, 5) as maps

type objects
   size as integer
   shape as integer
   color as integer
   kind as integer
   weight as integer
   static as integer
   action as integer

   name as string
   desc as string
endtype
   global dim object(1000) as objects
   global mx# as float
   global my# as float
   global buttonclick as integer

remstart
   START OF THE MAIN SECTION START SCREEN / MAKE PLAYER
remend
   num=1 rem player number
   mapnum=1 rem map number
   loadvariable=0 rem load variables into memory
   loadplayer=0 rem if load player = 1 then execute the load THIS WILL BE ADDED AT SOME POINT, not now
   player(num).x = 100
   player(num).y = 100
   player(num).name = "Sid"
   mx#=100
   my#=100

remstart
   text 0, 0, "WELCOME TO dotRPG"
      set cursor 25,25
      input "Account Name: ",player(num).name
      set cursor 25,50
      input "Class: ",player(num).class
      cls
remend

sync on
sync rate 60
do
   if loadvariable=0 then gosub _loadvars
   cls
   ink rgb (255,255,255), rgb(0,0,0)
   gosub _createmap
   gosub _createhud
   gosub _controlplayer

sync
loop

   _createmap:
      line 10, 30, 400, 30 rem top
      line 10, 30, 10, 300 rem left
      line 400, 30, 400, 300 rem right
      line 10, 300, 400, 300 rem bottom
         gen=0
         for i=1 to 100
             if map(mapnum, i).obj>=1
                gen=map(mapnum, i).obj

                if object(gen).color=1 then ink rgb(255,255,255), rgb(0,0,0) rem white object
                if object(gen).color=2 then ink rgb(139,69,19), rgb(0,0,0) rem brown
                if object(gen).color=3 then ink rgb(0, 0, 255), rgb(0,0,0) rem blue

                if object(gen).shape=1 rem SQAURE OBJECT
                    genx = map(mapnum, i, 1).obj
                    geny = map(mapnum, i, 2).obj
                    gensize = object(gen).size
                     line genx, geny, genx+gensize, geny
                     line genx, geny, genx, geny+gensize
                     line genx, geny+gensize, genx+gensize, geny+gensize
                     line genx+gensize, geny, genx+gensize, geny+gensize
                        map(mapnum, i, 3).obj=genx+gensize/2
                        map(mapnum, i, 4).obj=geny+gensize/2
                endif
                if object(gen).shape=2 rem OVAL OBJECT
                    ellipse map(mapnum, i, 1).obj, map(mapnum, i, 2).obj, object(gen).size, object(gen).size/2
                    map(mapnum, i, 3).obj=map(mapnum, i, 1).obj
                    map(mapnum, i, 4).obj=map(mapnum, i, 2).obj
                endif
             endif
         next i
         ink rgb(255,255,255), rgb(0,0,0)
         gen=0
         for i=1 to 100
            if map(mapnum, i).npc>=1
               gen=map(mapnum, i).npc
               if npc(gen).aggro=1 then ink rgb(0,255,0), rgb(0,0,0) rem unaggro non-fight green
               if npc(gen).aggro=2 then ink rgb(255,0,0), rgb(0,0,0) rem aggro red
               if npc(gen).aggro=3 then ink rgb(255,255,0), rgb(0,0,0) rem unaggro fight yellow

               circle map(mapnum, i, 1).npc, map(mapnum, i, 2).npc, npc(map(mapnum, i).npc).size
                  map(mapnum, i, 3).npc=map(mapnum, i, 1).npc
                  map(mapnum, i, 4).npc=map(mapnum, i, 2).npc
            endif
         next i
         ink rgb(255,255,255), rgb(0,0,0)
   return



   _createhud:
         makebox(410, 265, "Chat", 1)
         makebox(450, 265, "Skills", 2)
         makebox(505, 265, "Inventory", 3)
         makebox(585, 265, "Close", 0)
         rem make a chat box area
         if buttonclick=1
            text 410, 30, "Chat is open"
         endif
         rem make skills box
         if buttonclick=2
            text 410, 30, "Skills are open"
         endif
         rem make inventory/gear
         if buttonclick=3
            text 410, 30, "Inventory is open"
         endif
         rem make store frame
         if buttonclick=4

         endif
         rem make player hp/sp area
         text 0, 310, player(num).name
         text text width (player(num).name)+5, 310, "HP"
         text text width (player(num).name+"hp")+10, 310, "MP"


         rem this is the target npc/player area
         if mouseclick()=4 then player(num).target=0 : player(num, 1).target=0
            if player(num).target > 0
               if player(num, 1).target=1 rem a npc is being targeted
                  text 0, 325, npc(player(num).target).name
                  text text width (npc(player(num).target).name)+5, 325, "HP"
                  text text width (npc(player(num).target).name+"hp")+10, 325, "MP"
               endif
               if player(num, 1).target=2 rem a player is being targeted
                  text 0, 325, player(player(num).target).name
                  text text width (player(player(num).target).name)+5, 325, "HP"
                  text text width (player(player(num).target).name+"hp")+10, 325, "MP"
               endif
            endif
   return




   _controlplayer:
         ink rgb(255,255,255), rgb(0,0,0)
         if player(num).class=1 then ink rgb(255,0,0), rgb(0,0,0) rem color player red

         circle player(num).x, player(num).y, 5
         if mouseclick()=1 and mousex()<400 and mousey()<300
            mx#=mousex()
            my#=mousey()
         endif
               rem continue to move the player if they have not made it to click point.
               oldx#=player(num).x
               oldy#=player(num).y
               if player(num).x<mx# then inc player(num).x, 1
               if player(num).x>mx# then dec player(num).x, 1
               if player(num).y<my# then inc player(num).y, 1
               if player(num).y>my# then dec player(num).y, 1

               rem check for static objects
               for i=1 to 100
                  if map(mapnum, i).obj>=1
                    distx#=player(num).x-map(mapnum, i, 3).obj
                    disty#=player(num).y-map(mapnum, i, 4).obj
                    dist#=SQRT((distx#*distx#)+(disty#*disty#))
                       modistx#=mousex()-map(mapnum, i, 3).obj
                       modisty#=mousey()-map(mapnum, i, 4).obj
                       modist#=SQRT((modistx#*modistx#)+(modisty#*modisty#))
                     rem being to close to static objects
                     if dist#<object(map(mapnum, i).obj).size+2 and object(map(mapnum, i).obj).static=1 then player(num).x=oldx# : player(num).y=oldy#
                     rem scroll over
                     if modist#<object(map(mapnum, i).obj).size then text mousex()-15, mousey()-20, object(map(mapnum, i).obj).name
                     rem interact with and object
                     if dist#<object(map(mapnum, i).obj).size+5 and modist#<object(map(mapnum, i).obj).size and mouseclick()=1
                           text 0, 0, object(map(mapnum, i).obj).name+": "+object(map(mapnum, i).obj).desc
                     endif
                     rem perform action to an object, like pickup items
                     if dist#<object(map(mapnum, i).obj).size+5 and modist#<object(map(mapnum, i).obj).size and mouseclick()=2
                           if object(map(mapnum, i).obj).action>0 then gosub _itemactions
                           if object(map(mapnum, i).obj).action=0 then text 0, 0, "There is no action to perform here"
                     endif
                     rem targeting function
                     if modist#<object(map(mapnum, i).obj).size and dist#<object(map(mapnum, i).obj).size+20 and mouseclick()=4
                           text 0, 0, "Objects cannot be targeted!"
                     endif
                  endif
               next i

               rem check for npcs
               for i=1 to 100
                  if map(mapnum, i).npc>=1
                    distx#=player(num).x-map(mapnum, i, 3).npc
                    disty#=player(num).y-map(mapnum, i, 4).npc
                    dist#=SQRT((distx#*distx#)+(disty#*disty#))
                       medistx#=mousex()-map(mapnum, i, 3).npc
                       medisty#=mousey()-map(mapnum, i, 4).npc
                       medist#=SQRT((medistx#*medistx#)+(medisty#*medisty#))
                     rem being to close to an npc
                     if dist#<npc(map(mapnum, i).npc).size+2 then player(num).x=oldx# : player(num).y=oldy#
                     rem scroll over
                     if medist#<npc(map(mapnum, i).npc).size then text mousex()-15, mousey()-20, npc(map(mapnum, i).npc).name
                     rem interact with and object
                     if dist#<npc(map(mapnum, i).npc).size+5 and medist#<npc(map(mapnum, i).npc).size and mouseclick()=1
                           text 0, 0, npc(map(mapnum, i).npc).name+": "+npc(map(mapnum, i).npc).desc
                     endif
                     rem perform action with an npc, this could start a fight
                     if dist#<npc(map(mapnum, i).npc).size+5 and medist#<npc(map(mapnum, i).npc).size and mouseclick()=2
                           text 0, 0, "You are performing an action"
                     endif
                     rem make a targeting function
                     if medist#<npc(map(mapnum, i).npc).size and dist#<npc(map(mapnum, i).npc).size+20 and mouseclick()=4
                           text 0, 0, "You target "+npc(map(mapnum, i).npc).name
                           player(num).target=map(mapnum, i).npc
                           player(num,1).target=1
                     endif
                  endif
               next i

               rem check for player
               for i=1 to 100
                  if player(i).map=player(num).map
                    distx#=player(num).x-player(i).x
                    disty#=player(num).y-player(i).y
                    dist#=SQRT((distx#*distx#)+(disty#*disty#))
                       mpdistx#=mousex()-player(i).x
                       mpdisty#=mousey()-player(i).y
                       mpdist#=SQRT((mpdistx#*mpdistx#)+(mpdisty#*mpdisty#))
                     rem all players can be walked through
                     rem scroll over
                     if mpdist#<5 and i<>num then text mousex()-15, mousey()-20, player(i).name
                     rem interact with and object
                     if dist#<5 and i<>num and mouseclick()=1
                           text 0, 0, player(i).name+": "+player(i).desc
                     endif
                     rem perform action with an npc, this could start a fight
                     if dist#<5 and i<>num and mouseclick()=2
                           rem do level checks and other checks to see if target can be hit
                     endif
                     rem make a targeting function
                     if mpdist#<5 and i<>num and dist#<20 and mouseclick()=4
                           text 0, 0, "You target "+player(i).name
                           player(num).target=i
                           player(num,1).target=2
                     endif
                     if mpdist#<5 and i=num and mouseclick()=4
                           text 0, 0, "You target yourself!"
                           player(num).target=i
                           player(num,1).target=2
                     endif
                  endif
               next i

               rem make sure the guy stays in the map
               if player(num).x>397 or player(num).x<15 or player(num).y<33 or player(num).y>297 then player(num).x=oldx# : player(num).y=oldy#

   return














_loadvars:
   rem maps_____maps_____maps____maps
            map(1).name="Rookie Hall"
            map(1).desc="The area is indoors. There seems to be a door to the north."
            map(1, 1).obj=1
               map(1,1,1).obj=50
               map(1,1,2).obj=50
            map(1, 2).obj=2
               map(1,2,1).obj=200
               map(1,2,2).obj=30
               map(1,2,5).obj=2
            map(1, 1).npc=1
               map(1,1,1).npc=375
               map(1,1,2).npc=275


            map(2).name="Town Hall"
            map(2).desc="The area is outdoors. A door is on a wall to the south."
            map(2, 1).obj=2
               map(2,1,1).obj=200
               map(2,1,2).obj=280
               map(2,1,5).obj=1





   rem obj_____obj_____obj_____obj
   remstart

   remend
            rem This object is the rookie sign. It just states that the player is in the rookie room.
            object(1).size=10
            object(1).shape=1
            object(1).color=2
            object(1).kind=1
            object(1).weight=1000
            object(1).static=1
            object(1).name="Sign"
            object(1).desc="An arrow pointing north. In bold letters the words Khronos Town is written."

            object(2).size=20
            object(2).shape=1
            object(2).color=3
            object(2).kind=1
            object(2).weight=1000
            object(2).static=0
            object(2).name="Door"
            object(2).desc="This is a door."
            object(2).action=1



   remstart
      npc____npc____npc___npc
   remend
            npc(1).aggro=1
            npc(1).size=5
            npc(1).name="Samuel"
            npc(1).desc="I need someone to hunt cows."
            npc(1).quest=1
return



_itemactions:

rem enter a door/portal
if object(map(mapnum,i).obj).action=1
   checker=map(mapnum, i, 5).obj

   for j=1 to 100
      if map(checker, j, 5).obj=mapnum
         player(num).x=map(checker, j, 1).obj
         player(num).y=map(checker, j, 2).obj
            mx#=player(num).x
            my#=player(num).y
            j=100
      endif
   next j

   mapnum=checker
endif

return














function makebox(x, y, t$, num)
        if mousex()<=x+text width(t$) and mousex()>=x and mousey()<=y+text height(t$) and mousey()>y
           box x,y,x+text width(t$),y+text height(t$),rgb(255,255,255),rgb(255,255,255),rgb(255,255,255),rgb(255,255,255)
           ink rgb(0,0,0),rgb(255,255,255)
           text x,y,t$
                if mouseclick()=1 then buttonclick=num
        else
           box x,y,x+text width(t$),y+text height(t$),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0)
           ink rgb(0,0,0),rgb(255,0,0)
           text x,y,t$
        endif
        ink rgb(255,255,255), rgb(0,0,0)
endfunction

function freemapobj(map, free, replace)
         rem this function will be used to create an object on the map, in the mouseclick area-when clicked this space needs to be freed
endfunction

mfield

Back to top

Profile PM Email

zenassem

23

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 4th Oct 2011 12:08 Edited at: 4th Oct 2011 12:11

Link

Quote: " I have tried several times to make this same game but always run into a problem eventually because I can not write organized code or think of better ways to create variables."

Ironically, I think you are having an issue because you think as a programmer coming from a more structured environment. While DBpro provides some structure, it is a bit limited. I tend to face the same issues coming from a C/C++ background. While DBpro provides User Defined Types,, and you can have an array of a UDT, you can't have an array in UDT, or an array of UDT's inside another array. This mixed with the fact that functions are separate from the data, and the native pointers are cumbersome and I think confusing for many (memblocks anyone?); all adds to a problem for people who like to have things very neat and organized.

So we resort to techniques like parallel arrays and lots of global data, less declaring of variables and such. In the end we have a fairly modular approach held together by little bits and pieces everywhere. While I agree that it's good to maintain as much orginization as possible, I think that in a basic language we have to loosen the reigns a bit.

I think it's a good idea to break up the code into multiple files, and use a scheme/convention that fits your style best.

That said, even a low graphic RPG game can require a lot of data and gamestate flag manipulation. Something that I think can easily make BASIC code get messy in a hurry. Utilizing a scripting language (either of your own or something like Unity that has a plugin for DBpro) may ease the hard-coded logic. (I'm not skilled in script code, and it's why I steer away from the demand an RPG places on a developer). Also, I can imagine the need for some form of either a DataBase or at least the parsing of an XML file to help keep data somewhat organized.

Your signature has been erased by a mod please reduce it to 600 x 120.

Back to top

Profile PM Email

BatVink

Moderator

23

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 4th Oct 2011 15:27

Link

Code shouldn't really by organised by object/entities, that is organised in the data structures you implement. Trya top down approach to organise, and make each part a sub/function...

1. Menu
2. Options
3. Play
4. Exit

Then break down at the next level, let's take (3)

3.1 Initialise game
3.2 Start Game
3.3 Play Game
3.4 End Game
3.5 DeInitialise

Then down a another level using 3.3....

3.3.1 Check Player Actions
3.3.2 Check Opponent Actions
3.3.3 Check environmental objects

etc...

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 4th Oct 2011 16:09 Edited at: 4th Oct 2011 16:09

Link

Heres a structure I've used in the passed:

Program Structure (Top Down)
- Core Constant for are program
- Core UDT's
- Core Delcare (globals)
- Class Declares
< SYNC ON >
- Core Setup
- Class Setups
< Initialize Loop >
> Within Game States (because some classes might not need updating until in a certain state) >
- Core Updates
- Class Updates
< SYNC >
< End Loop >
- Clear All Data (to prevent memory issues)
< End Program >
- (Core/Class Structure Go Here)

Class Structure (Top Down)
- Constants
- UDT's (User Defined Types)
- Declares
- Setup or Initials (After SYNC)
- Function Set For Are Class¬
- > Creator/Operator Functions (ex. Create Object)
- > Update Functions (ex. Update Object)
- > Arguments Functions (ex. If Object Exist)
- Misc (Data Statements or Other Gosubs)

The classes would be modular, so in there seperate source file depending on project size.

Back to top

Profile PM Email

misifield

18

Years of Service

User Offline

Joined: 23rd Nov 2007

Location: ohio

Posted: 4th Oct 2011 22:47

Link

Thanks for the help! I think these ideas are going to help me. I have scrapped my original project and Im going to start over on a new foot.

I have never tried networking a game and I want this one to be networked. Is it possible to network the game after I get everything setup? Would this make it harder to make it networked? Can the client/server be coded into the same project?

mfield

Back to top

Profile PM Email

Da_Rhyno

15

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 4th Oct 2011 23:15

Link

The way I work on things is I generally set the game itself up before I implement multiplayer code. However, with that said, it's a good idea to design the game around the fact you will include multiplayer capabilities later on.

The most important thing to think about when you have a networked game is that you can't pause in the main loop at all (Sorry... no WAIT KEY or SLEEP commands allowed!). The reason for this is so that your game doesn't miss any incoming packets being sent to it.

How you'd want to make your game is in a way such that the main loop never stops, or you don't get stuck in another loop waiting for user input.

Let me explain it this way: Say you have your normal game subroutine, your event subroutine, and your multiplayer subroutine. You also have a global variable, an integer labeled "event_on" which is by default 0.

Say in your game you walk up to a NPC and decide to talk to it. You can't just pause your game when talking to the NPC... when it registers that you talk to the NPC, you set "event_on = 1".

And here's how that will play into our main loop:

+ Code Snippet

DO

   IF event_on = 1
      GOSUB _NPC_event // Elsewhere in our code is our NPC event.
      GOTO _networking_code
   ENDIF
   
   GOSUB _regular_game_subroutine
   
   networking_code:
   GOSUB _SendRecvPackets
LOOP

_NPC_event:
   // Put draw text, check for input from keyboard
   TEXT dialog_x, dialog_y, dialog_text
   IF (start_dialog_timer - TIMER()) >= 1000 // Allow the dialog to stay open for a second before you exit it.
      IF SPACEKEY() = 1
         event_on = 0
         end_dialog_timer = TIMER()
      ENDIF
   ENDIF
   RETURN

start_dialog_timer and end_dialog_timer are important, as they keep the spacekey from reacting more than one hit. start_dialog_timer is pretty much:

start_dialog_timer = TIMER()

And is set when you talk to the NPC and set event_on to 1.

end_dialog_timer gets checked in your normal gameplay routine to make sure you didn't just talk to the character less than a second ago, in the same fashion start_dialog_timer works.

Also, yes... the client/server can be coded in the same project.

Back to top

Profile PM

misifield

18

Years of Service

User Offline

Joined: 23rd Nov 2007

Location: ohio

Posted: 5th Oct 2011 00:17 Edited at: 5th Oct 2011 00:23

Link

Thanks for this information. I will go ahead and make the game before networking it.

Do you know if functions can be created in array and stored in text files. An example of this is having a healing potion.
item(1).name="Potion"
item(1).use="if player(num).hp<player(num).hpmax : player(num).hp=+10 : if player(num).hp>player(num).hpmax then player(num).hp=player(num).hpmax : endif"

then in the code I could do
if mouseclick()=2 then item(1).use

I am working on making a textfile system to where I create an item in game, it makes a text file, so if this works I can make special use items within the game without having to open up DBP and coding it in. This would help me organize my code because I would not have to scroll through thousands of lines, I would just open the textfile, or create an ingame system that shows me the variables for the file. How would I make a textfile that has code that can be used after storing it into an array?

This is my new organized code, after taking everyones advice. If I am in the middle of coding, I will make a new sub for the thing instead of adding it into another sub. I think this is a problem for me and possibly why my code gets messy.

type players
    rank as integer
endtype
   global dim player(100,100) as players
remstart
type npcs

endtype
   global dim npc(100, 100) as npcs

type maps

endtype
   global dim map(100, 100) as maps

type objects

endtype
   global dim object(1000) as objects

global mx# as float rem mousex
   global my# as float rem mousey
remend
   rem global handshake as integer rem connect to the network
   rem handshake=0
   global buttonclick as integer rem button being clicked during the function
   global subclick as integer rem a button within a screen being clicked
   global lowclick as integer rem a button under a subbutton
   player(1).rank=5
   loadobjects=0

sync on
sync rate 60
do
   REMSTART
         =======RESET/INITIALIZE=======
   REMEND
   cls rem clear screen
   ink rgb (255,255,255), rgb(0,0,0) rem reset the color to white

REMSTART
         =======ONLY LOAD ONCE FUNCTIONS======
   REMEND
    if loadobjects=0 then gosub _loadobjects rem load initial variables
    rem if loadnpcs=0 then gosub _loadnpcs
    rem if loadmaps=0 then gosub _loadmaps
    rem if loadclasses=0 then gosub _loadclasses
    rem if loadspells=0 then gosub _loadspells
    rem if updateall>0 then gosub _updateall
   REMSTART
         =======FUNCTIONS=========
   REMEND

rem gosub _mainscreen used to login/create new
   gosub _gameplay

sync
loop

REMSTART
      ==================MAIN SCREEN==========================

_mainscreen:
      if handshake=0
         gosub _netconnect
         while handshake=0
            gosub _displaytitle
            gosub _checkconnect
         endwhile
      endif
      if handshake=1
         gosub _charselect
         gosub _createnew
         gosub _deletechar
      endif
   return

_netconnect:
         ---connect---
   return

_displaytitle
         ---title---
         ---login account---
         ---create account--
   return

_checkconnect:
         ---check login info---
   return

_charselect:
         ---Load character---
   return
   _createnew:
         ---ask for name---
         ---is name available---
   return
   _deletechar:
         ---remove character file---
   return
REMEND

remstart
               ==================GAME PLAY=================
remend
   _gameplay:
       gosub _createmap
       gosub _createhud
       gosub _createtarget
       gosub _combat
       gosub _positionplayer
       gosub _mousecontrols
       rem gosub _gameplaynetwork
   return

rem ------------create the map--------------------
   _createmap:
            rem add mapname at the top left of the screen
      line 10, 30, 400, 30 rem top
      line 10, 30, 10, 300 rem left
      line 400, 30, 400, 300 rem right
      line 10, 300, 400, 300 rem bottom
            rem add npcs to map
            rem add objects to map
   return
rem -----------create the hud---------------------
   _createhud:
         makebox(410, 265, "Chat", 1)
         makebox(450, 265, "Skills", 2)
         makebox(505, 265, "Inventory", 3)
         makebox(585, 265, "Quest", 4)
         makebox(410, 285, "Map", 5)
         makebox(440, 285, "Info", 6)
         makebox(480, 285, "Options", 7)
            if player(1).rank=5 then makebox(410, 305, "Admin", 100) rem admin controlz
         rem close the area
         if buttonclick>0
            makebox(630, 265, "X", 0)
         endif
         rem make a chat box area
         if buttonclick=1
            text 410, 30, "Chat is open"
            gosub _chatbox
         endif
         rem make skills box
         if buttonclick=2
            text 410, 30, "Skills are open"
            gosub _skillbox
         endif
         rem make inventory/gear
         if buttonclick=3
            text 410, 30, "Inventory is open"
            gosub _invbox
         endif
         rem quest log
         if buttonclick=4
            text 410, 30, "Questlog is open"
            gosub _questbox
         endif
         rem map log
         if buttonclick=5
            text 410, 30, "Map is open"
            gosub _mapbox
         endif
         rem info
         if buttonclick=6
            text 410, 30, "Player info"
            gosub _pinfo
         endif
         rem map log
         if buttonclick=7
            text 410, 30, "Options"
            gosub _options
         endif

rem storefront
         if buttonclick=9
            text 410, 30, "Store"
            gosub _storebox
         endif
         rem trade
         if buttonclick=10
            text 410, 30, "Trade"
            gosub _tradebox
         endif
         rem map log
         if buttonclick=100
            text 410, 30, "Admin Controls"
            gosub _adminbox
         endif
   return
rem ----------create target--------------------
   _createtarget:

return
rem ----------combat---------------------
   _combat:

return
rem ----------player position--------------------
   _positionplayer:

return
rem ----------mouse controls---------------------
   _mousecontrols:

return

REMSTART
            ==============SIDEBAR MENU OPTIONS===============
REMEND

_chatbox:

return

_skillbox:

return

_invbox:

return

_questbox:

return

_mapbox:

return

_pinfo:

return

_options:

return

_storebox:

return

_tradebox:

return

REMSTART
            ==============GAMEPLAY NETWORK===============
---Player--- Send All the time
   player position
   player attacks
   player target
   Player trade
   player chat
---Map--- Only send when player is in the room
   Npc movement
   Player movement
   Object movement
---General---Only send when player submits item/looks at store
   submit item to store for resell
   mail player
REMEND

+ Code Snippet


type players
    rank as integer
endtype
   global dim player(100,100) as players
remstart
type npcs

endtype
   global dim npc(100, 100) as npcs

type maps

endtype
   global dim map(100, 100) as maps

type objects

endtype
   global dim object(1000) as objects

   global mx# as float rem mousex
   global my# as float rem mousey
remend
   rem global handshake as integer rem connect to the network
   rem handshake=0
   global buttonclick as integer rem button being clicked during the function
   global subclick as integer rem a button within a screen being clicked
   global lowclick as integer rem a button under a subbutton
   player(1).rank=5
   loadobjects=0

sync on
sync rate 60
do
   REMSTART
         =======RESET/INITIALIZE=======
   REMEND
   cls rem clear screen
   ink rgb (255,255,255), rgb(0,0,0) rem reset the color to white

   REMSTART
         =======ONLY LOAD ONCE FUNCTIONS======
   REMEND
    if loadobjects=0 then gosub _loadobjects rem load initial variables
    rem if loadnpcs=0 then gosub _loadnpcs
    rem if loadmaps=0 then gosub _loadmaps
    rem if loadclasses=0 then gosub _loadclasses
    rem if loadspells=0 then gosub _loadspells
    rem if updateall>0 then gosub _updateall
   REMSTART
         =======FUNCTIONS=========
   REMEND

   rem gosub _mainscreen used to login/create new
   gosub _gameplay



sync
loop








REMSTART
      ==================MAIN SCREEN==========================

   _mainscreen:
      if handshake=0
         gosub _netconnect
         while handshake=0
            gosub _displaytitle
            gosub _checkconnect
         endwhile
      endif
      if handshake=1
         gosub _charselect
         gosub _createnew
         gosub _deletechar
      endif
   return

   _netconnect:
         ---connect---
   return

   _displaytitle
         ---title---
         ---login account---
         ---create account--
   return

   _checkconnect:
         ---check login info---
   return

   _charselect:
         ---Load character---
   return
   _createnew:
         ---ask for name---
         ---is name available---
   return
   _deletechar:
         ---remove character file---
   return
REMEND

















remstart
               ==================GAME PLAY=================
remend
   _gameplay:
       gosub _createmap
       gosub _createhud
       gosub _createtarget
       gosub _combat
       gosub _positionplayer
       gosub _mousecontrols
       rem gosub _gameplaynetwork
   return

rem ------------create the map--------------------
   _createmap:
            rem add mapname at the top left of the screen
      line 10, 30, 400, 30 rem top
      line 10, 30, 10, 300 rem left
      line 400, 30, 400, 300 rem right
      line 10, 300, 400, 300 rem bottom
            rem add npcs to map
            rem add objects to map
   return
rem -----------create the hud---------------------
   _createhud:
         makebox(410, 265, "Chat", 1)
         makebox(450, 265, "Skills", 2)
         makebox(505, 265, "Inventory", 3)
         makebox(585, 265, "Quest", 4)
         makebox(410, 285, "Map", 5)
         makebox(440, 285, "Info", 6)
         makebox(480, 285, "Options", 7)
            if player(1).rank=5 then makebox(410, 305, "Admin", 100) rem admin controlz
         rem close the area
         if buttonclick>0
            makebox(630, 265, "X", 0)
         endif
         rem make a chat box area
         if buttonclick=1
            text 410, 30, "Chat is open"
            gosub _chatbox
         endif
         rem make skills box
         if buttonclick=2
            text 410, 30, "Skills are open"
            gosub _skillbox
         endif
         rem make inventory/gear
         if buttonclick=3
            text 410, 30, "Inventory is open"
            gosub _invbox
         endif
         rem quest log
         if buttonclick=4
            text 410, 30, "Questlog is open"
            gosub _questbox
         endif
         rem map log
         if buttonclick=5
            text 410, 30, "Map is open"
            gosub _mapbox
         endif
         rem info
         if buttonclick=6
            text 410, 30, "Player info"
            gosub _pinfo
         endif
         rem map log
         if buttonclick=7
            text 410, 30, "Options"
            gosub _options
         endif

         rem storefront
         if buttonclick=9
            text 410, 30, "Store"
            gosub _storebox
         endif
         rem trade
         if buttonclick=10
            text 410, 30, "Trade"
            gosub _tradebox
         endif
         rem map log
         if buttonclick=100
            text 410, 30, "Admin Controls"
            gosub _adminbox
         endif
   return
rem ----------create target--------------------
   _createtarget:

   return
rem ----------combat---------------------
   _combat:

   return
rem ----------player position--------------------
   _positionplayer:

   return
rem ----------mouse controls---------------------
   _mousecontrols:

   return




REMSTART
            ==============SIDEBAR MENU OPTIONS===============
REMEND

 _chatbox:

 return

 _skillbox:

 return

 _invbox:

 return

 _questbox:

 return

 _mapbox:

 return

 _pinfo:

 return

 _options:

 return

 _storebox:

 return

 _tradebox:

 return






REMSTART
            ==============GAMEPLAY NETWORK===============
---Player--- Send All the time
   player position
   player attacks
   player target
   Player trade
   player chat
---Map--- Only send when player is in the room
   Npc movement
   Player movement
   Object movement
---General---Only send when player submits item/looks at store
   submit item to store for resell
   mail player
REMEND

Some of my subroutines are going into a header file for better organization. I managed to get headers to work this time. My admin function is where the creations of npcs, items, and maps are going. I do not have much in the headers yet so I didnt add them.

mfield

Back to top

Profile PM Email

Da_Rhyno

15

Years of Service

User Offline

Joined: 25th May 2011

Location:

Posted: 5th Oct 2011 00:45

Link

Unfortunately you can't use textfiles like that, unless you want to make a parser that would tokenize those commands, then go through and check against of list of possible tokens then if a token matches, then run the associated code, but that is quite a bit of work for something like this... it would pretty much be like creating your own scripting language.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Organization