@stat hihi j'arret pas ms cette fois en pickwin

Commenter

Contenu du snippet

bon encore un de mes stat canal ms celui ci en pickwin .

mdr .

Source / Exemple : 


--------------------------------------------------------------------------------------


                                                                    •  by abdoulax ***************************************

--------------------------------------------------------------------------------------

on *:load:{
  set %ctext 11
}

menu menubar,nicklist {
  -
  stat ( $+ # $+ ): winstat
}

alias winstat { timer 1 .1 { hihihoho } | window -odapBk +dL @stat 1000 0 200 25 }
menu @stat { 
  sclick /place $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y)
  affichage ( $+ $aff $+ )
  .nombre n: set %aff 1 | hihihoho
  .pourcentage %: set %aff 2 | hihihoho
  fond de window: backstat
  enlever fond: unset %backstat | hihihoho
  couleur text( $+ %ctext $+ )
  .(0)blanc: set %ctext 0 | hihihoho
  .(1)noir: set %ctext 1 | hihihoho
  .(2)marrone: set %ctext 2 | hihihoho
  .(3)kaki: set %ctext 3 | hihihoho
  .(4)rouge: set %ctext 4 | hihihoho
  .(5)bordeaux: set %ctext 5 | hihihoho
  .(6)violet: set %ctext 6 | hihihoho
  .(7)orange: set %ctext 7 | hihihoho
  .(8)jaune: set %ctext 8 | hihihoho
  .(9)vert: set %ctext 9 | hihihoho
  .(10)bleuvert: set %ctext 10 | hihihoho
  .(11)bleuclair: set %ctext 11 | hihihoho
  .(12)bleu: set %ctext 12 | hihihoho
  .(13)rose: set %ctext 13 | hihihoho
  .(14)gris: set %ctext 14 | hihihoho
  .(15)grisclaire: set %ctext 15 | hihihoho
  fermer: window -c @stat
  by abdoulax:/amsg by abdoulax
}
alias place {  window @stat $calc($mouse.dx - $1) $calc($mouse.dy - $2) | if ($mouse.key & 1) .timer $+ $ticks -m 1 0 place $1- }
alias hihihoho {
  if ( %aff == $null ) { set %aff 1 } 
  if ( %ctext == $null ) { set set %ctext 11 }
  if ( %backstat != $null ) { goto %backstat }
  drawrect -f @stat 12 9 0 0 200 25
  drawrect -f @stat 2 9 100 0 100 25
  set %p 1
  :point1
  drawdot @stat 2 1 $rand(50,100) $rand(0,25)
  drawdot @stat 12 1 $rand(100,150) $rand(0,25)
  inc %p
  if ( %p < 100 ) { goto point1 }
  set %p 1
  :point2
  drawdot @stat 2 1 $rand(75,100) $rand(0,25)
  drawdot @stat 12 1 $rand(100,125) $rand(0,25)
  inc %p
  if ( %p < 100 ) { goto point2 }
  set %p 1
  :point3
  drawdot @stat 2 1 $rand(82,100) $rand(0,25)
  drawdot @stat 12 1 $rand(100,112) $rand(0,25)
  inc %p
  if ( %p < 100 ) { goto point3 }
  :point4
  drawdot @stat 2 1 $rand(82,100) $rand(0,25)
  drawdot @stat 12 1 $rand(100,112) $rand(0,25)
  inc %p
  if ( %p < 100 ) { goto point4 }
  unset %t
  :backstat
  if ( %backstat != $null ) { drawfill -f @stat 1 1 0 0 %backstat 200 25 }
  drawrect @stat %ctext 1 4 4 45 17
  drawrect @stat %ctext 1 52 4 45 17
  drawrect @stat %ctext 1 101 4 45 17
  drawrect @stat %ctext 1 150 4 45 17
  if ( %aff == 1 ) {
    drawtext @stat %ctext 6 4 n $nick(%chanstat,0,r,ohv) 
    drawtext @stat %ctext 54 4 v $nick(%chanstat,0,v,o)
    drawtext @stat %ctext 103 4 o $nick(%chanstat,0,o)
  }
  if ( %aff == 2 ) {
    if ( $calc(100 * $nick(%chanstat,0,r,ohv) / $nick(%chanstat,0,a) ) < 100 ) { drawtext @stat %ctext 6 4 n $calc(100 * $nick(%chanstat,0,r,ohv) / $nick(%chanstat,0,a) ) $chr(293) }
    if ( $calc(100 * $nick(%chanstat,0,r,ohv) / $nick(%chanstat,0,a) ) >= 100 ) { drawtext @stat %ctext 6 4 n $+ $calc(100 * $nick(%chanstat,0,r,ohv) / $nick(%chanstat,0,a) ) $+  $chr(293) }
    if ( $calc(100 * $nick(%chanstat,0,v,o) / $nick(%chanstat,0,a) ) < 100 ) { drawtext @stat %ctext 54 4 v $calc(100 * $nick(%chanstat,0,v,o) / $nick(%chanstat,0,a) ) $chr(293) }
    if ( $calc(100 * $nick(%chanstat,0,v,o) / $nick(%chanstat,0,a) ) >= 100 ) { drawtext @stat %ctext 54 4 v $+ $calc(100 * $nick(%chanstat,0,v,o) / $nick(%chanstat,0,a) ) $+ $chr(293) }
    if ( $calc(100 * $nick(%chanstat,0,o) / $nick(%chanstat,0,a) ) < 100 ) { drawtext @stat %ctext 103 4 o $calc(100 * $nick(%chanstat,0,o) / $nick(%chanstat,0,a) ) $chr(293) }
    if ( $calc(100 * $nick(%chanstat,0,o) / $nick(%chanstat,0,a) ) >= 100 ) { drawtext @stat %ctext 103 4 o $+ $calc(100 * $nick(%chanstat,0,o) / $nick(%chanstat,0,a) ) $+ $chr(293) }
  }
  drawtext @stat %ctext 152 4 t $nick(%chanstat,0,a)
}
alias backstat { set %backstat $$sfile( $mircdir\*.jpg, Choix du backstat, add) | drawfill -f @stat 1 1 0 0 %backstat 200 25 } 
on *:join:*:{
  if ( $chan == %chanstat ) {
    if ( $window(@stat) != $null ) {
      hihihoho
    }
  }
}
on *:part:#:{
  if ( $chan == %chanstat ) {
    if ( $window(@stat) != $null ) {
      timerstat 1 .1 { hihihoho } 
    }
  }
}
on *:active:#:{
  if ( $window(@stat) != $null ) {
    set %chanstat $chan
    hihihoho
  }
}
alias aff { if ( %aff == 1 ) { return n } | if ( %aff == 2 ) { return $chr(293) } }

Conclusion :


g fé un petit bug . ms si le window est tout noir il fo clické droi dessus et choisir une couleur pr le text .

have fun

by abdoulax

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (abdoulax)