HP Prime for All
English
Русский
Name | Waterfall Animation |
Description | Background boxes with falling water. There is random mist coming from the water. |
Author | Eddie Shore |
Source code formatted by website engine
BEGIN
// 2014-01-10 Waterfall EWS
LOCAL K, J, I, A := 0;
RECT();
WHILE GETKEY == -1 DO
A := A+1;
// Static
// Walls
RECT_P(0, 5, 30, 210, #964B00h);
RECT_P(280, 5, 318, 210, #964B00h);
// Water
RECT_P(30, 10, 280, 210, #FFh);
// Grass
TRIANGLE_P(0, 210, 155, 230, 318, 210,
RGB(0, 218, 0));
// Animated
// Mist
FOR I FROM 1 TO RANDINT(50, 75) DO
TEXTOUT_P(".", RANDINT(30, 270),
RANDINT(10, 200), 3, #FFFFh); END;
// Foam
FOR I FROM 1 TO RANDINT(100, 125) DO
TEXTOUT_P(" = ", RANDINT(25, 290),
RANDINT(200, 210), 3, #FFFFFFh); END;
// Fall
RECT_P(30, 10+25 * (A+1), 280, 10+25*A,
#FFFFFFh);
WAIT(0.1);
IF A == 8 THEN
A := 0; END;
END;
END;