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:
|
on 1:input:*: {
if ( $1 == Sondenbericht ) && ( $2 == über ) {
if ( $$1 == Sondenbericht ) && ( $$2 == über ) { haltdef
msg $active 14,1[12»0 Sondenbericht über 12:0 $3 $4 12«14] }
}
elseif ( $1 == Online ) && ( $4 == letzten ) {
if ( $$1 == Online ) && ( $$4 == letzten ) { haltdef
msg $active 14,1[12»0 Online 12h 12:0 $7 12«14] }
}
elseif ( $1 == Punkte ) {
if ( $$1 == Punkte ) { haltdef
set %pok 1
var %punkte = $remove($2,.,,)
set %points %punkte
msg $active 14,1[12»0 Punkte 12:0 $2 12«14] }
}
elseif ( $1 == Schiffseinheiten ) {
if ( $$1 == Schiffseinheiten ) { haltdef
msg $active 14,1[12»0 Schiffseinheiten 12:0 $2 12«14] }
}
elseif ( $1 == Verteidigungsanlagen ) {
if ( $$1 == Verteidigungsanlagen ) { haltdef
msg $active 14,1[12»0 Verteidigungsanlagen 12:0 $2 12«14] }
}
if ( $1 == Einheiten ) && ( $3 == Bau ) {
if ( $$1 == Einheiten ) && ( $$3 == Bau ) { haltdef
msg $active 14,1[12»0 Einheiten im Bau 12:0 $4 12«14] }
}
if ( $1 == Kollektoren ) {
if ( $$1 == Kollektoren ) { haltdef
var %kollektoren = $remove($2,.,,)
var %kollektoren1 = $int($calc((%kollektoren * 15) / 100))
var %kollektoren1- = $calc(%kollektoren - %kollektoren1)
var %kollektoren2 = $int($calc((%kollektoren1- * 15) / 100))
var %kollektoren2- = $calc(%kollektoren1- - %kollektoren2)
var %kollektoren3 = $int($calc((%kollektoren2- * 15) / 100))
var %gesamt = $calc(%kollektoren1 + %kollektoren2 + %kollektoren3)
var %opfer = $calc(%kollektoren - %gesamt)
var %msg1 14,1|0 Wellen 12:0 %kollektoren1 12-0 %kollektoren2 12-0 %kollektoren3
var %msg4 14,1|0 Gesamt 12:0 %gesamt
var %msg5 14,1|0 Opfer hat noch 12:0 %opfer 12«14]
var %kolliepunkte = $null
if ( %kollektoren < 100 ) { set %kolliepunkte $calc( 10000 * %kollektoren ) }
if ( %kollektoren >= 100 && %kollektoren < 150 ) { set %kolliepunkte $calc( %kollektoren * 10500 ) }
if ( %kollektoren >= 150 && %kollektoren < 200 ) { set %kolliepunkte $calc( %kollektoren * 11000 ) }
if ( %kollektoren >= 200 && %kollektoren < 250 ) { set %kolliepunkte $calc( %kollektoren * 11500 ) }
if ( %kollektoren >= 250 && %kollektoren < 300 ) { set %kolliepunkte $calc( %kollektoren * 12000 ) }
if ( %kollektoren >= 300 && %kollektoren < 350 ) { set %kolliepunkte $calc( %kollektoren * 12500 ) }
if ( %kollektoren >= 350 && %kollektoren < 400 ) { set %kolliepunkte $calc( %kollektoren * 13000 ) }
if ( %kollektoren >= 400 && %kollektoren < 450 ) { set %kolliepunkte $calc( %kollektoren * 13500 ) }
if ( %kollektoren >= 450 && %kollektoren < 500 ) { set %kolliepunkte $calc( %kollektoren * 14000 ) }
if ( %kollektoren >= 500 && %kollektoren < 550 ) { set %kolliepunkte $calc( %kollektoren * 14500 ) }
if ( %kollektoren >= 550 && %kollektoren < 600 ) { set %kolliepunkte $calc( %kollektoren * 15000 ) }
if ( %kollektoren >= 600 && %kollektoren < 650 ) { set %kolliepunkte $calc( %kollektoren * 15500 ) }
if ( %kollektoren >= 650 && %kollektoren < 700 ) { set %kolliepunkte $calc( %kollektoren * 16000 ) }
if ( %kollektoren >= 700 && %kollektoren < 750 ) { set %kolliepunkte $calc( %kollektoren * 16500 ) }
if ( %kollektoren >= 750 && %kollektoren < 800 ) { set %kolliepunkte $calc( %kollektoren * 17000 ) }
if ( %kollektoren >= 800 && %kollektoren < 850 ) { set %kolliepunkte $calc( %kollektoren * 17500 ) }
if ( %kollektoren >= 850 && %kollektoren < 900 ) { set %kolliepunkte $calc( %kollektoren * 18000 ) }
if ( %kollektoren >= 900 && %kollektoren < 950 ) { set %kolliepunkte $calc( %kollektoren * 18500 ) }
if ( %kollektoren >= 950 && %kollektoren < 1000 ) { set %kolliepunkte $calc( %kollektoren * 19000 ) }
if ( %kollektoren >= 1000) { set %kolliepunkte $calc( %kollektoren * 20000 ) }
var %kp = $null
var %kolliep = %kolliepunkte
while ( $len(%kolliepunkte ) > 3) { set %kp . $+ $right(%kolliepunkte ,3) $+ %kp | set %kolliepunkte $left(%kolliepunkte ,-3) }
set %kp %kolliepunkte $+ %kp
var %msg6 14,1[12»0 Kollipunkte 12:0 %kp 12«14]
if ( %pok == 1) {
var %punkte = $calc(%points - %kolliep )
var %punkteok = $null
while ( $len(%punkte ) > 3) { set %punkteok . $+ $right(%punkte ,3) $+ %punkteok | set %punkte $left(%punkte ,-3) }
set %punkteok %punkte $+ %punkteok
var %msg7 14,1[12»0 PoK 12:0 %punkteok 12«14] }
msg $active 14,1[12»0 Kollektoren 12:0 $2 %msg1 %msg4 %msg5 }
msg $active %msg7
else {
msg $active 14,1[12»0 Kollektoren 12:9 $2 12«14] %msg1 %msg4 %msg5 }
msg $active %msg6
}
elseif ( $1 == Gebäude ) {
if ( $$1 == Gebäude ) { haltdef
msg $active 14,1[12»0 Gebäude 12:0 $2 12«14] }
}
elseif ( $1 == Rasse ) {
if ( $$1 == Rasse ) { haltdef
msg $active 14,1[12»0 Rasse 12:0 $2 12«14] }
}
if ( $1 == Rohstoffe ) {
if ( $$1 == Rohstoffe ) { haltdef
set %ressmsg 14,1[12»0 Rohstoffe }
}
if ( $1 == Multiplex ) {
if ( $$1 == Multiplex ) { haltdef
var %mu = $remove($2,.,,)
set %multi $calc(%mu + 0)
set %say1 12/\ 0 M 12:0 $2 }
}
if ( $1 == Dyharra ) {
if ( $$1 == Dyharra ) { haltdef
var %dy = $remove($2,.,,)
set %dyha $calc(%dy * 2)
set %say2 12/\ 0 D 12:0 $2 }
}
if ( $1 == Iradium ) {
if ( $$1 == Iradium ) { haltdef
var %ir = $remove($2,.,,)
set %irad $calc(%ir * 3)
set %say3 12/\ 0 I 12:0 $2 }
}
if ( $1 == Eternium ) {
if ( $$1 == Eternium ) { haltdef
var %et = $remove($2,.,,)
set %eter $calc(%et * 4)
set %say4 12/\ 0 E 12:0 $2 }
}
if ( $1 == Tronic ) {
if ( $$1 == Tronic ) { haltdef
var %tronic = $remove($2,.,,)
set %say5 12/\ 0 T 12:0 $2 12«14]
var %punkte
var %punktedurchress = $calc(%multi + %dyha + %irad + %eter)
var %punktedurchressis = $calc(%punktedurchress / 1)
var %keinpunkt = $remove(%punktedurchressis,.,)
var %aufrunden = $ceil($calc(%keinpunkt / 10))
var %mitpunkt = $left(%punktedurchressis,8) $remove(%punktedurchressis,.,)
while ( $len(%aufrunden ) > 3) { set %punkte . $+ $right(%aufrunden ,3) $+ %punkte | set %aufrunden $left(%aufrunden ,-3) }
set %punkte %aufrunden $+ %punkte
msg $active %ressmsg %say1 %say2 %say3 %say4 %say5
msg $active 14,1[12»0 baubare Punkte 12:0 %punkte 12«14] }
unset %say
unset %say1
unset %say2
unset %say3
unset %say4
unset %say5
unset %multi
unset %dyha
unset %irad
unset %eter
unset %ressmsg
set %pok 0
set %points 0
}
}
|