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 |
Function Spielwelt1()
AppTitle "Marple"
fontvariable = LoadFont("Arial Black",30)
SetFont fontvariable
Sprung=LoadSound("Dateien/Sprung.mp3")
Camera=CreateCamera()
PositionEntity Camera,0,5,-5
CameraRange camera,.1,200
Player=CreateSphere()
ScaleEntity Player,0.3,0.3,0.3
PositionEntity Player ,0.5,-1.5,-3.5
EntityType Player,1
EntityRadius Player,.3
Balltxt=LoadTexture("Dateienball.jpg")
EntityTexture Player,Balltxt
World1=LoadMesh("DateienWorld1.b3d")
PositionEntity World1,0,0,0
EntityType World1,2
Hinderniss=LoadMesh("Dateien/Stacheln.3ds")
PositionEntity Hinderniss,0.5,-2.8,-16
ScaleEntity Hinderniss,0.02,0.02,0.02
Htex=LoadTexture("Dateien/H.jpg")
EntityTexture Hinderniss,Htex
ENtitytype Hinderniss,3
CH=CopyEntity (Hinderniss)
PositionEntity CH,2,-2.8,-19.5
CH2=CopyEntity (CH)
PositionEntity CH2,8,-2,-20
CH3=CopyEntity (CH)
PositionEntity CH3,10,-2,-23
CH4=CopyEntity (CH)
PositionEntity CH4,5,-2,-28
CH5=CopyEntity (CH)
PositionEntity CH5,-3,-2,-28
CH6=CopyEntity (CH)
PositionEntity CH6 ,-3.5,-3,-10
CH7=CopyEntity (CH)
PositionEntity CH7,-5.2,-3,-5
CH8=CopyEntity (CH)
PositionEntity CH8,-8,-3,-13.5
CH9=CopyEntity (CH)
PositionEntity CH9,-13.5,-3,-7
CH10=CopyEntity (CH)
PositionEntity CH10,-12,-3,0
CH11=CopyEntity (CH)
PositionEntity CH11,-10,-3,2
CH12=CopyEntity (CH)
PositionEntity CH12,5.5,-3,3
Out=CreatePlane()
PositionEntity Out,0,-4,0
aktuell#=100
verlust#=.5
Collisions 1,2,2,2
if image collide (Player,3) then Hauptmenü()
Timer = MilliSecs()
Zeit = 63
While Not KeyHit(277)
If KeyDown(1) Then Hauptmenü()
If EntityCollided(Player,3) Then Vorwort()
If Timer+1000 < MilliSecs() Then
Zeit=Zeit-1
Timer = MilliSecs()
If zeit=0 Then zeit=0
EndIf
TurnEntity CH ,0,1,0
TurnEntity CH2,0,1,0
TurnEntity CH4,0,1,0
TurnEntity CH6,0,1,0
TurnEntity CH8,0,1,0
TurnEntity CH9,0,1,0
mxs#=mxs-MouseXSpeed()/10.0
mys#=mys+MouseYSpeed()/10.0
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
mxs=mxs*.9
mys=mys*.9
TFormNormal EntityX(player)-EntityX(camera),0,EntityZ(Player)-EntityZ(camera), 0,0
If KeyDown(30) Then TranslateEntity Player,-TFormedZ()/19,0,+TFormedX()/19:TurnEntity player,EntityX(player)-EntityX(camera),0,EntityZ(player)-EntityZ(camera),1
If KeyDown(32) Then TranslateEntity Player,+TFormedZ()/19,0,-TFormedX()/19:TurnEntity player,EntityX(camera)-EntityX(player),0,EntityZ(camera)-EntityZ(player),1
If KeyDown(17) Then TranslateEntity Player,+TFormedX()/19,0,+TFormedZ()/19:TurnEntity player,EntityZ(player)-EntityZ(camera),0,EntityX(camera)-EntityX(player),1
If KeyDown(31) Then TranslateEntity Player,-TFormedX()/19,0,-TFormedZ()/19:TurnEntity player,EntityZ(camera)-EntityZ(player),0,EntityX(player)-EntityX(camera),1
If KeyDown(57)Then If aktuell>0 Then aktuell=aktuell-verlust TranslateEntity player,0,.17,0
If KeyHit(57) Then If aktuell>0 Then PlaySound (Sprung)
TranslateEntity Player,0,-.1,0
PointEntity camera,player
MoveEntity camera,mXs/300.0,-mYs/300.0,EntityDistance(camera,player)-3
If zeit=0 Then Zeitlimitüberschreitung()
UpdateWorld
RenderWorld
Text 70,40, zeit
Text 100,40, "Sekunden"
Text 160,10, aktuell
Text 10,10, "Sprungkraft:"
Text 230,10, "%"
Text 11,40, "Zeit:"
Flip
Wend
End Function
|
nimroad1 
Colissions! - Beitrag verfasst:
15.02.2007, 16:40 Uhr 
RSS-ABO
