snake.csc

import darwin
constant head_pix=darwin.pixel('#',darwin.white,darwin.black)
constant body_pix=darwin.pixel('+',darwin.white,darwin.black)
constant food_pix=darwin.pixel('@',darwin.white,darwin.black)
var snake_body={}
var snake_head={0,0}
var food={0,0}
var heading=2
constant init_long=5
var god_mode=false
var cross_wall=false
constant hard=2
var score=0
darwin.load()
var pic=darwin.get_drawable()

function die()
	var str0="You die!Your score is "+score+"."
	var str1="Press any key to continue..."
	loop
		if(darwin.is_kb_hit())
			darwin.get_kb_hit()
			break
		end
		pic.clear()
		pic.fill(darwin.pixel(' ',darwin.white,darwin.red))
		pic.draw_string(0.5*(pic.get_width()-str0.size()),0.5*pic.get_height(),str0,darwin.pixel(' ',darwin.white,darwin.red))
		pic.draw_string(0.5*(pic.get_width()-str1.size()),pic.get_height()-1,str1,darwin.pixel(' ',darwin.white,darwin.red))
		darwin.update_drawable()
	end
end

function gen_food()
	var is_fit=true
	while(is_fit)
		food[0]=math.randint(0,pic.get_width()-1)
		food[1]=math.randint(0,pic.get_height()-1)
		is_fit=false
		foreach it:snake_body
			if(it[0]==food[0]&&it[1]==food[1])
				is_fit=true
			end
		end
	end
end

function start()
	snake_head={init_long,to_integer(0.5*pic.get_height())}
	for i=0,i<=init_long-2,++i
		snake_body.push_back({snake_head[0]-i,snake_head[1]})
	end
	gen_food()
	var frame=0
	var pause=false
	loop
		if(darwin.is_kb_hit())
			switch darwin.get_kb_hit()
				case 'p'
					pic.save_to_file("./screen_shot.cdpf")
				end
				case 'w'
					if(!pause&&(god_mode||heading!=4))
						heading=3
					end
				end
				case 's'
					if(!pause&&(god_mode||heading!=3))
						heading=4
					end
				end
				case 'a'
					if(!pause&&(god_mode||heading!=2))
						heading=1
					end
				end
				case 'd'
					if(!pause&&(god_mode||heading!=1))
						heading=2
					end
				end
				case '\t'
					if(pause)
						pause=false
					else
						pause=true
					end
				end
			end
		end
		if(!pause&&frame==hard)
			switch heading
				case 1
					--snake_head[0]
				end
				case 2
					++snake_head[0]
				end
				case 3
					--snake_head[1]
				end
				case 4
					++snake_head[1]
				end
			end
			if(cross_wall)
				if(snake_head[0]<0)
					snake_head[0]=snake_head[0]+pic.get_width()
				end
				if(snake_head[0]>pic.get_width()-1)
					snake_head[0]=snake_head[0]-pic.get_width()
				end
				if(snake_head[1]<0)
					snake_head[1]=snake_head[1]+pic.get_height()
				end
				if(snake_head[1]>pic.get_height()-1)
					snake_head[1]=snake_head[1]-pic.get_height()
				end
			else
				if(snake_head[0]<0||snake_head[0]>pic.get_width()-1||snake_head[1]<0||snake_head[1]>pic.get_height()-1)
					die()
					return 0
				end
			end
			if(!god_mode)
				foreach it:snake_body
					if(it[0]==snake_head[0]&&it[1]==snake_head[1])
						die()
						return 0
					end
				end
			end
			snake_body.push_front(snake_head)
			if(snake_head[0]==food[0]&&snake_head[1]==food[1])
				gen_food()
				score=score+to_integer(10*(1.0/hard))
			else
				snake_body.pop_back()
			end
			frame=0
		end
		pic.clear()
		pic.draw_string(0,0,"Score:"+to_string(score),darwin.pixel(' ',darwin.black,darwin.white))
		if(cross_wall)
			pic.draw_string(0,1,"Cross Wall",darwin.pixel(' ',darwin.white,darwin.blue))
		end
		if(god_mode)
			pic.draw_string(0,2,"God Mode",darwin.pixel(' ',darwin.white,darwin.red))
		end
		if(pause)
			pic.draw_string(0,3,"Pause",darwin.pixel(' ',darwin.white,darwin.yellow))
		end
		foreach it:snake_body
			pic.draw_pixel(it[0],it[1],body_pix)
		end
		pic.draw_pixel(snake_head[0],snake_head[1],head_pix)
		pic.draw_pixel(food[0],food[1],food_pix)
		darwin.update_drawable()
		if(!pause)
			++frame
		end
	end
end

for i=1,i<context.cmd_args().size(),++i
	switch context.cmd_args().at(i)
		case "--god-mode"
			god_mode=true
		end
		case "--cross-wall"
			cross_wall=true
		end
		default
			throw runtime.exception("Unknown arguments")
		end
	end
end
darwin.ui.message_box("Greedy Snake","Press any key to start","OK")
darwin.fit_drawable()
loop
	snake_body.clear()
	heading=2
	start()
end