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
  }
}