ASCII Flags - GameCreators Forum

Author

Message

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 30th May 2012 03:18 Edited at: 30th May 2012 03:56

Link

I'm thinking of making a turn-based battle game, set in WWII. I will use only ASCII characters so as a bit of fun I made some flags!
[code updated]

sync on

for flag = 0 to 1
   for size = 0 to 14 step 14
      read x,y

for j = 0 to y
         read ln$
         for i = 0 to x
            c$ = mid$(ln$,i)

select c$
               case "%" : ink rgb(255,0,0),0 : endcase
               case "&" : ink rgb(0,0,255),0 : endcase
               case "+" "\" "/" : ink rgb(64,64,64),0 : endcase
               case default : ink rgb(255,255,255),0 : endcase
            endselect

center text (i+size)*12,j*15 +flagy ,c$
         next i
      next j
   next size

flagy = y*16+40
next flag

sync
wait key

end

rem Nazi Flag
nazi:
data 12,5
data "%%%%%%%%%%%%"
data "%%%%#/##%%%%"
data "%%%##\/\#%%%"
data "%%%#\/\##%%%"
data "%%%%##/#%%%%"
data "%%%%%%%%%%%%"

data 36,13
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%######%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%###/\#####%%%%%%%%%%%%%"
data "%%%%%%%%%%%%###/+/#/\###%%%%%%%%%%%%"
data "%%%%%%%%%%%%###\+\/++\##%%%%%%%%%%%%"
data "%%%%%%%%%%%#####\++/\/###%%%%%%%%%%%"
data "%%%%%%%%%%%###/\/++\#####%%%%%%%%%%%"
data "%%%%%%%%%%%%##\++/\+\###%%%%%%%%%%%%"
data "%%%%%%%%%%%%###\/#/+/###%%%%%%%%%%%%"
data "%%%%%%%%%%%%%#####\/###%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%######%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"

rem USA Flag
usa:
data 12,5
data "*&&*%%%%%%%%"
data "&**&@@@@@@@@"
data "*&&*%%%%%%%%"
data "@@@@@@@@@@@@"
data "%%%%%%%%%%%%"
data "@@@@@@@@@@@@"

data 36,12
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "*&*&*&*&*&*&@@@@@@@@@@@@@@@@@@@@@@@@"
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "*&*&*&*&*&*&@@@@@@@@@@@@@@@@@@@@@@@@"
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "*&*&*&*&*&*&@@@@@@@@@@@@@@@@@@@@@@@@"
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"

+ Code Snippet

sync on

for flag = 0 to 1
   for size = 0 to 14 step 14
      read x,y

      for j = 0 to y
         read ln$
         for i = 0 to x
            c$ = mid$(ln$,i)

            select c$
               case "%" : ink rgb(255,0,0),0 : endcase
               case "&" : ink rgb(0,0,255),0 : endcase
               case "+" "\" "/" : ink rgb(64,64,64),0 : endcase
               case default : ink rgb(255,255,255),0 : endcase
            endselect

            center text (i+size)*12,j*15 +flagy ,c$
         next i
      next j
   next size

   flagy = y*16+40
next flag

sync
wait key

end

rem Nazi Flag
nazi:
data 12,5
data "%%%%%%%%%%%%"
data "%%%%#/##%%%%"
data "%%%##\/\#%%%"
data "%%%#\/\##%%%"
data "%%%%##/#%%%%"
data "%%%%%%%%%%%%"

data 36,13
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%######%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%###/\#####%%%%%%%%%%%%%"
data "%%%%%%%%%%%%###/+/#/\###%%%%%%%%%%%%"
data "%%%%%%%%%%%%###\+\/++\##%%%%%%%%%%%%"
data "%%%%%%%%%%%#####\++/\/###%%%%%%%%%%%"
data "%%%%%%%%%%%###/\/++\#####%%%%%%%%%%%"
data "%%%%%%%%%%%%##\++/\+\###%%%%%%%%%%%%"
data "%%%%%%%%%%%%###\/#/+/###%%%%%%%%%%%%"
data "%%%%%%%%%%%%%#####\/###%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%######%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"

rem USA Flag
usa:
data 12,5
data "*&&*%%%%%%%%"
data "&**&@@@@@@@@"
data "*&&*%%%%%%%%"
data "@@@@@@@@@@@@"
data "%%%%%%%%%%%%"
data "@@@@@@@@@@@@"

data 36,12
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "*&*&*&*&*&*&@@@@@@@@@@@@@@@@@@@@@@@@"
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "*&*&*&*&*&*&@@@@@@@@@@@@@@@@@@@@@@@@"
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "*&*&*&*&*&*&@@@@@@@@@@@@@@@@@@@@@@@@"
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"

I will be making ones for all the major powers. I don't know if I'm going to actually base this on WWII or just use it as a theme.

I am going to make this a pure strategy game, like chess, where there is no random element.

Back to top

Profile PM Email

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 30th May 2012 04:49 Edited at: 30th May 2012 04:50

Link

