Chaturbate

Apps Home | Create an App
Battleship
Author: slavabo
You are viewing version 44270. There is a newer version of this app. See the latest version of this app.

Description Source Code Launch App Current Users
Created by: Slavabo
There are 4 other versions of this script.
//Battleship v20130318 by slavabo [cbslavabo[at]gmail.com]

var tct = 0; //TipCounT: total tips received
var bsz = 9; //BoardSiZe: cannot exceed 9 due to regex, brd[], ltr[] and toletter()
var brd = [[],[],[],[],[],[],[],[],[]]; //BoaRD: status array of all board coordinates
var shp = [[0]]; //SHiPs: array of unhit ship coordinates; shp[0][0] is total number of ships, shp[0][x] contains length of shp[x][0..]
var ltr = ["A","B","C","D","E","F","G","H","I"]; //LeTteRs: used for numeric to alphabetic conversions
var spc = String.fromCharCode(160); //SPaCe: non collapsible character

cb.settings_choices = [
    {name:'cost', type:'int', minValue:1, maxValue:200, default:25, label: 'Missile Cost in tokens (1-200): '},
];
cb.tipOptions(function(user) {
	return;
});
cb.onTip(function (tip) {
	if  (tip['amount']>=cb.settings.cost) {
		cb.chatNotice("*** "+takeinput(tip['message']));
		showboard();
	}
	else if (tip['message']) cb.chatNotice("*** Tip does not qualify for game. ***");
	tct += tip['amount'];
	cb.drawPanel();
});
cb.onDrawPanel(function(user) {
	return {
		'template': '3_rows_of_labels',
		'row1_label': 'Tip Total:',
		'row1_value': tct,
		'row2_label': 'Missile Cost:',
		'row2_value': cb.settings.cost+' tokens',
		'row3_label': 'Board Size:',
		'row3_value': bsz+' x '+bsz
	};
});
cb.onMessage(function (msg) {
	if (msg['m'] == '/board') {
		msg['X-Spam'] = true;
		showboard();
	}
	return msg;
});

function createship(ssz) {
	if (ssz>bsz-1) ssz = bsz-1;
	shp[0][0]++;
	shp[0].push(ssz);

	reroll:
	do {
		var tmp = [];
		do {
			var p1b=p1e=Math.floor((Math.random()*bsz));
			var p2b=p2e=Math.floor((Math.random()*bsz));
		} while (brd[p1b][p2b]=="X");
		tmp.push(ltr[p1b]+(p2b+1));

		switch (Math.floor((Math.random()*2))) {
			case 0: //grow vertical
				for(cs=0;cs<ssz-1;cs++) {
					if ((p1b==0) || ((Math.floor((Math.random()*2)) && p1e+1<bsz) && (brd[p1e+1][p2e]!="X"))) {
						if (brd[p1e+1][p2b]=="X")
							continue reroll;
						p1e++;
						tmp.push(ltr[p1e]+(p2e+1));
					}
					else {
						if (brd[p1b-1][p2b]=="X")
							continue reroll;
						p1b--;
						tmp.push(ltr[p1b]+(p2b+1));
					}
					brd[p1b][p2b]="X";
					brd[p1e][p2e]="X";
				}
				break reroll;
			case 1: //grow horizontal
				for(cs=0;cs<ssz-1;cs++) {
					if ((p2b==0) || ((Math.floor((Math.random()*2)) && p2e+1<bsz) && (brd[p2e+1][p2e]!="X"))) {
						if (brd[p1b][p2e+1]=="X")
							continue reroll;
						p2e++;
						tmp.push(ltr[p1e]+(p2e+1));
					}
					else {
						if (brd[p1b][p2b-1]=="X")
							continue reroll
						p2b--;
						tmp.push(ltr[p1b]+(p2b+1));
					}
					brd[p1b][p2b]="X";
					brd[p1e][p2e]="X";
				}
				break reroll;
		}
	} while (!0);
	shp.push(tmp);
}
function showboard() {
	var sbm = spc+spc;
	for (sb1=1;sb1<=bsz;sb1++)
		sbm += sb1+spc+spc+spc;
	sbm += shp[0][0]+" ship(s) remaining\n"+spc+spc;
	for (sb1=0;sb1<bsz;sb1++) {
		for(sb2=0;sb2<bsz;sb2++) {
			sbm += brd[sb1][sb2]+spc+spc+spc;
		}
		sbm += "| "+ltr[sb1]+"\n"+spc+spc;
	}
	cb.chatNotice(sbm+"Legend: _ is unhit, X is a hit (ship), 0 is a miss | Send tip note in format of 'a1' - 'i9'");
}
function toletter(ltr) {
	switch (ltr) {
		case "A": return 0;
		case "B": return 1;
		case "C": return 2;
		case "D": return 3;
		case "E": return 4;
		case "F": return 5;
		case "G": return 6;
		case "H": return 7;
		case "I": return 8;
	}
}
function takeinput(loc) {
	loc=loc.toUpperCase();
	if (!loc.match(/^[A-I]{1}[1-9]{1}$/gi)) return "ERROR: Invalid tip note coordinates. Tip forfeited."; //regex test, a1-i9
	if (brd[toletter(loc.charAt(0))][loc.charAt(1)-1]!="_") return loc+" has already been guessed. Tip forfeited.";
	if (shp.join().indexOf(loc) == -1) { //no ship at location
		tim = "Sorry, "+loc+" is a miss. Better luck next time!";
		brd[toletter(loc.charAt(0))][loc.charAt(1)-1]="0";
	}
	else {
		baseloop:
		for (ti1=1;ti1<shp.length;ti1++) {
			for (ti2=0;ti2<shp[ti1].length;ti2++) {
				if (shp[ti1][ti2] === loc) {
					shp[ti1].splice(ti2,1);
					if (!shp[ti1].length) { //ship sunk
						shp[0][0]--;
						if (!shp[0][0]) {
							cb.changeRoomSubject("Battleship :: Game Over. Thanks For The Tips!");
							tim = loc+" is a hit and sink! There are no remaining ships on the board.";
						}
						else tim = loc+" is a hit and has sunk a 1x"+shp[0][ti1]+" ship! There are "+shp[0][0]+" ships remaining.";
					}
					else tim = loc+" is a hit! Keep firing penises, the ship is still floating.";
					break baseloop;
				}
			}
		}
		brd[toletter(loc.charAt(0))][loc.charAt(1)-1]="X";
	}
	return tim;
}
function initgame() {
	cb.changeRoomSubject("Battleship :: Tip "+cb.settings.cost+"tkn with a TIP NOTE in the format of 'A3' to fire a missile. Type /board to see the current marker positions.");

	//Populate ship coordinates; largest to smallest
	createship(5);
	createship(4);
	createship(3);
	createship(3);
	createship(2);

	//Zero out status board; must occur after createship()
	for (ig1=0;ig1<bsz;ig1++)
		for(ig2=0;ig2<bsz;ig2++) {
			brd[ig1][ig2] = "_"; //"fill" character
	}
	showboard();
}

initgame();