aprenda abra_garra_inferior

	atribua "MeuComando "al11
	
fim

aprenda abra_garra_superior

	atribua "MeuComando "al13

fim

aprenda desce
	
	façaenquanto [descerobo espere 10][:z=1]

fim

aprenda descerobo

	feche_garra_inferior
	envieparaporta
	abra_garra_superior
	envieparaporta
	dobre_articulação
	envieparaporta
	feche_garra_superior
	envieparaporta
	abra_garra_inferior
	envieparaporta
	estique_articulação
	envieparaporta
	feche_garra_inferior
	envieparaporta

fim

aprenda dobre_articulação

	atribua "MeuComando "al16

fim

aprenda envieparaporta

	atribua "EnvioOK 0

	;envia comando
	escreva [Enviando Comando]
	se épalavra :MeuComando [para [i 1 4 1][atribua "y escrevacaractereporta ascii elemento :i :MeuComando] espere 20 atribua "EnvioOK 1]

	;envia enter
	atribua "y escrevacaractereporta 13
	espere 30

	;robô devolve "1" se está tudo ok
	escreva [Aguardando resposta...]
	se :EnvioOK=1[façaenquanto[atribua "x leiacaractereporta][:x=-1]]
	escreva [Resposta OK]
	

fim

aprenda estique_articulação

	atribua "MeuComando "al15

fim

aprenda feche_garra_inferior

	atribua "MeuComando "al12

fim

aprenda feche_garra_superior

	atribua "MeuComando "al14

fim

aprenda fimrobo

	atribua "z 0
	fecheporta
	apaguejanela "d1

fim

aprenda pararobo
	
	atribua "z 0
	feche_garra_superior
	envieparaporta
	abra_garra_inferior
	envieparaporta
	estique_articulação
	envieparaporta
	feche_garra_inferior
	envieparaporta


fim

aprenda Robô

	atribua "MeuComando "al11
	atribua "z 0

	abraporta "com2
	mudemodoporta "com2:9400,n,8,1	
	
	criejanela "main "d1 [Robô Alpinista - Mecatrônica Fácil] 100 25 85 140
	criebotão "d1 "b1 [Sobe]   10 15 60 20 [atribua "z 2 sobe]
	criebotão "d1 "b2 [Desce]  10 40 60 20 [atribua "z 1 desce]
	criebotão "d1 "b3 [Para]   10 65 60 20 [pararobo]
	criebotão "d1 "b4 [Fim]    10 90 60 20 [fimrobo]

fim 

aprenda sobe

	façaenquanto [soberobo espere 10][:z=2]

fim

aprenda soberobo

	feche_garra_superior
	envieparaporta
	abra_garra_inferior
	envieparaporta
	dobre_articulação
	envieparaporta
	feche_garra_inferior
	envieparaporta
	abra_garra_superior
	envieparaporta
	estique_articulação
	envieparaporta
	feche_garra_superior
	envieparaporta

fim

Atribua "buff [B M 1 5 M 1 4 0 M]
Atribua "comando "BM15M140M
Atribua "enviook 1
Atribua "i 0
Atribua "meuarquivo 0
Atribua "meubuff {B M 1 [] [] [] [] [] []}@0
Atribua "meucom [BM15 155 M]
Atribua "meucomando "al14
Atribua "meucontador 0
Atribua "meuspulsos 191
Atribua "pormeutempo 20
Atribua "valido 1
Atribua "w 65
Atribua "x 49
Atribua "y 1
Atribua "z 0