-
Notifications
You must be signed in to change notification settings - Fork 0
/
DPPOKBAT.BAS
93 lines (83 loc) · 2.19 KB
/
DPPOKBAT.BAS
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
CLS
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºPok‚mon Diamond/Pearl: Trainer Battleº"
PRINT "ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ"
PRINT "º By Cat333Pok‚mon º"
PRINT "ÇÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄĶ"
PRINT "ºQBasic³ November 9, 2007 ³Nintendoº"
PRINT "ÈÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍͼ"
PRINT "Copyright 2007 NINTENDO, POKMON,"
PRINT " GAME FREAK, CREATURES"
'Initial Settings
PLAY "T185O4L16"
INTRO:
'Introduction
PLAY "C<"
PLAY "B"
PLAY "B-"
PLAY "A"
PLAY "B-"
PLAY "A"
PLAY "G+"
PLAY "G"
PLAY "G+"
PLAY "G"
PLAY "F+"
PLAY "F"
PLAY "F+"
PLAY "F"
PLAY "E"
PLAY "E-"
PLAY "E"
PLAY "E-"
PLAY "D"
PLAY "C+"
PLAY "D"
PLAY "C+"
PLAY "C"
PLAY "<B>"
PLAY "C"
PLAY "<B"
PLAY "B-"
PLAY "A"
PLAY "B-"
PLAY "A"
PLAY "G+"
PLAY "G"
BRASS:
'Brass section
PLAY "L8CP4CP4CP8CP3CL4C+."
PLAY "L8CP4CP4CP8CP3CL4C+."
PLAY "L8GP4GP4GP8GP3GL4G+."
PLAY "L8GP4GP4GP8GP3GL4G+."
HORN1:
'French horn
PLAY "O2L4C.G.L4>C<B-G+GFL16EP8FL2GL4>DL1<B-"
PLAY "L4C.G.L4>C<B-G+GFL16EP8FL2GL16>CP8DL2ED<"
PLAY "L8E.L16CL4CL8G.L16EL4EL8>C.<L16GL2GP4"
PLAY "L8F.L16DL4DL8B-.L16FL4FL8>D.<L16B-L2B-L4B"
PLAY ">L2C.<L4G>L2E.L4CL2G.L8FP16L16E-L1E"
TRUMPET:
'Muted trumpet
PLAY "L2GL8FEDCL2DP2EL8GFEDL2EP2L8F.E.FG+GFE-G+GFE-FGG+B-GG+B->C<B-G+GF"
PLAY "L4GL8FGB-G+GB-L1AB-L2>C.<L4B-L1A"
TIMPANI:
'Brass + Timpani
PLAY "L1O3GO1L16C<P16GP16GP16>C<P16GP16GP16>C<P16GP16" ''
PLAY "L1O3G+O1L16C+<P16G+P16G+P16>C+<P16G+P16G+P16>C+<P16G+P16" ''
PLAY "L1O3FO0L16B-P16FP16FP16B-P16FP16FP16B-P16FP16" ''
PLAY "L1O3G+O1L16C+<P16G+P16G+P16>C+<P16G+P16G+P16>C+<P16G+P16" ''
PLAY "L1O3GO1L16C<P16GP16GP16>C<P16GP16GP16>C<P16GP16" ''
PLAY "L1O3G+O1L16C+<P16G+P16G+P16>C+<P16G+P16G+P16>C+<P16G+P16" ''
PLAY "L1O3B-O1L16E-<P16B-P16B-P16>E-<P16B-P16B-P16>E-<P16B-P16"
PLAY "L1O4C+O1L16F+P16C+P16C+P16F+P16C+P16C+P16F+P16C+P16"
HORN2:
'French horn
PLAY "O4L4C.C+L8C<B->C+L4C.C+L8C<B->C+L4C.C+L8C<B->C+L4C.C+L8C<B->C+"
PLAY "O3L4C.C+L8C<B->C+L4C.C+L8C<B->C+L4C.C+L8C<B->C+L4C.C+L8C<B->C+"
PLAY "O2L4C.C+L8C<B->C+L4C.C+L8C<B->C+L4C.C+L8C<B->C+CC+E-FF+CC+<B-"
SQUARE:
'Square wave
PLAY "O1L8CFG+GCGC+FCFG+GCGC+FCFG+GCGC+FCFG+GCGC+F"
PLAY "CFG+GCGC+FCFG+GCGC+FCFG+GCGC+FCFG+GCGC+F"
'GOTO HORN1