-
Notifications
You must be signed in to change notification settings - Fork 0
/
title.cb
112 lines (87 loc) · 2.6 KB
/
title.cb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
InitTitle:
titleFont = LoadFont("appleberry.ttf", RoundUp(96 * swra), ON, OFF, OFF)
SetFont titleFont
Type LETTERS
Field img
Field x As Float
Field y As Float
Field tx As Float
Field ty As Float
Field l As String
EndType
title$ = "Nope.cb"
i = Len(title)
padding = TextWidth("_") + 10
tw = TextWidth(title) / 1.3
While i > 0
l.LETTERS = New(LETTERS)
l\x = Rand(sw)
l\y = Rand(sh)
l\tx = (sw / 2) + (i * padding) - tw
l\ty = (sh / 2) - 15
l\l = Mid(title, i, 1)
i - 1
Wend
fadeIn# = 0.0
s# = 0
exitTitle = True
Return
CalcTitle:
fadeIn = Float(Max(Min((Timer() - (startTime + EFFECT_FOG)) / 20, 255), 1)) / 255
// FadeOut.
fadeIn = FadeIn * Float(Max(Min(((startTime + EFFECT_FOG) + 13500 - Timer()) / 10, 255), 1)) / 255
If isku1 <> wisku1 Then
c# = 255
Else
c# = smooth(0, c, 10)
EndIf
If isku2 <> wisku2 And runTime > EFFECT_TITLE - 14000 And runTime < EFFECT_TITLE Then
c2# = 255
Else
c2# = smooth(0, c2, 20)
EndIf
If isku2 <> wisku2 And runTime > EFFECT_TITLE - 14000 And runTime < EFFECT_TITLE Then
s = 100
Else
s = smooth(0, s, 60)
EndIf
For l.LETTERS = Each LETTERS
l\x = smooth(l\tx, l\x, 90.0)
l\y = smooth(l\ty, l\y, 40.0)
If isku2 <> wisku2 And runTime > EFFECT_TITLE - 9000 Then
l\y = l\y + Rand(-sh * 0.1, sh * 0.1)
EndIf
Next l
If runTime > EFFECT_TITLE - 2000 And exitTitle Then
exitTitle = False
For l.LETTERS = Each LETTERS
l\tx = Rand(sw) + (1 - Rand(1) * 2) * sw * 0.8
l\ty = Rand(sh) + (1 - Rand(1) * 2) * sh * 0.15
Next l
EndIf
Return
DrawTitle:
cbeSetBlendMode(CBE_BLEND_ADDITIVE)
cbEColor(90 * fadeIn, 255 * fadeIn, 200 * fadeIn, 10)
For i = 0 To 10
x = sw / 10 * i + 50 * Cos(runTime/10) + 100 * Sin(runTime/20) + s
y = sh / 4 + sh / 1.5 * Sin(i * 40 + runTime/10) + 50 * Sin(runTime/10)
sc = 1 + (s / 100)
cbeTriangle(x, y, x + 10 * sc * Cos(runTime) * swra, y + 10 * sc * shra, x - 8 * sc * swra, y + 13 * sc + 10 * Sin(runTime) * shra, 2, ON)
Next i
cbEColor(200 * fadeIn, 255 * fadeIn, 90 * fadeIn, 10)
For i = 0 To 10
x = sw / 10 + sw / 10 * i + 40 * Cos(runTime/8) + 140 * Sin(runTime/25) - s
y = sh / 4 + sh / 1.2 * Sin(i * 40 + runTime/10) + 50 * Sin(runTime/12)
sc = 1 + (s / 100)
cbeTriangle(x + 14 * Cos(runTime) * swra, y, x + 16 * sc * swra, y + 6 * sc + 10 * Sin(runTime) * shra, x - 8 * sc * swra, y + 13 * sc * shra, 2, ON)
Next i
cbEColor(90 * fadeIn, 255 * fadeIn, c2 * fadeIn, 255)
SetFont titleFont
For l.LETTERS = Each LETTERS
Text l\x, l\y, l\l
Next l
'cbeSetBlendMode(CBE_BLEND_RESET)
cbEColor(c#, c2#, 0, 100)
Box 0, 0, sw, sh
Return