SMILEYS DE JAVA EN MIRC

;Design affichage:
on ^*:text:*:#: {
  echo $chan 12 $+ $chr(91) $+ 05 $+ $asctime(HH:nn) $+ 12 $+ $chr(93) ( . $iif($isAway($nick),//away,$iif($nick isop $chan, $iif(($nick == IriX) || ($left($nick,6) == Robot0) || ($left($nick,6) == Thema0),//robot,//op), $iif($nick isvo $chan,//v))) $+ $iif($nick isop $chan,4,$iif($nick isvo $chan,3,12)) *PV $nick $+ * 12. )1 $1- | halt 
  window -g[1] $chan
  haltdef
}
alias hop {
  echo -a 3 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** Vous sortez de $active
  echo -a 3 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** Vous revenez dans $active
  %chan [ $+ [ $window($active).hwnd ] ] = $false
  hop
}

alias notice {
  echo -a 05--> - $+ $iif($isAway($1),//away) $+ *PV $1 $+ * $+ - $2-
  notice $1-
}

alias msg { 
  .msg $1 $iif(c isin $chan($1).mode,$strip($2-,c),$2-) 
  if ($show) echo $1 12 $+ $chr(91) $+ 05 $+ $asctime(HH:nn) $+ 12 $+ $chr(93) ( .5 $iif($away,//away,$iif($me isop $1,//op, $iif($me isvo $1,//v))) *PV $me $+ * 12. )01 $iif(c isin $chan($1).mode,$strip($2-,c),$2-)
}

alias describe {
  .describe $1 $2-
  if ($show) echo $1 6 $+ $chr(91) $+ $asctime(HH:nn) $+ $+ $chr(93) 6*5 $iif($away,//away,$iif($me isop $1,//op, $iif($me isvo $1,//v))) *PV $me $+ * 6 $+ $iif(c isin $chan($1).mode,$strip($2-,c),$2-)
}

alias ctcp {
  .ctcp $1-
  echo -a 4 CTCP $upper($2) $+  $3-  envoyé sur2 $1
  if ($2 == IMAGE) writeln $active  <Br><center><img src=" $+ $3- $+ "></center> 
}

;Ligne HTML de départ:
alias HTMLLoad {
  if ($window($1).hwnd != $null) {
    if ($dll(DllTmp/Dll $+ $window($1).hwnd $+ .dll,ready,$null) == S_TRUE) {
      .timer $+ $window($1).hwnd off

      run SmilesButton.exe $window($1).hwnd

      else {


        whois $1 $1
      }
      .timer $+ $window($1).hwnd -m 0 25 JSalias $1 $window($1).hwnd
    }
    set %chan [ $+ [ $window($1).hwnd ] ] $true
  }
}

;code Source a ne pas changer (sauf si vous savez ce que vous faites ;)
on *:load: {
  mkdir DllTmp
  mkdir LogHTML
}

alias isaway return $false

alias writeln {
  if ($exists(DllTmp/Dll $+ $window($1).hwnd $+ .dll)) {
    dll DllTmp/Dll $+ $window($1).hwnd $+ .dll writeln $2-
    write $shortfn(LogHTML/ $+ $replace($1,$chr(124),`,$chr(92),`) $+ $time(dd-mm-yy) $+ .html) $2-
  }
}

alias say msg $active $1-

alias amsg {
  var %MyChan 1
  while (%MyChan <= $chan(0)) {
    msg $chan(%MyChan) $1-
    inc %MyChan 1
  }
}

alias echo {
  var %target $iif(($left($1,1) == -) && (a isin $1),$active,$1)
  if (($2 != $null) && ($isWinHTML(%target)) && (%chan [ $+ [ $window(%target).hwnd ] ] )) {
    var %echo $iif(($left($1,1) == -) && (t isin $1),01 $+ $chr(91) $+ $asctime(HH:nn) $+ $+ $chr(93)) $remove($2-,)
    var %span $count($gettok(%echo,1-10,3),<span)
    var %nospan 0
    var %Couleure $mIrcHTML($iif($left(%echo,1) == ,) $+ $gettok(%echo,1-10,3))
    while ( isin %Couleure) {
      %Couleure = $gettok(%Couleure,1,3) $+ $str(</span>,$calc($count($gettok(%Couleure,1,3),<span) - (%nospan + $count($gettok(%Couleure,1,3),</span>)))) $+ $gettok(%Couleure,2-,3)
    }
    %nospan = $calc(%nospan + $count(%Couleure,</span>))
    %span = $calc(%span + $count(%Couleure,<span))

    writeln %target <Br> $+ %Couleure
    %echo = $iif($gettok(%echo,11-,3) != $null,) $+ $gettok(%echo,11-,3)
    while (%echo != $null) {
      %span = $calc(%span + $count($gettok(%echo,1-10,3),<span))
      %Couleure = $img($SoulignHTML($GrasHTML($Couleure($lienHTML($replace($iif($left(%echo,1) == ,) $+ $gettok(%echo,1-10,3),<,<<c>))))))
      while ( isin %Couleure) {
        %Couleure = $gettok(%Couleure,1,3) $+ $str(</span>,$calc($count($gettok(%Couleure,1,3),<span) - (%nospan + $count($gettok(%Couleure,1,3),</span>)))) $+ $gettok(%Couleure,2-,3)
      }
      %nospan = $calc(%nospan + $count(%Couleure,</span>))
      %span = $calc(%span + $count(%Couleure,<span))

      writeln %target %Couleure
      %echo = $iif($gettok(%echo,11-,3) != $null,) $+ $gettok(%echo,11-,3)
    }
    writeln %target $str(</span>,$calc(%span - %nospan))
  }
  else echo $1-
}

alias isPaire return $iif($int($calc($1 / 2)) == $calc($1 / 2), $true, $false)

alias GrasHTML {
  var %GrasChaine $1-
  var %nbrPlaceGras 0
  while (%nbrPlaceGras != $count($1-,)) {
    inc %nbrPlaceGras 1
    %GrasChaine = $left(%GrasChaine,$calc($pos(%GrasChaine,,1)-1)) $+ $iif($isPaire(%nbrPlaceGras),</b>,<b>) $+ $right(%GrasChaine,$calc($pos(%GrasChaine,,1)*-1))
  }
  if (!$isPaire($count($1-,))) %GrasChaine = %GrasChaine $+ </b>
  return %GrasChaine
}

alias SoulignHTML {
  var %SoulignChaine $1-
  var %nbrPlaceSoulign 0
  while (%nbrPlaceSoulign != $count($1-,)) {
    inc %nbrPlaceSoulign 1
    %SoulignChaine = $left(%SoulignChaine,$calc($pos(%SoulignChaine,,1)-1)) $+ $iif($isPaire(%nbrPlaceSoulign),</u>,<u>) $+ $right(%SoulignChaine,$calc($pos(%SoulignChaine,,1)*-1))
  }
  if (!$isPaire($count($1-,))) %SoulignChaine = %SoulignChaine $+ </u>
  return %SoulignChaine
}

alias isWinHTML {
  if ((($chan($1) != $null) || ($query($1) != $null)) && ($1 != Status Window)) return $true
  else return $false
}

alias BC return $iif($1 <= 15,$true,$false)

alias isNbr return $iif($1 isin 1234567890,$true,$false)

alias char return $right($left($2-,$1),1)

alias Couleure return $Couleur($FCouleur($1-))

alias FCouleur1 return $FCouleur2($replace($1-,$chr(44) $+ 00,<span style='background-color:white'>,$chr(44) $+ 01,<span style='background-color:black'>,$chr(44) $+ 02,<span style='background-color:darkblue'>,$chr(44) $+ 03,<span style='background-color:forestgreen'>,$chr(44) $+ 04,<span style='background-color:red'>,$chr(44) $+ 05,<span style='background-color:brown'>,$chr(44) $+ 06,<span style='background-color:Blueviolet'>,$chr(44) $+ 07,<span style='background-color:orange'>,$chr(44) $+ 08,<span style='background-color:yellow'>,$chr(44) $+ 09,<span style='background-color:lawngreen'>,$chr(44) $+ 10, <span style='background-color:darkcyan'>,$chr(44) $+ 11, <span style='background-color:cyan'>,$chr(44) $+ 12, <span style='background-color:Blue'>,$chr(44) $+ 13, <span style='background-color:pink'>,$chr(44) $+ 14, <span style='background-color:gray'>,$chr(44) $+ 15, <span style='background-color:silver'>))
alias FCouleur2 return $replace($1-,$chr(44) $+ 0,<span style='background-color:white'>,$chr(44) $+ 1,<span style='background-color:black'>,$chr(44) $+ 2,<span style='background-color:darkblue'>,$chr(44) $+ 3,<span style='background-color:forestgreen'>,$chr(44) $+ 4,<span style='background-color:red'>,$chr(44) $+ 5,<span style='background-color:brown'>,$chr(44) $+ 6,<span style='background-color:Blueviolet'>,$chr(44) $+ 7,<span style='background-color:orange'>,$chr(44) $+ 8,<span style='background-color:yellow'>,$chr(44) $+ 9,<span style='background-color:lawngreen'>)
alias FCouleur {
  var %FCouleur
  if (( isin $1-) && ($chr(44) isin $1-)) {
    var %NbrFC 1
    while ($numtok($1-,32) >= %NbrFC) {
      %FCouleur = %FCouleur $iif( isin $gettok($1-,%NbrFC,32),$FCouleur1($gettok($1-,%NbrFC,32)),$gettok($1-,%NbrFC,32))
      inc %NbrFC 1
    }
  }
  else {
    %FCouleur = $1-
  }
  return %FCouleur
}

alias Couleur return $Couleur2($Couleur1($replace($1-,00, <span style='color:white'>,01, <span style='color:black'>,02, <span style='color:darkblue'>,03, <span style='color:forestgreen'>,04, <span style='color:red'>,05, <span style='color:brown'>,06, <span style='color:Blueviolet'>,07, <span style='color:orange'>,08, <span style='color:yellow'>,09, <span style='color:lawngreen'>)))
alias Couleur1 return $replace($1-,10, <span style='color:darkcyan'>,11, <span style='color:cyan'>,12, <span style='color:Blue'>,13, <span style='color:pink'>,14, <span style='color:gray'>,15, <span style='color:silver'>)
alias Couleur2 return $replace($1-,0, <span style='color:white'>,1, <span style='color:black'>,2, <span style='color:darkblue'>,3, <span style='color:forestgreen'>,4, <span style='color:red'>,5, <span style='color:brown'>,6, <span style='color:Blueviolet'>,7, <span style='color:orange'>,8, <span style='color:yellow'>,9, <span style='color:lawngreen'>)

alias img return $img0($replace($1-,: $+ $chr(41),//sourire,:- $+ $chr(41),//sourire,:o $+ $chr(41),//sourire,: $+ $chr(40),//triste,:- $+ $chr(40),//triste,:o $+ $chr(40),//triste,; $+ $chr(41),//clindoeil,;- $+ $chr(41),//clindoeil,;o $+ $chr(41),//clindoeil,:-/,//mecontent,:o/,//mecontent,= $+ $chr(41),//sourire2,= $+ $chr(40),//triste2,:' $+ $chr(40),//pleure))
alias img0 return $img1($replace($1-,//attendre,<img SRC=" $+ $mircdir $+ images\attendre.gif">,//away,<img SRC=" $+ $mircdir $+ images\away.gif">,//banane,<img SRC=" $+ $mircdir $+ images\banane.gif">,//biere,<img SRC=" $+ $mircdir $+ images\biere.gif">,//bombe,<img SRC=" $+ $mircdir $+ images\bombe.gif">,//cadeau,<img SRC=" $+ $mircdir $+ images\cadeau.gif">,//cafe,<img SRC=" $+ $mircdir $+ images\cafe.gif">,//cd,<img SRC=" $+ $mircdir $+ images\cd.gif">,//chagrin,<img SRC=" $+ $mircdir $+ images\chagrin.gif">,//chien,<img SRC=" $+ $mircdir $+ images\chien.gif">,//clindoeil,<img SRC=" $+ $mircdir $+ images\clindoeil.gif">,//coeur,<img SRC=" $+ $mircdir $+ images\coeur.gif">,//danger2,<img SRC=" $+ $mircdir $+ images\danger2.gif">,//danger,<img SRC=" $+ $mircdir $+ images\danger.gif">,//exclam,<img SRC=" $+ $mircdir $+ images\exclam.gif">,//fantome,<img SRC=" $+ $mircdir $+ images\fantome.gif">))
alias img1 return $img2($replace($1-,//fleurbleu,<img SRC=" $+ $mircdir $+ images\fleurbleu.gif">,//foot,<img SRC=" $+ $mircdir $+ images\foot.gif">,//gateau,<img SRC=" $+ $mircdir $+ images\gateau.gif">,//halloween,<img SRC=" $+ $mircdir $+ images\halloween.gif">,//hotdog,<img SRC=" $+ $mircdir $+ images\hotdog.gif">,//ignorer,<img SRC=" $+ $mircdir $+ images\ignorer.gif">,//interdit,<img SRC=" $+ $mircdir $+ images\interdit.gif">,//langue,<img SRC=" $+ $mircdir $+ images\langue.gif">,//mail,<img SRC=" $+ $mircdir $+ images\mail.gif">,//maison,<img SRC=" $+ $mircdir $+ images\maison.gif">,//mecontent,<img SRC=" $+ $mircdir $+ images\mecontent.gif">,//mobile,<img SRC=" $+ $mircdir $+ images\mobile.gif">,//musique,<img SRC=" $+ $mircdir $+ images\musique.gif">,//oeil,<img SRC=" $+ $mircdir $+ images\oeil.gif">,//op,<img SRC=" $+ $mircdir $+ images\op.gif">,//orage,<img SRC=" $+ $mircdir $+ images\orage.gif">))
alias img2 return $img3($replace($1-,//peacelove,<img SRC=" $+ $mircdir $+ images\peacelove.gif">,//pleure,<img SRC=" $+ $mircdir $+ images\pleure.gif">,//poisson,<img SRC=" $+ $mircdir $+ images\poisson.gif">,//poubelle,<img SRC=" $+ $mircdir $+ images\poubelle.gif">,//reveil,<img SRC=" $+ $mircdir $+ images\reveil.gif">,//robot,<img SRC=" $+ $mircdir $+ images\robot.gif">,//sourire2,<img SRC=" $+ $mircdir $+ images\sourire2.gif">,//sourire,<img SRC=" $+ $mircdir $+ images\sourire.gif">,//telephone,<img SRC=" $+ $mircdir $+ images\telephone.gif">,//terre,<img SRC=" $+ $mircdir $+ images\terre.gif">,//triste2,<img SRC=" $+ $mircdir $+ images\triste2.gif">,//triste,<img SRC=" $+ $mircdir $+ images\triste.gif">,//vache,<img SRC=" $+ $mircdir $+ images\vache.gif">,//voice,<img SRC=" $+ $mircdir $+ images\voice.gif">,//voiture,<img SRC=" $+ $mircdir $+ images\voiture.gif">,//v,<img SRC=" $+ $mircdir $+ images\v.gif">))
alias img3 return $replace($1-,//fille,<img SRC=" $+ $mircdir $+ images\fille.gif">,//yingyang,<img src=" $+ $mircdir $+ images/yingyang.gif">)

alias Smileys return $Smileys0($1-)
alias Smileys0 return $Smileys1($replace($1-,//sm262,<img src=" $+ $mircdir $+ Smileys/sm262.gif">,//sm261,<img src=" $+ $mircdir $+ Smileys/sm261.gif">,//sm260,<img src=" $+ $mircdir $+ Smileys/sm260.gif">,//sm259,<img src=" $+ $mircdir $+ Smileys/sm259.gif">,//sm258,<img src=" $+ $mircdir $+ Smileys/sm258.gif">,//sm256,<img src=" $+ $mircdir $+ Smileys/sm256.gif">,//sm255,<img src=" $+ $mircdir $+ Smileys/sm255.gif">,//sm254,<img src=" $+ $mircdir $+ Smileys/sm254.gif">,//sm253,<img src=" $+ $mircdir $+ Smileys/sm253.gif">,//sm252,<img src=" $+ $mircdir $+ Smileys/sm252.gif">,//sm251,<img src=" $+ $mircdir $+ Smileys/sm251.gif">,//sm250,<img src=" $+ $mircdir $+ Smileys/sm250.gif">,//sm249,<img src=" $+ $mircdir $+ Smileys/sm249.gif">,//sm248,<img src=" $+ $mircdir $+ Smileys/sm248.gif">))
alias Smileys1 return $Smileys2($replace($1-,//sm247,<img src=" $+ $mircdir $+ Smileys/sm247.gif">,//sm246,<img src=" $+ $mircdir $+ Smileys/sm246.gif">,//sm245,<img src=" $+ $mircdir $+ Smileys/sm245.gif">,//sm244,<img src=" $+ $mircdir $+ Smileys/sm244.gif">,//sm243,<img src=" $+ $mircdir $+ Smileys/sm243.gif">,//sm242,<img src=" $+ $mircdir $+ Smileys/sm242.gif">,//sm241,<img src=" $+ $mircdir $+ Smileys/sm241.gif">,//sm240,<img src=" $+ $mircdir $+ Smileys/sm240.gif">))
alias Smileys2 return $Smileys3($replace($1-,//sm230,<img src=" $+ $mircdir $+ Smileys/sm230.gif">,//sm229,<img src=" $+ $mircdir $+ Smileys/sm229.gif">,//sm228,<img src=" $+ $mircdir $+ Smileys/sm228.gif">,//sm227,<img src=" $+ $mircdir $+ Smileys/sm227.gif">,//sm226,<img src=" $+ $mircdir $+ Smileys/sm226.gif">,//sm225,<img src=" $+ $mircdir $+ Smileys/sm225.gif">,//sm224,<img src=" $+ $mircdir $+ Smileys/sm224.gif">,//sm223,<img src=" $+ $mircdir $+ Smileys/sm223.gif">,//sm222,<img src=" $+ $mircdir $+ Smileys/sm222.gif">,//sm221,<img src=" $+ $mircdir $+ Smileys/sm221.gif">,//sm220,<img src=" $+ $mircdir $+ Smileys/sm220.gif">,//sm219,<img src=" $+ $mircdir $+ Smileys/sm219.gif">,//sm218,<img src=" $+ $mircdir $+ Smileys/sm218.gif">))
alias Smileys3 return $Smileys4($replace($1-,//sm217,<img src=" $+ $mircdir $+ Smileys/sm217.gif">,//sm216,<img src=" $+ $mircdir $+ Smileys/sm216.gif">,//sm215,<img src=" $+ $mircdir $+ Smileys/sm215.gif">,//sm214,<img src=" $+ $mircdir $+ Smileys/sm214.gif">,//sm213,<img src=" $+ $mircdir $+ Smileys/sm213.gif">,//sm212,<img src=" $+ $mircdir $+ Smileys/sm212.gif">,//sm211,<img src=" $+ $mircdir $+ Smileys/sm211.gif">,//sm210,<img src=" $+ $mircdir $+ Smileys/sm210.gif">,//sm209,<img src=" $+ $mircdir $+ Smileys/sm209.gif">,//sm208,<img src=" $+ $mircdir $+ Smileys/sm208.gif">,//sm207,<img src=" $+ $mircdir $+ Smileys/sm207.gif">,//sm206,<img src=" $+ $mircdir $+ Smileys/sm206.gif">,//sm205,<img src=" $+ $mircdir $+ Smileys/sm205.gif">,//sm204,<img src=" $+ $mircdir $+ Smileys/sm204.gif">,//sm203,<img src=" $+ $mircdir $+ Smileys/sm203.gif">))
alias Smileys4 return $Smileys5($replace($1-,//sm202,<img src=" $+ $mircdir $+ Smileys/sm202.gif">,//sm201,<img src=" $+ $mircdir $+ Smileys/sm201.gif">,//sm200,<img src=" $+ $mircdir $+ Smileys/sm200.gif">,//sm199,<img src=" $+ $mircdir $+ Smileys/sm199.gif">,//sm198,<img src=" $+ $mircdir $+ Smileys/sm198.gif">,//sm197,<img src=" $+ $mircdir $+ Smileys/sm197.gif">,//sm196,<img src=" $+ $mircdir $+ Smileys/sm196.gif">,//sm195,<img src=" $+ $mircdir $+ Smileys/sm195.gif">,//sm194,<img src=" $+ $mircdir $+ Smileys/sm194.gif">,//sm193,<img src=" $+ $mircdir $+ Smileys/sm193.gif">,//sm192,<img src=" $+ $mircdir $+ Smileys/sm192.gif">,//sm191,<img src=" $+ $mircdir $+ Smileys/sm191.gif">,//sm190,<img src=" $+ $mircdir $+ Smileys/sm190.gif">,//sm189,<img src=" $+ $mircdir $+ Smileys/sm189.gif">,//sm188,<img src=" $+ $mircdir $+ Smileys/sm188.gif">))
alias Smileys5 return $Smileys6($replace($1-,//sm187,<img src=" $+ $mircdir $+ Smileys/sm187.gif">,//sm186,<img src=" $+ $mircdir $+ Smileys/sm186.gif">,//sm185,<img src=" $+ $mircdir $+ Smileys/sm185.gif">,//sm184,<img src=" $+ $mircdir $+ Smileys/sm184.gif">,//sm183,<img src=" $+ $mircdir $+ Smileys/sm183.gif">,//sm182,<img src=" $+ $mircdir $+ Smileys/sm182.gif">,//sm181,<img src=" $+ $mircdir $+ Smileys/sm181.gif">,//sm180,<img src=" $+ $mircdir $+ Smileys/sm180.gif">,//sm179,<img src=" $+ $mircdir $+ Smileys/sm179.gif">,//sm178,<img src=" $+ $mircdir $+ Smileys/sm178.gif">,//sm177,<img src=" $+ $mircdir $+ Smileys/sm177.gif">,//sm176,<img src=" $+ $mircdir $+ Smileys/sm176.gif">,//sm175,<img src=" $+ $mircdir $+ Smileys/sm175.gif">,//sm174,<img src=" $+ $mircdir $+ Smileys/sm174.gif">,//sm173,<img src=" $+ $mircdir $+ Smileys/sm173.gif">))
alias Smileys6 return $Smileys7($replace($1-,//sm172,<img src=" $+ $mircdir $+ Smileys/sm172.gif">,//sm171,<img src=" $+ $mircdir $+ Smileys/sm171.gif">,//sm170,<img src=" $+ $mircdir $+ Smileys/sm170.gif">,//sm169,<img src=" $+ $mircdir $+ Smileys/sm169.gif">,//sm168,<img src=" $+ $mircdir $+ Smileys/sm168.gif">,//sm167,<img src=" $+ $mircdir $+ Smileys/sm167.gif">,//sm166,<img src=" $+ $mircdir $+ Smileys/sm166.gif">,//sm165,<img src=" $+ $mircdir $+ Smileys/sm165.gif">,//sm164,<img src=" $+ $mircdir $+ Smileys/sm164.gif">,//sm163,<img src=" $+ $mircdir $+ Smileys/sm163.gif">,//sm162,<img src=" $+ $mircdir $+ Smileys/sm162.gif">,//sm161,<img src=" $+ $mircdir $+ Smileys/sm161.gif">,//sm160,<img src=" $+ $mircdir $+ Smileys/sm160.gif">,//sm159,<img src=" $+ $mircdir $+ Smileys/sm159.gif">,//sm158,<img src=" $+ $mircdir $+ Smileys/sm158.gif">))
alias Smileys7 return $Smileys8($replace($1-,//sm157,<img src=" $+ $mircdir $+ Smileys/sm157.gif">,//sm156,<img src=" $+ $mircdir $+ Smileys/sm156.gif">,//sm155,<img src=" $+ $mircdir $+ Smileys/sm155.gif">,//sm154,<img src=" $+ $mircdir $+ Smileys/sm154.gif">,//sm153,<img src=" $+ $mircdir $+ Smileys/sm153.gif">,//sm152,<img src=" $+ $mircdir $+ Smileys/sm152.gif">,//sm151,<img src=" $+ $mircdir $+ Smileys/sm151.gif">,//sm150,<img src=" $+ $mircdir $+ Smileys/sm150.gif">,//sm149,<img src=" $+ $mircdir $+ Smileys/sm149.gif">,//sm148,<img src=" $+ $mircdir $+ Smileys/sm148.gif">,//sm147,<img src=" $+ $mircdir $+ Smileys/sm147.gif">,//sm146,<img src=" $+ $mircdir $+ Smileys/sm146.gif">,//sm145,<img src=" $+ $mircdir $+ Smileys/sm145.gif">,//sm144,<img src=" $+ $mircdir $+ Smileys/sm144.gif">,//sm143,<img src=" $+ $mircdir $+ Smileys/sm143.gif">))
alias Smileys8 return $Smileys9($replace($1-,//sm142,<img src=" $+ $mircdir $+ Smileys/sm142.gif">,//sm141,<img src=" $+ $mircdir $+ Smileys/sm141.gif">,//sm140,<img src=" $+ $mircdir $+ Smileys/sm140.gif">,//sm139,<img src=" $+ $mircdir $+ Smileys/sm139.gif">,//sm138,<img src=" $+ $mircdir $+ Smileys/sm138.gif">,//sm137,<img src=" $+ $mircdir $+ Smileys/sm137.gif">,//sm136,<img src=" $+ $mircdir $+ Smileys/sm136.gif">,//sm135,<img src=" $+ $mircdir $+ Smileys/sm135.gif">,//sm134,<img src=" $+ $mircdir $+ Smileys/sm134.gif">,//sm132,<img src=" $+ $mircdir $+ Smileys/sm132.gif">,//sm131,<img src=" $+ $mircdir $+ Smileys/sm131.gif">,//sm130,<img src=" $+ $mircdir $+ Smileys/sm130.gif">,//sm129,<img src=" $+ $mircdir $+ Smileys/sm129.gif">,//sm128,<img src=" $+ $mircdir $+ Smileys/sm128.gif">))
alias Smileys9 return $Smileys10($replace($1-,//sm127,<img src=" $+ $mircdir $+ Smileys/sm127.gif">,//sm126,<img src=" $+ $mircdir $+ Smileys/sm126.gif">,//sm125,<img src=" $+ $mircdir $+ Smileys/sm125.gif">,//sm124,<img src=" $+ $mircdir $+ Smileys/sm124.gif">,//sm123,<img src=" $+ $mircdir $+ Smileys/sm123.gif">,//sm122,<img src=" $+ $mircdir $+ Smileys/sm122.gif">,//sm121,<img src=" $+ $mircdir $+ Smileys/sm121.gif">,//sm120,<img src=" $+ $mircdir $+ Smileys/sm120.gif">,//sm119,<img src=" $+ $mircdir $+ Smileys/sm119.gif">,//sm118,<img src=" $+ $mircdir $+ Smileys/sm118.gif">,//sm117,<img src=" $+ $mircdir $+ Smileys/sm117.gif">,//sm116,<img src=" $+ $mircdir $+ Smileys/sm116.gif">,//sm115,<img src=" $+ $mircdir $+ Smileys/sm115.gif">,//sm114,<img src=" $+ $mircdir $+ Smileys/sm114.gif">,//sm113,<img src=" $+ $mircdir $+ Smileys/sm113.gif">))
alias Smileys10 return $Smileys11($replace($1-,//sm112,<img src=" $+ $mircdir $+ Smileys/sm112.gif">,//sm111,<img src=" $+ $mircdir $+ Smileys/sm111.gif">,//sm110,<img src=" $+ $mircdir $+ Smileys/sm110.gif">,//sm109,<img src=" $+ $mircdir $+ Smileys/sm109.gif">,//sm108,<img src=" $+ $mircdir $+ Smileys/sm108.gif">,//sm107,<img src=" $+ $mircdir $+ Smileys/sm107.gif">,//sm106,<img src=" $+ $mircdir $+ Smileys/sm106.gif">,//sm105,<img src=" $+ $mircdir $+ Smileys/sm105.gif">,//sm104,<img src=" $+ $mircdir $+ Smileys/sm104.gif">,//sm103,<img src=" $+ $mircdir $+ Smileys/sm103.gif">,//sm102,<img src=" $+ $mircdir $+ Smileys/sm102.gif">,//sm101,<img src=" $+ $mircdir $+ Smileys/sm101.gif">,//sm100,<img src=" $+ $mircdir $+ Smileys/sm100.gif">,//sm99,<img src=" $+ $mircdir $+ Smileys/sm99.gif">,//sm98,<img src=" $+ $mircdir $+ Smileys/sm98.gif">))
alias Smileys11 return $Smileys12($replace($1-,//sm97,<img src=" $+ $mircdir $+ Smileys/sm97.gif">,//sm96,<img src=" $+ $mircdir $+ Smileys/sm96.gif">,//sm95,<img src=" $+ $mircdir $+ Smileys/sm95.gif">,//sm94,<img src=" $+ $mircdir $+ Smileys/sm94.gif">,//sm93,<img src=" $+ $mircdir $+ Smileys/sm93.gif">,//sm92,<img src=" $+ $mircdir $+ Smileys/sm92.gif">,//sm91,<img src=" $+ $mircdir $+ Smileys/sm91.gif">,//sm90,<img src=" $+ $mircdir $+ Smileys/sm90.gif">,//sm89,<img src=" $+ $mircdir $+ Smileys/sm89.gif">,//sm88,<img src=" $+ $mircdir $+ Smileys/sm88.gif">,//sm87,<img src=" $+ $mircdir $+ Smileys/sm87.gif">,//sm86,<img src=" $+ $mircdir $+ Smileys/sm86.gif">,//sm85,<img src=" $+ $mircdir $+ Smileys/sm85.gif">,//sm84,<img src=" $+ $mircdir $+ Smileys/sm84.gif">,//sm83,<img src=" $+ $mircdir $+ Smileys/sm83.gif">))
alias Smileys12 return $Smileys13($replace($1-,//sm82,<img src=" $+ $mircdir $+ Smileys/sm82.gif">,//sm81,<img src=" $+ $mircdir $+ Smileys/sm81.gif">,//sm80,<img src=" $+ $mircdir $+ Smileys/sm80.gif">,//sm79,<img src=" $+ $mircdir $+ Smileys/sm79.gif">,//sm78,<img src=" $+ $mircdir $+ Smileys/sm78.gif">,//sm77,<img src=" $+ $mircdir $+ Smileys/sm77.gif">,//sm76,<img src=" $+ $mircdir $+ Smileys/sm76.gif">,//sm75,<img src=" $+ $mircdir $+ Smileys/sm75.gif">,//sm74,<img src=" $+ $mircdir $+ Smileys/sm74.gif">,//sm73,<img src=" $+ $mircdir $+ Smileys/sm73.gif">,//sm72,<img src=" $+ $mircdir $+ Smileys/sm72.gif">,//sm71,<img src=" $+ $mircdir $+ Smileys/sm71.gif">,//sm70,<img src=" $+ $mircdir $+ Smileys/sm70.gif">,//sm69,<img src=" $+ $mircdir $+ Smileys/sm69.gif">,//sm68,<img src=" $+ $mircdir $+ Smileys/sm68.gif">))
alias Smileys13 return $Smileys14($replace($1-,//sm67,<img src=" $+ $mircdir $+ Smileys/sm67.gif">,//sm66,<img src=" $+ $mircdir $+ Smileys/sm66.gif">,//sm65,<img src=" $+ $mircdir $+ Smileys/sm65.gif">,//sm64,<img src=" $+ $mircdir $+ Smileys/sm64.gif">,//sm63,<img src=" $+ $mircdir $+ Smileys/sm63.gif">,//sm62,<img src=" $+ $mircdir $+ Smileys/sm62.gif">,//sm61,<img src=" $+ $mircdir $+ Smileys/sm61.gif">,//sm60,<img src=" $+ $mircdir $+ Smileys/sm60.gif">,//sm59,<img src=" $+ $mircdir $+ Smileys/sm59.gif">,//sm58,<img src=" $+ $mircdir $+ Smileys/sm58.gif">,//sm56,<img src=" $+ $mircdir $+ Smileys/sm56.gif">,//sm55,<img src=" $+ $mircdir $+ Smileys/sm55.gif">,//sm54,<img src=" $+ $mircdir $+ Smileys/sm54.gif">,//sm53,<img src=" $+ $mircdir $+ Smileys/sm53.gif">))
alias Smileys14 return $Smileys15($replace($1-,//sm52,<img src=" $+ $mircdir $+ Smileys/sm52.gif">,//sm51,<img src=" $+ $mircdir $+ Smileys/sm51.gif">,//sm50,<img src=" $+ $mircdir $+ Smileys/sm50.gif">,//sm49,<img src=" $+ $mircdir $+ Smileys/sm49.gif">,//sm48,<img src=" $+ $mircdir $+ Smileys/sm48.gif">,//sm47,<img src=" $+ $mircdir $+ Smileys/sm47.gif">,//sm46,<img src=" $+ $mircdir $+ Smileys/sm46.gif">,//sm45,<img src=" $+ $mircdir $+ Smileys/sm45.gif">,//sm44,<img src=" $+ $mircdir $+ Smileys/sm44.gif">,//sm43,<img src=" $+ $mircdir $+ Smileys/sm43.gif">,//sm42,<img src=" $+ $mircdir $+ Smileys/sm42.gif">,//sm41,<img src=" $+ $mircdir $+ Smileys/sm41.gif">,//sm40,<img src=" $+ $mircdir $+ Smileys/sm40.gif">,//sm39,<img src=" $+ $mircdir $+ Smileys/sm39.gif">,//sm38,<img src=" $+ $mircdir $+ Smileys/sm38.gif">))
alias Smileys15 return $Smileys16($replace($1-,//sm37,<img src=" $+ $mircdir $+ Smileys/sm37.gif">,//sm36,<img src=" $+ $mircdir $+ Smileys/sm36.gif">,//sm35,<img src=" $+ $mircdir $+ Smileys/sm35.gif">,//sm34,<img src=" $+ $mircdir $+ Smileys/sm34.gif">,//sm33,<img src=" $+ $mircdir $+ Smileys/sm33.gif">,//sm32,<img src=" $+ $mircdir $+ Smileys/sm32.gif">,//sm31,<img src=" $+ $mircdir $+ Smileys/sm31.gif">,//sm30,<img src=" $+ $mircdir $+ Smileys/sm30.gif">,//sm29,<img src=" $+ $mircdir $+ Smileys/sm29.gif">,//sm28,<img src=" $+ $mircdir $+ Smileys/sm28.gif">,//sm27,<img src=" $+ $mircdir $+ Smileys/sm27.gif">,//sm26,<img src=" $+ $mircdir $+ Smileys/sm26.gif">,//sm25,<img src=" $+ $mircdir $+ Smileys/sm25.gif">,//sm24,<img src=" $+ $mircdir $+ Smileys/sm24.gif">,//sm23,<img src=" $+ $mircdir $+ Smileys/sm23.gif">))
alias Smileys16 return $Smileys17($replace($1-,//sm22,<img src=" $+ $mircdir $+ Smileys/sm22.gif">,//sm21,<img src=" $+ $mircdir $+ Smileys/sm21.gif">,//sm20,<img src=" $+ $mircdir $+ Smileys/sm20.gif">,//sm19,<img src=" $+ $mircdir $+ Smileys/sm19.gif">,//sm18,<img src=" $+ $mircdir $+ Smileys/sm18.gif">,//sm17,<img src=" $+ $mircdir $+ Smileys/sm17.gif">,//sm16,<img src=" $+ $mircdir $+ Smileys/sm16.gif">,//sm15,<img src=" $+ $mircdir $+ Smileys/sm15.gif">,//sm14,<img src=" $+ $mircdir $+ Smileys/sm14.gif">,//sm13,<img src=" $+ $mircdir $+ Smileys/sm13.gif">,//sm12,<img src=" $+ $mircdir $+ Smileys/sm12.gif">,//sm11,<img src=" $+ $mircdir $+ Smileys/sm11.gif">,//sm10,<img src=" $+ $mircdir $+ Smileys/sm10.gif">,//sm9,<img src=" $+ $mircdir $+ Smileys/sm9.gif">,//sm8,<img src=" $+ $mircdir $+ Smileys/sm8.gif">))
alias Smileys17 return $replace($1-,//sm7,<img src=" $+ $mircdir $+ Smileys/sm7.gif">,//sm6,<img src=" $+ $mircdir $+ Smileys/sm6.gif">,//sm5,<img src=" $+ $mircdir $+ Smileys/sm5.gif">,//sm4,<img src=" $+ $mircdir $+ Smileys/sm4.gif">,//sm3,<img src=" $+ $mircdir $+ Smileys/sm3.gif">,//sm2,<img src=" $+ $mircdir $+ Smileys/sm2.gif">,//sm1,<img src=" $+ $mircdir $+ Smileys/sm1.gif">)

alias JSalias {
  var %cmd $replace($dll(DllTmp/Dll $+ $window($1).hwnd $+ .dll,alias,),-target,$1)
  if (($chan($1) != $null) || ($query($1) != $null)) $iif(%cmd != $1,%cmd)
  else .timer $+ $2 off
}

raw 333:*: set %topic [ $+ [ $window($2).hwnd ] ] $3-

raw 352:*: halt

on *:active:*: {
  if (($isWinHTML($active)) && ($exists(DllTmp/Dll $+ $window($active).hwnd $+ .dll))) { 
    dll DllTmp/Dll $+ $window($active).hwnd $+ .dll Scrooling
  }
}

on *:APPACTIVE: {
  if ($isWinHTML($active)) { 
    dll DllTmp/Dll $+ $window($active).hwnd $+ .dll Scrooling
  }
}

on *:start: {
  while ($findfile(DllTmp,Dll*.dll,0) != 0) {
    .remove $shortfn($findfile(DllTmp,Dll*.dll,1))
  }
}

alias me {
  describe $active $1-
}

alias ame {
  var %MyChan 1
  while (%MyChan <= $chan(0)) {
    describe $chan(%MyChan) $1-
    inc %MyChan 1
  }
}

alias query {
  query $1
  if (!$exists(DllTmp/Dll $+ $window($1).hwnd $+ .dll)) {
    .copy -o SmilesView.dll DllTmp/Dll $+ $window($1).hwnd $+ .dll
    if (($os == 98) || ($os == ME) || ($os == 95) || ($os == NT)) { timer 1 1 dll DllTmp/Dll $+ $window($1).hwnd $+ .dll attach $window($1).hwnd | .timer 1 1 dll DllTmp/Dll $+ $window($1).hwnd $+ .dll navigate about:blank }
    else { dll DllTmp/Dll $+ $window($1).hwnd $+ .dll attach $window($1).hwnd | dll DllTmp/Dll $+ $window($1).hwnd $+ .dll navigate about:blank }
    .timer $+ $window($1).hwnd -m 0 1 HTMLLoad $1
  }
}

on *:open:?: { 
  if (!$exists(DllTmp/Dll $+ $window($nick).hwnd $+ .dll)) {
    .copy -o SmilesView.dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll
    if (($os == 98) || ($os == ME) || ($os == 95) || ($os == NT)) { timer 1 1 dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll attach $window($nick).hwnd | .timer 1 1 dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll navigate about:blank }
    else { dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll attach $window($nick).hwnd | dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll navigate about:blank }
    set %PV [ $+ [ $window($nick).hwnd ] ] $1-
    .timer $+ $window($nick).hwnd -m 0 1 HTMLLoad $nick
  }
}

on *:join:#: {
  if ($nick != $me) { echo $chan 3 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** $nick ( $+ $right($address($nick,0),-2) $+ ) a rejoint $chan | halt }
  else {
    if (!$exists(DllTmp/Dll $+ $window($chan).hwnd $+ .dll)) {
      .copy -o SmilesView.dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll
      if (($os == 98) || ($os == ME) || ($os == 95) || ($os == NT)) { timer 1 1 dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll attach $window($chan).hwnd | .timer 1 1 dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll navigate about:blank }
      else { dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll attach $window($chan).hwnd | dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll navigate about:blank }
      .timer $+ $window($chan).hwnd -m 0 1 HTMLLoad $chan
      who $chan
    }
  }
}

on *:part:#: {
  if ($nick != $me) { echo $chan 3 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** $nick ( $+ $right($address($nick,0),-2) $+ ) part de $chan ( $1- ) | halt }
  elseif ($var(%chan [ $+ [ $window($chan).hwnd ] ]) != $null) {
    if (%chan [ $+ [ $window($chan).hwnd ] ]) unset %chan [ $+ [ $window($chan).hwnd ] ]
    else %chan [ $+ [ $window($chan).hwnd ] ] = $true
  }
}

on *:quit: {
  if ($nick != $me) {
    var %ComChan 1
    while (%ComChan <= $comchan($nick,0)) {
      echo $comchan($nick,%ComChan) 2 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** $nick ( $+ $right($address($nick,0),-2) $+ ) s'est déconnecté(e) ( $1- 2)
      inc %ComChan 1
    }
    halt
  }
}

raw 401:*: echo -a $2 n'est pas sur le serveur

;Coloration des pseudo du chan : $PseudoColor(chan,couleure,phrase)
alias PseudoColor {
  var %PseudoColor
  var %NbrMots 1
  while (%NbrMots <= $gettok($3,0,32)) {
    %PseudoColor = %PseudoColor $iif($gettok($3,%NbrMots,32) ison $1,$iif($gettok($3,%NbrMots,32) isop $1,4,$iif($gettok($3,%NbrMots,32) isvo $1,3,12))) $+ $gettok($3,%NbrMots,32) $+ $iif($gettok($3,%NbrMots,32) ison $1,$2)   
    inc %NbrMots 1
  }
  return %PseudoColor
}

alias lienHTML {
  var %phraseLien
  if ((http:// isin $strip($1-)) || (www. isin $strip($1-)) || (@ isin $1-)) {
    var %NbrTock 1
    while (%NbrTock <= $gettok($1-,0,32)) {
      %phraseLien = %phraseLien $iif($left($strip($gettok($1-,%NbrTock,32)),7) == http://,<a style="cursor: hand"  onClick="window.open(' $+ $strip($gettok($1-,%NbrTock,32)) $+ ');"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$iif($left($strip($gettok($1-,%NbrTock,32)),4) == www.,<a style="cursor: hand"  onClick="window.open('http:// $+ $strip($gettok($1-,%NbrTock,32)) $+ ');"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$iif($left($strip($gettok($1-,%NbrTock,32)),7) == mailto:,<a style="cursor: hand"  onClick="window.open(' $+ $strip($gettok($1-,%NbrTock,32)) $+ ');"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$gettok($1-,%NbrTock,32))))
      inc %NbrTock 1
    }
  }
  else %phraseLien = $1-
  return %phraseLien
}

alias LienCHAN {
  var %phraseLien
  if ($chr(35) isin $1-) {
    var %NbrTock 1
    while (%NbrTock <= $gettok($1-,0,32)) {
      %phraseLien = %phraseLien $iif($left($strip($gettok($1-,%NbrTock,32)),1) == $chr(35),<a style="cursor: hand"  onClick="document.title = 'join $strip($gettok($1-,%NbrTock,32)) $+ ';"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$iif($right($left($strip($gettok($1-,%NbrTock,32)),2),1) == $chr(35),<a style="cursor: hand"  onClick="document.title = 'join $right($strip($gettok($1-,%NbrTock,32)),-1) $+ ';"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$gettok($1-,%NbrTock,32)))
      inc %NbrTock 1
    }
  }
  else %phraseLien = $1-
  return %phraseLien
}

on *:exit: unset %chan* %topic*

raw 318:*: { 
  if ($var(%PV [ $+ [ $window(%whois).hwnd ] ] ) == 1) {
    echo %whois $ts.timestamp-active %ts.cgn $+  $+ $colour(listbox text) $+ %whois $+ %ts.cdn $+  %PV [ $+ [ $window(%whois).hwnd ] ] 
    echoo $whois 12 $+ $chr(91) $+ 05 $+ $asctime(HH:nn) $+ 12 $+ $chr(93) ( .5 $iif($away,//away) %whois 12. )01 %PV [ $+ [ $window(%whois).hwnd ] ]

    unset %PV [ $+ [ $window(%whois).hwnd ] ]
  }
  unset %whois
  halt
}

alias whois {
  if ($2 != $null) set %whois $2
  else set %whois $active
  whois $1
}

alias valion {
  var %lol
  var %tock 1
  while (%tock <= $gettok($1-,0,32)) {
    %lol = %lol $iif($gettok($strip($1-),%tock,32) == l $+ $str(o,$calc($len($gettok($strip($1-),%tock,32)) - 2)) $+ l,<img src=" $+ $mircdir $+ l.gif"> $+ $str(<img src=" $+ $mircdir $+ Smileys/sm22.gif">,$calc($len($gettok($strip($1-),%tock,32))-2)) $+ <img src=" $+ $mircdir $+ L.gif">,$gettok($1-,%tock,32))
    inc %tock 1
  }
  return %lol
}

alias mIrcHTML return $Smileys($img($SoulignHTML($GrasHTML($Couleure($valion($LienCHAN($lienHTML($pvHTML($replace($1-,<,<<c>))))))))))

alias pvHTML {
  var %lienPV $1-
  if (*PV isin %lienPV) {
    while ($wildtok(%lienPV,PV *,0,42) != 0) {
      %lienPV = $replace(%lienPV,* $+ $wildtok(%lienPV,PV *,1,42) $+ *,<a style="cursor: hand" onClick="document.title = 'clkNick $right($wildtok(%lienPV,PV *,1,42),-3) -target';"> $+ $right($wildtok(%lienPV,PV *,1,42),-3) $+ </a>)
    }
  }
  return %lienPV
}

alias clkNick {
  sline $2 $fline($2,$1,1,1)
  query $1
}

alias function dll DllTmp/Dll $+ $window($1).hwnd $+ .dll function $2-

CTCP *:IMAGE:#: {
  if (($right($2-,4) == .gif) || ($right($2-,4) == .jpg)) {
    echo $chan 4-> $nick a envoyé2 $2- 4sur $chan :
    writeln $chan <Br><center><img src=" $+ $2- $+ "></center>
  }
}

CTCP *:IMAGE:?: {
  if (($right($2-,4) == .gif) || ($right($2-,4) == .jpg)) {
    echo $active 4-> $nick vous a envoyé2 $2- 4:
    writeln $active <Br><center><img src=" $+ $2- $+ "></center>
  }
}

alias choix ctcp $1 image $?="Entrer l'adresse de l'image"