Added Japan (The small flag is terrible!)

hide mouse
sync on
power=0

gosub draw

do
   oldkey=newkey
   newkey=spacekey()
   if newkey > oldkey
      inc power
      if power>2 then power=0
      gosub draw
   endif
   sync
loop

rem =============================================================
rem = Subroutines
rem =============================================================
draw:
   select power
      case 0 : restore nazi : endcase
      case 1 : restore japan : endcase
      case 2 : restore usa : endcase
   endselect

cls
   ink -2,0
   read name$
   text 0,0,name$
   text 0,400,"Press SPACEBAR to cycle Powers."

for size = 0 to 14 step 14
      read x,y

for j = 0 to y
         read ln$
         for i = 0 to x
            c$ = mid$(ln$,i)

select c$
               case "%" : ink rgb(255,0,0),0 : endcase
               case "&" : ink rgb(0,0,255),0 : endcase
               case "+" "\" "/" : ink rgb(64,64,64),0 : endcase
               case default : ink -2,0 : endcase
            endselect

center text (i+size)*12,(j+3)*15 ,c$
         next i
      next j
   next size
return

end

rem Nazi Germany
nazi:
data "Nazi Germany"
data 12,5
data "%%%%%%%%%%%%"
data "%%%%#/##%%%%"
data "%%%##\/\#%%%"
data "%%%#\/\##%%%"
data "%%%%##/#%%%%"
data "%%%%%%%%%%%%"

data 36,13
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%######%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%###/\#####%%%%%%%%%%%%%"
data "%%%%%%%%%%%%###/+/#/\###%%%%%%%%%%%%"
data "%%%%%%%%%%%%###\+\/++\##%%%%%%%%%%%%"
data "%%%%%%%%%%%#####\++/\/###%%%%%%%%%%%"
data "%%%%%%%%%%%###/\/++\#####%%%%%%%%%%%"
data "%%%%%%%%%%%%##\++/\+\###%%%%%%%%%%%%"
data "%%%%%%%%%%%%###\/#/+/###%%%%%%%%%%%%"
data "%%%%%%%%%%%%%#####\/###%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%######%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"

rem Japan
japan:
data "Japan"
data 12,5
data "%%%@@%%@@@%%"
data "@@%%%%%@%%@@"
data "%%%%%%%%%%%%"
data "@@%%%%%%%@@@"
data "@%%%%%%@@%%@"
data "%%@@%%@%@@@%"

data 36,13
data "%%%%@@@@%%%@@@%%%%%@@@@%%%%%%@@@@@@%"
data "@%%%%%%@@@%%@@@%%%@@@@%%%%@@@@@@@%%%"
data "@@@@%%%%@@@%%%%%%%%@@%%%@@@@@@@%%%%%"
data "@@@@@@@%%%%%%%%%%%%%%%@@@@@@%%%%%@@@"
data "%%%@@@@@@%%%%%%%%%%%%%@@@%%%%%@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%@@@@@@@@%%"
data "@@@%%%%%%%%%%%%%%%%%%%%@@@@@@%%%%%%%"
data "@@@@@@@@@%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@%%%%%%%%%%%%%%%%%%@@@@@@@@@@%%%%"
data "%%%%%%@@@%%%%%%%%%%%%%%%%%%%@@@@@@@@"
data "%%%@@@@@%%%%%%%%%%%%%@@@@@%%%%%%@@@@"
data "@@@@@%%%%@@%%%%%%%%@%%%@@@@@@%%%%%%%"
data "@@%%%%@@@@%%%@@@%%@@@@%%%@@@@@@@%%%%"
data "%%%%@@@@%%%@@@@%%%%@@@@%%%%%@@@@@@%%"

rem USA
usa:
data "United States"
data 12,5
data "*&&*%%%%%%%%"
data "&**&@@@@@@@@"
data "*&&*%%%%%%%%"
data "@@@@@@@@@@@@"
data "%%%%%%%%%%%%"
data "@@@@@@@@@@@@"

data 36,12
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "*&*&*&*&*&*&@@@@@@@@@@@@@@@@@@@@@@@@"
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "*&*&*&*&*&*&@@@@@@@@@@@@@@@@@@@@@@@@"
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "*&*&*&*&*&*&@@@@@@@@@@@@@@@@@@@@@@@@"
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"

+ Code Snippet

hide mouse
sync on
power=0

gosub draw

do
   oldkey=newkey
   newkey=spacekey()
   if newkey > oldkey
      inc power
      if power>2 then power=0
      gosub draw
   endif
   sync
loop

rem =============================================================
rem = Subroutines
rem =============================================================
draw:
   select power
      case 0 : restore nazi : endcase
      case 1 : restore japan : endcase
      case 2 : restore usa : endcase
   endselect

   cls
   ink -2,0
   read name$
   text 0,0,name$
   text 0,400,"Press SPACEBAR to cycle Powers."

   for size = 0 to 14 step 14
      read x,y

      for j = 0 to y
         read ln$
         for i = 0 to x
            c$ = mid$(ln$,i)

            select c$
               case "%" : ink rgb(255,0,0),0 : endcase
               case "&" : ink rgb(0,0,255),0 : endcase
               case "+" "\" "/" : ink rgb(64,64,64),0 : endcase
               case default : ink -2,0 : endcase
            endselect

            center text (i+size)*12,(j+3)*15 ,c$
         next i
      next j
   next size
