Sobre CLEO

@Junior_Djjr escreveu:Traduzi o MDPMv5 INTEIRO para GTA3script (2,1 mil linhas)

Spoiler:

Testado e aprovado só continuei sentindo falta de um WHILE_TRUE (não gosto de ficar usando GOTO).
Agora vou sentir vontade de botar o MDPMv5 pra frente. Tenho várias ideias massivas para versões futuras.

O GTA3script já foi lançado ok, pra quem ainda não viu.
Há inclusive um tutorial lá (necessário já ter conhecimento do Sanny Builder ou ser bom em outras programações)

Em breve farei e postarei um tutorial extremamente leigo de GTA3script para tentar introduzir mais pessoas nele. O tutorial será postado aqui no fórum mesmo.

@Junior_Djjr escreveu:só continuei sentindo falta de um WHILE_TRUE (não gosto de ficar usando GOTO).

Código:

{
NOP
LVAR_INT T RUE
WHILE T=RUE
    WAIT 0
    PRINT_STRING_NOW "..." 100
ENDWHILE
}

@AguiaX2 escreveu:Por causa dos nomes diferentes eu entrava toda hora no opcode datebase e no list of opcodes

@Rodrigo294 escreveu:Sério essa nova linguagem é muito mais animador de se aprender.

@NathanT escreveu:Variáveis locais não precisam ser definidas? Essa é a dúvida que não sai de minha cabeça. 
Considero que não seja necessário um tópico só para isso, corrija-me se estiver errado.
Mas e aí?

Código:

{$Cleo}
0@ = 5
1@ = 12
2@ = 27
0@ += 10
0A93: end_custom_thread

Código:

{$Cleo}
var
0@ int
1@ int
2@ int
end

0@ = 10
1@ = 25
1@ += 0@
2@ = random(0, 101)
0A93: end_custom_thread

Código:

{$Cleo}
0@ = 10
1@ = 25
005A: 1@ += 0@
0209: 2@ = random_int_in_ranges 0 101
0A93: end_custom_thread

Imagem:

Imagem:

Spoiler:

Código:

{$CLEO}
{$I SF}

0000:

0B34: "caixa" @cmd

13@ = Render.CreateFont("Verdana", 8, 12)
31@ = 70.0
const
color_sendRPC = 0xe3dc0b
end

const
REND_STATE = 30@
BoneCountry = 0
FlintCounty = 1
LosSantos = 2
LasVenturas = 3
RedCounty = 4
SanFierro = 5
TierraRobada = 6
VerTudo = 7
end


