Re: Hellish Nightmare

[FellippeHeitor]

Code: QB64: [Select]

1. Canvas& = _NEWIMAGE(640, 480, 32)
2. SCREEN Canvas&
3.  
4. DIM SHARED Bait AS LONG
5. Bait = _LOADIMAGE("Crypto.png", 32)
6. _CLEARCOLOR _RGB(255, 255, 255), Bait
7.  
8. _PUTIMAGE (142, 2), Bait, 0, (1, 1)-(356, 52)
9.  
10. CONST False = 0
11. CONST True = -1
12. DIM SHARED MouseDown AS INTEGER
13.  
14. DIM SHARED Font1 AS LONG
15. DIM SHARED Font2 AS LONG
16. Font1 = _NEWIMAGE(576, 68)
17. Font2 = _NEWIMAGE(576, 68)
18. LoadFont 1
19.  
20. DIM SHARED Buttons
21. Buttons = 42
22.  
23. TYPE RatBait
24.     x AS INTEGER
25.     y AS INTEGER
26.  
27.     click AS INTEGER
28.     size AS INTEGER
29.     style AS INTEGER
30. END TYPE
31.  
32. DIM SHARED Button(Buttons) AS RatBait
33. DIM SHARED ButtonText(Buttons) AS STRING
34.  
35. FOR b = 1 TO Buttons
36.     READ ButtonText(b)
37.     READ Button(b).x, Button(b).y
38.  
39.     Button(b).size = 23
40.     IF b > 36 THEN Button(b).size = 47
41.  
42.     Button(b).style = 1
43.     IF b > 36 THEN Button(b).style = 5
44. NEXT
45.  
46. DATA "A",95,430,"B",120,430,"C",145,430,"D",170,430
47. DATA "E",195,430,"F",220,430,"G",245,430,"H",270,430
48. DATA "I",295,430,"J",320,430,"K",345,430,"L",370,430
49. DATA "M",395,430,"N",420,430,"O",445,430,"P",470,430
50. DATA "Q",495,430,"R",520,430,"S",95,455,"T",120,455
51. DATA "U",145,455,"V",170,455,"W",195,455,"X",220,455
52. DATA "Y",245,455,"Z",270,455,"0",295,455,"1",320,455
53. DATA "2",345,455,"3",370,455,"4",395,455,"5",420,455
54. DATA "6",445,455,"7",470,455,"8",495,455,"9",520,455
55. DATA "New",2,2,"Setup",2,52,"Help",590,2,"About",590,52
56. DATA "Reset",2,430
57. DATA "Exit",590,430
58.  
59. DIM SHARED Label(80) AS RatBait
60. DIM SHARED LabelText(Buttons) AS STRING
61.  
62. DIM SHARED BeepText AS STRING
63. BeepText = "YOU SHOULD BE ABLE TO CLICK ON THESE LETTERS AND HEAR A BEEP"
64. ShowText 320 - 9 * (LEN(BeepText) - 1) \ 2, 248, BeepText, 0
65.  
66. a = 320 - 9 * (LEN(BeepText) - 1) \ 2
67. FOR i = 0 TO LEN(BeepText) - 1
68.     Label(i + 1).x = 9 * i + a: Label(i + 1).y = 248
69. NEXT
70.  
71. DO
72.     WHILE _MOUSEINPUT: WEND
73.  
74.     IF _MOUSEBUTTON(1) THEN
75.         IF NOT MouseDown THEN
76.             MouseDown = True
77.         END IF
78.     ELSE
79.         IF MouseDown THEN
80.             MouseDown = False
81.             checkClick
82.         END IF
83.     END IF
84.  
85.     CLS
86.     GUI
87.     _DISPLAY
88.     _LIMIT 30
89. LOOP
90.  
91. SUB checkClick
92.     DIM ID AS INTEGER
93.     DIM Size AS INTEGER
94.     DIM x AS INTEGER, y AS INTEGER
95.  
96.     x = _MOUSEX
97.     y = _MOUSEY
98.  
99.     FOR ID = 1 TO Buttons
100.         Size = 23: IF ID > 36 THEN Size = 47
101.  
102.         IF x > Button(ID).x AND x < Button(ID).x + Size THEN
103.             IF y > Button(ID).y AND y < Button(ID).y + Size THEN
104.                 BEEP
105.                 EXIT FOR
106.             END IF
107.         END IF
108.     NEXT
109. END SUB
110.  
111. SUB GUI
112.     DIM Text AS STRING
113.  
114.     FOR B = 1 TO Buttons
115.         Style = Button(B).style
116.  
117.         IF x > Button(ID).x AND x < Button(ID).x + Size THEN
118.             IF y > Button(ID).y AND y < Button(ID).y + Size THEN
119.                 IF MouseDown THEN
120.                     Style = Style + 2
121.                 ELSE
122.                     Style = Style + 1
123.                 END IF
124.                 EXIT FOR
125.             END IF
126.         END IF
127.  
128.         SELECT CASE Style
129.             CASE 1: h = 1
130.             CASE 2: h = 26
131.             CASE 3: h = 51
132.             CASE 4: h = 76
133.             CASE 5: h = 101
134.             CASE 6: h = 150
135.             CASE 7: h = 199
136.             CASE 8: h = 248
137.         END SELECT
138.  
139.         Size = Button(B).size
140.         x = Button(B).x: y = Button(B).y
141.         _PUTIMAGE (x, y), Bait, 0, (h, 107)-(h + Size, 107 + Size)
142.  
143.         IF Style < 5 THEN
144.             cx = x + 8: cy = y + 4
145.         ELSE
146.             cx = x + (24 - (LEN(Text) * 9) \ 2): cy = y + 20
147.         END IF
148.  
149.         Text = ButtonText(B)
150.         FOR c = 1 TO LEN(Text)
151.             char = ASC(MID$(Text, c, 1))
152.  
153.             t = char \ 64
154.             h = 9 * (char - 64 * t) + 1: v = 17 * t + 1
155.  
156.             _PUTIMAGE (cx + 9 * (c - 1), cy), Font1, 0, (h, v)-(h + 7, v + 15)
157.         NEXT
158.     NEXT
159. END SUB
160.  
161. SUB LoadFont (Flag AS INTEGER)
162.     DIM h AS INTEGER
163.     DIM v AS INTEGER
164.     DIM x AS INTEGER
165.     DIM y AS INTEGER
166.     DIM char AS INTEGER
167.  
168.     DIM Temp AS STRING
169.     DIM FontChar AS STRING
170.     DIM FontFile AS STRING
171.  
172.     DIM Colour0 AS _UNSIGNED LONG
173.     DIM Colour1 AS _UNSIGNED LONG
174.  
175.     Temp = RIGHT$("0" + LTRIM$(STR$(Flag)), 2)
176.     FontFile = ".\BinFonts\BinFnt" + Temp + ".dat"
177.  
178.     OPEN FontFile FOR INPUT AS #1
179.  
180.     _DEST Font1
181.     LINE (0, 0)-(576, 68), _RGB32(255, 255, 255), BF
182.  
183.     _DEST Font2
184.     LINE (0, 0)-(576, 68), _RGB32(255, 255, 255), BF
185.  
186.     x = 1: y = 1
187.     FOR char = 1 TO 256
188.         INPUT #1, FontChar
189.  
190.         _DEST Font1
191.         Colour0 = _RGB32(255, 255, 255)
192.         Colour1 = _RGB32(0, 0, 0)
193.  
194.         FOR v = 0 TO 15
195.             Temp = MID$(FontChar, 8 * v + 1, 8)
196.  
197.             FOR h = 0 TO 7
198.                 IF VAL(MID$(Temp, h + 1, 1)) THEN
199.                     PSET (x + h, y + v), Colour1
200.                 ELSE
201.                     PSET (x + h, y + v), Colour0
202.                 END IF
203.             NEXT
204.         NEXT
205.  
206.         _DEST Font2
207.         Colour0 = _RGB32(0, 0, 0)
208.         Colour1 = _RGB32(255, 215, 0)
209.  
210.         FOR v = 0 TO 15
211.             Temp = MID$(FontChar, 8 * v + 1, 8)
212.  
213.             FOR h = 0 TO 7
214.                 IF VAL(MID$(Temp, h + 1, 1)) THEN
215.                     PSET (x + h, y + v), Colour1
216.                 ELSE
217.                     PSET (x + h, y + v), Colour0
218.                 END IF
219.             NEXT
220.         NEXT
221.  
222.         x = x + 9
223.         IF char MOD 64 = 0 THEN x = 1: y = y + 17
224.     NEXT
225.  
226.     CLOSE #1
227.  
228.     _CLEARCOLOR _RGB(255, 255, 255), Font1
229.     _CLEARCOLOR _RGB(0, 0, 0), Font2
230.  
231.     _DEST 0
232. END SUB
233.  
234. SUB ShowText (x AS INTEGER, y AS INTEGER, Text AS STRING, flag AS INTEGER)
235.     FOR i = 1 TO LEN(Text)
236.         char = ASC(MID$(Text, i, 1))
237.         t = char \ 64: h = 9 * (char - 64 * t) + 1: v = 17 * t + 1
238.  
239.         _PUTIMAGE (x + 9 * (i - 1), y), Font2, 0, (h, v)-(h + 7, v + 15)
240.     NEXT
241. END SUB
242.  

Simplify it, man.

[bplus]

Ha! I just saw this at NET and said to myself, oh something to do this afternoon.

Well Fellippe strikes again! ;-))

Hey [banned user], did he get it righted?

[bplus]

Hi [banned user],

Eh, I was betting Fellippe nailed it again.

Can you say where you intend to go with this? (It's OK if you don't want to.)

I might be of little help! ;-))

[bplus]

Hi [banned user],

Looks like it is coming along nicely!

You know those keys at the bottom for some reason remind me of old juke boxes. :-)