-
Notifications
You must be signed in to change notification settings - Fork 1
/
Form8.frm
687 lines (676 loc) · 24.6 KB
/
Form8.frm
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
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
VERSION 5.00
Begin VB.Form Form8
BackColor = &H00000000&
BorderStyle = 4 'Fixed ToolWindow
Caption = "Instruções"
ClientHeight = 8340
ClientLeft = 45
ClientTop = 615
ClientWidth = 11910
LinkTopic = "Form23"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 8340
ScaleWidth = 11910
ShowInTaskbar = 0 'False
Visible = 0 'False
Begin VB.CommandButton Command2
Height = 735
Left = 10440
Picture = "Form8.frx":0000
Style = 1 'Graphical
TabIndex = 12
Top = 7320
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton Command1
Height = 735
Left = 240
Picture = "Form8.frx":12B6
Style = 1 'Graphical
TabIndex = 11
Top = 7320
Visible = 0 'False
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Digiface"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 9
Left = 0
TabIndex = 10
Top = 5160
Width = 11895
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Digiface"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 8
Left = 0
TabIndex = 9
Top = 4800
Width = 11895
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Digiface"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 5
Left = 0
TabIndex = 8
Top = 3720
Width = 11895
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Digiface"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 4
Left = 0
TabIndex = 7
Top = 3360
Width = 11895
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Digiface"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 3
Left = 0
TabIndex = 6
Top = 3000
Width = 11895
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Digiface"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 2
Left = 0
TabIndex = 5
Top = 2640
Width = 11895
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Digiface"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 1
Left = 0
TabIndex = 4
Top = 2280
Width = 11895
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "- ESCOLHA UMA OPÇÃO DO MENU -"
BeginProperty Font
Name = "Digiface"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 0
Left = 0
TabIndex = 3
Top = 1920
Width = 11895
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Digiface"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 6
Left = 0
TabIndex = 2
Top = 4080
Width = 11895
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Digiface"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 7
Left = 0
TabIndex = 1
Top = 4440
Width = 11895
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "INSTRUÇÕES"
BeginProperty Font
Name = "Digiface"
Size = 44.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 1080
Left = 4080
TabIndex = 0
Top = 240
Width = 3930
End
Begin VB.Image Image1
Height = 2160
Index = 23
Left = 10800
Picture = "Form8.frx":255C
Top = 6480
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 22
Left = 8640
Picture = "Form8.frx":3C3B
Top = 6480
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 21
Left = 6480
Picture = "Form8.frx":531A
Top = 6480
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 20
Left = 4320
Picture = "Form8.frx":69F9
Top = 6480
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 19
Left = 2160
Picture = "Form8.frx":80D8
Top = 6480
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 18
Left = 0
Picture = "Form8.frx":97B7
Top = 6480
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 17
Left = 10800
Picture = "Form8.frx":AE96
Top = 4320
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 16
Left = 8640
Picture = "Form8.frx":C575
Top = 4320
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 15
Left = 6480
Picture = "Form8.frx":DC54
Top = 4320
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 14
Left = 4320
Picture = "Form8.frx":F333
Top = 4320
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 13
Left = 2160
Picture = "Form8.frx":10A12
Top = 4320
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 12
Left = 0
Picture = "Form8.frx":120F1
Top = 4320
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 11
Left = 10800
Picture = "Form8.frx":137D0
Top = 2160
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 10
Left = 8640
Picture = "Form8.frx":14EAF
Top = 2160
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 9
Left = 6480
Picture = "Form8.frx":1658E
Top = 2160
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 8
Left = 4320
Picture = "Form8.frx":17C6D
Top = 2160
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 7
Left = 2160
Picture = "Form8.frx":1934C
Top = 2160
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 6
Left = 0
Picture = "Form8.frx":1AA2B
Top = 2160
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 5
Left = 10800
Picture = "Form8.frx":1C10A
Top = 0
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 4
Left = 8640
Picture = "Form8.frx":1D7E9
Top = 0
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 3
Left = 6480
Picture = "Form8.frx":1EEC8
Top = 0
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 2
Left = 4320
Picture = "Form8.frx":205A7
Top = 0
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 1
Left = 2160
Picture = "Form8.frx":21C86
Top = 0
Width = 2160
End
Begin VB.Image Image1
Height = 2160
Index = 0
Left = 0
Picture = "Form8.frx":23365
Top = 0
Width = 2160
End
Begin VB.Menu a
Caption = "Voltrix"
Begin VB.Menu b
Caption = "A Lenda"
Index = 0
End
Begin VB.Menu b
Caption = "Objectivos"
Index = 1
End
End
Begin VB.Menu c
Caption = "Personagens"
Begin VB.Menu d
Caption = "Criação"
Index = 0
End
Begin VB.Menu d
Caption = "Editação"
Index = 1
End
End
Begin VB.Menu e
Caption = "Combates"
Begin VB.Menu f
Caption = "Preparação"
Index = 0
End
Begin VB.Menu f
Caption = "O Duelo"
Index = 1
End
End
Begin VB.Menu g
Caption = "Glossário"
End
Begin VB.Menu h
Caption = "Fechar"
End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub align()
Label1(0).Alignment = 2
Label1(1).Alignment = 2
Label1(2).Alignment = 2
Label1(3).Alignment = 2
Label1(4).Alignment = 2
Label1(5).Alignment = 2
Label1(6).Alignment = 2
Label1(7).Alignment = 2
Label1(8).Alignment = 2
Label1(9).Alignment = 2
End Sub
Sub duel()
Command1.Visible = False
Command2.Visible = True
Label2.Caption = "O Duelo"
Label1(0).Caption = "A parte mas importante e em que consiste o jogo são os duelos. Nos combates, os"
Label1(1).Caption = "combatentes nunca se tocam; usam as suas criaturas e os seus feitiços para lutarem."
Label1(2).Caption = "O combate acaba quando um jogador for derrotado. É, de seguida, apresentado um quadro"
Label1(3).Caption = "com detalhes do que foi ganho/perdido. O combate é feito por turnos - ataque e defesa."
Label1(4).Caption = "Os turnos são alternados da seguinte maneira: o teu turno de ataque, o turno de defesa do"
Label1(5).Caption = "inimigo, o turno de ataque do inimigo, o teu turno de defesa. O 1º ataque pertence ao 1º"
Label1(6).Caption = "jogador. Nos turnos de ataque, o jogador pode lançar feitiços e/ou invocar criaturas (4 no"
Label1(7).Caption = "máximo). Nos turnos de defesa, o jogador só pode controlar as suas criaturas em jogo e"
Label1(8).Caption = "lançar feitiços defensivos. Todos os comandos do turno presente só são executados"
Label1(9).Caption = "quando esse turno acabar. Em relação às criaturas: irá aparecer ao cimo da imagem da"
End Sub
Sub legend()
Command1.Visible = False
Command2.Visible = True
Label2.Caption = "A Lenda"
Label1(0).Caption = "No ano de 1885, com o progressivo aparecimento de novas tecnologias, o uso de magias"
Label1(1).Caption = "entrou em decadência. As pessoas já acreditavam no progresso e foram esquecendo as"
Label1(2).Caption = "maravilhas mágicas. A tecnologia começou a ganhar novo interesse e com o aparecimento"
Label1(3).Caption = "do primeiro comboio a magia começou a ter um efeito tão negativo que foi proibido o uso."
Label1(4).Caption = "Tal decisão causou uma guerra sangrenta em que a tecnologia triunfou graças às armas"
Label1(5).Caption = "de fogo - as novas maravilhas criadas pelo homem. No entanto, esta vitória só seria"
Label1(6).Caption = "completa com a destruição do templo Volknor - o lugar sagrado onde todas as magias"
Label1(7).Caption = "culminavam. Só os grandes magos conseguiam entrar no templo. A destruição estava"
Label1(8).Caption = "preparada e tudo pronto para rebentar. Numa fracção de segundo antes da explosão, tudo"
Label1(9).Caption = "parou, o templo desapareceu e a memória das pessoas ficou em branco. Ninguem se"
End Sub
Private Sub b_Click(Index As Integer)
align
If Index = 0 Then
legend
Else
Command1.Visible = False
Command2.Visible = False
Label2.Caption = "Objectivos"
Label1(0).Caption = "O objectivo do jogo é chegar ao nível 20 dando depois ao veterano a possibilidade de ir"
Label1(1).Caption = "buscar uma pedra Voltrix que lhe dará acesso a tudo do jogo, ou seja, todas as magias,"
Label1(2).Caption = "pontos sem limite, etc
Torna-se um verdadeiro deus!"
Label1(3).Caption = ""
Label1(4).Caption = ""
Label1(5).Caption = ""
Label1(6).Caption = ""
Label1(7).Caption = ""
Label1(8).Caption = ""
Label1(9).Caption = ""
End If
End Sub
Private Sub Command1_Click()
Command1.Visible = False
Command2.Visible = True
Select Case Label2.Caption
Case "A Lenda"
legend
Case "O Duelo"
duel
End Select
End Sub
Private Sub Command2_Click()
Command2.Visible = False
Command1.Visible = True
Select Case Label2.Caption
Case "A Lenda"
Label1(0).Caption = "lembrava do que acontecera. Século e meio depois deste acontecimento, o templo"
Label1(1).Caption = "reaparece e traz consigo as forças do passado. Nesta altura, o nº de praticantes de"
Label1(2).Caption = "magia é bastante baixo. Contudo, a sua história continuara viva graças a um mago que"
Label1(3).Caption = "escrevera sobre o templo. Os últimos praticantes para lá correram na esperança de"
Label1(4).Caption = "entrarem: «Só os feiticeiros mais poderosos poderão entrar!» - ressoava uma voz. Foi"
Label1(5).Caption = "então realizado um torneio onde se decidiria quem o iria fazer. Os vencedores poderiam"
Label1(6).Caption = "entrar no templo e transformarem-se em deuses, dominando todas as artes mágicas."
Label1(7).Caption = "Quem vencerá? Vemo-nos na arena!!!"
Label1(8).Caption = ""
Label1(9).Caption = ""
Case "O Duelo"
Label1(0).Caption = "criatura correspondente o poder de ataque/vida. As criaturas poderão ser comandadas"
Label1(1).Caption = "fazendo duplo clique na criatura desejada. Quando a vida desta última chegar a zero,"
Label1(2).Caption = "vai para o cemitério onde poderá ser ressuscitada. Quando tiveres 4 criaturas em jogo,"
Label1(3).Caption = "se desejares invocar outra criatura, a 1º será sacrificada dando lugar á nova. Existem"
Label1(4).Caption = "magias que mexem com as características das criaturas, no entanto, a criatura nunca pode"
Label1(5).Caption = "ter mais do que 9/9 ou menos que 1/1 com a exepção do «Polymorph» em que a criatura"
Label1(6).Caption = "fica com 0/0 (É transformada numa ovelha). Com a prática, aprenderás o resto. Boa sorte!"
Label1(7).Caption = ""
Label1(8).Caption = ""
Label1(9).Caption = ""
End Select
End Sub
Private Sub d_Click(Index As Integer)
align
If Index = 0 Then
Command1.Visible = False
Command2.Visible = False
Label2.Caption = "Criação"
Label1(0).Caption = "Esta opção é indispensável antes de começar o combate. Cada jogador tem de criar uma"
Label1(1).Caption = "personagem, para poder jogar, e desenvolve-la. Ganhando combates, o jogador adquire"
Label1(2).Caption = "ouro e pontos de experiência. Com o ouro poderá comprar poções de vida e mana ou até"
Label1(3).Caption = "fazer um pouco de batota e comprar experiência. Os pontos de experiência permitem o"
Label1(4).Caption = "jogador avançar de nível ganhando assim 2 pontos de compra os quais o possibilitarão"
Label1(5).Caption = "de melhorar o status da personagem. 1 ponto de compra equivale ou a +5 de ouro ou +1"
Label1(6).Caption = "ponto de vida ou +1 ponto de mana. No decurso da construção da personagem, irás também"
Label1(7).Caption = "defrontar-te com a escolha de um colégio de magia. Terás, inicialmente, de optar por um"
Label1(8).Caption = "dos 10 que te serão apresentados. Cada colégio contém 5 magias. Acabada a criação, já"
Label1(9).Caption = "podes combater, ou se te enganaste nalguma coisa ainda tens a opção «EDITAR»."
Else
Command1.Visible = False
Command2.Visible = False
Label2.Caption = "Editação"
Label1(0).Caption = "Depois de criada uma personagem, podes editá-la. Quanto tiveres pontos de compra para"
Label1(1).Caption = "gastar, ou quiseres comprar mais poções ou pontos de experiência, ou até quando te for"
Label1(2).Caption = "dada a possibilidade de obteres mais um colégio de magia, terás de ir à opção de edição."
Label1(3).Caption = "Modificar a personagem é vital para a sua sobrevivência. Sempre que possa, edite-a."
Label1(4).Caption = ""
Label1(5).Caption = ""
Label1(6).Caption = ""
Label1(7).Caption = ""
Label1(8).Caption = ""
Label1(9).Caption = ""
End If
End Sub
Private Sub f_Click(Index As Integer)
align
If Index = 0 Then
Command1.Visible = False
Command2.Visible = False
Label2.Caption = "Preparação"
Label1(0).Caption = "Tenha calma, relaxe. Aproveite os extras e escolha uma arena, o método de distribuição de"
Label1(1).Caption = "cartas e uma musiquinha de fundo ao seu gosto. A arena e a música não influenciam a"
Label1(2).Caption = "batalha, mas o método de como as cartas são distribuidas - isso sim. Existem dois"
Label1(3).Caption = "métodos: O Tradicional - no inicio do turno é acrescentada uma carta à mão do jogador, no"
Label1(4).Caption = "caso de ter a mão cheia (7 cartas), é descartada a ultima carta. Existe também o método"
Label1(5).Caption = "aleatório que consite em renovar toda a mão do jogador no inicio do turno. Quando estiver"
Label1(6).Caption = "pronto - ...não tenha piedade!"
Label1(7).Caption = ""
Label1(8).Caption = ""
Label1(9).Caption = ""
Else
duel
End If
End Sub
Private Sub g_Click()
Label1(0).Alignment = 0
Label1(1).Alignment = 0
Label1(2).Alignment = 0
Label1(3).Alignment = 0
Label1(4).Alignment = 0
Label1(5).Alignment = 0
Label1(6).Alignment = 0
Label1(7).Alignment = 0
Label1(8).Alignment = 0
Label1(9).Alignment = 0
Command1.Visible = False
Command2.Visible = False
Label2.Caption = "Glossário"
Label1(0).Caption = " X-Zombies-X = Impede os Zombies de atacarem."
Label1(1).Caption = " X-Ataque-X = Criaturas não atacam neste turno"
Label1(2).Caption = " Inbloqueável = Criaturas com esta abilidade não podem ser bloqueadas"
Label1(3).Caption = " Abilidade de Voar = Só podem ser bloqueadas por criaturas com a mesma abilidade"
Label1(4).Caption = " X-Magia Inimiga de Ataque-X = Bloqueia uma magia inimiga causadora de dano"
Label1(5).Caption = " X-Ac. +Ataque/+Vida-X = As criaturas com poder inferior a X/X não podem atacar"
Label1(6).Caption = " +1 Vida - Jogador/Vida Toda - Criatura = +1 vida ao jogador ou regenera uma criatura"
Label1(7).Caption = " X-Magia Inimiga-X = Bloqueia qualquer magia inimiga"
Label1(8).Caption = " <=Reflectir Magias Inimigas<= Os feitiços viram-se contra o feiticeiro"
Label1(9).Caption = " X-Veneno-X = O jogador ou criatura alvo são desentoxicados"
End Sub
Private Sub h_Click()
Form8.Visible = False
End Sub