$${
#maxbausdep=20;
#maxbausget=20;

if(getxu);
unset(getxu);
log(&5 parou a macro de cassino);
stop();
else;
set(getxu);
&itemid=spawn_egg;
#numerobaudep=0;
#numerobauget=0;
#auxbau=0;
#bxbau=0;
#numeroBauGet=0;
do();
@#saida=0;
set(conti);
}$$
/home Cassinobaus
$${

				wait(3);
				&dire=%DIRECTION%;
				&rdire=%DIRECTION%;
				ifmatches(%&dire%,N);&dire=NORTH;;&rdire=SOUTH;endif;
				ifmatches(%&dire%,S);&dire=SOUTH;;&rdire=NORTH;endif;
				ifmatches(%&dire%,E);&dire=EAST;;&rdire=WEST;endif;
				ifmatches(%&dire%,W);&dire=WEST;&rdire=EAST;endif;

				log("Chegou na home para depositar:verificando bau: %#numerobaudep%);
				#auxbau=#numerobaudep/10;
				#bxbau=#numerobaudep-(#auxbau*10);
				look(%&dire%);
				key(JUMP);
				//unset(bauagain);
					do();
					#posx=%XPOS%;
					#posz=%ZPOS%;
						if(%#auxbau%=0);
							log(Chegou1);
							break;
						endif;
						do;
							keydown(RIGHT);
							wait(10ms);
							keyup(RIGHT);
						until((%XPOS%=%#posx%+2)|(%XPOS%=%#posx%-2)|(%ZPOS%=%#posz%+2)|(%ZPOS%=%#posz%- 2));
					#auxbau=#auxbau-1;
					loop;

				if(%#bxbau%>4);
				do;
				keydown(RIGHT);
				wait(10ms);
				keyup(RIGHT);
				until((%XPOS%=%#posx%+1)|(%XPOS%=%#posx%-1)|(%ZPOS%=%#posz%+1)|(%ZPOS%=%#posz%- 1));
				#bxbau=#bxbau-5;
				endif;

				if(%#bxbau%=0);
				look(,55);
				endif;

				if(%#bxbau%=1);
				look(,35);
				endif;

				if(%#bxbau%=2);
				look(,7);
				endif;

				if(%#bxbau%=3);
				look(,-24);
				endif;

				if(%#bxbau%=4);
				look(,-50);
				endif;

				wait(1600ms);
				key(use);
				wait(1600ms);


				log(Depositando os itens!);
					for(#p,54,89);
						getslotitem(%#p%,&id,#stack);
						if(%#stack%>0);
								ifmatches(%&id%,%&itemid%);
									log(Pulou "ficha"!);
								else;
									slotclick(%#p%,right,true);
									wait(120ms);
								endif;
						endif;
					next;

				wait(150ms);
				getslotitem(53,&id,#stack);
				if(%#stack%>0);
				#numerobaudep=#numerobaudep+1;
				unset(conti);
				endif;

				gui();
				wait(1);

if(conti);
}$$
/home Cassinobaus
$${
log("Chegou na home para sacar:verificando bau: %#numerobauget%);
#auxbau=#numerobauget/10;
#bxbau=#numerobauget-(#auxbau*10);
wait(2);
look(%&rdire%);
key(JUMP);
wait(500ms);
unset(bauagain);
	do();
	#posx=%XPOS%;
	#posz=%ZPOS%;
		if(%#auxbau%=0);
			log(ChegouSa);
			break;
		endif;
		do;
			keydown(LEFT);
			wait(10ms);
			keyup(LEFT);
		until((%XPOS%=%#posx%+2)|(%XPOS%=%#posx%-2)|(%ZPOS%=%#posz%+2)|(%ZPOS%=%#posz%- 2));
	#auxbau=#auxbau-1;
	loop;

if(%#bxbau%>4);
do;
keydown(LEFT);
wait(10ms);
keyup(LEFT);
until((%XPOS%=%#posx%+1)|(%XPOS%=%#posx%-1)|(%ZPOS%=%#posz%+1)|(%ZPOS%=%#posz%- 1));
#bxbau=#bxbau-5;
endif;

if(%#bxbau%=0);
look(,55);
endif;

if(%#bxbau%=1);
look(,35);
endif;

if(%#bxbau%=2);
look(,7);
endif;

if(%#bxbau%=3);
look(,-24);
endif;

if(%#bxbau%=4);
look(,-50);
endif;

wait(1500ms);
key(use);
wait(2300ms);
getslotitem(0,&id,#stack);
getslotitem(53,&id,#stackt);
if((%#stackt%=0)&&(%#stack%=0));
log(nao detectou o pack!!);
#numerobauget=#numerobauget+1;
unset(contix);
else;
	for(#p,0,53);
	//log(tentou);
	getslotitem(%#p%,&id,#stack);
	ifmatches(%&id%,%&itemid%);
		if(%#stack%>0);
			slotclick(%#p%,right,true);
		//	log(clicou no egg);
			wait(80ms);
		endif;
		endif;
	next;
endif;

	for(#p,54,63);
	slotclick(%#p%,right,true);
	wait(180ms);
	next;

wait(150ms);
gui();
wait(1);
if(contix);
pick(spawn_egg);
do();
}$$
/home Cassino
$${
log(%@#saida%);
wait(2);
	do();
	if(%ITEM%!=%&itemid%);
		pick(spawn_egg);
		if(%ITEM%!=%&itemid%);
		wait(280ms);
		endif;
		endif;
		key(attack);
		wait(50ms);
	while(%@#saida%=0);
gui(inventory);
wait(400ms);
@#saida2=0;
	do(9);
	getslot(%&itemid%,#i);
	if(%#i%<36);
		slotclick(%#i%,l,true);
	endif;
	if(%#i%=-1);
		@#saida2=1;
	endif;
	loop;
gui();
wait(1);
@#saida=0;
log(%@#saida%);
wait(1);
while(%@#saida2%=0);
endif;
endif;
loop;



endif;
}$$