while true
    wait 0
    //dialog
    if 0B3C:  samp is_dialog_responded id 223 button 2@ list_item 3@ input_text 0
        then
        if 2@ == 1    //okb
            then
            //Bone Country
            if 3@ == BoneCountry
                then
                if 08B7:   test REND_STATE bit BoneCountry
                    then
                    29@ = 1
                else
                    29@ = 0
                end    
                0B12: 29@ 29@ 1    
                if 29@ == 1
                    then
                    08BD: set REND_STATE bit BoneCountry
                    0AC6: 4@ = label @bonecountry_options offset
                    SAMP.ShowDialog(201, "Supply Bone Country - Supply Box S&S", 4@, "OK", "", 2)
                end
                const                                                                                                              
                    BN_STATE=31@                                                                                                    
                    Fort_Carson=1                                                                                                  
                    Bone_Country_East=2                                                                                            
                    Bone_Country_Canyons=3                                                                                          
                    Verdant Meadows=4
                    EVENT_LISTBOX_SELECTION = 1794
                    EVENT_BUTTON_CLICKED = 257                                                                                                
                end
                                                                                              
                if 0B3C:  samp is_dialog_responded id 201 button 2@ list_item 4@ input_text 0                                      
                    then                                                                                                            
                    if 2@ == 1    //OK Botão                                                                                        
                        then                                                                                                        
                        if 4@ == Fort_Carson                                                                                        
                            then                                                                                                
                            if 08B7:   test BN_STATE bit Fort_Carson                                                                
                                then                                                                                                
                                28@ = 1                                                                                            
                            else                                                                                                    
                                28@ = 0                                                                                            
                            end                                                                                                    
                            if 28@ == 1                                                                                            
                                then                                                                                                
                                08BD: set BN_STATE bit Fort_Carson                                                                  
                                0AF8: "[x] Você selecionou {FF0000}Fort Carson. Uma marca foi criada no mapa." color_sendRPC 0x2F  
                                27@=Marker.CreateIconAndSphere(5, 7.24142, 959.94550, 18.55249)                                    
                            else                                                                                                  
                                08C3: clear BN_STATE bit Fort_Carson                                                                
                                0AF8: "[x] Você desselecionou {FF0000}Fort Carson. A marca foi retirada do mapa." color_sendRPC 0x2F
                                0164: disable_marker 27@                                                                          
                            end                                                                                                    
                        end                                                                                                        
                    end                                                                                                            
                end                            
            end
            08C3: clear REND_STATE bit BoneCountry
              
            //Flint County
            if 3@ == FlintCounty
                then
                if 08B7:   test REND_STATE bit FlintCounty
                    then
                    29@ = 1
                else
                    29@ = 0
                end    
                0B12:  29@ 29@ 1    
                if 29@ == 1
                    then
                    08BD: set REND_STATE bit FlintCounty
                    0AC6: 4@ = label @flintcounty_options offset
                    SAMP.ShowDialog(200, "Supply Flint County - Supply Box S&S", 4@, "OK", "", 2)
                end
            end
            08C3: clear REND_STATE bit FlintCounty
                  
            //Los Santos
            if 3@ == LosSantos
                then
                if 08B7:   test REND_STATE bit LosSantos
                    then
                    29@ = 1
                else
                    29@ = 0
                end    
                0B12:  29@ 29@ 1    
                if 29@ == 1
                    then
                    08BD: set REND_STATE bit LosSantos
                    0AC6: 4@ = label @lossantos_options offset
                    SAMP.ShowDialog(200, "Supply Los Santos - Supply Box S&S", 4@, "OK", "", 2)
                end    
            end
            08C3: clear REND_STATE bit LosSantos
            
            //Las Venturas
            if 3@ == LasVenturas
                then
                if 08B7:   test REND_STATE bit LasVenturas
                    then
                    29@ = 1
                else
                    29@ = 0
                end    
                0B12:  29@ 29@ 1    
                if 29@ == 1
                    then
                    08BD: set REND_STATE bit LasVenturas
                    0AC6: 4@ = label @lasventuras_options offset
                    SAMP.ShowDialog(200, "Supply Las Venturas - Supply Box S&S", 4@, "OK", "", 2)
                end    
            end
            08C3: clear REND_STATE bit LasVenturas
            
            if 3@ == RedCounty
                then
                if 08B7:   test REND_STATE bit RedCounty
                    then
                    29@ = 1
                else
                    29@ = 0
                end    
                0B12:  29@ 29@ 1
                if 29@ == 1
                    then
                    08BD: set REND_STATE bit RedCounty
                    0AC6: 4@ = label @redcounty_options offset
                    SAMP.ShowDialog(200, "Supply Red County - Supply Box S&S", 4@, "OK", "", 2)
                end    
            end
            08C3: clear REND_STATE bit RedCounty
            
            if 3@ == SanFierro
                then
                if 08B7:   test REND_STATE bit SanFierro
                    then
                    29@ = 1
                else
                    29@ = 0
                end
                0B12:  29@ 29@ 1
                if 29@ == 1
                    then
                    08BD: set REND_STATE bit SanFierro
                    0AC6: 4@ = label @sanfierro_options offset
                    SAMP.ShowDialog(200, "Supply San Fierro - Supply Box S&S", 4@, "OK", "", 2)
                end    
            end
            08C3: clear REND_STATE bit SanFierro
            
            if 3@ == TierraRobada
                then
                if 08B7:   test REND_STATE bit TierraRobada
                    then
                    29@ = 1
                else
                    29@ = 0
                end
                0B12:  29@ 29@ 1
                if 29@ == 1
                    then
                    08BD: set REND_STATE bit TierraRobada
                    0AC6: 4@ = label @tierrarobada_options offset
                    SAMP.ShowDialog(200, "Supply Tierra Robada - Supply Box S&S", 4@, "OK", "", 2)
                end    
            end
            08C3: clear REND_STATE bit TierraRobada
  
            //Ver Tudo
            if 3@ == VerTudo
                then  
                0AC6: 3@ = label @label1 offset
                Samp.ShowDialog(789,"Mapa geral - Supply Box S&S",3@,"OK","",0)
            end
            08C3: clear REND_STATE bit VerTudo
          
        end //okbu
    end  //dialog    
end //while

:bonecountry_options
hex
    "{FFFFFF}Fort Carson" A
    "{FFFFFF}Bone Country East" A  
    "{FFFFFF}Bone Country Canyons" A                        
    "{FFFFFF}Verdant Meadows" A
    00
end

:flintcounty_options
hex
"{FFFFFF}Back-o-Beyond" A
"{FFFFFF}Flint Range" A
"{FFFFFF}Flint County Fallen Tree" A
"{FFFFFF}The Farm Flint County" A
"{FFFFFF}Angel Pine" A
"{FFFFFF}Mount Chilliad" A
00
end

