Zandronum

Code: Select all

#library "ZCOIN"
#include "zcommon.acs"


#define MAXCOINS 1024

int Coins[MAXCOINS][5];
int Difficult = 30;
int Key = 1;


function int AND(int a, int b) {
	return a & b;
}

function int OR(int a, int b) {
	return a | b;
}

function int  INVERT(int source) {
	int i = 0;
	int j = 0;
	while (j < 32) {
		i = OR(i,(1 << j) -  AND(source, 1 << j));
		j++;
	}
	return i;
}


function int COPYBITS(int source, int index, int length, int newindex) {
	int i = 0;
	int j = 0;
	int i2 = 0;
//	printf("start - index %d length %d newindex %d\n", index, length, newindex);
//	printBits("debug input", sizeof(source), &source);
	while (j < 32) {
		if (j > (index) - length && j <= (index)) {
			i = OR(i, AND(source, 1 << j));
		}
		j++;
	}
//	printBits("debug", sizeof(i), &i);
	if (index > newindex) {
		i = i >> (index - newindex);
	}
	else {
		i = i << (newindex - index);

	}
//	printBits("debug", sizeof(i), &i);
	j = newindex - length;
	while (j <= newindex) {//there may have some bit shift trash after that
		i2 = OR(i2, AND(i, 1 << j));
		j++;
	}
//	printBits("debug", sizeof(i2), &i2);
//	printf("end\n");
	return i2;
}


script "CheckCoins" (void) NET{
	int total=0;
	for(int i=0; i < MAXCOINS;i++){
		if(Coins[i][0] == 0){
			total = i;
			i = 1024;
		}
	}
	LOG(s:"Total earned coins:",d:total);
}


script "CheckCoinsServer" (void){
	int total=0;
	for(int i=0; i < MAXCOINS;i++){
		if(Coins[i][0] == 0){
			total = i;
			i = 1024;
		}
		else{
			LOG(s:"Coin ",d:i,s:" Key = ",d:Coins[i][1],s:" ",d:Coins[i][2],s:" ",d:Coins[i][3]);
		}
	}
	LOG(s:"Total earned coins:",d:total);
}
script "FirstRun" open{
	LOG(s:"Zandrocoin - created by ibm5155");
	acs_namedexecutealways("mAdeek",0,Difficult);
	acs_namedexecute("UpdateClientKey",0,(Key >> 16) | !(Key << 16),!Key,!(Key >> 16) | (Key << 16));
}

script "GetNewCoin" (int X0, int X1, int X2,int X3) NET{
	//validate if we received a valid key (not cheat)
	int i = -1;
	int a;
	if (COPYBITS(X0, 31, 4, 4) == COPYBITS(X0, 7, 4, 4)) {
		if (COPYBITS(X0, 27, 4, 4) == COPYBITS(INVERT(X0), 3, 4, 4)) {
			if (COPYBITS(X2, 31, 1, 0) == COPYBITS(X2, 0, 1, 0) && COPYBITS(X2, 31, 1, 0) == COPYBITS(INVERT(X2), 16, 1, 0)) {
				if (COPYBITS(X3, 15, 2, 2) == COPYBITS(X3, 9, 2, 2)) {
					//now compare if each key is valid with each other
					if (COPYBITS(X0, 21, 2, 2) == COPYBITS(X1, 7, 2, 2)) {
						if (COPYBITS(X0, 23, 1, 2) == COPYBITS(INVERT(X2), 17, 1, 2)) {
							if (COPYBITS(X2, 21, 2, 2) == COPYBITS(INVERT(X3), 20, 2, 2)) {
								if (COPYBITS(X0, 6, 1, 1) == COPYBITS(INVERT(X3), 21, 1, 1)) {
									for (i = 0; i < MAXCOINS; i++) {
										if (Coins[i][0] == 0) {
											Coins[i][0] = 1;
											Coins[i][1] = X0;
											Coins[i][2] = X1;
											Coins[i][3] = X2;
											Coins[i][4] = X3;
											i = 1024;
										}
									}
									Key++;
									Difficult++;
									acs_namedexecutealways("mAdeek",0,Difficult);
									acs_namedexecutealways("UpdateClientKey",0, (Key >> 16) | !(Key << 16), !Key, !(Key >> 16) | (Key << 16) );
									printbold(s:"New coin found by ",n:activatortid());
								}
							}
						}
					}
				}
			}
		}
	}
	/*
	if(i == -1){		
	
	if(ActivatorTid() == -1){
			printbold(s:"Server is trying to cheat!!!");
		}
		else{
			printbold(n:activatortid(),s:" is trying to cheat!!!");
		}

	}
	*/
}

script "mAdeek" (int a) clientside{
	Difficult = a;
}

