;;;;-----abrindo jogo
  tokenize 32 @CGold 400 400 CGold 0.1 beta - by Foi_Mal
  if ($window($1)) { window -a $1 | halt }
  else {
    .fclose cgold.*
    hadd -m CGold clear ok
    ;hfree CGold
    hadd -m CGold Win-n N
    hadd -m CGold Win-c N
    hadd -m CGold Menu-b N
    hadd -m CGold Set-num 0
    hadd -m CGold Selected 0
    hadd -m CGold List-c 0
    hadd -m CGold Mouse.y 0
    hadd -m CGold List.at 0
    hadd -m CGold List-se 0
    hadd -m CGold List-lse 0
    hadd -m CGold List-listnum 0
    hadd -m CGold t-move 0
    hadd -m CGold criar-s 0
    hadd -m CGold conec-c 0
    hadd -m CGold Tab opções
    hadd -m CGold List 35
    hadd -m CGold List.lastat 35
    hadd -m CGold Client.name $iif($me,$v1,$eval($str($ $+ r(a,z) $ $+ + $chr(32),10),2))
    hadd -m CGold Client.ip 127.0.0.1
    hadd -m CGold Client.porta 666
    hadd -m CGold Client.chat
    hadd -m CGold Chat.py 351
    hadd -m CGold Chat.ly 0
    hadd -m CGold chat.my 0
    hadd -m CGold chat.cl 0
    hadd -m CGold chat.at 0
    hadd -m CGold conec-b 0
    hadd -m CGold Libchat 0
    if (!$exists($cgold2(Temp).dirfl)) { mkdir $cgold2(Temp).dirfl }
    btrunc $cgold2(Temp,chat.txt).dirfl 0
    .fopen cgold.chat $cgold2(Temp,chat.txt).dirfl
    var %ver = $exists($cgold2(Graficos,game.png).dirfl)
    %ver = %ver $exists($cgold2(Configurar,Config.ini).dirfl)
    %ver = %ver $exists($cgold2(Dlls,game_tools.dll).dirfl)
    %ver = %ver $exists($cgold2(Dlls,Joystick.dll).dirfl)
    if ($istok(%ver,$false,32)) { echo -a * Impossivel abrir o jogo, esta faltando um ou mais arquivo necessario para o funcionamento do addon. | halt }
    if ($istok($regsubex($str(F,$com(0)),/./g,$com(\n) $chr(32)),JStick,32)) { .comclose JStick | .comreg -u $cgold2(Dlls,Joystick.dll).dirfl }
    .comreg $cgold2(Dlls,Joystick.dll).dirfl | .comopen JStick JSticky.JStick
    .fopen cgold.img $cgold2(Graficos,game.png).dirfl
    .fopen cgold.ini $cgold2(Configurar,Config.ini).dirfl
    .fopen cgold.gtools $cgold2(Dlls,game_tools.dll).dirfl
    .fopen cgold.joy $cgold2(Dlls,Joystick.dll).dirfl
    var %x = 1,%a = 1 | while ($findfile($cgold2(Mapas).dirfl,*.map,%x)) {
      var %y = $qt($v1),%z = $cgold2(Mapas,$readini(%y,map,imagem)).dirfl
      if ($exists(%z)) && ($md5(%z,2) == $readini(%y,map,imgmd5)) && ($pic(%z).width == 16) && ($pic(%z).height == 16) {
        .fopen cgold.map. $+ %a %y
        .fopen cgold.img. $+ %a %z
        inc %a
      }
      else { echo -a * Foi verificado um problema com a imagem do mapa %y e por isso ele não será listado! }
      inc %x
    }
    dec %a
    hadd -m CGold Map.list %a
  }
  ;;;;;;----pw graficos
  window -BpCh +db @CGold.G 0 0 $pic($qt($fopen(cgold.img).fname)).width $pic($qt($fopen(cgold.img).fname)).height
  drawpic -n @CGold.G 0 0 $qt($fopen(cgold.img).fname)
  window -BpCh +db @Cgold.map 0 0 $calc(15 * 16) $calc(15 * 16)
  window -BpCh +db @Cgold.map.img 0 0 16 16
  ;;;;;;----pw game
  window -BdpCa +db $1 0 0 $2 $3
  ;;;;;;-----bordas visuais
  drawrect -rfn $1 $cgold2(1).rgb 1 0 0 $2 $3
  drawrect -rn $1 $cgold2(2).rgb 1 0 0 $2 $3
  drawrect -rn $1 $cgold2(2).rgb 1 4 4 $calc($2 - 8) $calc($3 - 8)
  drawrect -rnf $1 $cgold2(3).rgb 1 1 1 80 3
  drawrect -rnf $1 $cgold2(3).rgb 1 $calc(($2 - 80) / 2) 1 80 3
  drawrect -rnf $1 $cgold2(3).rgb 1 $calc($2 - 81) 1 80 3
  drawrect -rnf $1 $cgold2(4).rgb 1 1 1 80 1
  drawrect -rnf $1 $cgold2(4).rgb 1 $calc(($2 - 80) / 2) 1 80 1
  drawrect -rnf $1 $cgold2(4).rgb 1 $calc($2 - 81) 1 80 1
  drawrect -rnf $1 $cgold2(5).rgb 1 1 3 80 1
  drawrect -rnf $1 $cgold2(5).rgb 1 $calc(($2 - 80) / 2) 3 80 1
  drawrect -rnf $1 $cgold2(5).rgb 1 $calc($2 - 81) 3 80 1
  drawrect -rnf $1 $cgold2(3).rgb 1 1 $calc($3 - 4) 80 3
  drawrect -rnf $1 $cgold2(3).rgb 1 $calc(($2 - 80) / 2) $calc($3 - 4) 80 3
  drawrect -rnf $1 $cgold2(3).rgb 1 $calc($2 - 81) $calc($3 - 4) 80 3
  drawrect -rnf $1 $cgold2(5).rgb 1 1 $calc($3 - 4) 80 1
  drawrect -rnf $1 $cgold2(5).rgb 1 $calc(($2 - 80) / 2) $calc($3 - 4) 80 1
  drawrect -rnf $1 $cgold2(5).rgb 1 $calc($2 - 81) $calc($3 - 4) 80 1
  drawrect -rnf $1 $cgold2(4).rgb 1 1 $calc($3 - 2) 80 1
  drawrect -rnf $1 $cgold2(4).rgb 1 $calc(($2 - 80) / 2) $calc($3 - 2) 80 1
  drawrect -rnf $1 $cgold2(4).rgb 1 $calc($2 - 81) $calc($3 - 2) 80 1
  drawrect -rnf $1 $cgold2(3).rgb 1 1 1 3 80
  drawrect -rnf $1 $cgold2(3).rgb 1 1 $calc(($3 - 80) / 2) 3 80
  drawrect -rnf $1 $cgold2(3).rgb 1 1 $calc($3 - 81) 3 80
  drawrect -rnf $1 $cgold2(4).rgb 1 1 1 1 80
  drawrect -rnf $1 $cgold2(4).rgb 1 1 $calc(($3 - 80) / 2) 1 80
  drawrect -rnf $1 $cgold2(4).rgb 1 1 $calc($3 - 81) 1 80
  drawrect -rnf $1 $cgold2(5).rgb 1 3 1 1 80
  drawrect -rnf $1 $cgold2(5).rgb 1 3 $calc(($3 - 80) / 2) 1 80
  drawrect -rnf $1 $cgold2(5).rgb 1 3 $calc($3 - 81) 1 80
  drawrect -rnf $1 $cgold2(3).rgb 1 $calc($2 - 4) 1 3 80
  drawrect -rnf $1 $cgold2(3).rgb 1 $calc($2 - 4) $calc(($3 - 80) / 2) 3 80
  drawrect -rnf $1 $cgold2(3).rgb 1 $calc($2 - 4) $calc($3 - 81) 3 80
  drawrect -rnf $1 $cgold2(5).rgb 1 $calc($2 - 4) 1 1 80
  drawrect -rnf $1 $cgold2(5).rgb 1 $calc($2 - 4) $calc(($3 - 80) / 2) 1 80
  drawrect -rnf $1 $cgold2(5).rgb 1 $calc($2 - 4) $calc($3 - 81) 1 80
  drawrect -rnf $1 $cgold2(4).rgb 1 $calc($2 - 2) 1 1 80
  drawrect -rnf $1 $cgold2(4).rgb 1 $calc($2 - 2) $calc(($3 - 80) / 2) 1 80
  drawrect -rnf $1 $cgold2(4).rgb 1 $calc($2 - 2) $calc($3 - 81) 1 80
  ;;;;;-------titlebar
  drawrect -rn $1 $cgold2(2).rgb 1 4 4 $calc($2 - 8) 20
  drawrect -rn $1 $cgold2(7).rgb 1 5 5 $calc($2 - 10) 18
  drawrect -rnf $1 $cgold2(6).rgb 1 6 6 $calc($2 - 11) 17
  drawrect -rn $1 $cgold2(2).rgb 1 $calc($2 - 61) 4 57 20
  drawrect -rn $1 $cgold2(7).rgb 1 $calc($2 - 60) 5 55 18
  drawrect -rn $1 $cgold2(9).rgb 1 $calc($2 - 59) 6 54 17
  drawrect -rnf $1 $cgold2(8).rgb 1 $calc($2 - 59) 6 53 16
  drawtext -rn $1 $cgold2(9).rgb $cgold2(oie).font 14 7 5 $4-
  drawtext -rn $1 $cgold2(1).rgb $cgold2(oie).font 14 8 6 $4-
  noop $cgold2($1,$calc($2 - 55),10,20,9,n).bot
  noop $cgold2($1,$calc($2 - 30),10,20,9,n).bot
  ;;;;;-------corpo
  drawrect -rn $1 $cgold2(2).rgb 1 10 29 242 242
  ;;;------jogadores
  noop $cgold2($1,257,29,133,101,$cgold2(6).rgb).panel
  drawcopy -rtn @CGold.G $cgold2(10).rgb $cgold2(3,1).img 16 16 $1 264 36
  drawcopy -rtn @CGold.G $cgold2(10).rgb $cgold2(7,1).img 16 16 $1 264 57
  noop $cgold2($1,264,78,119).line
  drawcopy -rtn @CGold.G $cgold2(10).rgb $cgold2(3,2).img 16 16 $1 264 86
  drawcopy -rtn @CGold.G $cgold2(10).rgb $cgold2(7,1).img 16 16 $1 264 107
  ;;;------espectadores
  noop $cgold2($1,257,129,133,142,$cgold2(8).rgb).panel
  noop $cgold2($1,spec,$cgold2(6).rgb,$cgold2(9).rgb,279,136,100,Lista de espera).text
  noop $cgold2($1,264,156,119).line


  noop $cgold2($1,0 0).spec
  noop $cgold2($1,Gold Gold).gold



  ;;;;;----Tab opções
  noop $cgold2($1,$hget(CGold,Tab)).tab
  ;;;;;;;;----desenhando edit / list
  drawrect -rn $1 $cgold2(2).rgb 1 10 370 380 20
  noop $cgold2(Notificação,CGold iniciado com sucesso!).Ctxt
  drawdot $1