:lossantos_options
hex
"{FFFFFF}Los Santos Docks" A
"{FFFFFF}Los Santos Airport" A
"{FFFFFF}Los Santos Verdant Bluffs" A
"{FFFFFF}Los Santos Piert" A
"{FFFFFF}Los Santos Market Station" A
"{FFFFFF}Los Santos North Car Park" A
"{FFFFFF}Los Santos Jefferson Motel" A
00
end

:lasventuras_options
hex
"{FFFFFF}Las Venturas Stadium" A
"{FFFFFF}Las Venturas North Strip Motel" A
"{FFFFFF}Las Venturas East Shopping Mall" A
"{FFFFFF}Las Venturas East Building Roof" A
"{FFFFFF}Las Venturas South Industrial" A
"{FFFFFF}Las Venturas Airport" A
00
end

:redcounty_options
hex
"{FFFFFF}Fisher's Lagoon" A
"{FFFFFF}Montgomery" A
"{FFFFFF}Dillimore" A
"{FFFFFF}Blueberry" A
00
end

:sanfierro_options
hex
"{FFFFFF}San Fierro Airport" A
"{FFFFFF}San Fierro Driving School" A
"{FFFFFF}San Fierro Country Club" A
"{FFFFFF}San Fierro Hospital" A
"{FFFFFF}San Fierro Square" A
"{FFFFFF}San Fierro Promenade" A
00
end

:tierrarobada_options
hex
"{FFFFFF}Tierra Robada South" A
"{FFFFFF}Tierra Robada Midland" A
"{FFFFFF}Tierra Robada North Freeway" A
00
end



:cmd
0AC6: 3@ = label @main_options offset
0B3B: samp show_dialog id 223 caption "{009000}Regiões/Cidades - Supply Box S&S" text 3@ button_1 "OK" button_2 "SAIR" style 2
Samp.CmdRet()
:main_options //ANTIGO :label
hex
"{FFFFFF}1) {009900}Bone Country" A
"{FFFFFF}2) {009900}Flint County" A
"{FFFFFF}3) {009900}Los Santos" A
"{FFFFFF}4) {009900}Las Venturas" A
"{FFFFFF}5) {009900}Red County" A
"{FFFFFF}6) {009900}San Fierro" A
"{FFFFFF}7) {009900}Tierra Robada" A  
"{FFFFFF}8) {FFFFFF}Ver tudo" A
00                        
end

:label1
hex
"{009900}Mapa geral de San Andreas:" A
//BONE COUNTRY
"{FFFFFF}Bone Country{009900} - {FFFFFF}Fort Carson" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Bone County East" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Bone County Canyons" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Verdant Meadows" A
" " A
//FLINT COUNTY
"{FFFFFF}Flint County{009900} - {FFFFFF}Back-o-Beyond" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Flint Range" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Flint County Fallen Tree" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}The Farm Flint County" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Angel Pine" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Mount Chilliad" A
" " A
//LOS SANTOS
"{FFFFFF}Los Santos{009900} - {FFFFFF}Los Santos Docks" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Los Santos Airport" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Los Santos Verdant Bluffs" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Los Santos Piert" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Los Santos Market Station" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Los Santos North Car Park" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Los Santos Jefferson Motel" A
" " A
//LAS VENTURAS
"{FFFFFF}Las Venturas{009900} - {FFFFFF}Las Venturas Stadium" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Las Venturas North Strip Motel" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Las Venturas East Shopping Mall" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Las Venturas East Building Roof" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Las Venturas South Industrial" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Las Venturas Airport" A
" " A
//RED COUNTY
"{FFFFFF}Red County{009900} - {FFFFFF}Fisher's Lagoon" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Montgomery" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Dillimore" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Blueberry" A
" " A
//SAN FIERRO
"{FFFFFF}San Fierro{009900} - {FFFFFF}San Fierro Airport" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}San Fierro Driving School" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}San Fierro Country Club" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}San Fierro Hospital" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}San Fierro Square" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}San Fierro Promenade" A
" " A
//TIERRA ROBADA
"{FFFFFF}Tierra Robada{009900} - {FFFFFF}Tierra Robada South" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Tierra Robada Midland" A
"\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \{009900}- {FFFFFF}Tierra Robada North Freeway" A
" " A
"By: GiiN" A
00                        
end                                                                                                                
/*SEI QUE PODE ESTAR PENSANDO, "O CARA FEZ A PRIMEIRA DIALOG, CHAMAR UMA SEGUNDA, MAS NÃO CONSEGUE FAZER UM SIMPLES EVENTO AO CLICAR NO SEGUNDO. WTF   "

Sou iniciante, peguei um Script Cleo que usasse Dialog, e só estudei o código, entendi, interpretei, mas não estou conseguindo "refazer" uma certa parte. O código acima, eu digitei sozinho.*/