Post by atomose on Apr 5, 2024 10:17:13 GMT -5
hey !
I find it interesting to see life rationally. Sometimes we forget our priorities and it is only in our last breath that we regret it. So here is a perspective that shows you a sad reality: every day you get closer to death. ENJOY
(its a very basic code, you can upgrade)
I find it interesting to see life rationally. Sometimes we forget our priorities and it is only in our last breath that we regret it. So here is a perspective that shows you a sad reality: every day you get closer to death. ENJOY
(its a very basic code, you can upgrade)
nomainwin
BuildVersion = 0.2
WindowWidth=1200 : WindowHeight=800
UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
graphicbox #ini.main, 0, 0, 1201, 801
textbox #ini.Natal3, 510, 85, 90, 25
button #ini.val3, "Show me", [calculs], UL, 610, 85,60,25
open "''Memento Mori'' by Atomose Studio - vrs ";BuildVersion for window_nf as #ini
#ini, "trapclose [quit]"
print #ini.main, "down; fill white"
[refresh]
#ini.main, "font times_new_roman 30 italic; color black; place 360 60 ;\"; "Remember that you are dying ..."
#ini.main, "font times_new_roman 8 italic; place 36 175 ;\"; "10" : #ini.main, "place 36 235 ;\"; "20" : #ini.main, "place 36 295 ;\"; "30"
#ini.main, "place 36 355 ;\"; "40" : #ini.main, "place 36 415 ;\"; "50" : #ini.main, "place 36 475 ;\"; "60"
#ini.main, "place 36 535 ;\"; "70" : #ini.main, "place 36 595 ;\"; "80" : #ini.main, "place 36 675 ;\"; "90"
#ini.main, "place 36 735 ;\"; "100"
#ini.main, "place 505 615 ;\"; "Only 5% people survive to this line"
if WeeksAge = 0 then print #ini.Natal3, "Age"
print #ini.main, "size 5; color darkgray"
Xx = 70 : Yy = 130
for y = 1 to 50
for x = 1 to 104
select case WeeksAge
case 0
if y <= 40 then
print #ini.main, "size 7; color darkgray"
print #ini.main, "set ";Xx;" ";Yy
print #ini.main, "size 5; color cyan"
print #ini.main, "set ";Xx+0.25;" ";Yy+0.25
end if
if y > 40 then
print #ini.main, "size 7; color darkgray"
print #ini.main, "set ";Xx;" ";Yy
print #ini.main, "size 5; color lightgray"
print #ini.main, "set ";Xx+0.25;" ";Yy+0.25
end if
case else
WeeksAge = WeeksAge - 1
print #ini.main, "size 7; color darkgray"
print #ini.main, "set ";Xx;" ";Yy
print #ini.main, "size 5; color yellow"
print #ini.main, "set ";Xx+0.25;" ";Yy+0.25
end select
Xx = Xx + 10 : saut = saut + 1
if saut = 52 then Xx = Xx + 20 : saut = 0
next x
Yy = Yy + 10 : Xx = 70 : saut2 = saut2 + 1
if saut2 = 5 then Yy = Yy + 10 : saut2 = 0
if y = 40 then Yy = Yy +20
next y
#ini.Natal3 "!setfocus"
#ini.main, "flush"
wait
[calculs]
print #ini.Natal3, "!contents? nat3$" : nat3 = val(nat3$) : DaysAge = (nat3 * 364)
if nat3 > 100 then notice " " + chr$(13) + "Value can't be more than 100 years." : nat3 = 100 : print #ini.Natal3, "100"
if nat3 = 0 then notice " " + chr$(13) + "You must add your age into the box."
WeeksAge = int(DaysAge/7) : goto [refresh]
[quit]
close #ini
end