CONJUGAISON - PICWIN QUI CONJUGUE TOUS LES VERBES

;*****************
;  Conjugaisons
;   By ArKanis
;   arkanis.eu
;*****************

;Conjugaison provenant du site www.leconjugueur.com
;Commande : /conjugaison

;*******
;Sockets
;*******
alias -l s.conj {
  if (!$1-) return
  conj.freehash
  sockclose conjugaison
  hadd -m Conjugaison Verbe $lower($1-)
  hadd -m Conjugaison Existance existe
  sockopen conjugaison www.leconjugueur.com 80
}
on *:sockopen:conjugaison:{
  if ($sockerr) return
  sockwrite -n $sockname GET $+(http://www.leconjugueur.com/php/newconjugue.php?lang=fr&oblige=N&verbe=,$replace($hget(Conjugaison,Verbe),$chr(165),$+($chr(37),20)))
  sockwrite -n $sockname Host: conjugueur.com
  sockwrite -n $sockname $crlf
}
on *:sockopen:conjugaison2:{
  if ($sockerr) return
  sockwrite -n $sockname GET $+(http://www.leconjugueur.com/php/newconjugue.php?lang=fr&oblige=Y&verbe=,$replace($hget(Conjugaison,Verbe),$chr(165),$+($chr(37),20)))
  sockwrite -n $sockname Host: conjugueur.com
  sockwrite -n $sockname $crlf
}

on *:sockread:conjugaison*:{
  var %a
  sockread %a
  if (Il s'agit peut-être d'une faute d'orthographe isin %a) {
    hadd -m Conjugaison Existance peut ne pas exister
    sockclose conjugaison2
    sockopen conjugaison2 www.leconjugueur.com 80
  }
  elseif (<p class="verbe">Recherche isin %a) {
    if ($hget(ConjRecherche)) hfree ConjRecherche
    sockrename $sockname ConjRecherche
    hdel Conjugaison Existance
  }
  elseif (Ceci n'est pas un verbe. isin %a) hadd -m Conjugaison Existance ne peut pas exister !
  elseif ($regex(%a,class="mode">(.+)</p>)) { hadd -m Temp Mode $regml(1) | sockmark $sockname 1 }
  elseif (<div id="conjug"> isin %a) {
    hadd -m Temp Pers 1
    var %u = $replace($+($hget(Temp,Mode),£,$hget(Temp,$+(Temps,$hget(Temp,Current)))),$chr(32),$chr(165))
    hadd -m Conjugaison $replace($+($hget(Temp,Mode),£,$hget(Temp,$+(Temps,$hget(Temp,Current))),£,$hget(Temp,Pers)),$chr(32),$chr(165)) $conjug.rem.balises(%a)
  }
  elseif ($regex(Conj,%a,/<li>(.+)</li>/Ug)) {
    var %t = 1
    while $remove($regml(Conj,%t),&nbsp;) {
      hadd -m Temp $+(Temps,%t) $conjug.rem.balises($ifmatch)
      inc %t
    }
    hadd -m Temp Current 1
  }
  elseif (</li><li> isin %a) {
    hinc Temp Current
    hadd -m Temp Pers 1
    var %u = $replace($+($hget(Temp,Mode),£,$hget(Temp,$+(Temps,$hget(Temp,Current)))),$chr(32),$chr(165))
    hadd -m Conjugaison $replace($+($hget(Temp,Mode),£,$hget(Temp,$+(Temps,$hget(Temp,Current))),£,$hget(Temp,Pers)),$chr(32),$chr(165)) $conjug.rem.balises(%a)
  }
  elseif (<div style="clear: both"> isin %a) sockmark $sockname 2
  elseif ($sock($sockname).mark == 2) {
    hinc Temp Pers
    hadd -m Conjugaison $replace($+($hget(Temp,Mode),£,$hget(Temp,$+(Temps,$hget(Temp,Current))),£,$hget(Temp,Pers)),$chr(32),$chr(165)) $$conjug.rem.balises(%a)
  }
}
alias -l conjug.rem.balises { var %o, %r = $regsub($1-,/(<[^>]+>)/g,,%o) | return $remove(%o,&nbsp;) }

on *:sockclose:conjugaison*:{
  if (($sockname == conjugaison) && ($hget(Conjugaison,Existance) == peut ne pas exister)) return
  if (($window(@Conjugaison)) && ($window(@Conjugaison.copy))) drawcopy -n @Conjugaison.copy -1 -1 455 260 @Conjugaison 0 0 455 260
  else conjugaison
  w.conjugaison.draw
  window -a @Conjugaison
}

;*********
;Recherche
;*********
on *:sockread:ConjRecherche:{
  var %a
  sockread %a
  if ($regex(%a,href="newconjugue.php\?.+>(.+)</a>)) hadd -m ConjRecherche $regml(1) 1
}
on *:sockclose:ConjRecherche:{
  if (($window(@Conjugaison)) && ($window(@Conjugaison.copy))) drawcopy -n @Conjugaison.copy -1 -1 455 260 @Conjugaison 0 0 455 260
  else conjugaison
  w.conjugaison.draw.recherche
  window -a @Conjugaison
}

;******
;Dessin
;******

alias conjugaison {
  if ($hget(WConj)) hfree WConj
  if ($window(@Conjugaison)) window -a @Conjugaison
  else window -BCdg0k0pRz +dl @Conjugaison 0 0 455 260
  w.conjugaison
}

alias -l w.conjugaison {
  drawrect -fnr @Conjugaison 16777215 1 0 0 455 260
  drawrect -dfnr @Conjugaison 8553090 1 3 3 453 258 20 20
  drawrect -dnr @Conjugaison 0 1 1 1 453 258 20 20
  drawfill -nr @Conjugaison 14999520 0 10 10
  drawtext -nr @Conjugaison 0 Tahoma 10 15 25 Conjuguer :
  drawrect -fnr @Conjugaison 16773360 1 75 25 100 15
  drawrect -fnr @Conjugaison 14141640 1 177 25 30 15
  drawtext -fnr @Conjugaison 0 Tahoma 10 185 26 OK
  ;titlebar
  drawrect -fnr @Conjugaison 16777215 1 1 1 453 20
  drawline -nr @Conjugaison 0 1 1 20 1 17 4 14 9 12 12 11 16 10 21 8 25 6 29 2 35 1 453 1 453 20 1 20
  drawfill -nr @Conjugaison 7895160 0 18 15
  drawline -nr @Conjugaison 5921370 1 1 21 453 21
  drawtext -onr @Conjugaison 1315860 Tahoma 10 37 6 Conjugaison - By ArKanis
  drawtext -onr @Conjugaison 16777215 Tahoma 10 36 5 Conjugaison - By ArKanis
  ;Fermer
  drawrect -dfnr @Conjugaison 9868950 1 430 3 18 17 5 5
  drawrect -dfnr @Conjugaison 3289650 1 429 2 18 17 5 5
  drawrect -dfnr @Conjugaison 255 1 430 3 16 15 5 5
  drawtext -fonr @Conjugaison 16777215 Tahoma 10 435 4 X
  ;Réduire
  drawrect -dfnr @Conjugaison 9868950 1 410 3 18 17 5 5
  drawrect -dfnr @Conjugaison 3289650 1 409 2 18 17 5 5
  drawrect -dfnr @Conjugaison 58880 1 410 3 16 15 5 5
  drawtext -fonr @Conjugaison 16777215 Tahoma 10 415 4 _
  drawdot @Conjugaison
  window -a @Conjugaison
  if (!$window(@Conjugaison.copy)) window -g0hk0p +d @Conjugaison.copy 0 0 455 260
  drawcopy @Conjugaison 0 0 455 260 @Conjugaison.copy -1 -1 455 260
}
menu @Conjugaison {
  sclick:conj.sclick $mouse.x $mouse.y
  mouse:conj.mouse $mouse.x $mouse.y
}
alias -l conj.send {
  if ($hget(WConj,Editbox)) {
    s.conj $remove($ifmatch,$chr(124))
    drawrect -r @Conjugaison 11509920 2 177 25 30 15
    .timer -m 1 200 drawrect -r @Conjugaison 14141640 2 177 25 30 15
    .timerconjcli off
  }
}
on *:keydown:@Conjugaison:*:{
  if ($keyval == 16) hadd -m Temp Remember Shift
  elseif ($keyval == 221) hadd -m Temp Remember $iif($hget(Temp,Remember) == shift,¨,^)
  elseif ($keyval == 13) conj.send
  if ($hget(WConj,Selected)) {
    if (($keychar isalpha) || ($keychar == $chr(32)) || ($istok(à-é-è-ç-',$keychar,45))) {
      var %a = $keychar
      if ($istok(¨-^,$hget(Temp,Remember),45)) {
        var %b = $findtok(a-e-i-o-u,$keychar,45)
        if (%b) {
          if ($hget(Temp,Remember) == ¨) var %l = ä-ë-ï-ö-ü
          else var %l = â-ê-î-ô-û
          var %a = $gettok(%l,%b,45)
        }
      }
      if ($hget(Temp)) hdel Temp Remember
      if ($width($+($hget(WConj,Editbox),$keychar),Tahoma,10) > 97) return
      if ($left($hget(WConj,Editbox),1) == $chr(124)) {
        hadd -m WConj Editbox $replace($+(%a,$chr(124),$gettok($hget(WConj,Editbox),1,124)),$chr(32),$chr(165))
      }
      else hadd -m WConj Editbox $replace($+($gettok($hget(WConj,Editbox),1,124),%a,$chr(124),$gettok($hget(WConj,Editbox),2,124)),$chr(32),$chr(165))
    }
    elseif ($keyval == 8) {
      ;effacer à gauche du chariot
      if ($left($hget(WConj,Editbox),1) == $chr(124)) return
      else hadd -m WConj Editbox $+($left($gettok($hget(WConj,Editbox),1,124),-1),$chr(124),$gettok($hget(WConj,Editbox),2,124))
    }
    elseif ($keyval == 46) {
      ;effacer à droite du chariot
      if ($left($hget(WConj,Editbox),1) == $chr(124)) hadd -m WConj Editbox $replace($+($chr(124),$right($hget(WConj,Editbox),-2)),$chr(32),$chr(165))
      else hadd -m WConj Editbox $replace($+($gettok($hget(WConj,Editbox),1,124),$chr(124),$right($gettok($hget(WConj,Editbox),2,124),-1)),$chr(32),$chr(165))
    }
    elseif ($istok(37 39,$keyval,32)) {
      ;Deplacement gauche et droite
      var %p = $calc($pos($hget(WConj,Editbox),$chr(124)) $iif($keyval == 37,-2)), %c = $remove($hget(WConj,Editbox),$chr(124))
      if (($keyval == 37) && (%p == 0)) hadd -m WConj Editbox $replace($+($chr(124),%c),$chr(32),$chr(165))
      elseif (%p < 0) return
      else hadd -m WConj Editbox $replace($+($left(%c,%p),$chr(124),$right(%c,$+(-,%p))),$chr(32),$chr(165))
    }
    elseif ($keyval == 35) hadd -m WConj Editbox $replace($+($remove($hget(WConj,Editbox),$chr(124)),$chr(124)),$chr(32),$chr(165))
    elseif ($keyval == 36) hadd -m WConj Editbox $replace($+($chr(124),$remove($hget(WConj,Editbox),$chr(124))),$chr(32),$chr(165))
    else return
    .timerconjcli -m 0 500 conj.cli
    conj.editbox
    drawdot @Conjugaison
  }
}
alias -l conj.editbox {
  drawrect -fnr @Conjugaison 16773360 1 75 25 100 15
  var %b = $iif($1 == force,$2,$hget(WConj,Editbox)), %p = $pos(%b,$chr(124)), %c = $replace($remove(%b,$chr(124)),$chr(165),$chr(32)), %x = $calc(76 + $width($left(%c,$calc(%p -1)),Tahoma,10))
  if (%c) drawtext -cnr @Conjugaison 0 Tahoma 10 77 26 97 13 %c
  if (%p) drawline -nr @Conjugaison 0 1 %x 26 %x 39
}
alias -l conj.sclick {
  if (!$window(@Conjugaison)) return
  if ($inrect($1,$2,75,25,100,15)) {
    hadd -m WConj Selected 1
    var %c = $hget(WConj,Editbox), %t = 0, %l = $len(%c), %d = 0, %e
    while %t < %l {
      if ($mid(%c,%t,1) == $chr(124)) var %d = 0
      var %a = $calc(75 + $width($left(%c,%t),Tahoma,10))
      if ($1 >= %a) var %e = $remove(%c,$chr(124)), %e = $+($left(%e,%t),$chr(124),$right(%e,$calc(%l - %t - $iif($chr(124) isin %c,1,0))))
      inc %t
    }
    if (($chr(124) !isin %c) && ($1 > %a)) var %e = $+(%c,$chr(124))
    if (!%e) var %e = $chr(124)
    hadd -m WConj Editbox %e
    if (!$timer(conjcli)) .timerconjcli -m 0 500 conj.cli
    conj.editbox force %e
    drawdot @Conjugaison
  }
  else {
    if ($hget(WConj,Selected)) hdel WConj Selected
    hadd -m WConj Editbox $remove($hget(WConj,Editbox),$chr(124))
    if ($hget(WConj,Editbox)) conj.editbox force $ifmatch
    if ($inrect($1,$2,177,25,30,15)) conj.send
    elseif ($inrect($1,$2,429,2,18,17)) {
      window -c @Conjugaison
      if ($window(@Conjugaison.copy)) window -c @Conjugaison.copy
      .timerconjcli off
      conj.freehash
      return
    }
    elseif ($inrect($1,$2,409,2,18,17)) window -n @Conjugaison
    ;Selectionner la conjugaison
    elseif ($inrect($1,$2,30,60,120,130)) {
      var %t = $calc($2 - 60), %n = 1, %l = Indicatif Subjonctif Conditionnel Impératif Temps¥impersonnels
      while %t > 15 { dec %t 15 | inc %n }
      if (%n isnum 1-5) {
        var %s = $gettok(%l,%n,32), %c = $hget(Conjugaison,%s)
        conj.list 30 60 120 130 $replace(%l,%s,$+(%s,!))
        conj.list 160 60 120 130 $+($gettok(%c,1,32),!) $gettok(%c,2-,32)
        conj.make.list %s $gettok(%c,1,32)
      }
    }
    elseif ($inrect($1,$2,160,60,120,130)) {
      var %t = $calc($2 - 60), %n = 1, %l = $hget(Conjugaison,$hget(Temp,Mode)), %m = $numtok(%l,32)
      while %t > 15 { dec %t 15 | inc %n }
      if (%n isnum $+(1-,%m)) {
        var %s = $gettok(%l,%n,32)
        conj.list 160 60 120 130 $replace(%l,%s,$+(%s,!))
        conj.make.list $hget(Temp,Mode) %s
      }
    }
    elseif ($getdot(@Conjugaison,$1,$2) == 7895160) conj.move $1-
    drawdot @Conjugaison
  }
}
alias -l conj.mouse {
  if ($inrect($1,$2,75,25,100,15)) {
    if (!$hget(Temp,ConjBorder)) { drawrect -r @Conjugaison 13801110 1 74 24 102 17 | hadd -m Temp ConjBorder 1 }
  }
  elseif ($hget(Temp,ConjBorder)) { hdel Temp ConjBorder | drawrect -r @Conjugaison 14999520 1 74 24 102 17 }
  if ($inrect($1,$2,177,25,30,15)) {
    if (!$hget(Temp,ConjOK)) { drawrect -r @Conjugaison 13801110 1 176 24 32 17 | hadd -m Temp ConjOK 1 }
  }
  elseif ($hget(Temp,ConjOK)) { hdel Temp ConjOK | drawrect -r @Conjugaison 14999520 1 176 24 32 17 }
  if ($inrect($1,$2,429,2,18,17)) {
    if (!$hget(Temp,ConjCroix)) { drawfill -rs @Conjugaison 5921370 16777215 438 10 | hadd -m Temp ConjCroix 1 }
  }
  elseif ($hget(Temp,ConjCroix)) { drawfill -rs @Conjugaison 16777215 5921370 438 10 | hdel Temp ConjCroix }
  if ($inrect($1,$2,409,2,18,17)) {
    if (!$hget(Temp,ConjReduire)) { drawfill -rs @Conjugaison 5921370 16777215 418 15 | hadd -m Temp ConjReduire 1 }
  }
  elseif ($hget(Temp,ConjReduire)) { drawfill -rs @Conjugaison 16777215 5921370 418 15 | hdel Temp ConjReduire }
}
alias -l w.conjugaison.draw {
  if (!$window(@Conjugaison)) return
  if ($hget(Conjugaison,Verbe)) {
    var %i = $ifmatch
    hadd -m WConj Editbox %i
    conj.editbox force %i
    drawtext -nr @Conjugaison 0 Tahoma 10 210 25 $+(",$replace(%i,$chr(165),$chr(32)),") $hget(Conjugaison,Existance)
    if ($hget(Conjugaison,Existance) == ne peut pas exister !) { drawdot @Conjugaison | return }
  }
  hadd -m Conjugaison Indicatif Présent Passé¥Composé Imparfait Plus-que-parfait Passé¥simple Passé¥antérieur Futur¥simple Futur¥antérieur
  hadd -m Conjugaison Subjonctif Présent Passé Imparfait Plus-que-parfait
  hadd -m Conjugaison Conditionnel Présent Passé¥1re¥forme Passé¥2e¥forme
  hadd -m Conjugaison Impératif Présent Passé
  hadd -m Conjugaison Temps¥impersonnels Participe¥présent Participe¥passé Infinitif¥présent Infinitif¥passé Gérondif¥présent Gérondif¥passé
  conj.make.list Indicatif Présent
  drawdot @Conjugaison
}
alias -l conj.make.list {
  if (!$2) return
  if (!$hget(Conjugaison,$1)) return
  if (!$window(@Conjugaison)) return
  hadd -m Temp Mode $1
  drawtext -nr @Conjugaison 13816530 Tahoma 10 34 44 Modes
  drawtext -nr @Conjugaison 11842740 Tahoma 10 38 48 Modes
  drawtext -nr @Conjugaison 0 Tahoma 10 36 46 Modes
  drawtext -nr @Conjugaison 13816530 Tahoma 10 164 44 Temps
  drawtext -nr @Conjugaison 11842740 Tahoma 10 168 48 Temps
  drawtext -nr @Conjugaison 0 Tahoma 10 166 46 Temps
  conj.list 30 60 120 130 $replace(Indicatif Subjonctif Conditionnel Impératif Temps¥impersonnels,$1,$+($1,!))
  conj.list 160 60 120 130 $replace($hget(Conjugaison,$1),$2,$+($2,!))
  conj.usage
  drawrect -fnr @Conjugaison 14999520 1 300 60 150 110
  w.conjugaison.write $hget(Temp,Mode) $2 300 60
}
alias -l conj.list {
  if (!$4) return
  drawrect -nr @Conjugaison 10790052 1 $1-4
  drawrect -fnr @Conjugaison 7237230 1 $calc($1 +1) $calc($2 +1) $calc($3 +1) $calc($4 +1)
  drawrect -fnr @Conjugaison 16777215 1 $calc($1 +1) $calc($2 +1) $calc($3 -1) $calc($4 -1)
  var %t = 5, %m = $0
  while %t <= %m {
    var %c = $gettok($1-,%t,32), %o = $calc(%t * 15 - 75 + $2)
    if ($right(%c,1) == !) drawrect -fnr @Conjugaison 11827320 1 $calc($1 +1) %o $calc($3 +1) 15
    drawtext -cnr @Conjugaison 0 Tahoma 10 $calc($1 +5) %o $calc($3 -10) 15 $remove($replace(%c,$chr(165),$chr(32)),!)
    inc %t
  }
}
alias -l w.conjugaison.write {
  if (!$window(@Conjugaison)) return
  var %g = $+($1,£,$2), %o = $calc($4 + 11), %te = $replace($2,$chr(165),$chr(32))
  var %t = 1, %posy = $4, %x = $calc($3 + 10)
  while %t <= 6 {
    inc %posy 15
    if ($hget(Conjugaison,$+(%g,£,%t))) drawtext -cnr @Conjugaison 0 Tahoma 10 %x %posy 150 20 $ifmatch
    inc %t
  }
}
alias -l conj.usage {
  if (!$window(@Conjugaison)) return
  var %c = $hget(Conjugaison,Usage£Règle£1)
  if (!%c) return
  var %t = 1, %max = $len(%c), %posy = 200
  while %t <= %max {
    var %p = $left(%c,%t)
    if ($width(%p,Tahoma,10) > 425) {
      if ($mid(%c,$calc(%t +1),1) != $chr(32)) var %p = $+(%p,-)
      drawtext -cnr @Conjugaison 0 Tahoma 10 10 %posy 680 20 %p
      var %c = $right(%c,$+(-,%t)), %t = 1, %max = $len(%c)
      inc %posy 10
    }
    inc %t
  }
  if (%c) drawtext -cnr @Conjugaison 0 Tahoma 10 10 %posy 680 20 %c
}
alias -l w.conjugaison.draw.recherche {
  var %t = 1, %m = $hget(ConjRecherche,0).item
  if ($hget(Conjugaison,Verbe)) {
    drawtext -cnr @Conjugaison 0 Tahoma 10 77 26 97 13 $ifmatch
    if (%m) drawtext -nr @Conjugaison 0 Tahoma 10 30 60 $+(",$hget(Conjugaison,Verbe),") se retrouve dans $iif(%m >= 2,les verbes suivants,le verbe suivant) :
    else drawtext -nr @Conjugaison 0 Tahoma 10 30 60 Voir $iif(%m >= 2,les verbes suivants,le verbe suivant) :
  }
  while %t <= %m { drawtext -onr @Conjugaison 0 Tahoma 10 40 $calc(65 + %t * 10) $hget(ConjRecherche,%t).item | inc %t }
  drawdot @Conjugaison
  hfree ConjRecherche
}
alias -l conj.cli {
  if (!$window(@Conjugaison)) { .timerconjcli off | return }
  hinc -m Temp cli
  var %e = $hget(WConj,Editbox), %t = $hget(Temp,cli)
  conj.editbox force $iif(%t == 1,$remove(%e,$chr(124)),%e)
  if (%t >= 2) hdel Temp cli
  drawdot @conjugaison
}
alias -l conj.freehash {
  if ($hget(Temp)) hfree Temp
  if ($hget(Conjugaison)) hfree Conjugaison
  if ($hget(WConj)) hfree WConj
}
;****
;Move
;****
alias -l conj.move {
  var %x = $mouse.dx, %y $mouse.dy
  if ($mouse.key & 1) {
    hadd -m Temp Move 1
    .timerconj.move -h 0 0 conj.move $1-
    window @Conjugaison $calc(%x - $1) $calc(%y - $2)
  }
  elseif ($hget(Temp,Move)) { hdel Temp Move | .timerconj.move off }
}
;End Of File

Télécharger le zip

15 juillet 2006 17:17:36 :

correction du problème montré par SornDrixer - problème du commentaire trop long non corrigé

15 juillet 2006 17:19:56 :

correction du problème montré par SornDrixer - problème du commentaire trop long non résolu

15 juillet 2006 17:22:39 :

erreur 500 : le zip n'est pas passé (il n'a donc pas été mis à jour). Voila qui est fait (c'est relou :D)

15 juillet 2006 17:32:52 :

j'ai vraiment pas de chance, que des problèmes :( J'ai du refaire tout mon commentaire

15 juillet 2006 17:39:59 :

le .zip ne veut pas être mis à jour ! prenez le code qui est affiché sur cette page

15 juillet 2006 23:08:37 :

Nouvelle présentation - Ajout d'une titlebar - Possibilité de bouger la fenêtre - Tout le commentaire passe - Clignotement du chariot par Wims (problème à ce niveau vu que le $width du chr 160 est différent) - Flêches autorisées dans l'editbox. Je ne sais pas si le .zip va passer cette fois

16 juillet 2006 00:48:32 :

le .zip n'est pas à jour (erreur 500), je mets à jour le screen - Touches "Début" et "Fin" ajoutées - Chariot amélioré (plus de décalage d'un pixel) : le chariot est maintenant dessiné avec un drawline

16 juillet 2006 16:12:14 :

ajout de relief - essai d'envoi du .zip