1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
| ;=====================================================================
Alias coach { if (!$1) { echo -a $timestamp Utilisation: /Coach <#Salon> } | else { sockclose coach. [ $+ [ $1 ] ] | sockopen coach. [ $+ [ $1 ] ] tchat.orange.fr 80 } }
dialog chaninfo {
title $readini(Chaninfo\ $+ %chaninfo $+ .ini,info,nom)
size 250 80 104 155
icon chaninfo\chaninfo.ico,0
option dbu
list 1, 0 0 105 156, size
button "x", 2, 194 123 37 12, ok
}
Alias -l mdx { return Chaninfo\mdx.dll }
Alias -l views { return Chaninfo\views.mdx }
Alias -l ic:d { did -i chaninfo 1 1 seticon normal $+(Chaninfo\,$1,.ico) }
Alias showchannel { if ($dialog(chaninfo)) { dialog -x chaninfo } | dialog -m chaninfo chaninfo }
on *:dialog:chaninfo:init:*:{
dll $mdx SetMircVersion $version | dll $mdx MarkDialog $dname
dll $mdx SetControlMDX 1 treeview haslines hasbuttons linesatroot showsel > $views
did -i $dname 1 1 iconsize normal small
$ic:d(coach) | $ic:d(fondateur) | $ic:d(membre) | $ic:d(off) | $ic:d(on) | $ic:d(suspend)
var %f = $+(Chaninfo\,%chaninfo,.ini)
did -i $dname 1 1 cb root
did -a $dname 1 +be 1 1 Coach ( $+ $ini(%f,coach,0) $+ ) | did -i $dname 1 1 cb last
var %i = 1 | while (%i <= $ini(%f,coach,0)) { var %s = $readini(%f,coach,$ini(%f,coach,%i)) , %l = $iif(d isin %s,4,5) | did -a $dname 1 +e %l %l $replace($ini(%f,coach,%i),°°,[,¨¨,]) | inc %i }
did -i $dname 1 1 cb up
did -a $dname 1 +be 2 2 Fondateurs ( $+ $calc($ini(%f,fondatrice,0) + $ini(%f,fondateur,0)) $+ ) | did -i $dname 1 1 cb last
var %i = 1 | while (%i <= $ini(%f,fondateur,0)) { var %s = $readini(%f,fondateur,$ini(%f,fondateur,%i)) , %l = $iif(d isin %s,4,5) | did -a $dname 1 +e %l %l $replace($ini(%f,fondateur,%i),°°,[,¨¨,]) | inc %i }
var %i = 1 | while (%i <= $ini(%f,fondatrice,0)) { var %s = $readini(%f,fondateur,$ini(%f,fondatrice,%i)) , %l = $iif(d isin %s,4,5) | did -a $dname 1 +e %l %l $replace($ini(%f,fondatrice,%i),°°,[,¨¨,]) | inc %i }
did -i $dname 1 1 cb up
did -a $dname 1 +be 3 3 Membres ( $+ $ini(%f,membre,0) $+ ) | did -i $dname 1 1 cb last
var %i = 1 | while (%i <= $ini(%f,membre,0)) { var %s = $readini(%f,membre,$ini(%f,membre,%i)) , %l = $iif(d isin %s,4,5) | did -a $dname 1 +e %l %l $replace($ini(%f,membre,%i),°°,[,¨¨,]) | inc %i }
.remove %f | unset %a | unset %b | unset %check. [ $+ [ %chaninfo ] ] | unset %chaninfo
}
on *:sockopen:coach.*:{
var %coach = $remove($gettok($sockname,2-,46),$chr(35)) , %x = $+(onglet=home&searchMode=alpha&searchType=salon&submit=submit&fichier=search_result&accesskey="enter"&alphaValueSalon=,%coach,&display=yes)
sockwrite -n $sockname POST /page.php HTTP/1.1
sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded; charset=UTF-8
sockwrite -n $sockname Host: tchat.orange.fr
sockwrite -n $sockname Content-Length: $len(%x)
sockwrite -n $sockname User-Agent: m0zilla-w0rld
sockwrite -n $sockname Connection: close
sockwrite -n $sockname $crlf
sockwrite -n $sockname %x
}
on *:sockread:coach.*:{
sockread %a
var %coach = $remove($gettok($sockname,2-,46),$chr(35))
if (s"><strong>Pas de r isin %a) { echo -a 4***12 Le salon %coach n'a pas été trouvé... | sockclose $sockname | unset %a | halt }
if ($+(alt=",%coach," title=",%coach,") isin %a) { set %tmp. [ $+ [ %coach ] ] 1 }
if (%tmp. [ $+ [ %coach ] ]) && (index.php?onglet=salons&salon= isin %a) { set %coachfound 1 | sockopen coachinfo. [ $+ [ $remove($gettok(%a,5,61),&retour) ] ] tchat.orange.fr 80 | unset %tmp. [ $+ [ %coach ] ] | sockclose $sockname }
}
on *:sockclose:coach.*:if (!%coachfound) { echo -a 4***12 Le salon $gettok($sockname,2-,46) n'a pas été trouvé... | halt }
on *:sockopen:coachinfo.*:{
unset %coachfound
sockwrite -n $sockname get http://tchat.orange.fr/index.php?onglet=salons&salon= [ $+ [ $gettok($sockname,2-,46) ] ] $+ &retour=home
sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded; charset=UTF-8
sockwrite -n $sockname Host: tchat.orange.fr
var %chan = $gettok($sockname,2-,46) , %f = $+(Chaninfo\,%chan,.ini)
if ($isfile(%f)) { .remove %f } | sockwrite -n $sockname User-Agent: m0zilla-w0rld | unset %check. [ $+ [ %chan ] ]
}
on *:sockread:coachinfo.*:{
sockread %b
var %coach = $remove($gettok($sockname,2-,46),$chr(35)) , %f = $+(Chaninfo\,%coach,.ini)
if (<h2>Infos salon : <span> isin %b) { writeini %f Info NOM $remove(%b,<h2>Infos salon : <span>,/span></h2>,<) }
if (<a href="#noAncre" onclick="javascript:openPseudo isin %b) && (%check. [ $+ [ %coach ] ]) { set %tmp.nick. [ $+ [ %coach ] ] $gettok(%b,2,39) }
if (<span class="gris"> isin %b) { var %z = $remove(%b,<span class="gris">,</span>,$chr(9)) | set %tmp.nick. [ $+ [ %coach ] ] %z }
if (%nxt. [ $+ [ %coach ] ] == 1) && (<td isin %b) { set %tmp.last. [ $+ [ %coach ] ] $iif(>connec isin %b,Connecté,Déconnecté) | set %nxt. [ $+ [ %coach ] ] 2 | goto nxt }
if (%nxt. [ $+ [ %coach ] ] == 2) && (<td isin %b) {
writeini %f $remove($gettok(%b,2,62),</td) $replace(%tmp.nick. [ $+ [ %coach ] ],$chr(91),°°,$chr(93),¨¨) %tmp.last. [ $+ [ %coach ] ]
unset %tmp.nick. [ $+ [ %coach ] ] | unset %tmp.last. [ $+ [ %coach ] ] |`unset %nxt. [ $+ [ %coach ] ]
}
if (<td class=" pseudo"> isin %b) || (<td class="ligne2 pseudo"> isin %b) { set %nxt. [ $+ [ %coach ] ] 1 | set %check. [ $+ [ %coach ] ] 1 }
:nxt
}
on *:sockclose:coachinfo.*:var %chan = $gettok($sockname,2-,46) , %f = $+(Chaninfo\,%chan,.ini) | set %chaninfo %chan | showchannel
on *:Load:{ echo -a $timestamp Addon Coach 0,7Orange chargé! | coach | echo -a 13m Õ žï6ll13ä6¬13w Ô rl6Ð13Ž 14® } |
