The first prototype of Deluxe Ski Jump

General discussion about the PC version of DSJ2.
Post Reply
Jussi Koskela
Site Admin
Site Admin
Posts: 3738
Joined: 22 Jan 2007, 14:42
Location: Finland
Contact:

The first prototype of Deluxe Ski Jump

Post by Jussi Koskela »



This is the first prototype of Deluxe Ski Jump from 1999!
After three months of hard work I released the actual game on July 4th, 1999.

Happy 25th anniversary!

P.S. Switch the video to HD to enjoy the sharpness of large pixels! :lol:
Xinitiao
Posts: 398
Joined: 05 Nov 2020, 22:49

Re: The first prototype of Deluxe Ski Jump

Post by Xinitiao »

Looks great, what are the parameters of the hill profile, we need to recreate it in DSJ4 :lol:

As a side note, this inrun is suspiciously similar to my Bichlbach 😛
Lurker since 2001
Better player than Garrean (for around 25 minutes at a time until he tries harder)
Jussi Koskela
Site Admin
Site Admin
Posts: 3738
Joined: 22 Jan 2007, 14:42
Location: Finland
Contact:

Re: The first prototype of Deluxe Ski Jump

Post by Jussi Koskela »

Xinitiao wrote: 04 Jul 2024, 11:04 Looks great, what are the parameters of the hill profile, we need to recreate it in DSJ4 :lol:

As a side note, this inrun is suspiciously similar to my Bichlbach 😛
Here is extract from the original source code to draw the hill. :lol:

Code: Select all

var maki:record
k,d:real;
x1,x2,x3:integer;
a,b,c:real;
end;

with maki do begin
x1:=10;
x2:=40;
x3:=120;
k:=-1.85;
d:=210;
a:=0.015;


b:=k-2*a*x2;
c:=k*x2+d-a*x2*x2-b*x2;

end;

function f(x0:real):real;
begin
with maki do
if x0<=x2 then f:=k*x0+d else f:=a*x0*x0+b*x0+c;
end;

procedure drawmaki;
var xk,yk:integer;
begin

for xk:=maki.x1 to maki.x3 do begin
yk:=round(f(xk));
mem[$a000:xk+(200-yk)*320]:=darkgray;
end;


end;
Post Reply