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 "com1
    mudemodoporta "com1:9600,n,8,1    
    
    criejanela "main "d1 [Robô Alpinista V2 - by Arne] 100 25 110 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 "al11
Atribua "meucontador 0
Atribua "meuspulsos 191
Atribua "pormeutempo 20
Atribua "valido 1
Atribua "w 65
Atribua "x 49
Atribua "y 1
Atribua "z 0