[9fans] events

[paurea@plan9.escet.urjc.es]

I am trying to do this Inkey is 4.

	estart(Inkey,Stdin,1); /
	einit(Emouse|Ekeyboard|Inkey);


	for (;;) {
	    keyev = event(&gev);

		switch(keyev){
			case Emouse:
				mev=gev.mouse;

				if (mev.buttons==2){
					goban[pos.x][pos.y]='w';
					drawstone(pos,'w');
			    }
				if (mev.buttons==4){
					goban[pos.x][pos.y]='d';
					drawstone(pos,'d');
				}

				if (mev.buttons==1) {
					goban[pos.x][pos.y]='b';
					drawstone(pos,'b');
				}
			break;
			case Ekeyboard:
				kbdc=gev.kbdc;
				switch(kbdc){
					case qkey:
					case esckey:
						exits(0);
					break;
				}
			break;
			case Inkey:
				print("something for us...");
				readn(Stdin,msg,1);
				if(msg[0]!='\n')
					break;
				readn(Stdin,msg,Msgsz);
				pos.x=atoi(&msg[3]);
				msg[3]='\0';
				pos.y=atoi(&msg[1]);
				drawstone(pos,msg[0]);
			break;
		}