script "UpdateClientKey" (int A, int B, int C) clientside{
	int i =0;
	if( (A >> 16) | (!(A << 16)) == !B){
	if( (!(C >> 16)) | (A << 16) == !B){
		Key = !B;
	}
	}
/*
	if(i == 0){
		if(ActivatorTid() == -1){
			printbold(s:"Server is trying to cheat!!!");
		}
		else{
			printbold(n:activatortid(),s:" is trying to cheat!!!");
		}	}
		*/
}

script "Mine" open clientside
{
	//its open so even spectators will mine
	int X0,X1,X2,X3;
	int a,b,c;
	int BackupKey;
	int i = 0;
	while (true) {
		BackupKey = Key;
		a = random(1,65535);
	//	printBits("a: ", sizeof(a), &a);

		b = OR(a >> 16, a << 16);
	//	printBits("b: ", sizeof(a), &b);
		c = OR(OR(a, (a >> 5)), a << 20);
	//	printBits("c: ", sizeof(a), &c);
		X0 = OR(OR(OR(OR(COPYBITS(a, 3, 4, 31), COPYBITS(b, 3, 4, 27)), COPYBITS(c, 3, 4, 23)), COPYBITS(a,19, 12, 19)), OR(COPYBITS(a, 3, 4, 7), COPYBITS(INVERT(b), 3, 4, 3)));
	//	printBits("X0:", sizeof(a), &X0);
		X1 = OR(OR(OR(OR(COPYBITS(b, 14, 11, 31), COPYBITS(c, 31, 11, 20)),COPYBITS(INVERT(c), 1, 2, 9)),COPYBITS(c, 1, 2, 7)), COPYBITS(c, 20, 6, 5));
	//	printBits("X1:", sizeof(a), &X1);
		X2 = OR(OR(OR(OR(OR(OR(COPYBITS(b, 24, 10, 31),COPYBITS(a, 7, 4, 21)),COPYBITS(INVERT(c), 3, 1, 17)),COPYBITS(INVERT(b), 24, 1, 16)),COPYBITS(b, 31, 4, 15)),COPYBITS(c, 14, 11, 11)),COPYBITS(b, 24, 1, 0));
	//	printBits("X2:", sizeof(a), &X2);
		X3 = OR(OR(OR(OR(OR(OR(OR(OR(COPYBITS(b, 28, 4, 31),COPYBITS(a, 31, 5, 27)),COPYBITS(a, 1, 1, 22)),COPYBITS(INVERT(a), 2, 1, 21)),COPYBITS(INVERT(a), 7, 2, 20)),COPYBITS(b, 31, 3, 18)),COPYBITS(c, 27, 4, 13)),COPYBITS(a, 26, 7, 7)),COPYBITS(a, 0, 1, 0));
	//	printBits("X3:", sizeof(a), &X3);
		if (CheckifValid(X0 * BackupKey,X1 * BackupKey,X2 * BackupKey,X3 * BackupKey) == 1) {
			//we found a zandrocoin :D
			NamedRequestScriptPuke("GetNewCoin",X0, X1, X2, X3);
			delay(1);
		}
		i++;
		if(i%15 ==0){
			delay(1);
		}
	}
}


function int CheckifValid(int X0, int X1, int X2, int X3){
	int cnt = 0;
	int i = 0;
	int max = 0;
	i = CheckBytes(COPYBITS(X0,31,8,8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}
	i = CheckBytes(COPYBITS(X0, 23, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}
	cnt += CheckBytes(COPYBITS(X0, 15, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	i = CheckBytes(COPYBITS(X0, 7, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}

	i = CheckBytes(COPYBITS(X1, 31, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}

	i =  CheckBytes(COPYBITS(X1, 23, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}

	i = CheckBytes(COPYBITS(X1, 15, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}

	i = CheckBytes(COPYBITS(X1, 7, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}


	i = CheckBytes(COPYBITS(X2, 31, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}

	i = CheckBytes(COPYBITS(X2, 23, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	i = CheckBytes(COPYBITS(X2, 15, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}

	i = CheckBytes(COPYBITS(X2, 7, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}


	i = CheckBytes(COPYBITS(X3, 31, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}

	i = CheckBytes(COPYBITS(X3, 23, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}

	i = CheckBytes(COPYBITS(X3, 15, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}

	i = CheckBytes(COPYBITS(X3, 7, 8, 8));
	if (cnt > max) {
		max = cnt;
	}
	if (i > 0) {
		cnt += i;
	}
	else {
		cnt = 0;
	}
	if (max >= Difficult) {
		cnt = 1;
	}
	else {
		cnt = 0;
	}
	return cnt;
}

function int CheckBytes(int Byte){
	int cnt = 0;
	for (int i = 0; i < 8 && Byte > 0; i++) {
		if (COPYBITS(Byte,i,1,0) == 0) {
			cnt++;
		}
		else {
			cnt = 0;
		}
	}

	return cnt;
}