return

end

rem Nazi Germany
nazi:
data "Nazi Germany"
data 12,5
data "%%%%%%%%%%%%"
data "%%%%#/##%%%%"
data "%%%##\/\#%%%"
data "%%%#\/\##%%%"
data "%%%%##/#%%%%"
data "%%%%%%%%%%%%"

data 36,13
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%######%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%###/\#####%%%%%%%%%%%%%"
data "%%%%%%%%%%%%###/+/#/\###%%%%%%%%%%%%"
data "%%%%%%%%%%%%###\+\/++\##%%%%%%%%%%%%"
data "%%%%%%%%%%%#####\++/\/###%%%%%%%%%%%"
data "%%%%%%%%%%%###/\/++\#####%%%%%%%%%%%"
data "%%%%%%%%%%%%##\++/\+\###%%%%%%%%%%%%"
data "%%%%%%%%%%%%###\/#/+/###%%%%%%%%%%%%"
data "%%%%%%%%%%%%%#####\/###%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%######%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"

rem Japan
japan:
data "Japan"
data 12,5
data "%%%@@%%@@@%%"
data "@@%%%%%@%%@@"
data "%%%%%%%%%%%%"
data "@@%%%%%%%@@@"
data "@%%%%%%@@%%@"
data "%%@@%%@%@@@%"

data 36,13
data "%%%%@@@@%%%@@@%%%%%@@@@%%%%%%@@@@@@%"
data "@%%%%%%@@@%%@@@%%%@@@@%%%%@@@@@@@%%%"
data "@@@@%%%%@@@%%%%%%%%@@%%%@@@@@@@%%%%%"
data "@@@@@@@%%%%%%%%%%%%%%%@@@@@@%%%%%@@@"
data "%%%@@@@@@%%%%%%%%%%%%%@@@%%%%%@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%@@@@@@@@%%"
data "@@@%%%%%%%%%%%%%%%%%%%%@@@@@@%%%%%%%"
data "@@@@@@@@@%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@%%%%%%%%%%%%%%%%%%@@@@@@@@@@%%%%"
data "%%%%%%@@@%%%%%%%%%%%%%%%%%%%@@@@@@@@"
data "%%%@@@@@%%%%%%%%%%%%%@@@@@%%%%%%@@@@"
data "@@@@@%%%%@@%%%%%%%%@%%%@@@@@@%%%%%%%"
data "@@%%%%@@@@%%%@@@%%@@@@%%%@@@@@@@%%%%"
data "%%%%@@@@%%%@@@@%%%%@@@@%%%%%@@@@@@%%"

rem USA
usa:
data "United States"
data 12,5
data "*&&*%%%%%%%%"
data "&**&@@@@@@@@"
data "*&&*%%%%%%%%"
data "@@@@@@@@@@@@"
data "%%%%%%%%%%%%"
data "@@@@@@@@@@@@"

data 36,12
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "*&*&*&*&*&*&@@@@@@@@@@@@@@@@@@@@@@@@"
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "*&*&*&*&*&*&@@@@@@@@@@@@@@@@@@@@@@@@"
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "*&*&*&*&*&*&@@@@@@@@@@@@@@@@@@@@@@@@"
data "*&*&*&*&*&*&%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
data "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
data "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"

Back to top

Profile PM Email

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 2nd Jun 2012 00:01

Link

Nice flags.

I had a go at doing a small Japanese flag. It's not easy is it? This is my best attempt, still not very good though.

+ Code Snippet

data "@%%@%%@%%%@@"
data "%@%@%@%@@@%%"
data "%%@%%@@%%%%%"
data "%%@%%@@%%%%%"
data "%@%%@%%@@@%%"
data "@%%%@%%%%%@@"

Back to top

Profile PM Email

Fluffy Rabbit

User Banned

Posted: 2nd Jun 2012 06:57 Edited at: 2nd Jun 2012 06:58

Link

@OBese-

I would recommend using a function to print strings with certain colors assigned to certain characters. This would allow for the ASCII flags to be a lot easier to make out.

What I mean is that different flags should be drawn with different sets of colors.

Back to top

Profile

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 2nd Jun 2012 21:03

Link

That's what I did.

Back to top

Profile PM Email

Fluffy Rabbit

User Banned

Posted: 14th Jun 2012 02:01

Link

@OBese-

I don't know, it looks to me like you are using the same colors for each flag. There are only about 100 printable characters available, and millions of potential monitor colors. What I mean is using palleitte swapping to provide a different pallout for each flag.

Back to top

Profile

Sorry your browser is not supported!

DarkBASIC Discussion / ASCII Flags