// { dg-options "-std=c++11" }
// Check that undeclared literal operator calls and literals give appropriate errors.
int i = operator"" _Bar('x'); // { dg-error "was not declared in this scope" }
int j = 'x'_Bar; // { dg-error "unable to find character literal operator|with|argument" }
int ii = operator"" _BarCharStr("Howdy, Pardner!"); // { dg-error "was not declared in this scope" }
int jj = "Howdy, Pardner!"_BarCharStr; // { dg-error "unable to find string literal operator|Possible missing length argument" }
unsigned long long iULL = operator"" _BarULL(666ULL); // { dg-error "was not declared in this scope" }
unsigned long long jULL = 666_BarULL; // { dg-error "unable to find numeric literal operator" }
long double iLD = operator"" _BarLD(666.0L); // { dg-error "was not declared in this scope" }
long double jLD = 666.0_BarLD; // { dg-error "unable to find numeric literal operator" }
void _ARMIA_RYSUJ_INFO(aint A) {
aint AX=0,AY=0,PL=0,I=0;
aint GD=0,DANE=0;//,KONIEC=0;
aint WOJ=0,SILA=0,SPEED=0,TRYB=0,CELX=0,CELY=0,ROZ=0;
aint TEREN=0,ZARCIE=0;
astr RO_S="",D_S="",DNI_S="",WOJ_S="",R2_S="";
AX=ARMIA[A][0][TX]; // AX=ARMIA(A,0,TX)
AY=ARMIA[A][0][TY]; // AY=ARMIA(A,0,TY)
PL=ARMIA[A][0][TMAG]; // PL=ARMIA(A,0,TMAG)
OKNO(80,80,150,100); // OKNO[80,80,150,100]
GD=50; // GD=50
if( A<20 ) { // If A<20
RO_S=GS("187"); // RO$="Commands"
DANE=-1; // DANE=True
} else { // Else
RO_S=GS("188"); // RO$="Inquiry"
if( ARMIA[A][0][TMAGMA]>28 && ARMIA[A][0][TMAGMA]<100 ) { // If ARMIA(A,0,TMAGMA)>28 and ARMIA(A,0,TMAGMA)<100
DANE=0; D_S=GS("189"); // DANE=False : D$="No informations."
} else { // Else
if( ARMIA[A][0][TMAGMA]>1 ) { // If ARMIA(A,0,TMAGMA)>1
DNI_S=GS("190"); // DNI$=" days."
} else { // Else
DNI_S=GS("191"); // DNI$=" day."
} // End If
DANE=0; // DANE=False : D$="Informations during "+Str$(ARMIA(A,0,TMAGMA))+DNI$
D_S=GS("192")+Str_S(ARMIA[A][0][TMAGMA])+DNI_S;
} // End If
if( ARMIA[A][0][TMAGMA]==0 || ARMIA[A][0][TMAGMA]==100 ) {// If ARMIA(A,0,TMAGMA)=0 or ARMIA(A,0,TMAGMA)=100
RO_S=GS("193"); // RO$="Trace "
GD=52; // GD=52
DANE=-1; // DANE=True
} // End If
} // End If
GADGET(OKX+4,OKY+4,142,74,"",31,2,30,1,-1);// GADGET[OKX+4,OKY+4,142,74,"",31,2,30,1,-1]
GADGET(OKX+4,OKY+80,GD,15,RO_S,8,2,6,31,10);// GADGET[OKX+4,OKY+80,GD,15,RO$,8,2,6,31,10]
GADGET(OKX+106,OKY+80,40,15,GS("194"),8,2,6,31,1);// GADGET[OKX+106,OKY+80,40,15," Ok ",8,2,6,31,1]
if( ARMIA[A][0][TMAGMA]==100 ) { // If ARMIA(A,0,TMAGMA)=100 : Ink 31,6 : Text OKX+48,OKY+89,"@" : End If
gad_text(1.0);
Text(OKX+48,OKY+89,"@");
}
//!!!nieco inaczej // No Mask 23+PL : Paste Bob OKX+8,OKY+8,23+PL
Gfx::Color(0,0,0); _Bar(OKX+8,OKY+8,OKX+40,OKY+40);
PasteBob(OKX+8,OKY+8,23+PL);
SetZone(11,OKX+50,OKY+5,OKX+120,OKY+15);// Set Zone 11,OKX+50,OKY+5 To OKX+120,OKY+15
gad_text(1.0); // Ink 1,30 : Text OKX+50,OKY+15,ARMIA$(A,0)
Text(OKX+50,OKY+15,ARMIA_S[A][0]);
if( DANE !=0 ) { // If DANE
for(I=1;I<=10;++I) { // For I=1 To 10
if( ARMIA[A][I][TE]>0 ) { // If ARMIA(A,I,TE)>0
WOJ+=1; // Add WOJ,1
SILA+=ARMIA[A][I][TSI]; // Add SILA,ARMIA(A,I,TSI)
SILA+=ARMIA[A][I][TE]; // Add SILA,ARMIA(A,I,TE)
SPEED+=ARMIA[A][I][TSZ]; // Add SPEED,ARMIA(A,I,TSZ)
} // End If
} // Next I
ARMIA[A][0][TE]=WOJ; // ARMIA(A,0,TE)=WOJ
SPEED=((SPEED/WOJ)/5); // SPEED=((SPEED/WOJ)/5)
ARMIA[A][0][TSZ]=SPEED; // ARMIA(A,0,TSZ)=SPEED
ARMIA[A][0][TSI]=SILA; // ARMIA(A,0,TSI)=SILA
AX=ARMIA[A][0][TX]; // AX=ARMIA(A,0,TX)
AY=ARMIA[A][0][TY]; // AY=ARMIA(A,0,TY)
TRYB=ARMIA[A][0][TTRYB]; // TRYB=ARMIA(A,0,TTRYB)
CELX=ARMIA[A][0][TCELX]; // CELX=ARMIA(A,0,TCELX)
CELY=ARMIA[A][0][TCELY]; // CELY=ARMIA(A,0,TCELY)
ROZ=ARMIA[A][0][TTRYB]; // ROZ=ARMIA(A,0,TTRYB)
TEREN=ARMIA[A][0][TNOGI]; // TEREN=ARMIA(A,0,TNOGI)
WOJ_S=GS("195"); // WOJ$=" worriors"
if( WOJ==1 ) WOJ_S=GS("196"); // If WOJ=1 : WOJ$=" worrior" : End If
if( ROZ==0 ) { // If ROZ=0
RO_S=GS("197"); // RO$="Unit is tenting"
if( TEREN>69 ) { // If TEREN>69
RO_S+=GS("198")+MIASTA_S[TEREN-70]; // RO$=RO$+" in "+MIASTA$(TEREN-70)
} // End If
} // End If
if( ROZ==1 || ROZ==2 ) { // If ROZ=1 or ROZ=2 : RO$="Unit is moving." : End If
RO_S=GS("199");
}
if( ROZ==3 ) { // If ROZ=3
if( CELY==0 ) { // If CELY=0
R2_S=ARMIA_S[CELX][0]; // R2$=ARMIA$(CELX,0)
} else { // Else
R2_S=MIASTA_S[CELX]; // R2$=MIASTA$(CELX)
} // End If
RO_S=GS("200")+R2_S; // RO$="We're attacking "+R2$
} // End If
if( ROZ==4 ) { // If ROZ=4 : RO$="We're hunting" : End If
RO_S=GS("201");
}
ZARCIE=ARMIA[A][0][TAMO]/WOJ; // ZARCIE=ARMIA(A,0,TAMO)/WOJ
DNI_S=GS("202")+Str_S(ZARCIE)+GS("203");// DNI$="Food for "+Str$(ZARCIE)+" days"
if( ZARCIE==1 ) { // If ZARCIE=1 : DNI$="Food for only 1 day" : End If
DNI_S=GS("204");
}
if( ZARCIE<=0 ) { // If ZARCIE<=0 : DNI$="We have no food !" : End If
DNI_S=GS("205");
}
gad_text(1.0); // Ink 1,30
Text(OKX+50,OKY+35,GS("206")+Str_S(SILA)); // Text OKX+50,OKY+35,"Strength :"+Str$(SILA)
Text(OKX+50,OKY+25,Str_S(WOJ)+WOJ_S); // Text OKX+50,OKY+25,Str$(WOJ)+WOJ$
Text(OKX+50,OKY+45,DNI_S); // Text OKX+50,OKY+45,DNI$
Text(OKX+50,OKY+55,GS("207")+Str_S(SPEED)); // Text OKX+50,OKY+55,"Speed :"+Str$(SPEED)
Text(OKX+12,OKY+65,RO_S); // Text OKX+12,OKY+65,RO$
} else { // Else
gad_text(1.0);
Text(OKX+12,OKY+60,D_S); // Text OKX+12,OKY+60,D$
} // End If
}
