Ir para conteúdo
Fórum CódigoFonte.net

carlaalexa

Membros
  • Total de itens

    6
  • Registro em

  • Última visita

  1. carlaalexa

    Identificação do Login

    Bom dia, gostaria de colocar em meu site um codigo para puder ver na pagina index o seguinte: Antes do usuário fazer Login aparece como "anónimo" e depois de fazer o Login passa a ter o nick de Login dele, com a mensagem Bem vindo user tal..... onde posso encontrar por favor?
  2. Bem, na verdade não entendo de ajx não, mas me fala, se fôr em Ajax onde coloco o comando, em que linha? Amnigo, Bom dia, a ver se sei me explicar, aqui--->if ($did == 4) slist <----- Este procedimento abre uma lista de salas de chat dentro de um Bot. Que terei que acrescentar para logo que a lista seja apresentada ela seja actualizada 2 ou 3 vezes. Agradecia a ajuda por favor, pelo sim pelo não cá vai o conteudo da conexão toda. on *:start: hmake rox 10 | hmake rm 10 | loc raw 005:*: echo -a * User definido para: %user | nick $token(%user,1,32) | haltdef raw 822:*: echo $color(mode) -t $comchan($nick,1) * $nick está ausente. | haltdef raw 821:*: echo $color(mode) -t $comchan($nick,1) * $nick voltou. | haltdef raw 306:*: echo $color(mode) -t $comchan($me,1) * Você foi assinalado como ausente. | haltdef raw 305:*: echo $color(mode) -t $comchan($me,1) * Você não está mais assinalado como ausente. | haltdef alias evover return 9.0a alias evosite return socket.ftpaccess.cc alias _sw sockwrite -n $1- | echo 15 @d $+(1[15,$1,1]15) $2- alias z %z = $r(10000,20000) | while (!$portfree(%z)) %z = $r(10000,20000) | return %z alias -l _get return $+(GET /server/,$1 HTTP/1.1,$crlf,Host: $evosite,$crlf,$crlf) alias loc sockclose * | socklisten ºloc $z | server 127.0.0.1 %z | window -ne @d alias zz1 return :* »||-Chat Evolution Vincula-||«. on *:socklisten:ºloc: sockaccept loc | sockclose ºloc | _sw loc :EVO 001 $me $zz1 $lf :EVO 005 $me IRCx prefix=(qov)[email protected]+ : on *:sockread:loc: { var %x | sockread %x | echo 14 @d {loc}15 %x | tokenize 32 %x if ($1 == privmsg) && (:* !iswm $3) var %x $1-2 :S $_fonte $right($3-,-1) $+ | tokenize 32 %x if ($1 == join) chan.new $2- elseif ($1 == part) chan.del $2 elseif ($1 == nick) { hadd rox nick $iif(:* iswm $2,$right($2,-1),$2) if (!$sock(r.*)) && ($2 != $me) _sw loc $+(:,$me) nick $2 } elseif ($1 == privmsg) && ($comchan($2,1)) && ((:* !iswm $3) || (:S == $3)) _sw r. $+ $comchan($2,1) whisper $comchan($2,1) $2- elseif ($sock(r. $+ $2)) _sw $ifmatch %x elseif ($sock(r. $+ $active)) _sw $ifmatch %x elseif ($sock(r.*)) _sw r.* %x } alias -l chan.del if ($sock(r. $+ $1)) sockclose $ifmatch | _sw loc $+(:,$me) PART $1 alias -l chan.new { sockclose auth* | hadd rox room $1- $iif(!$2,$md5($ticks)) sockopen auth $evosite 6667 } on *:sockopen:auth: if ($sockerr) echo 4 -s * Error: $sock(auth).ip -> $sock(auth).wsmsg | else _sw auth finds $token($hget(rox,room),1,32) on *:sockread:auth: { var %x, %r r. $+ $hget(rox,room) | sockread %x | echo 14 @d (auth)15 %x | tokenize 32 %x if ($2 == 613) _sw auth bot if ($2 == 702) { if ($hget(rox,cria)) _sw auth create $ifmatch - $token($hget(rox,room),2-,32) | else cria | hdel rox cria } if ($1 == ok) { _sw auth nick $hget(rox,nick) $lf $iif($numtok(%user,32) > 1,prop $ role : $+ %user) | sockclose %r } if ($2 == 001) { _sw auth join $hget(rox,room) | if ($me != $3) _sw loc $+(:,$me) nick $3 } if ($2 == nick) _sw loc $1- if ($2 == join) { _sw loc $1-2 $4- | buda $1- | sockclose %r | sockrename auth %r | hdel rox room } if (4* iswm $2) { echo -s * Erro: $token($1-,2-,58) } } alias -l buda var %w $token($3,4,44) | if (%w) _sw loc :Buddah mode $right($4,-1) $+(+,$replace(%w,.,q,@,o,+,v)) $nk($1)) alias -l nk return $token($token($1,1,33),1,58) on *:sockread:r.*: { var %x, %w | sockread %x while ($sockbr) { echo 14 @d ( $+ $sockname $+ )1 %x | tokenize 32 %x if ($2 == privmsg) _sw loc $1-3 $iif($4 == :S,$+(:,$left($6-,-1)),$4-) elseif ($2 == whisper) _sw loc $1 privmsg $4 $iif($5 == :S,$+(:,$left($7-,-1)),$5-) elseif ($2 == join) { _sw loc $1-2 $4 | buda $1- } elseif ($2 == 001) { if ($me != $3) _sw loc $+(:,$me) nick $3 } elseif ($2 == 353) _sw loc $1-5 : $+ $token($6,4,44) else _sw loc %x sockread %x } } on *:sockclose:r.*: var %r $right($sockname,-2) | _sw loc : $+ $me PART %r alias -l rlst if ($dialog(rlist)) { did -r rlist 2 | did -a rlist 2 0 baixando lista... } | sockclose ?list alias -l _rm return $evo.decode($replace($right($1,-2),\b,$chr(32),\c,$chr(44))) alias glist rlst | sockopen glist $$hget(rox,srv $+ $1) 6667 on *:sockopen:glist: if ($sockerr) { echo -s * Error: $sock(glist).ip -> $sock(glist).wsmsg | halt } | _sw glist l | write -c rooms.txt alias slist rlst | sockopen slist $evosite 6667 | write -c rooms.txt on *:sockopen:slist: if ($sockerr) halt | _sw slist CONEX on *:sockread:?list: { var %x | sockread %x | tokenize 32 %x if (l == $1) write rooms.txt $2 - $+ $3- if (0 == $1) { poe_la | sockclose ?list } } alias lang return $replace($1,PO-PO,1,EN-US,2,NL-NL,3,ES-ES,4,FR-BE,5,FR-FR,6,BR-BR,7,FR-CA,8,IT-IT,9) alias -l poe_la { if (!$dialog(rlist)) return var %i 0, %r rooms.txt, %t $lines(rooms.txt), %9 $chr(9) did -r rlist 2 | filter -fftcu 2 32 %r %r hdel -w rm * while (%i < %t) { inc %i | tokenize 32 $read(rooms.txt,n,%i) | hadd rm $calc(%i +1) $1 $3 did -a rlist 2 0 $iif($5,$5) $_rm($1) %9 $abs($2) %9 $3 %9 $evo.decode($6-) %9 $+ $calc($lang($4) +3) } .remove %r } alias -l ff return $findfile($mircdir,$1,1).shortfn alias rlist dialog -m rlist rlist dialog rlist { title "»||-Lista de Salas-||«" size -1 -1 235 137 option dbu box "", 1, 1 25 233 110 list 2, 4 30 227 86, size button "»||-Entrar-||«", 3, 5 119 42 12, flat button "»||-Atualizar Lista-||«", 4, 51 119 53 12, flat icon 5, 0 0 71 26, logo.bmp, 0 noborder link "Criar sala", 6, 165 9 28 8 text "Clique no link para criar uma sala:", 7, 76 9 82 8 button "»||-Criar sala-||«", 8, 109 119 53 12, flat text "Clique no link para criar conta:", 9, 76 17 74 8 link "Criar conta", 10, 165 18 40 8 text "chat ", 11, 76 0 159 8, center } on *:dialog:rlist:*:*: { if ($devent == init) { var %d rlist, %m $ff(mdx.dll) dll %m SetMircVersion $version dll %m MarkDialog %d dll %m SetControlMDX %d 2 ListView report grid flatsb nosortheader > $ff(views.mdx) did -i %d 2 1 headerdims 120 45 45 160 55 did -i %d 2 1 headertext Sala: $chr(9) Usr: $chr(9) Cat.: $chr(9) Tópico: $chr(9) Idioma: did -i %d 2 1 seticon normal 0, $+ $ff(room.ico) did -i %d 2 1 seticon normal 0, $+ $ff(bsr.ico) did -i %d 2 1 seticon normal 0, $+ $ff(folder.ico) did -i %d 2 1 seticon normal 0, $+ $ff(po-po.ico) did -i %d 2 1 seticon normal 0, $+ $ff(en-us.ico) did -i %d 2 1 seticon normal 0, $+ $ff(nl-nl.ico) did -i %d 2 1 seticon normal 0, $+ $ff(es-es.ico) did -i %d 2 1 seticon normal 0, $+ $ff(fr-be.ico) did -i %d 2 1 seticon normal 0, $+ $ff(fr-fr.ico) did -i %d 2 1 seticon normal 0, $+ $ff(pt-br.ico) did -i %d 2 1 seticon normal 0, $+ $ff(fr-ca.ico) did -i %d 2 1 seticon normal 0, $+ $ff(it-it.ico) slist } if ($devent $did == dclick 2) entra $did(2).sel if ($devent == sclick) { if ($did == 3) entra $did(2).sel if ($did == 4) slist if ($did == 5) { run http://www.evolution.festlojas.com } if ($did == 6) { run http://www.evolution.festlojas.com/create.php } if ($did == 8) { run http://www.evolution.festlojas.com/create.php } if ($did == 10) { run http://www.evolution.festlojas.com/cadas.php } } } alias -l entra tokenize 32 $hget(rm,$1) | if ($0) { .timer 1 0 dialog -x rlist | hadd rox s $hget(rox,$2) | join $1 } alias fonte dialog -m fonte fonte dialog fonte { title "»||-Opções-||«" size -1 -1 150 83 option dbu box "Font", 1, 1 1 68 64 box "Cor", 2, 71 0 78 22 box "Opções", 3, 71 22 78 43 box "evo.prev", 4, 75 47 70 14 text "»||-Vincula-||«", 5, 1 67 86 8 link "evolution.festlojas.com", 6, 1 74 42 8 list 7, 4 9 62 53, size combo 8, 75 8 70 56 check "Negrito", 9, 75 30 27 8 check "Itálico", 10, 75 38 24 8 check "Sublinhado", 11, 102 30 37 8 check "Random Color", 12, 102 38 44 8 button "Aplicar", 13, 112 69 36 12, flat ok } on *:dialog:fonte:*:*: { var %d fonte, %m $ff(mdx.dll) if (!%fonte) set %fonte 5 2 Tahoma tokenize 32 %fonte set -u1 %fc 0*127*37888*8388608*32639*10485920*9475072*13685968*8421504*255*64512*16711680*65535*16711935*16776960 set -u1 %fn Preto*Castanho*Verde*Azul-marinho*Verde-oliva*Roxo*Azul-petróleo*Prateado*Cinza*Vermelho* $+ $& Verde-limão*Azul*Amarelo*Rosa*Azul-piscina set -u1 %ff Andale Mono.Arial.Arial Black.Comic Sans MS.Courier New.Georgia.Impact.Lucida Console. $+ $& Marlett.MS Gothic.Symbol.Tahoma.Trebuchet MS.Times New Roman.Verdana.Webdings.Wingdings if ($devent == init) { var %ck $b(1,9) $b(2,10) $b(3,11) $iif($1 < 0,12) if (%ck) did -c %d $replace(%ck,$chr(32),$chr(44)) didtok %d 7 46 %ff did -c %d 7 $findtok(%ff,$3-,46) dll %m SetMircVersion $version dll %m MarkDialog %d dll %m SetControlMDX %d 8 ComboBoxEx drop > $ff(views.mdx) did -i %d 8 1 iconsize small did -i %d 8 1 seticon 0 0,temp.bmp window -phb +d @a -1 -1 16 16 var %i 0 while (%i < 15) { inc %i drawrect -fr @a $token(%fc,%i,42) 1 1 1 13 13 drawrect @a 1 1 1 1 13 13 drawsave @a temp.bmp did -i %d 8 1 seticon 0,temp.bmp did -a %d 8 $calc(%i +1) $token(%fn,%i,42) } did -c %d 8 $calc($abs($1) +1) window -c @a .remove temp.bmp htmlpreview } if ($devent == sclick) { if ($did == 6) url -n $did(6).text set %fonte $iif($did(12).state,-) $+ $calc($token($did(8),2,32) -1) $& $calc($did(9).state +2* $did(10).state +4* $did(11).state) $did(7,$did(7).sel) if ($did isnum 7-12) htmlpreview } } alias _fonte { if (!%fonte) set %fonte 5 2 Tahoma | tokenize 32 %fonte var %f $+($chr($iif($1 < 0,$r(1,15),$calc($1 +1))),$chr($calc($2 +1)),$3-,;0) return $replace(%f,$cr,\r,$lf,\n,$chr(32),\b) } alias -l b return $iif($isbit($token(%fonte,2,32),$1),$2) alias -l ndll return $dll($ff(nhtmln.dll),$1,$2) alias htmlpreview { tokenize 32 %fonte | tokenize 32 Chat $rgb($abs($token(%fc,$1,42))) $3- var %h about:<html><body bgcolor=white style="margin: 0px; padding: 0px; overflow: hidden"> $& <table width=100% height=100% cellpadding=0 cellspacing=0><tr><td valign=center align=center> $& <font size=2 face= $4- style="color:rgb( $3 )"> $b(1,<b>) $b(2,<i>) $b(3,<u>) $1-2 var %s $ndll(find,evo.prev) | %s = $ndll(attach,%s) $ndll(select,%s) $ndll(navigate,%h) } menu * { - »||-Vincula-||« .$iif($dialog(rlist),$style(2)) »||-Lista de salas-||« $chr(9) F2: f2 .$iif($dialog(fonte),$style(2)) »||-Mudar Fonte-||« $chr(9) F4: f4 .»||-Seu Nick-||« $chr(9) F5: def_user } alias f1 loc alias f2 rlist alias f4 fonte alias f5 def_user alias def_user set %user $$?="»||-Insira o nome de usuário ou nick-||«" $?="»||-Insira a senha (opcional)-||«" | echo -a * User definido para: %user | nick $token(%user,1,32) alias evo.decode { var %r $replacecs($1-,ï‚,B,ï‚ ,-,ï€>,-,,-,ï€,-,ï…,E,ïƒ,C,ï,A,ï’,R,ï‹,K,ï¹,y,ﺘ,i,ﺉ,s,דּ,t,טּ,u,ﻉ,e,ï«,k,ï†,F,ïµ,u,ï§,g,Χ,X,,>,,$chr(37),,8,ï¤,d,ï­,m,ï¨,h,ï»›,s,ï‡,G,ï,M,ï¬,l,ï³,s,ïŸ,_,ï”,T,ï²,r,ï¡,a,ï®,n,ï£,c,ï¥,e,ïŽ,N,ï¡,a,ï´,t,ï©,i,ï¯,o,ï®,n,ï¦,f,ï·,w,ïœ,\,ï¼,|,ï€,@,ï,P,ï„,D,,',ï€ , ,,$chr(40),,$chr(41),,*,,:,ï›,[,ï,],ï°,p,,.) %r = $replacecs(%r,ا,I,ή,n,ņ,n,Ω,n,»·,y,Ñ€,p,Ð ,P,Å™,r,Ñ…,x,Ä®,I,Ä»,L,Ф,o,Ĉ,C,Å,o,Å©,u,Å„,n,Ä¢,G,Å•,r,Å›,s,Ä·,k,Å–,R,×–,i,ε,e,ק,r,Ñ›,h,м,m,ØŒ,·,Ä«,i,‘,‘,’,’,Û±,',Ä“,e,¢,¢,ï“,S,•,•,ï,O,ï‰,I,Ά,A,ÑŠ,b,ŠÏ,T,Φ,o,Ђ,b,Ñ,r,Ð,E,д,A,К,K,ÄŽ,D,и,n,θ,o,Ðœ,M,Ї,I,Т,T,Є,e,Ǻ,A,ö,ö,ä,ä,–,–,·,·,Ö,Ö,Ãœ,Ü,Ë,Ë,Ñ•,s,Ä…,a,Ä­,i,й,n,в,b,о,o,ш,w,Äž,G,Ä‘,d,з,e,Ŧ,T,α,a,ÄŸ,g,ú,ú,Å”,R,Ä„,A,ć,c,Ä,Ð,Κ,K,Ñž,y,µ,µ,Ã,Í,‹,‹,¦,¦,Õ,Õ,Ù,Ù,À,À,Î ,N,Ò“,f,ΰ,u,Ä¿,L,Å,o,Ï‚,c,Ä‹,c,ħ,h,į,i,ŧ,t,Ζ,Z,Þ,Þ,þ,þ,ç,ç,á,á,¾,¾,ž,ž,Ç,Ç, $+ $chr(173),-,Ã,Á,…,…,¨,¨,ý,ý,ˉ,¯,â€,”,Û,Û,ì,ì,Ï,p,έ,e,г,r,à ,à,È,È,¼,¼,ĵ,j,ã,ã,Ä™,e,ÅŸ,s,º,º,Ñ,Ñ,ã,ã,Æ,Æ,Ëš,°,Я,R,Ëœ,˜,ÃŽ,Î,Ê,Ê,Ã,Ý,Ã,Ï,É,É,‡,‡,ÃŒ,Ì,ª,ª,ó,ó,â„¢,™,Ã’,Ò,í,í,¿,¿,Ä,Ä,¶,¶,ü,ü,Æ’,ƒ,ð,ð,ò,ò,õ,õ,¡,¡,é,é,ß,ß,¤,¤,×,×,ô,ô,Å ,Š,ø,ø,›,›,â,â,î,î,€,€,Å¡,š,ï,ï,ÿ,ÿ,Ń,N,©,©,®,®,û,û,†,†,°,°,§,§,±,±,è,è) %r = $replacecs(%r,Ƥ,P,χ,X,Ň,N,Û°,·,Ä´,J,І,I,Σ,E,ι,i,Å,O,δ,o,×¥,y,ν,v,×¢,y,מ,n,Ž,Ž,Å‘,o,ÄŒ,C,Ä—,e,₤,L,ÅŒ,O,ά,a,Ä ,G,Ω,O,Ð,H,ể,e,ẵ,a,Ж,K,á»,e,ế,e,á»—,o,Å«,u,â‚£,F,∆,a,Ắ,A,ủ,u,Ķ,K,Ť,T,Åž,S,Θ,O,Ш,W,Î’,B,П,N,ẅ,w,ﻨ,i,ﯼ,s,ÑŸ,u,Ñ’,h,¹,¹,Ỳ,Y,λ,a,С,C,Ð $+ $chr(173),E,Å°,U,Ī,I,Ä,c,Ä”,E,Åœ,S,Ị,I,Ä,g,Å€,l,Ñ—,i,Ù­,*,ʼn,n,Ħ,H,Д,A,Îœ,M,Ñ‘,e,Ц,U,Ñ,e,“,“,Ñ„,o,у,y,Ñ,c,к,k,Ã…,Å,â„ž,R,ï “,I,ɳ,n,Ê—,c,â–«,·,Ñ“,r,ệ,e,ắ,a,ẳ,a,ů,u,Ľ,L,Æ°,u,·,·,Ë™,',η,n,â„“,l,Â,,Â,,Â,,×€,i,Ä¡,g,Å´,W,Δ,A,ﮊ,J,μ,µ,Ÿ,Ÿ,Ä¥,h,β,ß,Ь,b,ų,u,Ñ”,e,ω,w,ÄŠ,C,Ñ–,i,Å‚,l,Ç¿,o,∫,l,ż,z,Å£,t,æ,æ,≈,=,Å,L,Å‹,n,Ú¯,S,Ä,d,ψ,w,σ,o,Ä£,g,Ή,H,Î,i,Ò‘,r,κ,k,ÅŠ,N,œ,\,,/,¬,¬,щ,w,Û•,o,×,o,³,³,½,½,Ä°,I,ľ,l,Ä•,e,Å¢,T,Å,s,Å·,y,ľ,l,Ä©,i,Ô,Ô,Åš,S,Ĺ,L,а,a,е,e,Ρ,P,Ј,J,Î,N,Ç»,a,Ñ’,h,ί,l,Å’,Œ,¯,¯,Ä,a,ŵ,w,Â,Â,Ã,Ã,н,H,ˇ,',¸,¸,Ì£,$chr(44),Ø·,b,Ó,Ó,Й,N,«,«,ù,ù,Ø,Ø,ê,ê) %r = $replacecs(%r,²,²,л,n,Ñ‹,bl,б,6,ש,w,―,-,Ϊ,I,ï ,`,Å­,u,ổ,o,Ǿ,Ø,ẫ,a,ầ,a,ï±,q,Ẃ,W,Ĥ,H,á»,o,−,-,ïž,^,ล,a,Äœ,G,ﺯ,j,Ù‰,s,Ѓ,r,ứ,u,â—,·,Ï,u,,0,,7,,",Ó©,O,Ç,i,Ç‘,O,Æ ,O,,2,Ò¯,y,ï¶,v,Ð,A,≤,<,≥,>,ẩ,a,ïˆ,H,Ù¤,e,ﺂ,i,ÐŒ,K,Ū,U,,;,ă,a,ĸ,k,Ć,C,Ĭ,I,ň,n,Ĩ,I,Ι,I,Ϋ,Y,ïŠ,J,ï˜,X,ï½,$chr(125),ï»,$chr(123),Ξ,E,ˆ,^,ï–,V,ïŒ,L,γ,y,ﺎ,i,Î,o,ỳ,y,Ć,C,Ĭ,I,ĸ,k,Ŷ,y,๛,c,ỡ,o,๓,m,ﺄ,i,ï­Ž,G,Ŭ,U,Ä’,E,Ä‚,A,÷,÷, , ,‚,‚,„,„,ˆ,ˆ,‰,‰,ă,a,ï¸,x,,=,Ù‚,J,,?,,-,â—Š,o,Ñ‚,T,Ä€,A,ï­‡,P,Ä–,E,Ę,E,ο,o,Ï‹,u,‼,!!,ט,u,ï®’,S,Ч,y,Ò,r,Ä›,e,Ę,E,ĺ,I,Λ,a,ο,o,Ú,Ú,Ř,R,Ư,U,Å“,œ,,-,—,—,ห,n,ส,a,à¸,g,Ψ,Y,Ẫ,A,Ï€,n,Å…,N,Ø!,o,Ћ,h,ợ,o,ĉ,c,â—¦,·,ﮎ,S,Ų,U,Е,E,Ð…,S,Ûµ,o,ÙŠ,S,ب,u,Ø©,o,ئ,s,ļ,l,ı,i,Å—,r,ж,x,Î…,",ÏŽ,w,â–ª,·,ζ,l,Щ,W,฿,B,ỹ,y,ÏŠ,i,Å¥,t,п,n,´,´,Ú©,s,ï±¢,*,ξ,E,Ñœ,k,√,v,Ï„,t,Ã,Ð,£,£,ñ,ñ,Â¥,¥,ë,ë,Ã¥,å,ï™,Y,ÇŽ,a) %r = $replacecs(%r,ằ,a, , ,Ο,O,₪,n,Ậ,A,ï‚£,£,ïƒ ,à,ï‚®,®,,á,ï‚©,©,,õ,á»,o,â€, ,Ö±,¸,Ö¾,-,הּ,n,ź,z,‌, ,Ù,',๘,c,ฅ,m,Â,,,<,â–¼,v,ﻜ,S,â„®,e,ź,z,ậ,a,๑,a,ï¬,fi,ÑŒ,b,ﺒ,.,ﺜ,:,ศ,a,ภ,n,à¹,o,ะ,=,ï­†,y,ซ,i,‾,¯,∂,a,:,:,≠,=,,+,Ù…,r,ồ,o,Ử,U,Л,N,Ó’,A,Ọ,O,Ẅ,W,á»´,Y,ﺚ,u,ﺬ,i,ïº,u,Å»,Z,ﮕ,S,ﺳ,w,ﯽ,u,ﺱ,uw,ﻚ,J,ﺔ,a,,!,á»…,e,Ù„,J,ر,j,Ù€,_,ÏŒ,o,â‚«,d,â„–,no,ữ,u,Äš,E,φ,o,ï» ,I,ц,u,,Å,,N,Њ,H,Έ,E,ï¾,~,ï•,U,ạ,a,,1,,4,,3,ỉ,i,Ε,E,Ð,U,Ùƒ,J,★,*,ï¢,b,,$chr(35),,$,â—‹,o,ÑŽ,10,ỵ,y,áº,w,Ò›,k,Ù¿,u,♂,o,ï­Š,n,Ù¥,o,ï®,S,â¿,n,ï»—,9,ị,i,Α,A, , ,ﻩ,o,ï»,E,Ù†,u,ẽ,e,Ø«,u,ã…“,t,Ó›,e,Ó˜,E,ﻘ,o,Û·,v,שׁ,w,ụ,u,ÅŽ,O,Â,,á»±,u,J,J,ï½…,e,ï½,a,ï¼®,N,(,$chr(40),ï¼ ,@,ï½€,`,.,.,′,',),$chr(41),â–¬,-,â—„,<,â–º,>,∑,E,Ö»,$chr(44),‬,|,‎,|,‪,|,‫,|,Ộ,O,И,N,ï—,W,ïº,z) %r = $replacecs(%r,ס,o,╳,X,Ù ,·,Ò’,F,Ï…,u,â€,,Ö¼,·,Ç”,u,ผ,w,Ằ,A,Ấ,A,»,»,ﺖ,u,ố,o,ﮓ,S,ở,o,ﺕ,u,ï®”,S, Òœ,K,♦,·,‗,_,ﻈ,b,ฬ,w,אּ,x,ï‚­,-,ข,u,ท,n,Ờ,O,Ặ,A,á»­,u,Ễ,E,ਹ,J, Ù‡,o,â– ,·,Æ¡,o,ï¿,,Ò£,h,Òš,K,Ò²,X,Ò³,x,Òœ,K,ع,E,Ú†,c,ч,y,Ð¥,X,Ù¦,7,Ö½,.,ÙŽ,',Ö¿,',׃,:,á»,o,Ò–,X,ÛŒ,s,ฬ,w,∙,·,Τ,T,â“’,c,â“,a,â“Ÿ,p,â“”,e,â“£,t,Ç,A,Ð¥,X,Ö³,.,ÛŒ,s,Ỉ,I,̉,',ïš,Z,á»,o,ẹ,e,Ò,k,ﺖ,u,ố,o,ﮓ,S,ở,o,ﺕ,u,Òš,K,ïš,Z,Ì•,',├,|,┤,|,Ø£,I,‹,,×,x,ặ,a,Ç’,o,Ờ,O,☼,¤,×,.,ïš,Z,ฤ,n,â‘·,4,⑵,2,â’ª,0,เ,i,☻,•,â• ,|,╦,n,å,†,ấ,a,,‚,З,3,Ẵ,A,ÐŽ,y,Ź,Z,΄,',À¨,$chr(40),À©,$chr(41),×—,n,Ở,O,á»”,O,์,',à¹,g,Ð’,B,ã€,[,】,],s,s,ï½,m,ï½,o,k,k,ï½—,w,d,d,Ũ,U,ï‘,Q,↨,|,Ẩ,A,Ẽ,E,Ö¸,¸,ธ,s,Ùˆ,g,з,e,ظ,b,ﺸ,…,Б,b,ï-,m,ﻲ,…,Ù¾,u,غ,e,Ẩ,A,ẻ,e,Ò¹,y,ฆ,u,ฯ,-,ׂ, ,,-,ïƒ,Ð,,ë,ת,n,Ù§,V,Ợ,O,Û,I,Ûž,O,Û©,O,Àº,:,À{,;) return %r } Não, não quero fazer um site, eu já tenho o site, e essa é uma conexão do site, o que me ajudaria bastante a entender o que pretendo é saber qual é o comando que nessa conexão abre a lista de salas para eu modificar, sei que clicando em F2 a lista abre, mas não sei onde isso está exactamente. Já ajudaria bastante saber isso, obrigada pela resposta
  3. Bem, na verdade não entendo de ajx não, mas me fala, se fôr em Ajax onde coloco o comando, em que linha? Amnigo, Bom dia, a ver se sei me explicar, aqui--->if ($did == 4) slist <----- Este procedimento abre uma lista de salas de chat dentro de um Bot. Que terei que acrescentar para logo que a lista seja apresentada ela seja actualizada 2 ou 3 vezes. Agradecia a ajuda por favor, pelo sim pelo não cá vai o conteudo da conexão toda. on *:start: hmake rox 10 | hmake rm 10 | loc raw 005:*: echo -a * User definido para: %user | nick $token(%user,1,32) | haltdef raw 822:*: echo $color(mode) -t $comchan($nick,1) * $nick está ausente. | haltdef raw 821:*: echo $color(mode) -t $comchan($nick,1) * $nick voltou. | haltdef raw 306:*: echo $color(mode) -t $comchan($me,1) * Você foi assinalado como ausente. | haltdef raw 305:*: echo $color(mode) -t $comchan($me,1) * Você não está mais assinalado como ausente. | haltdef alias evover return 9.0a alias evosite return socket.ftpaccess.cc alias _sw sockwrite -n $1- | echo 15 @d $+(1[15,$1,1]15) $2- alias z %z = $r(10000,20000) | while (!$portfree(%z)) %z = $r(10000,20000) | return %z alias -l _get return $+(GET /server/,$1 HTTP/1.1,$crlf,Host: $evosite,$crlf,$crlf) alias loc sockclose * | socklisten ºloc $z | server 127.0.0.1 %z | window -ne @d alias zz1 return :* »||-Chat Evolution Vincula-||«. on *:socklisten:ºloc: sockaccept loc | sockclose ºloc | _sw loc :EVO 001 $me $zz1 $lf :EVO 005 $me IRCx prefix=(qov)[email protected]+ : on *:sockread:loc: { var %x | sockread %x | echo 14 @d {loc}15 %x | tokenize 32 %x if ($1 == privmsg) && (:* !iswm $3) var %x $1-2 :S $_fonte $right($3-,-1) $+ | tokenize 32 %x if ($1 == join) chan.new $2- elseif ($1 == part) chan.del $2 elseif ($1 == nick) { hadd rox nick $iif(:* iswm $2,$right($2,-1),$2) if (!$sock(r.*)) && ($2 != $me) _sw loc $+(:,$me) nick $2 } elseif ($1 == privmsg) && ($comchan($2,1)) && ((:* !iswm $3) || (:S == $3)) _sw r. $+ $comchan($2,1) whisper $comchan($2,1) $2- elseif ($sock(r. $+ $2)) _sw $ifmatch %x elseif ($sock(r. $+ $active)) _sw $ifmatch %x elseif ($sock(r.*)) _sw r.* %x } alias -l chan.del if ($sock(r. $+ $1)) sockclose $ifmatch | _sw loc $+(:,$me) PART $1 alias -l chan.new { sockclose auth* | hadd rox room $1- $iif(!$2,$md5($ticks)) sockopen auth $evosite 6667 } on *:sockopen:auth: if ($sockerr) echo 4 -s * Error: $sock(auth).ip -> $sock(auth).wsmsg | else _sw auth finds $token($hget(rox,room),1,32) on *:sockread:auth: { var %x, %r r. $+ $hget(rox,room) | sockread %x | echo 14 @d (auth)15 %x | tokenize 32 %x if ($2 == 613) _sw auth bot if ($2 == 702) { if ($hget(rox,cria)) _sw auth create $ifmatch - $token($hget(rox,room),2-,32) | else cria | hdel rox cria } if ($1 == ok) { _sw auth nick $hget(rox,nick) $lf $iif($numtok(%user,32) > 1,prop $ role : $+ %user) | sockclose %r } if ($2 == 001) { _sw auth join $hget(rox,room) | if ($me != $3) _sw loc $+(:,$me) nick $3 } if ($2 == nick) _sw loc $1- if ($2 == join) { _sw loc $1-2 $4- | buda $1- | sockclose %r | sockrename auth %r | hdel rox room } if (4* iswm $2) { echo -s * Erro: $token($1-,2-,58) } } alias -l buda var %w $token($3,4,44) | if (%w) _sw loc :Buddah mode $right($4,-1) $+(+,$replace(%w,.,q,@,o,+,v)) $nk($1)) alias -l nk return $token($token($1,1,33),1,58) on *:sockread:r.*: { var %x, %w | sockread %x while ($sockbr) { echo 14 @d ( $+ $sockname $+ )1 %x | tokenize 32 %x if ($2 == privmsg) _sw loc $1-3 $iif($4 == :S,$+(:,$left($6-,-1)),$4-) elseif ($2 == whisper) _sw loc $1 privmsg $4 $iif($5 == :S,$+(:,$left($7-,-1)),$5-) elseif ($2 == join) { _sw loc $1-2 $4 | buda $1- } elseif ($2 == 001) { if ($me != $3) _sw loc $+(:,$me) nick $3 } elseif ($2 == 353) _sw loc $1-5 : $+ $token($6,4,44) else _sw loc %x sockread %x } } on *:sockclose:r.*: var %r $right($sockname,-2) | _sw loc : $+ $me PART %r alias -l rlst if ($dialog(rlist)) { did -r rlist 2 | did -a rlist 2 0 baixando lista... } | sockclose ?list alias -l _rm return $evo.decode($replace($right($1,-2),\b,$chr(32),\c,$chr(44))) alias glist rlst | sockopen glist $$hget(rox,srv $+ $1) 6667 on *:sockopen:glist: if ($sockerr) { echo -s * Error: $sock(glist).ip -> $sock(glist).wsmsg | halt } | _sw glist l | write -c rooms.txt alias slist rlst | sockopen slist $evosite 6667 | write -c rooms.txt on *:sockopen:slist: if ($sockerr) halt | _sw slist CONEX on *:sockread:?list: { var %x | sockread %x | tokenize 32 %x if (l == $1) write rooms.txt $2 - $+ $3- if (0 == $1) { poe_la | sockclose ?list } } alias lang return $replace($1,PO-PO,1,EN-US,2,NL-NL,3,ES-ES,4,FR-BE,5,FR-FR,6,BR-BR,7,FR-CA,8,IT-IT,9) alias -l poe_la { if (!$dialog(rlist)) return var %i 0, %r rooms.txt, %t $lines(rooms.txt), %9 $chr(9) did -r rlist 2 | filter -fftcu 2 32 %r %r hdel -w rm * while (%i < %t) { inc %i | tokenize 32 $read(rooms.txt,n,%i) | hadd rm $calc(%i +1) $1 $3 did -a rlist 2 0 $iif($5,$5) $_rm($1) %9 $abs($2) %9 $3 %9 $evo.decode($6-) %9 $+ $calc($lang($4) +3) } .remove %r } alias -l ff return $findfile($mircdir,$1,1).shortfn alias rlist dialog -m rlist rlist dialog rlist { title "»||-Lista de Salas-||«" size -1 -1 235 137 option dbu box "", 1, 1 25 233 110 list 2, 4 30 227 86, size button "»||-Entrar-||«", 3, 5 119 42 12, flat button "»||-Atualizar Lista-||«", 4, 51 119 53 12, flat icon 5, 0 0 71 26, logo.bmp, 0 noborder link "Criar sala", 6, 165 9 28 8 text "Clique no link para criar uma sala:", 7, 76 9 82 8 button "»||-Criar sala-||«", 8, 109 119 53 12, flat text "Clique no link para criar conta:", 9, 76 17 74 8 link "Criar conta", 10, 165 18 40 8 text "chat ", 11, 76 0 159 8, center } on *:dialog:rlist:*:*: { if ($devent == init) { var %d rlist, %m $ff(mdx.dll) dll %m SetMircVersion $version dll %m MarkDialog %d dll %m SetControlMDX %d 2 ListView report grid flatsb nosortheader > $ff(views.mdx) did -i %d 2 1 headerdims 120 45 45 160 55 did -i %d 2 1 headertext Sala: $chr(9) Usr: $chr(9) Cat.: $chr(9) Tópico: $chr(9) Idioma: did -i %d 2 1 seticon normal 0, $+ $ff(room.ico) did -i %d 2 1 seticon normal 0, $+ $ff(bsr.ico) did -i %d 2 1 seticon normal 0, $+ $ff(folder.ico) did -i %d 2 1 seticon normal 0, $+ $ff(po-po.ico) did -i %d 2 1 seticon normal 0, $+ $ff(en-us.ico) did -i %d 2 1 seticon normal 0, $+ $ff(nl-nl.ico) did -i %d 2 1 seticon normal 0, $+ $ff(es-es.ico) did -i %d 2 1 seticon normal 0, $+ $ff(fr-be.ico) did -i %d 2 1 seticon normal 0, $+ $ff(fr-fr.ico) did -i %d 2 1 seticon normal 0, $+ $ff(pt-br.ico) did -i %d 2 1 seticon normal 0, $+ $ff(fr-ca.ico) did -i %d 2 1 seticon normal 0, $+ $ff(it-it.ico) slist } if ($devent $did == dclick 2) entra $did(2).sel if ($devent == sclick) { if ($did == 3) entra $did(2).sel if ($did == 4) slist if ($did == 5) { run http://www.evolution.festlojas.com } if ($did == 6) { run http://www.evolution.festlojas.com/create.php } if ($did == 8) { run http://www.evolution.festlojas.com/create.php } if ($did == 10) { run http://www.evolution.festlojas.com/cadas.php } } } alias -l entra tokenize 32 $hget(rm,$1) | if ($0) { .timer 1 0 dialog -x rlist | hadd rox s $hget(rox,$2) | join $1 } alias fonte dialog -m fonte fonte dialog fonte { title "»||-Opções-||«" size -1 -1 150 83 option dbu box "Font", 1, 1 1 68 64 box "Cor", 2, 71 0 78 22 box "Opções", 3, 71 22 78 43 box "evo.prev", 4, 75 47 70 14 text "»||-Vincula-||«", 5, 1 67 86 8 link "evolution.festlojas.com", 6, 1 74 42 8 list 7, 4 9 62 53, size combo 8, 75 8 70 56 check "Negrito", 9, 75 30 27 8 check "Itálico", 10, 75 38 24 8 check "Sublinhado", 11, 102 30 37 8 check "Random Color", 12, 102 38 44 8 button "Aplicar", 13, 112 69 36 12, flat ok } on *:dialog:fonte:*:*: { var %d fonte, %m $ff(mdx.dll) if (!%fonte) set %fonte 5 2 Tahoma tokenize 32 %fonte set -u1 %fc 0*127*37888*8388608*32639*10485920*9475072*13685968*8421504*255*64512*16711680*65535*16711935*16776960 set -u1 %fn Preto*Castanho*Verde*Azul-marinho*Verde-oliva*Roxo*Azul-petróleo*Prateado*Cinza*Vermelho* $+ $& Verde-limão*Azul*Amarelo*Rosa*Azul-piscina set -u1 %ff Andale Mono.Arial.Arial Black.Comic Sans MS.Courier New.Georgia.Impact.Lucida Console. $+ $& Marlett.MS Gothic.Symbol.Tahoma.Trebuchet MS.Times New Roman.Verdana.Webdings.Wingdings if ($devent == init) { var %ck $b(1,9) $b(2,10) $b(3,11) $iif($1 < 0,12) if (%ck) did -c %d $replace(%ck,$chr(32),$chr(44)) didtok %d 7 46 %ff did -c %d 7 $findtok(%ff,$3-,46) dll %m SetMircVersion $version dll %m MarkDialog %d dll %m SetControlMDX %d 8 ComboBoxEx drop > $ff(views.mdx) did -i %d 8 1 iconsize small did -i %d 8 1 seticon 0 0,temp.bmp window -phb +d @a -1 -1 16 16 var %i 0 while (%i < 15) { inc %i drawrect -fr @a $token(%fc,%i,42) 1 1 1 13 13 drawrect @a 1 1 1 1 13 13 drawsave @a temp.bmp did -i %d 8 1 seticon 0,temp.bmp did -a %d 8 $calc(%i +1) $token(%fn,%i,42) } did -c %d 8 $calc($abs($1) +1) window -c @a .remove temp.bmp htmlpreview } if ($devent == sclick) { if ($did == 6) url -n $did(6).text set %fonte $iif($did(12).state,-) $+ $calc($token($did(8),2,32) -1) $& $calc($did(9).state +2* $did(10).state +4* $did(11).state) $did(7,$did(7).sel) if ($did isnum 7-12) htmlpreview } } alias _fonte { if (!%fonte) set %fonte 5 2 Tahoma | tokenize 32 %fonte var %f $+($chr($iif($1 < 0,$r(1,15),$calc($1 +1))),$chr($calc($2 +1)),$3-,;0) return $replace(%f,$cr,\r,$lf,\n,$chr(32),\b) } alias -l b return $iif($isbit($token(%fonte,2,32),$1),$2) alias -l ndll return $dll($ff(nhtmln.dll),$1,$2) alias htmlpreview { tokenize 32 %fonte | tokenize 32 Chat $rgb($abs($token(%fc,$1,42))) $3- var %h about:<html><body bgcolor=white style="margin: 0px; padding: 0px; overflow: hidden"> $& <table width=100% height=100% cellpadding=0 cellspacing=0><tr><td valign=center align=center> $& <font size=2 face= $4- style="color:rgb( $3 )"> $b(1,<b>) $b(2,<i>) $b(3,<u>) $1-2 var %s $ndll(find,evo.prev) | %s = $ndll(attach,%s) $ndll(select,%s) $ndll(navigate,%h) } menu * { - »||-Vincula-||« .$iif($dialog(rlist),$style(2)) »||-Lista de salas-||« $chr(9) F2: f2 .$iif($dialog(fonte),$style(2)) »||-Mudar Fonte-||« $chr(9) F4: f4 .»||-Seu Nick-||« $chr(9) F5: def_user } alias f1 loc alias f2 rlist alias f4 fonte alias f5 def_user alias def_user set %user $$?="»||-Insira o nome de usuário ou nick-||«" $?="»||-Insira a senha (opcional)-||«" | echo -a * User definido para: %user | nick $token(%user,1,32) alias evo.decode { var %r $replacecs($1-,ï‚,B,ï‚ ,-,ï€>,-,,-,ï€,-,ï…,E,ïƒ,C,ï,A,ï’,R,ï‹,K,ï¹,y,ﺘ,i,ﺉ,s,דּ,t,טּ,u,ﻉ,e,ï«,k,ï†,F,ïµ,u,ï§,g,Χ,X,,>,,$chr(37),,8,ï¤,d,ï­,m,ï¨,h,ï»›,s,ï‡,G,ï,M,ï¬,l,ï³,s,ïŸ,_,ï”,T,ï²,r,ï¡,a,ï®,n,ï£,c,ï¥,e,ïŽ,N,ï¡,a,ï´,t,ï©,i,ï¯,o,ï®,n,ï¦,f,ï·,w,ïœ,\,ï¼,|,ï€,@,ï,P,ï„,D,,',ï€ , ,,$chr(40),,$chr(41),,*,,:,ï›,[,ï,],ï°,p,,.) %r = $replacecs(%r,ا,I,ή,n,ņ,n,Ω,n,»·,y,Ñ€,p,Ð ,P,Å™,r,Ñ…,x,Ä®,I,Ä»,L,Ф,o,Ĉ,C,Å,o,Å©,u,Å„,n,Ä¢,G,Å•,r,Å›,s,Ä·,k,Å–,R,×–,i,ε,e,ק,r,Ñ›,h,м,m,ØŒ,·,Ä«,i,‘,‘,’,’,Û±,',Ä“,e,¢,¢,ï“,S,•,•,ï,O,ï‰,I,Ά,A,ÑŠ,b,ŠÏ,T,Φ,o,Ђ,b,Ñ,r,Ð,E,д,A,К,K,ÄŽ,D,и,n,θ,o,Ðœ,M,Ї,I,Т,T,Є,e,Ǻ,A,ö,ö,ä,ä,–,–,·,·,Ö,Ö,Ãœ,Ü,Ë,Ë,Ñ•,s,Ä…,a,Ä­,i,й,n,в,b,о,o,ш,w,Äž,G,Ä‘,d,з,e,Ŧ,T,α,a,ÄŸ,g,ú,ú,Å”,R,Ä„,A,ć,c,Ä,Ð,Κ,K,Ñž,y,µ,µ,Ã,Í,‹,‹,¦,¦,Õ,Õ,Ù,Ù,À,À,Î ,N,Ò“,f,ΰ,u,Ä¿,L,Å,o,Ï‚,c,Ä‹,c,ħ,h,į,i,ŧ,t,Ζ,Z,Þ,Þ,þ,þ,ç,ç,á,á,¾,¾,ž,ž,Ç,Ç, $+ $chr(173),-,Ã,Á,…,…,¨,¨,ý,ý,ˉ,¯,â€,”,Û,Û,ì,ì,Ï,p,έ,e,г,r,à ,à,È,È,¼,¼,ĵ,j,ã,ã,Ä™,e,ÅŸ,s,º,º,Ñ,Ñ,ã,ã,Æ,Æ,Ëš,°,Я,R,Ëœ,˜,ÃŽ,Î,Ê,Ê,Ã,Ý,Ã,Ï,É,É,‡,‡,ÃŒ,Ì,ª,ª,ó,ó,â„¢,™,Ã’,Ò,í,í,¿,¿,Ä,Ä,¶,¶,ü,ü,Æ’,ƒ,ð,ð,ò,ò,õ,õ,¡,¡,é,é,ß,ß,¤,¤,×,×,ô,ô,Å ,Š,ø,ø,›,›,â,â,î,î,€,€,Å¡,š,ï,ï,ÿ,ÿ,Ń,N,©,©,®,®,û,û,†,†,°,°,§,§,±,±,è,è) %r = $replacecs(%r,Ƥ,P,χ,X,Ň,N,Û°,·,Ä´,J,І,I,Σ,E,ι,i,Å,O,δ,o,×¥,y,ν,v,×¢,y,מ,n,Ž,Ž,Å‘,o,ÄŒ,C,Ä—,e,₤,L,ÅŒ,O,ά,a,Ä ,G,Ω,O,Ð,H,ể,e,ẵ,a,Ж,K,á»,e,ế,e,á»—,o,Å«,u,â‚£,F,∆,a,Ắ,A,ủ,u,Ķ,K,Ť,T,Åž,S,Θ,O,Ш,W,Î’,B,П,N,ẅ,w,ﻨ,i,ﯼ,s,ÑŸ,u,Ñ’,h,¹,¹,Ỳ,Y,λ,a,С,C,Ð $+ $chr(173),E,Å°,U,Ī,I,Ä,c,Ä”,E,Åœ,S,Ị,I,Ä,g,Å€,l,Ñ—,i,Ù­,*,ʼn,n,Ħ,H,Д,A,Îœ,M,Ñ‘,e,Ц,U,Ñ,e,“,“,Ñ„,o,у,y,Ñ,c,к,k,Ã…,Å,â„ž,R,ï “,I,ɳ,n,Ê—,c,â–«,·,Ñ“,r,ệ,e,ắ,a,ẳ,a,ů,u,Ľ,L,Æ°,u,·,·,Ë™,',η,n,â„“,l,Â,,Â,,Â,,×€,i,Ä¡,g,Å´,W,Δ,A,ﮊ,J,μ,µ,Ÿ,Ÿ,Ä¥,h,β,ß,Ь,b,ų,u,Ñ”,e,ω,w,ÄŠ,C,Ñ–,i,Å‚,l,Ç¿,o,∫,l,ż,z,Å£,t,æ,æ,≈,=,Å,L,Å‹,n,Ú¯,S,Ä,d,ψ,w,σ,o,Ä£,g,Ή,H,Î,i,Ò‘,r,κ,k,ÅŠ,N,œ,\,,/,¬,¬,щ,w,Û•,o,×,o,³,³,½,½,Ä°,I,ľ,l,Ä•,e,Å¢,T,Å,s,Å·,y,ľ,l,Ä©,i,Ô,Ô,Åš,S,Ĺ,L,а,a,е,e,Ρ,P,Ј,J,Î,N,Ç»,a,Ñ’,h,ί,l,Å’,Œ,¯,¯,Ä,a,ŵ,w,Â,Â,Ã,Ã,н,H,ˇ,',¸,¸,Ì£,$chr(44),Ø·,b,Ó,Ó,Й,N,«,«,ù,ù,Ø,Ø,ê,ê) %r = $replacecs(%r,²,²,л,n,Ñ‹,bl,б,6,ש,w,―,-,Ϊ,I,ï ,`,Å­,u,ổ,o,Ǿ,Ø,ẫ,a,ầ,a,ï±,q,Ẃ,W,Ĥ,H,á»,o,−,-,ïž,^,ล,a,Äœ,G,ﺯ,j,Ù‰,s,Ѓ,r,ứ,u,â—,·,Ï,u,,0,,7,,",Ó©,O,Ç,i,Ç‘,O,Æ ,O,,2,Ò¯,y,ï¶,v,Ð,A,≤,<,≥,>,ẩ,a,ïˆ,H,Ù¤,e,ﺂ,i,ÐŒ,K,Ū,U,,;,ă,a,ĸ,k,Ć,C,Ĭ,I,ň,n,Ĩ,I,Ι,I,Ϋ,Y,ïŠ,J,ï˜,X,ï½,$chr(125),ï»,$chr(123),Ξ,E,ˆ,^,ï–,V,ïŒ,L,γ,y,ﺎ,i,Î,o,ỳ,y,Ć,C,Ĭ,I,ĸ,k,Ŷ,y,๛,c,ỡ,o,๓,m,ﺄ,i,ï­Ž,G,Ŭ,U,Ä’,E,Ä‚,A,÷,÷, , ,‚,‚,„,„,ˆ,ˆ,‰,‰,ă,a,ï¸,x,,=,Ù‚,J,,?,,-,â—Š,o,Ñ‚,T,Ä€,A,ï­‡,P,Ä–,E,Ę,E,ο,o,Ï‹,u,‼,!!,ט,u,ï®’,S,Ч,y,Ò,r,Ä›,e,Ę,E,ĺ,I,Λ,a,ο,o,Ú,Ú,Ř,R,Ư,U,Å“,œ,,-,—,—,ห,n,ส,a,à¸,g,Ψ,Y,Ẫ,A,Ï€,n,Å…,N,Ø!,o,Ћ,h,ợ,o,ĉ,c,â—¦,·,ﮎ,S,Ų,U,Е,E,Ð…,S,Ûµ,o,ÙŠ,S,ب,u,Ø©,o,ئ,s,ļ,l,ı,i,Å—,r,ж,x,Î…,",ÏŽ,w,â–ª,·,ζ,l,Щ,W,฿,B,ỹ,y,ÏŠ,i,Å¥,t,п,n,´,´,Ú©,s,ï±¢,*,ξ,E,Ñœ,k,√,v,Ï„,t,Ã,Ð,£,£,ñ,ñ,Â¥,¥,ë,ë,Ã¥,å,ï™,Y,ÇŽ,a) %r = $replacecs(%r,ằ,a, , ,Ο,O,₪,n,Ậ,A,ï‚£,£,ïƒ ,à,ï‚®,®,,á,ï‚©,©,,õ,á»,o,â€, ,Ö±,¸,Ö¾,-,הּ,n,ź,z,‌, ,Ù,',๘,c,ฅ,m,Â,,,<,â–¼,v,ﻜ,S,â„®,e,ź,z,ậ,a,๑,a,ï¬,fi,ÑŒ,b,ﺒ,.,ﺜ,:,ศ,a,ภ,n,à¹,o,ะ,=,ï­†,y,ซ,i,‾,¯,∂,a,:,:,≠,=,,+,Ù…,r,ồ,o,Ử,U,Л,N,Ó’,A,Ọ,O,Ẅ,W,á»´,Y,ﺚ,u,ﺬ,i,ïº,u,Å»,Z,ﮕ,S,ﺳ,w,ﯽ,u,ﺱ,uw,ﻚ,J,ﺔ,a,,!,á»…,e,Ù„,J,ر,j,Ù€,_,ÏŒ,o,â‚«,d,â„–,no,ữ,u,Äš,E,φ,o,ï» ,I,ц,u,,Å,,N,Њ,H,Έ,E,ï¾,~,ï•,U,ạ,a,,1,,4,,3,ỉ,i,Ε,E,Ð,U,Ùƒ,J,★,*,ï¢,b,,$chr(35),,$,â—‹,o,ÑŽ,10,ỵ,y,áº,w,Ò›,k,Ù¿,u,♂,o,ï­Š,n,Ù¥,o,ï®,S,â¿,n,ï»—,9,ị,i,Α,A, , ,ﻩ,o,ï»,E,Ù†,u,ẽ,e,Ø«,u,ã…“,t,Ó›,e,Ó˜,E,ﻘ,o,Û·,v,שׁ,w,ụ,u,ÅŽ,O,Â,,á»±,u,J,J,ï½…,e,ï½,a,ï¼®,N,(,$chr(40),ï¼ ,@,ï½€,`,.,.,′,',),$chr(41),â–¬,-,â—„,<,â–º,>,∑,E,Ö»,$chr(44),‬,|,‎,|,‪,|,‫,|,Ộ,O,И,N,ï—,W,ïº,z) %r = $replacecs(%r,ס,o,╳,X,Ù ,·,Ò’,F,Ï…,u,â€,,Ö¼,·,Ç”,u,ผ,w,Ằ,A,Ấ,A,»,»,ﺖ,u,ố,o,ﮓ,S,ở,o,ﺕ,u,ï®”,S, Òœ,K,♦,·,‗,_,ﻈ,b,ฬ,w,אּ,x,ï‚­,-,ข,u,ท,n,Ờ,O,Ặ,A,á»­,u,Ễ,E,ਹ,J, Ù‡,o,â– ,·,Æ¡,o,ï¿,,Ò£,h,Òš,K,Ò²,X,Ò³,x,Òœ,K,ع,E,Ú†,c,ч,y,Ð¥,X,Ù¦,7,Ö½,.,ÙŽ,',Ö¿,',׃,:,á»,o,Ò–,X,ÛŒ,s,ฬ,w,∙,·,Τ,T,â“’,c,â“,a,â“Ÿ,p,â“”,e,â“£,t,Ç,A,Ð¥,X,Ö³,.,ÛŒ,s,Ỉ,I,̉,',ïš,Z,á»,o,ẹ,e,Ò,k,ﺖ,u,ố,o,ﮓ,S,ở,o,ﺕ,u,Òš,K,ïš,Z,Ì•,',├,|,┤,|,Ø£,I,‹,,×,x,ặ,a,Ç’,o,Ờ,O,☼,¤,×,.,ïš,Z,ฤ,n,â‘·,4,⑵,2,â’ª,0,เ,i,☻,•,â• ,|,╦,n,å,†,ấ,a,,‚,З,3,Ẵ,A,ÐŽ,y,Ź,Z,΄,',À¨,$chr(40),À©,$chr(41),×—,n,Ở,O,á»”,O,์,',à¹,g,Ð’,B,ã€,[,】,],s,s,ï½,m,ï½,o,k,k,ï½—,w,d,d,Ũ,U,ï‘,Q,↨,|,Ẩ,A,Ẽ,E,Ö¸,¸,ธ,s,Ùˆ,g,з,e,ظ,b,ﺸ,…,Б,b,ï-,m,ﻲ,…,Ù¾,u,غ,e,Ẩ,A,ẻ,e,Ò¹,y,ฆ,u,ฯ,-,ׂ, ,,-,ïƒ,Ð,,ë,ת,n,Ù§,V,Ợ,O,Û,I,Ûž,O,Û©,O,Àº,:,À{,;) return %r }
  4. Aproveitando o topico do amigo aqui, seria possivel fazer isso aqui nesta lista tambem? como faria? e já agora em que linha, agradecia muito é muito importante isto para mim, obrigada on *:sockclose:r.*: var %r $right($sockname,-2) | _sw loc : $+ $me PART %r alias -l rlst if ($dialog(rlist)) { did -r rlist 2 | did -a rlist 2 0 baixando lista... } | sockclose ?list alias -l _rm return $evo.decode($replace($right($1,-2),\b,$chr(32),\c,$chr(44))) alias glist rlst | sockopen glist $$hget(rox,srv $+ $1) 6667 on *:sockopen:glist: if ($sockerr) { echo -s * Error: $sock(glist).ip -> $sock(glist).wsmsg | halt } | _sw glist l | write -c rooms.txt alias slist rlst | sockopen slist $evosite 6667 | write -c rooms.txt on *:sockopen:slist: if ($sockerr) halt | _sw slist CONEX on *:sockread:?list: { var %x | sockread %x | tokenize 32 %x if (l == $1) write rooms.txt $2 - $+ $3- if (0 == $1) { poe_la | sockclose ?list } } alias lang return $replace($1,PO-PO,1,EN-US,2,NL-NL,3,ES-ES,4,FR-BE,5,FR-FR,6,BR-BR,7,FR-CA,8,IT-IT,9) alias -l poe_la { if (!$dialog(rlist)) return var %i 0, %r rooms.txt, %t $lines(rooms.txt), %9 $chr(9) did -r rlist 2 | filter -fftcu 2 32 %r %r hdel -w rm * while (%i < %t) { inc %i | tokenize 32 $read(rooms.txt,n,%i) | hadd rm $calc(%i +1) $1 $3 did -a rlist 2 0 $iif($5,$5) $_rm($1) %9 $abs($2) %9 $3 %9 $evo.decode($6-) %9 $+ $calc($lang($4) +3) } .remove %r } alias -l ff return $findfile($mircdir,$1,1).shortfn alias rlist dialog -m rlist rlist
  5. Bem, na verdade não entendo de ajx não, mas me fala, se fôr em Ajax onde coloco o comando, em que linha?
  6. Qual comando coloco no socket abaixo para quando ele apresentar a lista de salas (room) seja actualizada a lista de imediato, e como fazer para repetir a apresentação da lista durante umas tantas vezes e se possivel tornar a repetir depois de 1 minuto. Tem a opção F2 que actualiza a lista, mas precisava ficar actualizando ela de minuto a minuto, tem como fazer ? on *:sockclose:r.*: var %r $right($sockname,-2) | _sw loc : $+ $me PART %r alias -l rlst if ($dialog(rlist)) { did -r rlist 2 | did -a rlist 2 0 baixando lista... } | sockclose ?list alias -l _rm return $evo.decode($replace($right($1,-2),\b,$chr(32),\c,$chr(44))) alias glist rlst | sockopen glist $$hget(rox,srv $+ $1) 6667 on *:sockopen:glist: if ($sockerr) { echo -s * Error: $sock(glist).ip -> $sock(glist).wsmsg | halt } | _sw glist l | write -c rooms.txt alias slist rlst | sockopen slist $evosite 6667 | write -c rooms.txt on *:sockopen:slist: if ($sockerr) halt | _sw slist CONEX on *:sockread:?list: { var %x | sockread %x | tokenize 32 %x if (l == $1) write rooms.txt $2 - $+ $3- if (0 == $1) { poe_la | sockclose ?list } }
×
×
  • Criar Novo...