Some info regarding $IF precompiler directives

[bplus]

OK thanks!

[bplus]

Ah Dav's number works better than Steve's but Steve pointed to right place. You guys tied :)

Works well now! (Windows only sorry PI guys)

Code: QB64: [Select]

1. _Title " MessageBox test - look behind the QB64 app on tool bar if not seen on top. Lean on esc to quit... "
2.  
3. ' Thank you FellippeHeitor!
4. $If WIN Then
5.     Declare Library
6.         Function MessageBox (ByVal ignore&, message$, title$, Byval type&)
7.     End Declare
8. $Else
9.     DECLARE LIBRARY ""
10.     FUNCTION MessageBox (BYVAL ignore&, message$, title$, BYVAL type&)
11.     END DECLARE
12. $End If
13.  
14. Const xmax = 800, ymax = 600, PI = 3.141592653589793
15. Screen _NewImage(xmax, ymax, 32)
16. _ScreenMove 300, 40
17. Randomize Timer
18.  
19. Do
20.     Cls
21.     drawLandscape
22.     Color &HFFFFFFFF, &HFF000000
23.     kind = 1 + 4096 ' 0 is just OK, 1 is OK & Cancel
24.     Print "Warning a Modal Message Box may come up off screen, you program is waiting for that!."
25.     answer = MessageBox(0, "You might have to look for me off screen. Lean on escape button to quit. Now you should quit seeing me with Cancel.", "Test MessageBox", kind)
26.     Print answer
27.  
28.     'cant mess with first parameter?
29.     _Delay 2
30.     If answer = 2 Then End
31.     k$ = InKey$ ' curious if key press in messageBox will interfere with inkey$
32.     If k$ = "q" Then End
33.     _Limit 1
34. Loop Until _KeyDown(27)
35.  
36. Sub drawLandscape
37.     'needs midInk, irnd
38.  
39.     Dim i As Long, startH As Single, rr As Long, gg As Long, bb As Long
40.     Dim mountain As Long, Xright As Single, y As Single, upDown As Single, range As Single
41.     Dim lastx As Single, X As Long
42.     'the sky
43.     For i = 0 To ymax
44.         midInk 0, 0, 128, 128, 128, 200, i / ymax
45.         Line (0, i)-(xmax, i)
46.     Next
47.     'the land
48.     startH = ymax - 200
49.     rr = 70: gg = 70: bb = 90
50.     For mountain = 1 To 6
51.         Xright = 0
52.         y = startH
53.         While Xright < xmax
54.             ' upDown = local up / down over range, change along Y
55.             ' range = how far up / down, along X
56.             upDown = (Rnd * .8 - .35) * (mountain * .5)
57.             range = Xright + irnd&(15, 25) * 2.5 / mountain
58.             lastx = Xright - 1
59.             For X = Xright To range
60.                 y = y + upDown
61.                 Color _RGB(rr, gg, bb)
62.                 Line (lastx, y)-(X, ymax), , BF 'just lines weren't filling right
63.                 lastx = X
64.             Next
65.             Xright = range
66.         Wend
67.         rr = irnd&(rr - 15, rr): gg = irnd&(gg - 15, gg): bb = irnd&(bb - 25, bb)
68.         If rr < 0 Then rr = 0
69.         If gg < 0 Then gg = 0
70.         If bb < 0 Then bb = 0
71.         startH = startH + irnd&(5, 20)
72.     Next
73. End Sub
74.  
75. Sub midInk (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
76.     Color _RGB32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
77. End Sub
78.  
79. Function irnd& (n1, n2) 'return an integer between 2 numbers
80.     Dim l%, h%
81.     If n1 > n2 Then l% = n2: h% = n1 Else l% = n1: h% = n2
82.     irnd& = Int(Rnd * (h% - l% + 1)) + l%
83. End Function
84.  
85.  
86.