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
|
-- Com 1.0 extrem Beta 2
-- by Oreon, Axji & Enormator
-- Flags und runners
wait = 0
naechsterBallSchmettern = true -- evtl Variablennamen wechseln
-- Weltkonstanten
CONST_FELD_LAENGE = 800
CONST_BALL_RADIUS = 31.5
CONST_GROUND_PLANE = 100
CONST_BALL_GRAVITY = 0.28
CONST_MITTE = CONST_FELD_LAENGE/2
CONST_RECHTER_RAND = CONST_FELD_LAENGE - CONST_BALL_RADIUS
CONST_BLOBBY_HOEHE = 89
CONST_BLOBBY_KOPF_RADIUS = 25
CONST_BLOBBY_BAUCH_RADIUS = 33
CONST_BLOBBY_KOPF_BERUEHRUNG = CONST_GROUND_PLANE + CONST_BLOBBY_HOEHE + CONST_BALL_RADIUS
CONST_BLOBBY_MAXJUMP = 393.625
CONST_NETZ_RADIUS = 7
CONST_NETZ_HOEHE = 323
-- Berhrungsebene des Balls falls er ans Netz kommt
CONST_NETZ_LINKS = CONST_MITTE - CONST_NETZ_RADIUS - CONST_BALL_RADIUS
CONST_NETZ_RECHTS = CONST_MITTE + CONST_NETZ_RADIUS + CONST_BALL_RADIUS
-- Charakter
CONST_ANGRIFFSGRUNDWERT_MIN = 30
CONST_ANGRIFFSGRUNDWERT_MAX = 55
MIN_ANGRIFFSSTAERKE = CONST_ANGRIFFSGRUNDWERT_MIN
MAX_ANGRIFFSSTAERKE = CONST_ANGRIFFSGRUNDWERT_MAX
ANGRIFFSEINSCHRAENKUNG_HINTEN = 10
-- sonstige Einstellungen
servexVersetzung=-7 --Wert ist so gewaehlt, dass der Ball nah ans Netz fliegt, der Gegner ihn aber grade nicht erreichen kann
-- ***ANFANG***
function OnOpponentServe()
moveto(130)
end
function OnServe(ballready)
servex=ballx()+servexVersetzung
naechsterBallSchmettern = true
generatenaechsterBallSchmettern()
moveto(servex)
if ballready and (servex-2 < posx()) and (posx() < servex+2) then
jump()
end
end
function OnGame()
target = estimImpact(ballx(),bally(),bspeedx(),bspeedy(),CONST_BLOBBY_KOPF_BERUEHRUNG,1) --X Ziel in Blobbyhoehe
targets = estimImpact(ballx(),bally(),bspeedx(),bspeedy(),CONST_BLOBBY_KOPF_BERUEHRUNG,2) --X Richtung (-1 oder 1) bei Einschlag
targetNetz = estimImpact(ballx(),bally(),bspeedx(),bspeedy(),CONST_NETZ_HOEHE,1) --X Ziel in Netzhoehe (Netzrollerberechnung)
targetJump = estimImpact(ballx(),bally(),bspeedx(),bspeedy(),CONST_BLOBBY_MAXJUMP,1) --X Ziel in Schmetterhoehe
naechsterBallSchmetternFlagTesten() -- schaut ob der bot angreifen soll oder nicht
if (ballx() > CONST_NETZ_RECHTS) then --Wenn Ball auf rechter Spielfeldseite dann
generatenaechsterBallSchmettern() --Angriffsstaerke neu berechnen
end
if (target > CONST_MITTE) and (ballx() > CONST_NETZ_RECHTS) then --Wenn der Ball mich nix angeht
moveto(135) --Dann auf Standartposition warten
else
if (targetNetz > CONST_NETZ_LINKS - 10) then --Bei Netzroller einfach schmettern
naechsterBallSchmettern = true
end
if naechsterBallSchmettern then
if ((math.abs(bspeedx()) < 4) or (estimImpact(ballx(),bally(),bspeedx(),bspeedy(),CONST_BLOBBY_MAXJUMP,2) < 0)) then
sprungattacke(angriffsstaerke)
else
if (targetJump < CONST_MITTE / 2) then
sprungattacke(-35) --an Rueckwand spielen
else
sprungattacke(0) --weiterleiten
end
end
return
end
moveto(target)
end
end
function sprungattacke(p_angriffsstaerke)
p_angriffsstaerke=math.max(p_angriffsstaerke, MIN_ANGRIFFSSTAERKE + ANGRIFFSEINSCHRAENKUNG_HINTEN * (targetJump / CONST_NETZ_LINKS)) --Weiter hinten nicht ganz so hoch spielen (kommt nicht auf die andere Seite)
p_angriffsstaerke=math.min(p_angriffsstaerke, MAX_ANGRIFFSSTAERKE - ANGRIFFSEINSCHRAENKUNG_HINTEN * (targetJump / CONST_NETZ_LINKS)) --Weiter hinten nicht ganz so tief spielen (kommt ans Netz)
moveto(targetJump-p_angriffsstaerke) -- Bei der Sprungatacke wird die Strke des gewnschten schlages angegeben
if (bally() < 580) and (bspeedy() < 0) then
jump()
end
end
function naechsterBallSchmetternFlagTesten()
if (touches() == 3) then -- falls der Bot einen Anschlag Findet der Direckt punktet so wird der Wer nicht neu berechnet da er dann nciht auf 3 Berhrungen kommt
naechsterBallSchmettern = false
return
end
if (ballx() > CONST_MITTE) then -- wenn der ball auf der Anderen Seite ist soll der bot nicht naechsterBallSchmettern sein
naechsterBallSchmettern = false
return
end
if (touches() == 1) and (math.abs(bspeedx()) < 2) then -- schon nach der 1ten Beruehrung angreifen wenn der Ball gut kommt
naechsterBallSchmettern = true
return
end
if (touches() == 2) then -- nach der 2. Berhrung angreifen
naechsterBallSchmettern = true
return
end
naechsterBallSchmettern = false
end
function generatenaechsterBallSchmettern()
angriffsstaerke = math.random(MIN_ANGRIFFSSTAERKE,MAX_ANGRIFFSSTAERKE)
end
function estimImpact(bx,by,vbx,vby,destY,Frage) -- erlaubt ein besseres Estimate mit ein paar unbeding ntigen Angaben
bgrav = 0.28
time1 =(-vby-math.sqrt((vby^2)-(-2*bgrav*(by-destY))))/(-bgrav)
resultX = (vbx * time1) + bx
estimbspeedx=bspeedx()/math.abs(bspeedx())
if(resultX > CONST_RECHTER_RAND) then -- Korrigieren der Appraller an der Rechten Ebene
resultX = 2 * CONST_FELD_LAENGE - resultX
estimbspeedx=-estimbspeedx
end
if(resultX < CONST_BALL_RADIUS) then -- korrigieren der Appraller an der linken Ebene
resultX = math.abs(resultX - CONST_BALL_RADIUS) + CONST_BALL_RADIUS
estimbspeedx=-estimbspeedx
KollisionLinks = true
else
KollisionLinks = false
end
if (resultX > CONST_NETZ_RECHTS) and (estimbspeedx > 0) and ((KollisionLinks == true) or (ballx() < CONST_NETZ_LINKS)) then -- Abpraller am Netz unterhalb der Kugel erst wenn Netzroller ausgeschlossen sind
resultX = 2 * CONST_NETZ_LINKS - resultX
estimbspeedx=-estimbspeedx
end
if (Frage == 1) then
return resultX
end
if (Frage == 2) then
return estimbspeedx
end
end
|
