Ir para conteúdo
Fórum Script Brasil

Linguagem ...

D31v1d1

Por D31v1d1
em Outros Assuntos

 Share

Posts Recomendados

D31v1d1

D31v1d1

Postado
Postado

opa!

não deve ser muita gente que conhese a linguagem de programação para mIRC e eu já programei alguns scripts vou postar um codigo aqui para quem conhese poder me falar porque eu programo mais não sei que linguagem é

alias caway { dialog $iif($dialog(caway),-v,-md) caway caway }
dialog caway {
  title "Away"
  size -1 -1 268 177
  icon $shortfn($scriptdirAway.ico) 
  button "ok",1000,0 0 0 0, cancel 
  tab "Away", 1, 3 3 261 145
  list 4, 7 30 105 111, tab 1 size
  text "Motivo:", 5, 117 30 41 14, tab 1
  edit "", 6, 114 44 147 22, tab 1 autohs
  button "+", 7, 115 70 30 22, tab 1
  button "-", 8, 149 70 30 22, tab 1
  text "Email:", 10, 117 105 33 14, tab 1
  edit %dmt.aw.email, 11, 114 119 147 22, tab 1 autohs 
  box "", 12, 115 92 144 8, tab 1
  button "Limpar", 9, 183 70 76 22, tab 1
  tab "Opções", 2
  check "Mudar de Nick:", 15, 15 42 92 14, tab 2
  edit %dmt.aw.nick, 17, 108 37 149 22, tab 2 autohs disable
  check "Logar", 18, 15 68 48 14, tab 2
  button "...", 19, 68 64 30 18, tab 2 disable
  button "...", 20, 203 64 30 18, tab 2 disable
  check "Pager", 21, 150 68 51 14, tab 2
  check "Notificar Nick", 23, 15 94 90 14, tab 2
  check "Avisar ao notificar", 25, 150 94 106 14, tab 2
  check "Avisar away a cada:", 26, 15 120 116 14, tab 2
  edit $calc(%dmt.aw.time / 60), 27, 135 115 68 22, tab 2 center disable
  text "minuto(s)", 28, 208 120 50 14, tab 2
  box "", 22, 7 25 254 116, tab 2
  tab "Mensagens", 3
  box "", 29, 7 25 254 116, tab 3
  text "Away:", 30, 16 40 32 16, tab 3
  edit "", 31, 51 37 206 20, tab 3 autohs
  text "Voltar:", 32, 15 61 32 16, tab 3
  edit "", 33, 51 58 206 20, tab 3 autohs
  icon 34, 11 79 245 18
  icon 35, 11 100 245 18
  combo 36, 3 152 103 80, tab 3 size drop
  text "<motivo> - Diz o motivo do seu Away", 37, 12 124 244 14, tab 3
  box "", 38, 9 116 248 8, tab 3
  button "Fechar", 13, 190 149 75 25, ok
  check "Away", 14, 111 149 75 25, push 
  tab "About", 39
  box "", 40, 7 25 254 71, tab 39
  icon 41, 10 33 247 60, $shortfn($scriptdirAbout.jpg)
  box "", 42, 7 25 254 116, tab 39
  text "Away", 43, 50 100 170 14, center tab 39 
  text "Visite sempre:", 44, 42 120 70 14, tab 39 
  link "www.mIRC.com", 45, 116 120 120 14, tab 39 
}
on *:dialog:caway:init:*: {
  did -h caway 41 | did -a caway 36 <motivo> | did -a caway 36 <email> | did -a caway 36 <hora> | did -a caway 36 <log> | did -a caway 36 <pager> | did -a caway 36 <duracao> | did -a caway 36 <logo>
  did -c caway 36 1 | list.mot | prev.away | prev.away2 | did -h caway 34,35 | if (%dmt.aw.msg == 15(14Configure sua mensagem de Away15) 15(!)) { did -r caway 31 } | else { did -a caway 31 %dmt.aw.msg }
  if (%dmt.aw.msg2 == 15(14Configure sua mensagem de Away15) 15(!)) { did -r caway 33 } | else { did -a caway 33 %dmt.aw.msg2 } | if (%dmt.aw.mudar == on) { did -e caway 17 | did -c caway 15 }
  if (%dmt.aw.avisar == on) { did -e caway 27 | did -c caway 26 } | if (%dmt.aw.log == on) { did -e caway 19 | did -c caway 18 } | if (%dmt.aw.pager == on) { did -e caway 20 | did -c caway 21 } | if (%dmt.aw.notificar == on) { did -c caway 23 } | if (%dmt.aw.notaviso == on) { did -c caway 25 }
  if ($away) { did -b caway 4,5,6,7,8,10,11,9,15,17,18,21,23,25,26,27,28,30,31,32,33 | did -c caway 14 | did -a caway 14 Voltar }
}
on *:dialog:caway:sclick:1: { did -h caway 34,35,41 }
on *:dialog:caway:sclick:2: { did -h caway 34,35,41 }
on *:dialog:caway:sclick:3: { did -h caway 41 | did -v caway 34,35 }
on *:dialog:caway:sclick:39: { did -v caway 41 | did -h caway 34,35 }
on *:dialog:caway:sclick:45: { url -n www.demented.rg3.net }
on *:dialog:caway:sclick:4: { did -ra caway 6 $did(caway,4).seltext | set %dmt.aw.motivo $did(caway,4).seltext }
on *:dialog:caway:sclick:7: { if ($did(caway,6).text != $null) { .write $shortfn($scriptdirMotivos.txt) $did(caway,6).text | filter -ffct 1 255 " $+ $shortfn($scriptdirMotivos.txt) $+ " " $+ $shortfn($scriptdirMotivos.txt) $+ " | list.mot | did -r caway 6 } }
on *:dialog:caway:sclick:8: { if ($did(caway,4).sel != $null) { .write -dl $+ $did(caway,4).sel $shortfn($scriptdirMotivos.txt) | did -d caway 4 $did(caway,4).sel | did -r caway 6 } }
on *:dialog:caway:sclick:9: { if ($input(Deseja limpar a lista ?,136,[DmT@Away] Limpar Lista)) { .write -c $shortfn($scriptdirMotivos.txt) | list.mot } | dialog -v caway caway }
on *:dialog:caway:edit:17: { set %dmt.aw.nick $did(caway,17).text }
on *:dialog:caway:edit:27: { set %dmt.aw.time $calc($did(caway,27).text * 60) }
on *:dialog:caway:edit:31: { set %dmt.aw.msg $did(31) | prev.away }
on *:dialog:caway:edit:33: { set %dmt.aw.msg2 $did(33) | prev.away2 }
on *:dialog:caway:edit:11: { set %dmt.aw.email $did(11).text }
on *:dialog:caway:edit:6: { set %dmt.aw.motivo $did(caway,6).text }
on *:dialog:caway:sclick:14: { if ($did(caway,14).state = 1) { dmt.ficar } | if ($did(caway,14).state = 0) { dmt.voltar } }
on *:dialog:caway:sclick:15: { if ($did(caway,15).state = 1) { set %dmt.aw.mudar on | did -e caway 17 } | if ($did(caway,15).state = 0) { set %dmt.aw.mudar off | did -b caway 17 } }
on *:dialog:caway:sclick:18: { if ($did(caway,18).state = 1) { set %dmt.aw.log on | did -e caway 19 } | if ($did(caway,18).state = 0) { set %dmt.aw.log off | did -b caway 19 } }
on *:dialog:caway:sclick:19: { clog }
on *:dialog:caway:sclick:20: { set %dmt.aw.sound $$file="Selecione o som de Pager" $mircdir }
on *:dialog:caway:sclick:25: { if ($did(caway,25).state = 1) { set %dmt.aw.notaviso on } | if ($did(caway,25).state = 0) { set %dmt.aw.notaviso off } }
on *:dialog:caway:sclick:26: { if ($did(caway,26).state = 1) { set %dmt.aw.avisar on | did -e caway 27 } | if ($did(caway,26).state = 0) { set %dmt.aw.avisar off | did -b caway 27 } }
on *:dialog:caway:sclick:21: { if ($did(caway,21).state = 1) { set %dmt.aw.pager on | did -e caway 20 } | if ($did(caway,21).state = 0) { set %dmt.aw.pager off | did -b caway 20 } }
on *:dialog:caway:sclick:23: { if ($did(caway,23).state = 1) { set %dmt.aw.notificar on } | if ($did(caway,23).state = 0) { set %dmt.aw.notificar off } }
on *:dialog:caway:sclick:36: { if ($did(caway,36).sel == 1) { did -ra caway 37 <motivo> - Diz o motivo do seu Away } | if ($did(caway,36).sel == 2) { did -ra caway 37 <email> - Diz o seu E-mail } | if ($did(caway,36).sel == 3) { did -ra caway 37 <hora> - Diz a hora que você entrou em Away }
  if ($did(caway,36).sel == 4) { did -ra caway 37 <log> - Diz se o Log está on ou off } | if ($did(caway,36).sel == 5) { did -ra caway 37 <pager> - Diz se o Pager está on ou off } | if ($did(caway,36).sel == 6) { did -ra caway 37 <duracao> - Diz a duração do seu Away } | if ($did(caway,36).sel == 7) { did -ra caway 37 <logo> - Diz o Logo :) }
}
alias list.mot { did -r caway 4 | filter -ffct 1 255 " $+ $shortfn($scriptdirMotivos.txt) $+ " " $+ $shortfn($scriptdirMotivos.txt) $+ " | var %c = 1 | while ($lines($shortfn($scriptdirMotivos.txt)) >= %c) { did -a caway 4 $read($shortfn($scriptdirMotivos.txt),%c) | inc %c } }
alias prev.away { if (%dmt.aw.msg == $null)  set %dmt.aw.msg 15(14Configure sua mensagem de Away15) %dmt | window -ph +b @pre 0 0 245 18
  drawtext -bcp @pre 1 0 Tahoma 10 0 0 245 18 $replace(%dmt.aw.msg,<motivo>,Já volto,<hora>,14:30,<email>,demented@hotmail.com,<log>,on,<pager>,on,<duracao>,10m 30s,<logo>,%dmt)
  drawsave @pre $shortfn($scriptdirFicar.bmp) | window -c @pre | did -g caway 34 $shortfn($scriptdirFicar.bmp)
  else { window -ph +b @pre 0 0 245 18 | drawtext -bcp @pre 1 0 Tahoma 10 1 1 245 18 %dmt.aw.msg | drawsave @pre $shortfn($scriptdirFicar.bmp) | window -c @pre | did -g caway 34 $shortfn($scriptdirFicar.bmp)
  }
}
alias prev.away2 { if (%dmt.aw.msg2 == $null)  set %dmt.aw.msg2 15(14Configure sua mensagem de Away15) %dmt | window -ph +b @pre 0 0 245 18
  drawtext -bcp @pre 1 0 Tahoma 10 0 0 245 18 $replace(%dmt.aw.msg2,<motivo>,Já volto,<hora>,14:30,<email>,demented@hotmail.com,<log>,on,<pager>,on,<duracao>,10m 30s,<logo>,%dmt)
  drawsave @pre $shortfn($scriptdirVoltar.bmp) | window -c @pre | did -g caway 35 $shortfn($scriptdirVoltar.bmp)
  else { window -ph +b @pre 0 0 245 18 | drawtext -bcp @pre 1 0 Tahoma 10 1 1 245 18 %dmt.aw.msg2 | drawsave @pre $shortfn($scriptdirVoltar.bmp) | window -c @pre | did -g caway 35 $shortfn($scriptdirVoltar.bmp)
  }
}
alias clog { dialog $iif($dialog(clog),-v,-m) clog clog }
dialog clog {
  title "Mensagens Logadas"
  size -1 -1 320 240
  icon $shortfn($scriptdirLog.ico)
  button "ok", 1000,0 0 0 0
  tab "Log de Canal", 1, 3 3 313 205
  list 7, 7 30 305 171, tab 1 size
  button "Editar", 2, 4 210 75 25, tab 1
  button "Apagar linha", 3, 83 210 75 25, tab 1
  button "Apagar", 4, 162 210 75 25, tab 1
  tab "Log de Pvt", 6
  list 8, 7 30 305 171, tab 6 size 
  button "Fechar", 5, 241 210 75 25, ok
  button "Editar", 9, 4 210 75 25, tab 6
  button "Apagar linha", 10, 83 210 75 25, tab 6
  button "Apagar", 11, 162 210 75 25, tab 6
}
on *:dialog:clog:init:*: { list.canal | list.pvt }
on *:dialog:clog:sclick:2: { run $shortfn($scriptdirCanal.txt) }
on *:dialog:clog:sclick:3: { write -dl $+ $did(clog,7).sel $shortfn($scriptdirCanal.txt) | did -d clog 7 $did(clog,7).sel }
on *:dialog:clog:sclick:4: { .write -c $shortfn($scriptdirCanal.txt) | list.canal }
on *:dialog:clog:sclick:9: { run $shortfn($scriptdirPvt.txt) }
on *:dialog:clog:sclick:10: { write -dl $+ $did(clog,8).sel $shortfn($scriptdirPvt.txt) | did -d clog 8 $did(clog,8).sel }
on *:dialog:clog:sclick:11: { .write -c $shortfn($scriptdirPvt.txt) | list.pvt }
alias list.canal { did -r clog 7 | var %x = 0 | while (%x < $lines($shortfn($scriptdirCanal.txt))) { inc %x | var %b = $read($shortfn($scriptdirCanal.txt),%x) | did -a clog 7 $strip(%B) } }
alias list.pvt { did -r clog 8 | var %x = 0 | while (%x < $lines($shortfn($scriptdirPvt.txt))) { inc %x | var %b = $read($shortfn($scriptdirPvt.txt),%x) | did -a clog 8 $strip(%B) } }
alias desinst.dmtaw { if ($input(Quer mesmo desinstalar o Away ?,136, Desinstalar Addon) == $true) { .unload -rs $shortfn($scriptdirAway].mrc) } } }
alias dmt.away { return $replace(%dmt.aw.msg,<motivo>, $+ %dmt.aw.motivo $+ ,<hora>,$time(HH:nn),<email>, $+ %dmt.aw.email $+ ,<log>, $+ %dmt.aw.log $+ ,<pager>, $+ %dmt.aw.pager $+ ,<duracao>,$remove($duration($awaytime),rs,r,ins,in,ecs,ec),<logo>,%dmt,[KOLOR],,[BOLD],,[UNDERLINE],) | halt }
alias dmt.away2 { return $replace(%dmt.aw.msg2,<motivo>, $+ %dmt.aw.motivo $+ ,<hora>,$time(HH:nn),<email>, $+ %dmt.aw.email $+ ,<log>, $+ %dmt.aw.log $+ ,<pager>, $+ %dmt.aw.pager $+ ,<duracao>,$remove($duration($awaytime),rs,r,ins,in,ecs,ec),<logo>,%dmt,[KOLOR],,[BOLD],,[UNDERLINE],) | halt }
on *:text:*:#:{ 
  if ($away) && ($me isin $strip($1-)) && (%dmt.aw.log == off) { if (%dmt.aw.notaviso == on) { echo -s 15(14 $+ $nick $+ 7,14 falou com você no7:14 $chan $+ . Mensagem7: $1- $+ 15) } | if (%dmt.aw.notificar == on) { .notice $nick $dmt.away } } 
  if ($away) && ($me isin $strip($1-)) && (%dmt.aw.log == on) { .write $shortfn($scriptdirCanal.txt) ( $+ $time(HH:nn'tt) $+ ) ( $+ $chan $+ ) ( $+ $nick $+ ) $1- | if (%dmt.aw.notaviso == on) { echo -s 15(14 $+ $nick $+ 7,14 falou com você no7:14 $chan $+ . Mensagem7: $1- $+ 15) } | if (%dmt.aw.notificar == on) { .notice $nick $dmt.away } } 
  if ($away) && ($me isin $strip($1-)) && (%dmt.aw.pager == on) { splay %dmt.aw.sound } 
}
on *:text:*:?:{ 
  if ($away) && (%dmt.aw.log == off) { if (%dmt.aw.notaviso == on) { echo -s 15(14 $+ $nick $+ 7,14 falou no seu Pvt. Mensagem7: $1- $+ 15) } | if (%dmt.aw.notificar == on) { .notice $nick $dmt.away } } 
  if ($away) && (%dmt.aw.log == on) { .write $shortfn($scriptdirPvt.txt) ( $+ $time(HH:nn'tt) $+ ) ( $+ $nick $+ ) $1- | if (%dmt.aw.notaviso == on) { echo -s 15(14 $+ $nick $+ 7,14 falou no seu Pvt. Mensagem7: $1- $+ 15) } | if (%dmt.aw.notificar == on) { .notice $nick $dmt.away } } 
  if ($away) && (%dmt.aw.pager == on) { splay %dmt.aw.sound } 
}
alias dmt.ficar {
  if (!$away) && ($server) { $iif($did(caway,6) == $null,set %dmt.aw.motivo Nenhum,set %dmt.aw.motivo $did(caway,6).text) | set %dmt.aw.mynick $me | if (%dmt.aw.mudar == on) { scon -a nick %dmt.aw.nick } | scon -a away 7»14 motivo7: %dmt.aw.motivo 15(!)
    if (%dmt.aw.avisar == on) { scon -a ame $dmt.away | .timeraway 0 %dmt.aw.time scon -a ame $dmt.away } | if ($dialog(caway)) { did -b caway 4,5,6,7,8,10,11,9,15,17,18,21,23,25,26,27,28,30,31,32,33 | did -a caway 14 Voltar | dialog -i caway caway } 
  }
  elseif (!$server) { if ($input(Você não está conectado ao servidor.,508,Away] Aviso)) { if ($dialog(caway)) { did -u caway 14 | dialog -v caway caway } } }
  elseif ($server) && ($away) { if ($input(Você já está Away.,508,Away] Aviso)) { if ($dialog(caway)) { did -u caway 14 | dialog -v caway caway } } }
}
alias dmt.voltar { 
  if ($away) { if (%dmt.aw.avisar == on) { scon -a ame $dmt.away2 } | if (%dmt.aw.mudar == on) { scon -a nick %dmt.aw.mynick } | scon -a away | .timeraway off | unset %dmt.aw.motivo | if ($dialog(caway)) { did -e caway 4,5,6,7,8,10,11,9,15,17,18,21,23,25,26,27,28,30,31,32,33 | did -a caway 14 Away } }
  elseif ($server) && (!$away) { if ($input(Você não está Away.,508,Away] Aviso) == $true) { halt }
  }
}

esses smiles ai n existem em mIRC beleza apareceu por causa das carinha biggrin.gif

Link para o comentário
Compartilhar em outros sites
THOM

THOM

Postado
Postado

Acho q deve ser linguagem de Programação. não programação para WEB.

Acho q deve ser MIRO, DBASE. sei lá alguma coisa assim. não conheço mesmo.

Link para o comentário
Compartilhar em outros sites
cyberalexxx

cyberalexxx

Postado
Postado
Acho q deve ser linguagem de Programação. não programação para WEB.

Acho q deve ser MIRO, DBASE. sei lá alguma coisa assim. não conheço mesmo.

Miro é uma ferramenta para desenvolvimento em clipper e dbase também não é, pois já programei em Dbase em 1900 +/-

Nunca vi essa estrutura não, parece cruzamento de JS com pascal laugh.gif

Link para o comentário
Compartilhar em outros sites
THOM

THOM

Postado
Postado

Isso, andei pensando e cheguei a isso também. Isso que é cruzamento de JS com PASCAL, mais mesmo assim tá difícil. Uai q trem é esse.

A já sei acho q é linguem marciana. rsrs brincadeira. Em quem sabe posta aê que eu desisto. Mais quero saber mesmo assim.

Link para o comentário
Compartilhar em outros sites
D31v1d1

D31v1d1

Postado
  • Autor
Postado

tipo não sei se voces já entraraum no mirc ,mirc é um tipo de bate-papo onde existe uma rede onde todos usao scripts ou HP para conectar nesta determinada rede, aqueli exemplo ali é programado num editor que vem com o script(script é um programa se alguein que não conhese quizer ver como funciona baixe aqui em http://www.scriptingx.com ai voces podem dar um olhada como é feito) bom eu programei alguns já como o [Negligence Script] acho bem legal essa linguagem tem varios funçoes parecidas com php como echo e outras

bom ta ai postei denovo so pra esclarecer um pouco mais e se alguein quizer dar uma olhada tem o link ali em cima falou abraços

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para a lista de tópicos


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...