Hard Light Productions Forums
Modding, Mission Design, and Coding => FS2 Open Coding - The Source Code Project (SCP) => Topic started by: blackhole on January 20, 2008, 11:39:50 pm
-
No, seriously, what the hell (http://sourceforge.net/projects/fs2pascal/)?
-
Interesting. Do any of the developers post here? I have a knee-jerk reaction to this, but I want to hear the reasons behind it before I say anything.
Could be that it's just a school project, and they have their choice of bouncing alien heads or Freespace. :p
-
I checked the subversion activity logs. It looks rather dead, considering the last files were uploaded almost a year ago. I wonder why? :P
-
Damn, someone must really really really hate C :D
-
Okay, gotta ask a n00b question. What language were Freespace and FS2 created in? C, C#, C++, or some other less eloquent language?
-
It's written in C with a touch of C++.
-
I saw this once before while searching google. Can't imagine why they'd bother.
-
Same, I was searching to see if SF has an FS page. What's the difference between all the "C" laguages? C#, C, C-, C--, C++, C+...
-
I think that Mozilla license probably complicates their ability to finish it, it probably can't be up there under that license...
-
This would be a slight downgrade, although it would be funny to C (ha ha). If they wanted a real challenge, they'd go with fortran.
-
I like D, myself :P
-
nothing beats the awsome power of A+++++++++++!!!!!11!
-
Do the entire thing in Assembly ;P
I don't program... so I can say that without getting a splitting headache. XD
-
or binary... *gets a splitting headache*
-
Pfft... I could port Freespace 2 to TrueBasic. :p
-
Pfft... I could port Freespace 2 to TrueBasic. :p
Then do it. :) I'd love to see the result.
-
The result would undoubtetly involve lots of wasted time :P
-
Pfft... I could port Freespace 2 to TrueBasic. :p
Then do it. :) I'd love to see the result.
I actually think I will. I mean, it won't be "good" and it'll be more of a "remake" than a "port", but...
EDIT:
The best I could do without being able to run true basic programs on my computer:
OPTION NOLET
SET WINDOW 0,1000,0,1000
RANDOMIZE
CALL Read_image("MS BMP",BAD$,"BAD.BMP")
CALL Read_image("MS BMP",BKGRND$,"BKGRND.BMP")
CALL Read_image("MS BMP",SUBF$,"SUBF.BMP")
CALL Read_image("MS BMP",PROMF$,"PROMF.BMP")
CALL Read_image("MS BMP",ROCKF$,"ROCKF.BMP")
CALL Read_image("MS BMP",HRPF$,"HRPF.BMP")
CALL Read_image("MS BMP",DIE$,"DIE.BMP")
CALL Read_image("MS BMP",HIT$,"HIT.BMP")
CALL Read_image("MS BMP",BFIRE$,"BFIRE.BMP")
DO
PRINT " FREESPACE"
PRINT " 1) Ready room"
PRINT " 2) Tech room"
PRINT " 3) Bath room"
PRINT " 4) Airlock"
PRINT
PRINT
PRINT "Where do you want to go? Input #"
INPUT GO
IF GO = 1 THEN
CALL PLAY
ELSE IF GO = 2 THEN
CALL WHAT
ELSE IF GO = 3 THEN
CALL POOP
ELSE IF GO = 4 THEN
STOP
ELSE
PRINT "Pick another number, idiot."
END IF
LOOP
END
!==================================================================
SUB PLAY
CLEAR
PRINT "What laser do you want?"
PRINT " 1) Subach HL-7 (Damage 8)"
PRINT " 2) Prometheus - S (Damage 12)"
PRINT " Input number"
INPUT GUN
CLEAR
PRINT "What missile do you want?"
PRINT " 1) Rockeye (10 missiles) (Damage 30)"
PRINT " 2) Harpoon (6 missiles) (Damage 50)"
PRINT " Input number"
INPUT MISS
PRINT "YOUR WEAPONS:";
IF GUN = 1 THEN
PRINT "Subach HL-7";
ELSE
PRINT "Prometheus - S";
END IF
IF MISS = 1 THEN
PRINT " and Rockeye"
ELSE
PRINT "and Harpoon."
END IF
PRINT
PRINT
PRINT "Press a key when you are ready."
GET KEY PSE
CLEAR
!=============================
PHLTH = 100
DO
BHLTH = 100
A=rnd*800
B=rnd*800
DO
FWB = FWB - 1
FW = FW-1
FWM = FWM-1
!BOX SHOW $ at ,
!32
!122
BOX SHOW BKGRND$ at 0,0
BOX SHOW BAD$ at A,B
GET MOUSE X,Y,S
GET KEY S
IF S=122 THEN
IF GUN = 1 AND FW >= 0 THEN
BOX SHOW SUBF$ at 0,0
ELSE
BOX SHOW PROMF$ at 0,0
END IF
IF X>A AND X<(A+200) AND Y>B AND Y<(B+200) THEN
BOX SHOW HIT$ at A,B
IF GUN = 1 THEN
BHLTH = (BHLTH-8)
FW = 6
ELSE
BHLTH = (BHLTH-12)
FW = 10
END IF
END IF
END IF
IF S=32 THEN
IF MISS = 1 AND FWM >= 0 THEN
BOX SHOW ROCKF$ at 0,0
ELSE
BOX SHOW HRPF$ at 0,0
END IF
IF X>A AND X<(A+200) AND Y>B AND Y<(B+200) THEN
BOX SHOW HIT$ at A,B
IF GUN = 1 THEN
BHLTH = (BHLTH-30)
FWM = 10
ELSE
BHLTH = (BHLTH-50)
FWM = 15
END IF
END IF
END IF
PAUSE 0.1
!PLOT TEXT, at x, y:
IF FWB >= 0 THEN
BOX SHOW BFIRE$ at A,B
PHLTH = PHLTH - (RND*4+6)
BAR =(100 - PHLTH)
SET COLOR "GREEN"
PLOT TEXT, AT BAR,10 : "|"
PLOT TEXT, AT 101,10 : "YOUR DAMAGE"
SET COLOR "BLACK"
FWB = (RND*5+4)
END IF
LOOP UNTIL BHLTH >=0 OR PHLTH >= 0
IF BHLTH >= 0 THEN
KILL = KILL + 1
END IF
IF PHLTH >= 0 THEN
CLEAR
PRINT " YOU SUCK AT THIS GAME! !! YOU LOSE!!"
END IF
LOOP UNTIL KILL = 10 OR PHLTH >= 0
IF KILL = 10 THEN
PRINT "YOU ROCK AT A GAME THAT TAKES NO SKILL WHATSOEVER TO PLAY! !"
END IF
END SUB
!======================================================================
SUB WHAT
PRINT " This is a 'port' of the most basic aspects of the game of Freespace 2 to True basic."
PRINT " When you go into play mode, you get to select guns. Some do more damage than others"
PRINT " Put your mouse pointer on the bad guys. 'Z' shoots your lasers, Spacebar shoots a missile"
PRINT " Click on bad guys to destroy them."
PRINT
PRINT " Back to the main hall! *press key"
GET KEY PSE
CLEAR
END SUB
!=====================================================================
SUB POOP
PRINT " You unzip your pants. Then you remember that this is a game"
PRINT " and you get up from your computer desk and walk to the real"
PRINT " bathroom. Thank goodness! *press key"
GET KEY PSE
CLEAR
END SUB
Truly an insult to Freespace. :nod:
I "stole" some screenshots off of here for a background, cropped an astaroth out of one, and added some cheezy ms paint effects.
-
:yes:
FS2Open: MSPaint edition
When does it go gold? :D
-
What about LOLCODE?
-
:yes:
FS2Open: MSPaint edition
When does it go gold? :D
Surely you can do that already with cell shading. :D
-
...Pascal? Never heard of such coding language...
-
...Pascal? Never heard of such coding language...
Lucky you.