All pastes #1078697 Raw Edit

Own3D

public text v1 · immutable
#1078697 ·published 2008-07-21 19:30 UTC
rendered paste body
[script]
n0=on 1:LOAD:{ echo -a $timestamp *** Vous Venez De Loader Le Helpeur-Pv-Request De BuDDyWeeD Tirer Du XpS(Final). | set %openpv ok | set %cpopupsfond 0 | set %cpopupstext 1 | set %cpopupsfocus 10 | set %cown 1 | set %cdraw 0 | set %cbtntext 5 | set %cbtnfond 15 | set %clist 1 | set %cbase 10 | set %combre 14 | set %tombre 0 | set %ctext 14 | set %cinfo 4 | set %cdiag 14 | set %cother 14 | set %tfond 15 | set %ttext 4 | set %casefond 0 | set %casetext 9 | set %prevchpvrec [(­Addon-Auto-Msg)] Système De Vérification De Pv. Wait...... | set %prevchpvacc [(­Addon-Auto-Msg)] Demande De Vérification Accepté...... | set %prevchpvref [(­Addon-Auto-Msg)] &me Est Dans L'invalidé De Vous Répondre Pour Le Moment...... | set %prevchpvatt [(­Addon-Auto-Msg)] Aucune Réponse De &me $+ ...... }
n1=alias picbtn { drawrect -fd $$1 $2 1 $calc($5 + 2) $calc($6 + 2) $calc($7 - 4) $calc($8 - 4) | drawrect -d $$1 $3 2 $5-8 | drawrect -d $$1 15 1 $calc($5 - 1) $calc($6 -1) $calc($7 + 2) $calc($8 + 2) | drawline -r $$1 $rgb(255,255,255) 1 $calc($5 + 7) $calc($6 + 1) $calc($5 + $7 - 7) $calc($6 + 1) | drawline -r $$1 $rgb(255,255,255) 1 $calc($5 + 1) $calc($6 + 6) $calc($5 + 1) $calc($calc($6 + 6) + $calc($8 - 12)) | drawline -r $$1 $rgb(255,255,255) 2 $calc($5 + 6) $calc($6 + 1) $calc($5 + 1) $calc($6 + 6) | drawline -r $$1 $rgb(255,255,255) 2 $calc($5 + 1) $calc($calc($6 + 6) + $calc($8 - 12) - 1) $calc($5 + 6) $calc($calc($6 + 6) + $calc($8 - 12) + 4) | if ($9 != $null) { drawtext -o $$1 $4 $9- } }
n2=alias picbox { drawrect -f $$1 $2 1 $calc($5 + 2) $calc($6 + 2) $calc($7 - 4) $calc($8 - 4) | drawrect $$1 $3 2 $5-8 | drawrect $$1 15 1 $calc($5 - 1) $calc($6 -1) $calc($7 + 2) $calc($8 + 2) | drawline -r $$1 $rgb(255,255,255) 1 $calc($5 + 1) $calc($calc($6 + $8) - 2) $calc($calc($5 + $7) - 1) $calc($calc($6 + $8) - 2) | drawline -r $$1 $rgb(255,255,255) 1 $calc($calc($5 + $7) - 2) $calc($6 + 1) $calc($calc($5 + $7) - 2) $calc($calc($6 + $8) - 2) | if ($9 != $null) { drawtext -o $$1 $4 $9- } }
n3=alias pictext { if (n isin $1) && (c isin $1) && ($left($1,1) == -) { drawtext $1-2 $4-6 $calc($7 + 1) $calc($8 + 1) $9- | drawtext $1-3 $5- } | else { if (r isin $1) || (o isin $1) && ($left($1,1) == -) { drawtext $1-2 $4-6 $calc($7 + 1) $calc($8 + 1) $9- | drawtext $1-3 $5- } | else { drawtext $1 $3-5 $calc($6 + 1) $calc($7 + 1) $8- | drawtext $1-2 $4- } } }
n4=alias hpvmove { if ($window(@hpv) != $null) { window @hpv $calc($mouse.dx - $1) $calc($mouse.dy - $2) | set %mhpv $calc($mouse.dx - $1) $calc($mouse.dy - $2) } | if ($mouse.key & 1) { .timer $+ $ticks -m 1 0 hpvmove $1- } }
n5=alias chpvmove { if ($window(@chpv) != $null) { window @chpv $calc($mouse.dx - $1) $calc($mouse.dy - $2) | set %mchpv $calc($mouse.dx - $1) $calc($mouse.dy - $2) } | if ($mouse.key & 1) { .timer $+ $ticks -m 1 0 chpvmove $1- } }
n6=alias egochan { var %ec = 1 | unset %egochan | while (%ec <= $comchan($$1,0)) { if ($$1 isop $comchan($$1,%ec)) || ($$1 isvo $comchan($$1,%ec)) { set %egochan %egochan $iif($$1 isop $comchan($$1,%ec),@ $+ $comchan($$1,%ec),+ $+ $comchan($$1,%ec)) } | else { set %egochan %egochan $comchan($$1,%ec) } | inc %ec } | return %egochan }
n7=alias stimer { if ($read(request.txt,w,* $+ $$1 $+ *) != $null) && ($gettok($read(request.txt,w,* $+ $$1 $+ *),2,92) == $$1) && ($window(@hpv) != $null) { var %n = $read(request.txt,w,* $+ $$1 $+ *) | write -dl [ $+ [ $readn ] ] request.txt | if ($lines(request.txt) != 0) { set %hpvinc $lines(request.txt) | hpvrefresh } | else { window -c @hpv | unset %hpvinc } } | elseif ($read(request.txt,w,* $+ $$1 $+ *) != $null) && ($gettok($read(request.txt,w,* $+ $$1 $+ *),2,92) == $$1) { var %n = $read(request.txt,w,* $+ $$1 $+ *) | write -dl [ $+ [ $readn ] ] request.txt } | msg $$1 $replace(%prevchpvatt,&me,$me,&nick,$nick,&pub,%pub) }
n8=alias ouvrir_color { set %namecolor $1 | window -adhopB +deL @co $calc($mouse.dx - $calc($2 * 38)) $calc($mouse.dy - 45) $iif($2 == 1,76,$iif($2 == 2,154,233)) 99 | drawfill @co $iif(%cdiag != $null,%cdiag,1) 1 0 0
n9= drawrect @co 1 2 -1 -1 78 100 | drawrect -f @co 0 1 2 2 15 15 | drawrect -r @co $rgb(50,50,50) 2 2 2 16 16 | drawrect -f @co 1 1 21 2 15 15 | drawrect -r @co $rgb(50,50,50) 2 20 2 16 16 | drawrect -f @co 2 1 40 2 15 15 | drawrect -r @co $rgb(50,50,50) 2 39 2 16 16 | drawrect -f @co 3 1 59 2 15 15 | drawrect -r @co $rgb(50,50,50) 2 58 2 16 16 | drawrect -f @co 4 1 2 21 15 15 | drawrect -r @co $rgb(50,50,50) 2 2 21 16 16 | drawrect -f @co 5 1 21 21 15 15 | drawrect -r @co $rgb(50,50,50) 2 20 21 16 16 | drawrect -f @co 6 1 40 21 15 15 | drawrect -r @co $rgb(50,50,50) 2 39 21 16 16 | drawrect -f @co 7 1 59 21 15 15 | drawrect -r @co $rgb(50,50,50) 2 58 21 16 16 | drawrect -f @co 8 1 2 40 15 15 | drawrect -r @co $rgb(50,50,50) 2 2 40 16 16
n10= drawrect -f @co 9 1 21 40 15 15 | drawrect -r @co $rgb(50,50,50) 2 20 40 16 16 | drawrect -f @co 10 1 40 40 15 15 | drawrect -r @co $rgb(50,50,50) 2 39 40 16 16 | drawrect -f @co 11 1 59 40 15 15 | drawrect -r @co $rgb(50,50,50) 2 58 40 16 16 | drawrect -f @co 12 1 2 59 15 15 | drawrect -r @co $rgb(50,50,50) 2 2 59 16 16 | drawrect -f @co 13 1 21 59 15 15 | drawrect -r @co $rgb(50,50,50) 2 20 59 16 16 | drawrect -f @co 14 1 40 59 15 15 | drawrect -r @co $rgb(50,50,50) 2 39 59 16 16 | drawrect -f @co 15 1 59 59 15 15 | drawrect -r @co $rgb(50,50,50) 2 58 59 16 16 | drawrect -f @co $iif($3 != $null,$3,15) 2 1 78 71 17 | drawrect -r @co $rgb(50,50,50) 2 2 78 72 18 | drawtext -o @co $iif($4 != $null,$4,4) tahoma 12 19 80 $iif($5 != $null,$iif($5 == fond,-FOND-,-TEXT-),-TEXT-)
n11= drawrect @co 1 2 77 -1 78 100 | drawrect -f @co 0 1 80 2 15 15 | drawrect -r @co $rgb(50,50,50) 2 80 2 16 16 | drawrect -f @co 1 1 99 2 15 15 | drawrect -r @co $rgb(50,50,50) 2 98 2 16 16 | drawrect -f @co 2 1 118 2 15 15 | drawrect -r @co $rgb(50,50,50) 2 117 2 16 16 | drawrect -f @co 3 1 137 2 15 15 | drawrect -r @co $rgb(50,50,50) 2 136 2 16 16 | drawrect -f @co 4 1 80 21 15 15 | drawrect -r @co $rgb(50,50,50) 2 80 21 16 16 | drawrect -f @co 5 1 99 21 15 15 | drawrect -r @co $rgb(50,50,50) 2 98 21 16 16 | drawrect -f @co 6 1 118 21 15 15 | drawrect -r @co $rgb(50,50,50) 2 117 21 16 16 | drawrect -f @co 7 1 137 21 15 15 | drawrect -r @co $rgb(50,50,50) 2 136 21 16 16 | drawrect -f @co 8 1 80 40 15 15 | drawrect -r @co $rgb(50,50,50) 2 80 40 16 16 | drawrect -f @co 9 1 99 40 15 15
n12= drawrect -r @co $rgb(50,50,50) 2 98 40 16 16 | drawrect -f @co 10 1 118 40 15 15 | drawrect -r @co $rgb(50,50,50) 2 117 40 16 16 | drawrect -f @co 11 1 137 40 15 15 | drawrect -r @co $rgb(50,50,50) 2 136 40 16 16 | drawrect -f @co 12 1 80 59 15 15 | drawrect -r @co $rgb(50,50,50) 2 80 59 16 16 | drawrect -f @co 13 1 99 59 15 15 | drawrect -r @co $rgb(50,50,50) 2 98 59 16 16 | drawrect -f @co 14 1 118 59 15 15 | drawrect -r @co $rgb(50,50,50) 2 117 59 16 16 | drawrect -f @co 15 1 137 59 15 15 | drawrect -r @co $rgb(50,50,50) 2 136 59 16 16 | drawrect -f @co $iif($5 == ombre,$6,$iif($3 != $null,$3,15)) 2 79 78 71 17 | drawrect -r @co $rgb(50,50,50) 2 80 78 72 18 | if ($5 == ombre) { drawtext -o @co $iif($3 != $null,$3,14) tahoma 12 91 81 -OMBRE- } | drawtext -o @co $iif($4 != $null,$4,4) tahoma 12 $iif($5 == ombre,90,97) 80 $iif($5 != $null,$iif($5 == ombre,-OMBRE-,-FOND-),-FOND-)
n13= drawrect @co 1 2 155 -1 78 100 | drawrect -f @co 0 1 158 2 15 15 | drawrect -r @co $rgb(50,50,50) 2 158 2 16 16 | drawrect -f @co 1 1 177 2 15 15 | drawrect -r @co $rgb(50,50,50) 2 176 2 16 16 | drawrect -f @co 2 1 196 2 15 15 | drawrect -r @co $rgb(50,50,50) 2 195 2 16 16 | drawrect -f @co 3 1 215 2 15 15 | drawrect -r @co $rgb(50,50,50) 2 214 2 16 16 | drawrect -f @co 4 1 158 21 15 15 | drawrect -r @co $rgb(50,50,50) 2 158 21 16 16 | drawrect -f @co 5 1 177 21 15 15 | drawrect -r @co $rgb(50,50,50) 2 176 21 16 16 | drawrect -f @co 6 1 196 21 15 15 | drawrect -r @co $rgb(50,50,50) 2 195 21 16 16 | drawrect -f @co 7 1 215 21 15 15 | drawrect -r @co $rgb(50,50,50) 2 214 21 16 16 | drawrect -f @co 8 1 158 40 15 15 | drawrect -r @co $rgb(50,50,50) 2 158 40 16 16
n14= drawrect -f @co 9 1 177 40 15 15 | drawrect -r @co $rgb(50,50,50) 2 176 40 16 16 | drawrect -f @co 10 1 196 40 15 15 | drawrect -r @co $rgb(50,50,50) 2 195 40 16 16 | drawrect -f @co 11 1 215 40 15 15 | drawrect -r @co $rgb(50,50,50) 2 214 40 16 16 | drawrect -f @co 12 1 158 59 15 15 | drawrect -r @co $rgb(50,50,50) 2 158 59 16 16 | drawrect -f @co 13 1 177 59 15 15 | drawrect -r @co $rgb(50,50,50) 2 176 59 16 16 | drawrect -f @co 14 1 196 59 15 15 | drawrect -r @co $rgb(50,50,50) 2 195 59 16 16 | drawrect -f @co 15 1 215 59 15 15 | drawrect -r @co $rgb(50,50,50) 2 214 59 16 16 | drawrect -f @co $iif($6 != $null,$6,15) 2 157 78 71 17 | drawrect -r @co $rgb(50,50,50) 2 158 78 72 18 | drawtext -o @co $iif($4 != $null,$4,4) tahoma 12 $iif($5 == focus,170,175) 80 $iif($5 != $null,$iif($5 == focus,-FOCUS-,-FOND-),-FOND-)
n15=}
n16=menu @co {
n17= sclick:{
n18= if $inrect($mouse.x,$mouse.y,2,2,15,15) { var %co1 = 0 }
n19= elseif $inrect($mouse.x,$mouse.y,21,2,15,15) { var %co1 = 1 }
n20= elseif $inrect($mouse.x,$mouse.y,40,2,15,15) { var %co1 = 2 }
n21= elseif $inrect($mouse.x,$mouse.y,59,2,15,15) { var %co1 = 3 }
n22= elseif $inrect($mouse.x,$mouse.y,2,21,15,15) { var %co1 = 4 }
n23= elseif $inrect($mouse.x,$mouse.y,21,21,15,15) { var %co1 = 5 }
n24= elseif $inrect($mouse.x,$mouse.y,40,21,15,15) { var %co1 = 6 }
n25= elseif $inrect($mouse.x,$mouse.y,59,21,15,15) { var %co1 = 7 }
n26= elseif $inrect($mouse.x,$mouse.y,2,40,15,15) { var %co1 = 8 }
n27= elseif $inrect($mouse.x,$mouse.y,21,40,15,15) { var %co1 = 9 }
n28= elseif $inrect($mouse.x,$mouse.y,40,40,15,15) { var %co1 = 10 }
n29= elseif $inrect($mouse.x,$mouse.y,59,40,15,15) { var %co1 = 11 }
n30= elseif $inrect($mouse.x,$mouse.y,2,59,15,15) { var %co1 = 12 }
n31= elseif $inrect($mouse.x,$mouse.y,21,59,15,15) { var %co1 = 13 }
n32= elseif $inrect($mouse.x,$mouse.y,40,59,15,15) { var %co1 = 14 }
n33= elseif $inrect($mouse.x,$mouse.y,59,59,15,15) { var %co1 = 15 }
n34= elseif $inrect($mouse.x,$mouse.y,80,2,15,15) { var %co2 = 0 }
n35= elseif $inrect($mouse.x,$mouse.y,99,2,15,15) { var %co2 = 1 }
n36= elseif $inrect($mouse.x,$mouse.y,118,2,15,15) { var %co2 = 2 }
n37= elseif $inrect($mouse.x,$mouse.y,137,2,15,15) { var %co2 = 3 }
n38= elseif $inrect($mouse.x,$mouse.y,80,21,15,15) { var %co2 = 4 }
n39= elseif $inrect($mouse.x,$mouse.y,99,21,15,15) { var %co2 = 5 }
n40= elseif $inrect($mouse.x,$mouse.y,118,21,15,15) { var %co2 = 6 }
n41= elseif $inrect($mouse.x,$mouse.y,137,21,15,15) { var %co2 = 7 }
n42= elseif $inrect($mouse.x,$mouse.y,80,40,15,15) { var %co2 = 8 }
n43= elseif $inrect($mouse.x,$mouse.y,99,40,15,15) { var %co2 = 9 }
n44= elseif $inrect($mouse.x,$mouse.y,118,40,15,15) { var %co2 = 10 }
n45= elseif $inrect($mouse.x,$mouse.y,137,40,15,15) { var %co2 = 11 }
n46= elseif $inrect($mouse.x,$mouse.y,80,59,15,15) { var %co2 = 12 }
n47= elseif $inrect($mouse.x,$mouse.y,99,59,15,15) { var %co2 = 13 }
n48= elseif $inrect($mouse.x,$mouse.y,118,59,15,15) { var %co2 = 14 }
n49= elseif $inrect($mouse.x,$mouse.y,137,59,15,15) { var %co2 = 15 }
n50= elseif $inrect($mouse.x,$mouse.y,158,2,15,15) { var %co3 = 0 }
n51= elseif $inrect($mouse.x,$mouse.y,177,2,15,15) { var %co3 = 1 }
n52= elseif $inrect($mouse.x,$mouse.y,196,2,15,15) { var %co3 = 2 }
n53= elseif $inrect($mouse.x,$mouse.y,215,2,15,15) { var %co3 = 3 }
n54= elseif $inrect($mouse.x,$mouse.y,158,21,15,15) { var %co3 = 4 }
n55= elseif $inrect($mouse.x,$mouse.y,177,21,15,15) { var %co3 = 5 }
n56= elseif $inrect($mouse.x,$mouse.y,196,21,15,15) { var %co3 = 6 }
n57= elseif $inrect($mouse.x,$mouse.y,215,21,15,15) { var %co3 = 7 }
n58= elseif $inrect($mouse.x,$mouse.y,158,40,15,15) { var %co3 = 8 }
n59= elseif $inrect($mouse.x,$mouse.y,177,40,15,15) { var %co3 = 9 }
n60= elseif $inrect($mouse.x,$mouse.y,196,40,15,15) { var %co3 = 10 }
n61= elseif $inrect($mouse.x,$mouse.y,215,40,15,15) { var %co3 = 11 }
n62= elseif $inrect($mouse.x,$mouse.y,158,59,15,15) { var %co3 = 12 }
n63= elseif $inrect($mouse.x,$mouse.y,177,59,15,15) { var %co3 = 13 }
n64= elseif $inrect($mouse.x,$mouse.y,196,59,15,15) { var %co3 = 14 }
n65= elseif $inrect($mouse.x,$mouse.y,215,59,15,15) { var %co3 = 15 }
n66= if (%namecolor == Cancel) && (%co1 != $null) && (%hpvedit != $null) { hpvadd %co1 }
n67= elseif (%namecolor == Fond) && (%co1 != $null) { set %cdiag %co1 | hpvbackrefresh }
n68= elseif (%namecolor == Title) && (%co1 != $null) { set %ttext %co1 | hpvbackrefresh }
n69= elseif (%namecolor == Title) && (%co2 != $null) { set %tfond %co2 | hpvbackrefresh }
n70= elseif (%namecolor == Bouton) && (%co1 != $null) { set %cbtntext %co1 | hpvbackrefresh }
n71= elseif (%namecolor == Bouton) && (%co2 != $null) { set %cbtnfond %co2 | hpvbackrefresh }
n72= elseif (%namecolor == Case) && (%co1 != $null) { set %casetext %co1 | hpvbackrefresh }
n73= elseif (%namecolor == Case) && (%co2 != $null) { set %casefond %co2 | hpvbackrefresh }
n74= elseif (%namecolor == Edit) && (%co1 != $null) { set %cown %co1 | hpvbackrefresh }
n75= elseif (%namecolor == Edit) && (%co2 != $null) { set %cdraw %co2 | hpvbackrefresh }
n76= elseif (%namecolor == Text) && (%co1 != $null) { set %ctext %co1 | hpvbackrefresh }
n77= elseif (%namecolor == Text) && (%co2 != $null) { set %tombre %co2 | hpvbackrefresh }
n78= elseif (%namecolor == Text) && (%co3 != $null) { set %cdiag %co3 | hpvbackrefresh }
n79= elseif (%namecolor == Other) && (%co1 != $null) { set %cinfo %co1 | hpvbackrefresh }
n80= elseif (%namecolor == Other) && (%co2 != $null) { set %tombre %co2 | hpvbackrefresh }
n81= elseif (%namecolor == Other) && (%co3 != $null) { set %cdiag %co3 | hpvbackrefresh }
n82= elseif (%namecolor == Base) && (%co1 != $null) { set %cbase %co1 | hpvbackrefresh }
n83= elseif (%namecolor == Base) && (%co2 != $null) { set %combre %co2 | hpvbackrefresh }
n84= elseif (%namecolor == Base) && (%co3 != $null) { set %clist %co3 | hpvbackrefresh }
n85= elseif (%namecolor == Info) && (%co1 != $null) { set %cother %co1 | hpvbackrefresh }
n86= elseif (%namecolor == Info) && (%co2 != $null) { set %combre %co2 | hpvbackrefresh }
n87= elseif (%namecolor == Info) && (%co3 != $null) { set %clist %co3 | hpvbackrefresh }
n88= elseif (%namecolor == Popups) && (%co1 != $null) { set %cpopupstext %co1 }
n89= elseif (%namecolor == Popups) && (%co2 != $null) { set %cpopupsfonf %co2 }
n90= elseif (%namecolor == Popups) && (%co3 != $null) { set %cpopupsfocus %co3 }
n91= window -c @co | unset %dnamecolor %didcolor %namecolor %othercolor %co1
n92= }
n93= leave:window -c @co | unset %dnamecolor %didcolor %namecolor %othercolor %co1
n94=}
n95=alias hpvrefresh { var %picnick = $gettok($read(request.txt,%hpvinc),2,92) | var %picchan = $iif($egochan(%picnick) != $null,$egochan(%picnick),----------------------------------) | var %picuser = $iif(users.undernet.org isin $address(%picnick,2),$gettok($gettok($address(%picnick,2),2-,64),1,46),$iif($hread(user,Username $+ %picnick) != $null,$hread(user,Username $+ %picnick),------------------)) | var %picaddress = $iif($address(%picnick,2) != $null,$address(%picnick,2),$iif($hread(Address,%picnick $+ $network) != $null,$hread(Address,%picnick $+ $network),----------------------------------))
n96= drawrect -f @hpv %cdiag 1 230 26 50 18
n97= pictext @hpv %cinfo %tombre tahoma 11 233 28 $gettok($read(request.txt,%hpvinc),1,92)
n98= drawrect -f @hpv %clist 1 70 44 125 30
n99= drawrect -f @hpv %clist 1 70 74 232 110
n100= pictext -nc @hpv %cother %combre tahoma 11 75 44 120 14 %picnick
n101= pictext -nc @hpv %cother %combre tahoma 11 75 59 120 14 %picuser
n102= pictext -nc @hpv %cother %combre tahoma 11 75 74 225 14 %picaddress
n103= pictext -nc @hpv %cother %combre tahoma 11 75 89 225 14 $gettok($gettok($read(request.txt,%hpvinc),3-,92),1-6,32)
n104= if ($gettok($gettok($read(request.txt,%hpvinc),3-,92),7-12,32) != $null) { pictext -nc @hpv %cother %combre tahoma 11 75 104 225 14 $gettok($gettok($read(request.txt,%hpvinc),3-,92),7-12,32) }
n105= if ($gettok($gettok($read(request.txt,%hpvinc),3-,92),13-18,32) != $null) { pictext -nc @hpv %cother %combre tahoma 11 75 119 225 14 $gettok($gettok($read(request.txt,%hpvinc),3-,92),13-18,32) }
n106= if ($gettok($gettok($read(request.txt,%hpvinc),3-,92),19-,32) != $null) { pictext -nc @hpv %cother %combre tahoma 11 75 134 225 14 $gettok($gettok($read(request.txt,%hpvinc),3-,92),19-,32) }
n107= pictext -nc @hpv %cother %combre tahoma 11 75 149 225 14 $gettok(%picchan,1-5,32)
n108= if ($gettok(%picchan,6-,32) != $null) { pictext -nc @hpv %cother %combre tahoma 11 75 164 225 14 $gettok(%picchan,6-,32) }
n109= picbox @hpv %cdraw 1 %cown 239 45 25 21 tahoma 12 243 48 $iif($len(%hpvinc) == 1,0 $+ %hpvinc,%hpvinc)
n110= drawdot @hpv
n111=}
n112=alias dhopen { var %u = $rand(1,3) | window -apdChko +feL @hpv $2 $3 0 0 | dhopen [ $+ [ %u ] ] $1- }
n113=alias dhopen1 { var %x = 1 | while (%x <= 50) { window $1 $2 $3 $round($calc( $4 / 50 * %x)) $round($calc( $5 / 50 * %x)) | inc %x } | pichpv }
n114=alias dhopen2 { var %x = 1 | while (%x <= 50) { window $1 $2 $3 $4 $round($calc( $5 / 50 * %x)) | inc %x } | pichpv }
n115=alias dhopen3 { var %x = 1 | while (%x <= 50) { window $1 $2 $3 $round($calc( $4 / 50 * %x)) $5 | inc %x } | pichpv }
n116=alias hpv { dhopen @hpv $iif(%mhpv != $null,%mhpv,-1 -1) 320 232 }
n117=alias pichpv { set %hpvinc $lines(request.txt) | var %picnick = $gettok($read(request.txt,%hpvinc),2,92) | var %picchan = $iif($egochan(%picnick) != $null,$egochan(%picnick),----------------------------------) | var %picuser = $iif(users.undernet.org isin $address(%picnick,2),$gettok($gettok($address(%picnick,2),2-,64),1,46),$iif($hread(user,Username $+ %picnick) != $null,$hread(user,Username $+ %picnick),------------------)) | var %picaddress = $iif($address(%picnick,2) != $null,$address(%picnick,2),$iif($hread(Address,%picnick $+ $network) != $null,$hread(Address,%picnick $+ $network),----------------------------------))
n118= ;base
n119= drawfill @hpv %cdiag %cdiag 0 0
n120= if (%picfont != $null) && (%picimage != $null) { drawpic -ns @hpv 0 25 320 207 %picimage }
n121= drawrect -rf @hpv $rgb(156,156,165) 3 -1 -1 392 25
n122= drawrect -r @hpv $rgb(231,222,231) 3 -5 -5 400 30
n123= picbtn @hpv 4 1 0 285 2 22 17 tahoma 13 292 2 X
n124= drawtext -o @hpv 2 tahoma -8 5 -1 m
n125= drawtext -o @hpv 4 tahoma -8 4 5 ir
n126= drawtext -o @hpv 8 tahoma -8 11 5 c
n127= drawrect -fd @hpv %tfond 1 40 1 230 20
n128= drawrect -rd @hpv $rgb(0,0,0) 2 39 1 232 20
n129= drawtext -o @hpv %ttext tahoma -8 78 4 -Addon Helpeur Request Pv-
n130= drawline -r @hpv $rgb(255,255,255) 1 46 19 266 19
n131= drawline -r @hpv $rgb(255,255,255) 1 269 8 269 14
n132= drawline -r @hpv $rgb(255,255,255) 2 265 3 269 7
n133= drawline -r @hpv $rgb(255,255,255) 2 269 14 264 19
n134= ;picwin
n135= drawtext @hpv %tombre tahoma 11 41 27 Configuration Request-Pv
n136= drawtext @hpv %ctext tahoma 11 40 26 Configuration Request-Pv
n137= drawline @hpv %tombre 1 40 39 164 39
n138= drawline @hpv %ctext 1 41 40 165 40
n139= drawrect -f @hpv %clist 1 10 44 185 30
n140= drawrect -f @hpv %clist 1 10 74 292 110
n141= drawtext -o @hpv 2 tahoma -15 30 107 m
n142= drawtext -o @hpv 4 tahoma -15 27 118 ir
n143= drawtext -o @hpv 8 tahoma -15 40 118 c
n144= pictext @hpv %cbase %combre tahoma 11 16 44 Nickname:
n145= pictext -nc @hpv %cother %combre tahoma 11 75 44 120 14 %picnick
n146= pictext @hpv %cbase %combre tahoma 11 13 59 Username:
n147= pictext -nc @hpv %cother %combre tahoma 11 75 59 120 14 %picuser
n148= pictext @hpv %cbase %combre tahoma 11 23 74 Address:
n149= pictext -nc @hpv %cother %combre tahoma 11 75 74 225 14 %picaddress
n150= pictext @hpv %cbase %combre tahoma 11 20 89 Message:
n151= pictext -nc @hpv %cother %combre tahoma 11 75 89 225 14 $gettok($gettok($read(request.txt,%hpvinc),3-,92),1-6,32)
n152= if ($gettok($gettok($read(request.txt,%hpvinc),3-,92),7-12,32) != $null) { pictext -nc @hpv %cother %combre tahoma 11 75 104 225 14 $gettok($gettok($read(request.txt,%hpvinc),3-,92),7-12,32) }
n153= if ($gettok($gettok($read(request.txt,%hpvinc),3-,92),13-18,32) != $null) { pictext -nc @hpv %cother %combre tahoma 11 75 119 225 14 $gettok($gettok($read(request.txt,%hpvinc),3-,92),13-18,32) }
n154= if ($gettok($gettok($read(request.txt,%hpvinc),3-,92),19-,32) != $null) { pictext -nc @hpv %cother %combre tahoma 11 75 134 225 14 $gettok($gettok($read(request.txt,%hpvinc),3-,92),19-,32) }
n155= pictext @hpv %cbase %combre tahoma 11 15 149 Chan Ego:
n156= pictext -nc @hpv %cother %combre tahoma 11 75 149 225 14 $gettok(%picchan,1-5,32)
n157= if ($gettok(%picchan,6-,32) != $null) { pictext -nc @hpv %cother %combre tahoma 11 75 164 225 14 $gettok(%picchan,6-,32) }
n158= picbtn @hpv %cbtnfond 1 %cbtntext 37 195 82 20 tahoma 12 53 197 -Accept-
n159= picbtn @hpv %cbtnfond 1 %cbtntext 129 195 82 20 tahoma 12 143 197 -Ignorer-
n160= picbtn @hpv %cbtnfond 1 %cbtntext 221 195 82 20 tahoma 12 234 197 -Refuser-
n161= picbox @hpv %cdraw 1 %cown 239 45 25 21 tahoma 12 243 48 $iif($len(%hpvinc) == 1,0 $+ %hpvinc,%hpvinc)
n162= picbtn @hpv %cbtnfond 1 %cbtntext 214 46 20 20 webdings 12 217 47 7
n163= picbtn @hpv %cbtnfond 1 %cbtntext 269 46 20 20 webdings 12 272 47 8
n164= pictext @hpv %cinfo %tombre tahoma 11 233 28 $gettok($read(request.txt,%hpvinc),1,92)
n165= drawrect @hpv %casetext 1 10 198 14 14
n166= drawrect -f @hpv %casefond 1 11 199 12 12
n167= if (%openpv != $null) { drawtext @hpv %casetext webdings 18 8 194 a }
n168= drawdot @hpv
n169=}
n170=menu @hpv {
n171= mouse:{
n172= if $inrect($mouse.x,$mouse.y,24,112,33,33) { set %hpvwhois ok | drawrect @hpv 15 1 19 106 43 43 }
n173= elseif (%hpvwhois != $null) { unset %hpvwhois | drawrect -r @hpv $rgb(25,25,25) 1 19 106 43 43 }
n174= }
n175= sclick:{
n176= if $inrect($mouse.x,$mouse.y,40,27,125,15) { chpv }
n177= if $inrect($mouse.x,$mouse.y,37,195,82,20) { msg $gettok($read(request.txt,%hpvinc),2,92) $replace(%prevchpvacc,&me,$me,&nick,$gettok($read(request.txt,%hpvinc),2,92),&pub,%pub)
n178= if (%hpvinc == 1) && ($lines(request.txt) == 1) { .timer [ $+ [ $gettok($read(request.txt,%hpvinc),2,92) ] $+ ] .pv off | .remove request.txt | window -c @hpv | unset %hpvinc }
n179= else { .timer [ $+ [ $gettok($read(request.txt,%hpvinc),2,92) ] $+ ] .pv off | write -dl [ $+ [ %hpvinc ] ] request.txt | set %hpvinc $lines(request.txt) | hpvrefresh }
n180= }
n181= if $inrect($mouse.x,$mouse.y,129,195,82,20) { msg $gettok($read(request.txt,%hpvinc),2,92) $replace(%prevchpvref,&me,$me,&nick,$gettok($read(request.txt,%hpvinc),2,92),&pub,%pub) | closemsg $gettok($read(request.txt,%hpvinc),2,92)
n182= if ($address($gettok($read(request.txt,%hpvinc),2,92),2) == $null) { ignore -ptu2800 $gettok($read(request.txt,%hpvinc),2,92) } | else { ignore -ptu2800 $address($gettok($read(request.txt,%hpvinc),2,92),2) } 
n183= if (%hpvinc == 1) && ($lines(request.txt) == 1) { .timer [ $+ [ $gettok($read(request.txt,%hpvinc),2,92) ] $+ ] .pv off | .remove request.txt | window -c @hpv | unset %hpvinc }
n184= else { .timer [ $+ [ $gettok($read(request.txt,%hpvinc),2,92) ] $+ ] .pv off | write -dl [ $+ [ %hpvinc ] ] request.txt | set %hpvinc $lines(request.txt) | hpvrefresh }
n185= }
n186= if $inrect($mouse.x,$mouse.y,221,195,82,20) { msg $gettok($read(request.txt,%hpvinc),2,92) $replace(%prevchpvref,&me,$me,&nick,$gettok($read(request.txt,%hpvinc),2,92),&pub,%pub) | closemsg $gettok($read(request.txt,%hpvinc),2,92)
n187= if (%hpvinc == 1) && ($lines(request.txt) == 1) { .timer [ $+ [ $gettok($read(request.txt,%hpvinc),2,92) ] $+ ] .pv off | .remove request.txt | window -c @hpv | unset %hpvinc }
n188= else { .timer [ $+ [ $gettok($read(request.txt,%hpvinc),2,92) ] $+ ] .pv off | write -dl [ $+ [ %hpvinc ] ] request.txt | set %hpvinc $lines(request.txt) | hpvrefresh }
n189= }
n190= if $inrect($mouse.x,$mouse.y,214,46,20,20) && (%hpvinc != 1) { dec %hpvinc | hpvrefresh }
n191= if $inrect($mouse.x,$mouse.y,269,46,20,20) && (%hpvinc != $lines(request.txt)) { inc %hpvinc | hpvrefresh }
n192= if $inrect($mouse.x,$mouse.y,24,112,33,33) && (%hpvinc != $null) && ($gettok($read(request.txt,%hpvinc),2,92) != $null) { hadd -m check Userip: $+ $gettok($read(request.txt,%hpvinc),2,92) Ok | raw -q USERIP $gettok($read(request.txt,%hpvinc),2,92) | .timer [ $+ [ $gettok($read(request.txt,%hpvinc),2,92) ] $+ ] .whois -m 1 500 .whois $gettok($read(request.txt,%hpvinc),2,92) $gettok($read(request.txt,%hpvinc),2,92) }
n193= if $inrect($mouse.x,$mouse.y,11,199,12,12) { if (%openpv == $null) { set %openpv ok | drawtext @hpv %casetext webdings 18 8 194 a | if ($window(@chpv) != $null) { drawtext @chpv %casetext webdings 18 8 329 a } } | else { unset %openpv | drawrect -f @hpv %casefond 1 11 199 12 12 | if ($window(@chpv) != $null) { drawrect -f @chpv %casefond 1 11 334 12 12 } } }
n194= if $inrect($mouse.x,$mouse.y,286,3,19,15) { .remove request.txt | window -c @hpv | unset %hpvinc }
n195= elseif $inrect($mouse.x,$mouse.y,0,0,392,25) { hpvmove $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) }
n196= }
n197= rclick:{
n198= if $inrect($mouse.x,$mouse.y,40,27,125,15) { ouvrir_color Text 3 %tombre %ctext ombre %cdiag }
n199= elseif $inrect($mouse.x,$mouse.y,233,28,40,15) { ouvrir_color Other 3 %tombre %cinfo ombre %cdiag }
n200= elseif $inrect($mouse.x,$mouse.y,239,45,25,21) { ouvrir_color Edit 2 %cdraw %cown }
n201= elseif $inrect($mouse.x,$mouse.y,40,1,230,20) { ouvrir_color Title 2 %tfond %ttext }
n202= elseif $inrect($mouse.x,$mouse.y,11,199,12,12) { ouvrir_color Case 2 %casefond %casetext }
n203= elseif $inrect($mouse.x,$mouse.y,37,195,82,20) || $inrect($mouse.x,$mouse.y,129,195,82,20) || $inrect($mouse.x,$mouse.y,221,195,82,20) || $inrect($mouse.x,$mouse.y,214,46,20,20) || $inrect($mouse.x,$mouse.y,269,46,20,20) { ouvrir_color Bouton 2 %cbtnfond %cbtntext }
n204= elseif $inrect($mouse.x,$mouse.y,10,44,60,140) { ouvrir_color Base 3 %combre %cbase ombre %clist }
n205= elseif $inrect($mouse.x,$mouse.y,70,44,125,30) || $inrect($mouse.x,$mouse.y,70,74,232,110) { ouvrir_color Info 3 %combre %cother ombre %clist }
n206= elseif ($mouse.y > 25) { ouvrir_color Fond 1 $iif(%cdiag != 15,15,1) %cdiag fond }
n207= }
n208=}
n209=alias dchopen { var %u = $rand(1,3) | window -apdChk +feL @chpv $2 $3 0 0 | dchopen [ $+ [ %u ] ] $1- }
n210=alias dchopen1 { var %x = 1 | while (%x <= 50) { window $1 $2 $3 $round($calc( $4 / 50 * %x)) $round($calc( $5 / 50 * %x)) | inc %x } | picchpv }
n211=alias dchopen2 { var %x = 1 | while (%x <= 50) { window $1 $2 $3 $4 $round($calc( $5 / 50 * %x)) | inc %x } | picchpv }
n212=alias dchopen3 { var %x = 1 | while (%x <= 50) { window $1 $2 $3 $round($calc( $4 / 50 * %x)) $5 | inc %x } | picchpv }
n213=alias chpv { dchopen @chpv $iif(%mchpv != $null,%mchpv,-1 -1) 400 365 }
n214=alias picchpv { unset %hpvedit
n215= ;base
n216= drawfill @chpv %cdiag %cdiag 0 0
n217= if (%picfont != $null) && (%picimage != $null) { drawpic -ns @chpv 0 25 400 340 %picimage }
n218= drawrect -rf @chpv $rgb(156,156,165) 3 -1 -1 400 25
n219= drawrect -r @chpv $rgb(231,222,231) 3 -5 -5 405 30
n220= picbtn @chpv 4 1 0 365 2 22 17 tahoma 13 372 2 X
n221= drawtext -o @chpv 2 tahoma -8 5 -1 m
n222= drawtext -o @chpv 4 tahoma -8 4 5 ir
n223= drawtext -o @chpv 8 tahoma -8 11 5 c
n224= drawrect -fd @chpv %tfond 1 40 1 310 20
n225= drawrect -rd @chpv $rgb(0,0,0) 2 39 1 312 20
n226= drawtext -o @chpv %ttext tahoma -8 99 4 -Configuration Helpeur Request Pv-
n227= drawline -r @chpv $rgb(255,255,255) 1 46 19 346 19
n228= drawline -r @chpv $rgb(255,255,255) 1 349 8 349 14
n229= drawline -r @chpv $rgb(255,255,255) 2 345 3 349 7
n230= drawline -r @chpv $rgb(255,255,255) 2 349 14 344 19
n231= ;picwin
n232= drawtext @chpv %tombre tahoma 11 31 32 Image De Fond:
n233= drawtext @chpv %ctext tahoma 11 30 31 Image De Fond:
n234= drawrect @chpv %casetext 1 10 31 14 14
n235= drawrect -f @chpv %casefond 1 11 32 12 12
n236= if (%picfont != $null) { drawtext @chpv %casetext webdings 18 8 27 a }
n237= picbtn @chpv %cbtnfond 1 %cbtntext 302 29 82 18 tahoma 11 320 31 -Select-
n238= drawrect @chpv 1 1 110 28 185 19
n239= drawrect @chpv 15 1 109 27 187 21
n240= drawrect -f @chpv %cdraw 1 111 29 183 17
n241= if (%picimage != $null) { drawtext -bc @chpv %cown %cdraw tahoma 11 115 30 175 15 $nopath(%picimage) }
n242= drawrect @chpv %tombre 1 10 58 373 60
n243= drawrect @chpv %ctext 1 10 58 372 59
n244= drawrect -f @chpv %cdiag 1 39 56 85 5
n245= drawtext @chpv %tombre tahoma 11 41 52 Demande D'un Pv
n246= drawtext @chpv %ctext tahoma 11 40 51 Demande D'un Pv
n247= drawrect -f @chpv $color(background) 1 19 67 354 17
n248= if (%prevchpvrec != $null) { drawtext -bcp @chpv $color(own) $color(background) tahoma 11 23 68 346 15 %prevchpvrec }
n249= drawrect @chpv 1 1 20 88 305 19
n250= drawrect @chpv 15 1 19 87 307 21
n251= drawrect -f @chpv %cdraw 1 21 89 303 17
n252= if (%prevchpvrec != $null) { drawtext -bc @chpv %cown %cdraw tahoma 11 25 90 291 15 $replace(%prevchpvrec,,¬,,¬,­,¬,,¬,,¬) }
n253= picbtn @chpv %cbtnfond 1 %cbtntext 330 88 42 18 tahoma 11 337 90 -Def-
n254= drawrect @chpv %tombre 1 10 128 373 60
n255= drawrect @chpv %ctext 1 10 128 372 59
n256= drawrect -f @chpv %cdiag 1 39 126 65 5
n257= drawtext @chpv %tombre tahoma 11 41 122 Accept Un Pv
n258= drawtext @chpv %ctext tahoma 11 40 121 Accept Un Pv
n259= drawrect -f @chpv $color(background) 1 19 137 354 17
n260= if (%prevchpvacc != $null) { drawtext -bcp @chpv $color(own) $color(background) tahoma 11 23 138 346 15 %prevchpvacc }
n261= drawrect @chpv 1 1 20 158 305 19
n262= drawrect @chpv 15 1 19 157 307 21
n263= drawrect -f @chpv %cdraw 1 21 159 303 17
n264= if (%prevchpvacc != $null) { drawtext -bc @chpv %cown %cdraw tahoma 11 25 160 291 15 $replace(%prevchpvacc,,¬,,¬,­,¬,,¬,,¬) }
n265= picbtn @chpv %cbtnfond 1 %cbtntext 330 158 42 18 tahoma 11 337 160 -Def-
n266= drawrect @chpv %tombre 1 10 198 373 60
n267= drawrect @chpv %ctext 1 10 198 372 59
n268= drawrect -f @chpv %cdiag 1 39 196 65 5
n269= drawtext @chpv %tombre tahoma 11 41 192 Refuse Un Pv
n270= drawtext @chpv %ctext tahoma 11 40 191 Refuse Un Pv
n271= drawrect -f @chpv $color(background) 1 19 207 354 17
n272= if (%prevchpvref != $null) { drawtext -bcp @chpv $color(own) $color(background) tahoma 11 23 208 346 15 %prevchpvref }
n273= drawrect @chpv 1 1 20 228 305 19
n274= drawrect @chpv 15 1 19 227 307 21
n275= drawrect -f @chpv %cdraw 1 21 229 303 17
n276= if (%prevchpvref != $null) { drawtext -bc @chpv %cown %cdraw tahoma 11 25 230 291 15 $replace(%prevchpvref,,¬,,¬,­,¬,,¬,,¬) }
n277= picbtn @chpv %cbtnfond 1 %cbtntext 330 228 42 18 tahoma 11 337 230 -Def-
n278= drawrect @chpv %tombre 1 10 268 373 60
n279= drawrect @chpv %ctext 1 10 268 372 59
n280= drawrect -f @chpv %cdiag 1 39 266 78 5
n281= drawtext @chpv %tombre tahoma 11 41 262 Pv Non Transmit
n282= drawtext @chpv %ctext tahoma 11 40 261 Pv Non Transmit
n283= drawrect -f @chpv $color(background) 1 19 277 354 17
n284= if (%prevchpvatt != $null) { drawtext -bcp @chpv $color(own) $color(background) tahoma 11 23 278 346 15 %prevchpvatt }
n285= drawrect @chpv 1 1 20 298 305 19
n286= drawrect @chpv 15 1 19 297 307 21
n287= drawrect -f @chpv %cdraw 1 21 299 303 17
n288= if (%prevchpvatt != $null) { drawtext -bc @chpv %cown %cdraw tahoma 11 25 300 291 15 $replace(%prevchpvatt,,¬,,¬,­,¬,,¬,,¬) }
n289= picbtn @chpv %cbtnfond 1 %cbtntext 330 298 42 18 tahoma 11 337 300 -Def-
n290= drawtext @chpv %tombre tahoma 11 31 334 Activation Du Helpeur Request Pv
n291= drawtext @chpv %ctext tahoma 11 30 333 Activation Du Helpeur Request Pv
n292= drawrect @chpv %casetext 1 10 333 14 14
n293= drawrect -f @chpv %casefond 1 11 334 12 12
n294= if (%openpv != $null) { drawtext @chpv %casetext webdings 18 8 329 a }
n295= drawdot @chpv
n296=}
n297=menu @chpv {
n298= sclick:{ if ($window(@pop) != $null) { window -c @pop }
n299= if $inrect($mouse.x,$mouse.y,21,89,303,17) { set %hpvedit 1 prevchpvrec 90 | set %focuspoint 0 | chpveditrefresh
n300= if ($mouse.x <= 27) || ([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] == $null) { set %hpvfoc 0 | set %focusposition 23 | drawline @chpv %cown 1 23 $gettok(%hpvedit,3,32) 23 $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n301= else { var %he = 1
n302= while (%he <= $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) { var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],1,%he),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1)
n303= if (%focusposition > $calc($mouse.x - 3)) || (%he == $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) { set %hpvfoc %he | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus | halt }
n304= elseif (%focusposition > 315) { set %hpvfoc $calc(%he - 1) | set %focusposition $iif(%focuspositionpre == $null,319,%focuspositionpre) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus | halt }
n305= else { var %focuspositionpre = %focusposition }
n306= inc %he
n307= }
n308= }
n309= }
n310= elseif $inrect($mouse.x,$mouse.y,21,159,303,17) { set %hpvedit 2 prevchpvacc 160 | set %focuspoint 0 | chpveditrefresh
n311= if ($mouse.x <= 27) || ([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] == $null) { set %hpvfoc 0 | set %focusposition 23 | drawline @chpv %cown 1 23 $gettok(%hpvedit,3,32) 23 $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n312= else { var %he = 1
n313= while (%he <= $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) { var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],1,%he),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1)
n314= if (%focusposition > $calc($mouse.x - 3)) || (%he == $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) { set %hpvfoc %he | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus | halt }
n315= elseif (%focusposition > 315) { set %hpvfoc $calc(%he - 1) | set %focusposition $iif(%focuspositionpre == $null,319,%focuspositionpre) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus | halt }
n316= else { var %focuspositionpre = %focusposition }
n317= inc %he
n318= }
n319= }
n320= }
n321= elseif $inrect($mouse.x,$mouse.y,21,229,303,17) { set %hpvedit 3 prevchpvref 230 | set %focuspoint 0 | chpveditrefresh
n322= if ($mouse.x <= 27) || ([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] == $null) { set %hpvfoc 0 | set %focusposition 23 | drawline @chpv %cown 1 23 $gettok(%hpvedit,3,32) 23 $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n323= else { var %he = 1
n324= while (%he <= $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) { var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],1,%he),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1)
n325= if (%focusposition > $calc($mouse.x - 3)) || (%he == $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) { set %hpvfoc %he | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus | halt }
n326= elseif (%focusposition > 315) { set %hpvfoc $calc(%he - 1) | set %focusposition $iif(%focuspositionpre == $null,319,%focuspositionpre) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus | halt }
n327= else { var %focuspositionpre = %focusposition }
n328= inc %he
n329= }
n330= }
n331= }
n332= elseif $inrect($mouse.x,$mouse.y,21,299,303,17) { set %hpvedit 4 prevchpvatt 300 | set %focuspoint 0 | chpveditrefresh
n333= if ($mouse.x <= 27) || ([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] == $null) { set %hpvfoc 0 | set %focusposition 23 | drawline @chpv %cown 1 23 $gettok(%hpvedit,3,32) 23 $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n334= else { var %he = 1
n335= while (%he <= $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) { var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],1,%he),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1)
n336= if (%focusposition > $calc($mouse.x - 3)) || (%he == $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) { set %hpvfoc %he | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus | halt }
n337= elseif (%focusposition > 315) { set %hpvfoc $calc(%he - 1) | set %focusposition $iif(%focuspositionpre == $null,319,%focuspositionpre) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus | halt }
n338= else { var %focuspositionpre = %focusposition }
n339= inc %he
n340= }
n341= }
n342= }
n343= elseif ($mouse.y > 25) { .timerfocus off | set %focuspoint 0 | unset %focus %hpvedit | chpveditrefresh }
n344= if $inrect($mouse.x,$mouse.y,330,88,42,18) { set %prevchpvrec [(­Addon-Auto-Msg)] Système De Vérification De Pv. Wait...... | drawrect -f @chpv %cdraw 1 21 89 303 17 | drawtext -bc @chpv %cown %cdraw tahoma 11 25 90 291 15 $replace(%prevchpvrec,,¬,,¬,­,¬,,¬,,¬) | prevchpvrec }
n345= if $inrect($mouse.x,$mouse.y,330,158,42,18) { set %prevchpvacc [(­Addon-Auto-Msg)] Demande De Vérification Accepté...... | drawrect -f @chpv %cdraw 1 21 159 303 17 | drawtext -bc @chpv %cown %cdraw tahoma 11 25 160 291 15 $replace(%prevchpvacc,,¬,,¬,­,¬,,¬,,¬) | prevchpvacc }
n346= if $inrect($mouse.x,$mouse.y,330,228,42,18) { set %prevchpvref [(­Addon-Auto-Msg)] &me Est Dans L'invalidé De Vous Répondre Pour Le Moment...... | drawrect -f @chpv %cdraw 1 21 229 303 17 | drawtext -bc @chpv %cown %cdraw tahoma 11 25 230 291 15 $replace(%prevchpvref,,¬,,¬,­,¬,,¬,,¬) | prevchpvref }
n347= if $inrect($mouse.x,$mouse.y,330,298,42,18) { set %prevchpvatt [(­Addon-Auto-Msg)] Aucune Réponse De &me $+ ...... | drawrect -f @chpv %cdraw 1 21 299 303 17 | drawtext -bc @chpv %cown %cdraw tahoma 11 25 300 291 15 $replace(%prevchpvatt,,¬,,¬,­,¬,,¬,,¬) | prevchpvatt }
n348= if $inrect($mouse.x,$mouse.y,11,32,12,12) { if (%picfont == $null) { set %picfont ok | hpvbackrefresh } | else { unset %picfont | hpvbackrefresh } }
n349= if $inrect($mouse.x,$mouse.y,11,334,12,12) { if (%openpv == $null) { set %openpv ok | drawtext @chpv %casetext webdings 18 8 329 a | if ($window(@hpv) != $null) { drawtext @hpv %casetext webdings 18 8 194 a } } | else { unset %openpv | drawrect -f @chpv %casefond 1 11 334 12 12 | if ($window(@hpv) != $null) { drawrect -f @hpv %casefond 1 11 199 12 12 } } }
n350= if $inrect($mouse.x,$mouse.y,302,29,82,18) { var %pic = $sfile(C:\,Images,Choisir) | if (%pic != $null) { set %picimage %pic | if (%picfont != $null) { window -c @chpv } | else { drawtext -bc @chpv %cown %cdraw tahoma 11 115 30 175 15 $nopath(%picimage) } } }
n351= if $inrect($mouse.x,$mouse.y,366,3,19,15) { window -c @chpv }
n352= elseif $inrect($mouse.x,$mouse.y,0,0,400,25) { chpvmove $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) }
n353= }
n354= rclick:{
n355= if $inrect($mouse.x,$mouse.y,41,52,85,15) || $inrect($mouse.x,$mouse.y,41,122,65,15) || $inrect($mouse.x,$mouse.y,41,192,65,15) || $inrect($mouse.x,$mouse.y,41,262,78,15) || $inrect($mouse.x,$mouse.y,31,32,85,15) || $inrect($mouse.x,$mouse.y,31,334,160,15) { ouvrir_color Text 3 %tombre %ctext ombre %cdiag }
n356= elseif $inrect($mouse.x,$mouse.y,111,29,183,17) { ouvrir_color Edit 2 %cdraw %cown }
n357= elseif $inrect($mouse.x,$mouse.y,21,89,303,17) { if (%hpvedit != $null) && ($gettok(%hpvedit,1,32) == 1) { chpvpopups } | else { ouvrir_color Edit 2 %cdraw %cown } }
n358= elseif $inrect($mouse.x,$mouse.y,21,159,303,17) { if (%hpvedit != $null) && ($gettok(%hpvedit,1,32) == 2) { chpvpopups } | else { ouvrir_color Edit 2 %cdraw %cown } }
n359= elseif $inrect($mouse.x,$mouse.y,21,229,303,17) { if (%hpvedit != $null) && ($gettok(%hpvedit,1,32) == 3) { chpvpopups } | else { ouvrir_color Edit 2 %cdraw %cown } }
n360= elseif $inrect($mouse.x,$mouse.y,21,299,303,17) { if (%hpvedit != $null) && ($gettok(%hpvedit,1,32) == 4) { chpvpopups } | else { ouvrir_color Edit 2 %cdraw %cown } }
n361= elseif $inrect($mouse.x,$mouse.y,40,1,310,20) { ouvrir_color Title 2 %tfond %ttext }
n362= elseif $inrect($mouse.x,$mouse.y,11,32,12,12) || $inrect($mouse.x,$mouse.y,11,334,12,12) { ouvrir_color Case 2 %casefond %casetext }
n363= elseif $inrect($mouse.x,$mouse.y,302,29,82,18) || $inrect($mouse.x,$mouse.y,330,88,42,18) || $inrect($mouse.x,$mouse.y,330,158,42,18) || $inrect($mouse.x,$mouse.y,330,228,42,18) || $inrect($mouse.x,$mouse.y,330,298,42,18) { ouvrir_color Bouton 2 %cbtnfond %cbtntext }
n364= elseif $mouse.y > 25 && !$inrect($mouse.x,$mouse.y,19,67,354,17) && !$inrect($mouse.x,$mouse.y,19,137,354,17) && !$inrect($mouse.x,$mouse.y,19,207,354,17) && !$inrect($mouse.x,$mouse.y,19,277,354,17) { ouvrir_color Fond 1 $iif(%cdiag != 15,15,1) %cdiag fond }
n365= }
n366=}
n367=on 1:NICK:{
n368= if ($read(request.txt,w,* $+ $nick $+ *) != $null) && ($gettok($read(request.txt,w,* $+ $nick $+ *),2,92) == $nick) && ($window(@hpv) != $null) {
n369= if ($timer( [ $+ [ $nick ] $+ ] .pv) != $null) { .timer [ $+ [ $newnick ] $+ ] .pv 1 $timer( [ $+ [ $nick ] $+ ] .pv).secs stimer $newnick | .timer [ $+ [ $nick ] $+ ] .pv off }
n370= if ($gettok($read(request.txt,%hpvinc),2,92) == $nick) { var %n = $read(request.txt,w,* $+ $nick $+ *) | write -dl [ $+ [ $readn ] ] request.txt | write -l [ $+ [ $readn ] ] request.txt $replace(%n,$nick,$newnick) | hpvrefresh }
n371= else { var %n = $read(request.txt,w,* $+ $nick $+ *) | write -dl [ $+ [ $readn ] ] request.txt | write -l [ $+ [ $readn ] ] request.txt $replace(%n,$nick,$newnick) }
n372= }
n373=}
n374=on 1:OPEN:?:{ inc -u5 %openpvflood
n375= if (%openpvflood >= 5) { ignore -ptu120 *!*@* | unset %openpvflood | halt }
n376= if (%openpv != $null) { if ($hread(antiflood,inc) > 3) { halt } | .timer [ $+ [ $nick ] $+ ] .pv 1 300 stimer $nick | msg $nick $replace(%prevchpvrec,&me,$me,&nick,$nick)
n377= if ($window(@hpv) != $null) { hinc -mu10 antiflood inc | write request.txt $chr(91) $+ $time(HH:nn) $+ $chr(93) $+ \ $+ $nick $+ \ $+ $replace($1-,$chr(36),$chr(36) $chr(36) $+ + $+ $chr(32),$chr(37),$chr(37) $chr(36) $+ + $+ $chr(32),$chr(32) $+ $chr(124) $+ $chr(32),$chr(32) $+ $chr(36) $+ + $+ $chr(124) $+ $chr(36) $+ + $+ $chr(32)) | set %hpvinc $lines(request.txt) | hpvrefresh | halt }
n378= else { hinc -mu10 antiflood inc | write request.txt $chr(91) $+ $time(HH:nn) $+ $chr(93) $+ \ $+ $nick $+ \ $+ $replace($1-,$chr(36),$chr(36) $chr(36) $+ + $+ $chr(32),$chr(37),$chr(37) $chr(36) $+ + $+ $chr(32),$chr(32) $+ $chr(124) $+ $chr(32),$chr(32) $+ $chr(36) $+ + $+ $chr(124) $+ $chr(36) $+ + $+ $chr(32)) | hpv | halt }
n379= }
n380=}
n381=menu nicklist,channel,query,menubar,status {
n382= -
n383= Helpeur-Pv-Request( $+ $iif(%openpv == $null,Mort,Actif) $+ )
n384= .Configuration:chpv
n385= .-
n386= .Active:set %openpv Ok | echo -a $timestamp *** Activation Du Helpeur-Pv-Request.
n387= .Désactice:unset %openpv | echo -a $timestamp *** Désactivation Du Helpeur-Pv-Request.
n388= .-
n389= .Color
n390= ..Title:ouvrir_color Title 2 %tfond %ttext
n391= ..-
n392= ..Text:ouvrir_color Text 3 %tombre %ctext ombre %cdiag
n393= ..Other:ouvrir_color Other 3 %tombre %cinfo ombre %cdiag
n394= ..Base:ouvrir_color Base 3 %combre %cbase ombre %clist
n395= ..Info:ouvrir_color Info 3 %combre %cother ombre %clist
n396= ..-
n397= ..Popups:ouvrir_color Popups 3 %cpopupsfond %cpopupstext focus %cpopupsfocus
n398= ..-
n399= ..Edit:ouvrir_color Edit 2 %cdraw %cown
n400= ..Case:ouvrir_color Case 2 %casefond %casetext
n401= ..Bouton:ouvrir_color Bouton 2 %cbtnfond %cbtntext
n402= ..-
n403= ..Fond:ouvrir_color Fond 1 $iif(%cdiag != 15,15,1) %cdiag fond
n404= -
n405=}
n406=on 1:KEYDOWN:*:*:{
n407= if ($window(@co) != $null) { window -c @co | unset %dnamecolor %didcolor %namecolor %othercolor %co }
n408= if (%hpvedit != $null) && ($gettok(%hpvedit,1,32) <= 4) && ($window(@chpv) != $null) {
n409= if ($keyval == 17) { set %hpvctrl on | halt }
n410= if ($keyval == 9) || ($keyval == 13) { halt }
n411= if ($keyval == 18) { unset %hpvctrl | halt }
n412= if (%hpvctrl != $null) {
n413= if ($keyval == 66) { var %keychar =  | goto keychar }
n414= elseif ($keyval == 82) { var %keychar =  | goto keychar }
n415= elseif ($keyval == 85) { var %keychar = ­ | goto keychar }
n416= elseif ($keyval == 79) { var %keychar =  | goto keychar }
n417= elseif ($keyval == 75) { ouvrir_color Cancel 1 %cdraw %cown | var %keychar =  | unset %hpvctrl | goto keychar }
n418= halt
n419= }
n420= if ($keychar == `) && (%keyaccent == $null) { set %keyaccent 192 | unset %keyshift | halt }
n421= elseif ($keychar == ^) && (%keyaccent == $null) { set %keyaccent 219 | unset %keyshift | halt }
n422= elseif ($keyval == 16) { set %keyshift ok | halt }
n423= elseif ($keychar == ¨) && (%keyaccent == $null) && (%keyshift != $null) { set %keyaccent -221- | unset %keyshift | halt }
n424= elseif ($keychar == ¸) && (%keyaccent == $null) { set %keyaccent 221 | unset %keyshift | halt }
n425= elseif (%keyaccent != $null) {
n426= if (%keyaccent == 192) { if ($keychar == a) { var %keychar = $iif(%keyshift != $null,À,à) | unset %keyshift } | elseif ($keychar == e) { var %keychar = $iif(%keyshift != $null,È,è) | unset %keyshift } | elseif ($keychar == i) { var %keychar = $iif(%keyshift != $null,Ì,ì) | unset %keyshift } | elseif ($keychar == o) { var %keychar = $iif(%keyshift != $null,Ò,ò) | unset %keyshift } | elseif ($keychar == u) { var %keychar = $iif(%keyshift != $null,Ù,ù) | unset %keyshift } | elseif ($keychar == y) { var %keychar = $iif(%keyshift != $null,Ý,ý) | unset %keyshift } | else { var %keychar = ` $+ $keychar | unset %keyshift } }
n427= elseif (%keyaccent == 219) { if ($keychar == a) { var %keychar = $iif(%keyshift != $null,Â,â) | unset %keyshift } | elseif ($keychar == e) { var %keychar = $iif(%keyshift != $null,Ê,ê) | unset %keyshift } | elseif ($keychar == i) { var %keychar = $iif(%keyshift != $null,Î,î) | unset %keyshift } | elseif ($keychar == o) { var %keychar = $iif(%keyshift != $null,Ô,ô) | unset %keyshift } | elseif ($keychar == u) { var %keychar = $iif(%keyshift != $null,Û,û) | unset %keyshift } | else { var %keychar = ^ $+ $keychar | unset %keyshift } }
n428= elseif (%keyaccent == -221-) { if ($keychar == a) { var %keychar = $iif(%keyshift != $null,Ä,ä) | unset %keyshift } | elseif ($keychar == e) { var %keychar = $iif(%keyshift != $null,Ë,ë) | unset %keyshift } | elseif ($keychar == i) { var %keychar = $iif(%keyshift != $null,Ï,ï) | unset %keyshift } | elseif ($keychar == o) { var %keychar = $iif(%keyshift != $null,Ö,ö) | unset %keyshift } | elseif ($keychar == u) { var %keychar = $iif(%keyshift != $null,Ü,ü) | unset %keyshift } | elseif ($keychar == y) { var %keychar = ÿ | unset %keyshift } | else { var %keychar = ¨ $+ $keychar | unset %keyshift } }
n429= elseif (%keyaccent == 221) { if ($keychar == c) { var %keychar = $iif(%keyshift != $null,Ç,ç) | unset %keyshift } | else { var %keychar = ¸ $+ $keychar | unset %keyshift } }
n430= unset %keyaccent
n431= }
n432= else { var %keychar = $keychar | unset %keyshift }
n433= :keychar
n434= if ($keyval == 8) && ([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] != $null) {
n435= if (%hpvfoc == $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) && ([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] != $null) && (%hpvfoc != 0) { set % [ $+ [ $gettok(%hpvedit,2,32) ] ] $left([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc($len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ]) - 1)) | set %hpvfoc $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ]) | drawrect -f @chpv %cdraw 1 21 $calc($gettok(%hpvedit,3,32) - 1) 303 17
n436= if (%focuspoint == $null) || (%focuspoint == 0) { if ($len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ]) != 0) { drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬) } | set %focusposition $calc($iif($calc($width($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),tahoma,11) + 25) >= 319,319,$calc($width($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),tahoma,11) + 25)) - 1) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n437= else { dec %focuspoint | var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1) | drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n438= }
n439= elseif ([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] != $null) && (%hpvfoc != 0) {
n440= if (%hpvfoc == 1) { set % [ $+ [ $gettok(%hpvedit,2,32) ] ] $right([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc($len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ]) - 1)) | set %hpvfoc 0 | drawrect -f @chpv %cdraw 1 21 $calc($gettok(%hpvedit,3,32) - 1) 303 17 | drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬) | set %focusposition 23 | drawline @chpv %cown 1 23 $gettok(%hpvedit,3,32) 23 $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n441= else { set % [ $+ [ $gettok(%hpvedit,2,32) ] ] $mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],1,$calc(%hpvfoc - 1)) $+ $mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%hpvfoc + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) | dec %hpvfoc | drawrect -f @chpv %cdraw 1 21 $calc($gettok(%hpvedit,3,32) - 1) 303 17
n442= if (%focuspoint == $null) || (%focuspoint == 0) { if ($len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ]) != 0) { drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬) } | var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],1,%hpvfoc),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n443= else { dec %focuspoint | var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$calc(%hpvfoc - %focuspoint)),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1) | drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $calc($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n444= }
n445= }
n446= $gettok(%hpvedit,2,32)
n447= }
n448= elseif ($keyval == 37) && ([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] != $null) { drawrect -f @chpv %cdraw 1 21 $calc($gettok(%hpvedit,3,32) - 1) 303 17
n449= if (%focuspoint == $null) || (%focuspoint == 0) { drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬)
n450= if (%hpvfoc >= 2) { dec %hpvfoc | var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],1,%hpvfoc),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n451= else { set %focusposition 23 | if (%hpvfoc >= 1) { dec %hpvfoc } | drawline @chpv %cown 1 23 $gettok(%hpvedit,3,32) 23 $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n452= }
n453= else {
n454= if ($calc($calc(%hpvfoc + 1) - %focuspoint) >= 1) && (%focusposition > 25) { dec %hpvfoc
n455= if ($calc(%hpvfoc + 1) == $calc(%focuspoint + 1)) { set %focusposition 23 | drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n456= else { var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$calc(%hpvfoc - %focuspoint)),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1) | drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n457= }
n458= elseif ($calc(%focuspoint + 1) == $calc(%hpvfoc + 1)) { dec %focuspoint | dec %hpvfoc | set %focusposition 23 | drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n459= else { dec %focuspoint | if (%hpvfoc >= 1) { dec %hpvfoc } | drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | set %focusposition 23 | drawline @chpv %cown 1 23 $gettok(%hpvedit,3,32) 23 $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n460= }
n461= }
n462= elseif ($keyval == 38) { var %het = $iif($gettok(%hpvedit,1,32) > 1,$calc($gettok(%hpvedit,1,32) - 1),4) | set %hpvedit %het $iif(%het == 1,prevchpvrec,$iif(%het == 2,prevchpvacc,$iif(%het == 3,prevchpvref,prevchpvatt))) $calc($calc(%het * 70) + 20) | set %focuspoint 0 | chpveditrefresh
n463= if (%focusposition <= 27) || ([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] == $null) { set %hpvfoc 0 | set %focusposition 23 | drawline @chpv %cown 1 23 $gettok(%hpvedit,3,32) 23 $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n464= elseif ($calc($iif($calc($width($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),tahoma,11) + 25) >= 319,319,$calc($width($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),tahoma,11) + 25)) - 1) > %focusposition) { drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n465= else { set %hpvfoc $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ]) | set %focusposition $calc($iif($calc($width($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),tahoma,11) + 25) >= 319,319,$calc($width($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),tahoma,11) + 25)) - 1) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n466= }
n467= elseif ($keyval == 39) && ([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] != $null) {
n468= if (%hpvfoc < $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) { drawrect -f @chpv %cdraw 1 21 $calc($gettok(%hpvedit,3,32) - 1) 303 17
n469= if (%focuspoint != $null) && (%focuspoint != 0) { inc %hpvfoc | :rightfocus2 | inc %focuspoint | var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$calc(%hpvfoc - %focuspoint)),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1)
n470= if (%focusposition > 316) { if ($width(%focustext,tahoma,11) > 291) { goto rightfocus2 } | drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],%focuspoint,$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n471= else { drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n472= }
n473= else { inc %hpvfoc | set %focusposition $calc($iif($calc($width($mid($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),$calc(%focuspoint + 1),%hpvfoc),tahoma,11) + 25) >= 319,319,$calc($width($mid($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),$calc(%focuspoint + 1),%hpvfoc),tahoma,11) + 25)) - 1)
n474= if (%focusposition > 316) { :rightfocus1 | inc %focuspoint | var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$calc(%hpvfoc - %focuspoint)),,¬,,¬,­,¬,,¬,,¬) | if ($width(%focustext,tahoma,11) > 291) { goto rightfocus1 } | drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) -1) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n475= else { var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],1,%hpvfoc),,¬,,¬,­,¬,,¬,,¬) | drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n476= }
n477= }
n478= }
n479= elseif ($keyval == 40) { var %het = $iif($gettok(%hpvedit,1,32) < 4,$calc($gettok(%hpvedit,1,32) + 1),1) | set %hpvedit %het $iif(%het == 1,prevchpvrec,$iif(%het == 2,prevchpvacc,$iif(%het == 3,prevchpvref,prevchpvatt))) $calc($calc(%het * 70) + 20) | set %focuspoint 0 | chpveditrefresh
n480= if (%focusposition <= 27) || ([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] == $null) { set %hpvfoc 0 | set %focusposition 23 | drawline @chpv %cown 1 23 $gettok(%hpvedit,3,32) 23 $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n481= elseif ($calc($iif($calc($width($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),tahoma,11) + 25) >= 319,319,$calc($width($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),tahoma,11) + 25)) - 1) > %focusposition) { drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n482= else { set %hpvfoc $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ]) | set %focusposition $calc($iif($calc($width($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),tahoma,11) + 25) >= 319,319,$calc($width($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),tahoma,11) + 25)) - 1) | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n483= }
n484= elseif ($keyval != 8) && ($keyval != 37) && ($keyval != 39) { hpvadd $replace(%keychar,$chr(32),$chr(160)) }
n485= }
n486=}
n487=on 1:KEYUP:@chpv:*:{
n488= if ($keyval == 17) { unset %hpvctrl }
n489=}
n490=alias picfocus {
n491= if ($window(@chpv) != $null) && (%focusposition != $null) && ($gettok(%hpvedit,3,32) != $null) {
n492= if (%focus != $null) { drawline @chpv %cdraw 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | unset %focus | drawdot @chpv }
n493= else { drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | drawdot @chpv }
n494= }
n495= else { .timerfocus off | unset %hpvedit }
n496=}
n497=alias hpvadd {
n498= if (%hpvedit != $null) { var %keychar = $1-
n499= if (%hpvfoc == $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) { set % [ $+ [ $gettok(%hpvedit,2,32) ] ] [ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] $+ $replace(%keychar,$chr(32),$chr(160)) | set %hpvfoc $len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ]) | drawrect -f @chpv %cdraw 1 21 $calc($gettok(%hpvedit,3,32) - 1) 303 17 | set %focusposition $calc($iif($calc($width($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),tahoma,11) + 25) >= 319,319,$calc($width($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),tahoma,11) + 25)) - 1)
n500= if (%focusposition >= 316) { :incfocus | inc %focuspoint | var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | if ($width(%focustext,tahoma,11) > 291) { goto incfocus } | drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 %focustext | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1) }
n501= else { drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬) | unset %focuspoint }
n502= drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus
n503= }
n504= elseif (%hpvfoc == 0) { set % [ $+ [ $gettok(%hpvedit,2,32) ] ] $replace(%keychar,$chr(32),$chr(160)) $+ [ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ] | set %hpvfoc 1 | drawrect -f @chpv %cdraw 1 21 $calc($gettok(%hpvedit,3,32) - 1) 303 17 | set %focusposition $calc($calc($width($left($replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬),1),tahoma,11) + 25) - 1) | drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],,¬,,¬,­,¬,,¬,,¬) | unset %focuspoint | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus }
n505= else { set % [ $+ [ $gettok(%hpvedit,2,32) ] ] $mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],1,%hpvfoc) $+ $replace(%keychar,$chr(32),$chr(160)) $+ $mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%hpvfoc + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])) | inc %hpvfoc | drawrect -f @chpv %cdraw 1 21 $calc($gettok(%hpvedit,3,32) - 1) 303 17 | var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc($iif(%focuspoint == $null,0,%focuspoint) + 1),%hpvfoc),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1)
n506= if (%focusposition >= 316) { :incfocus2 | inc %focuspoint | var %focustext = $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$calc(%hpvfoc - %focuspoint)),,¬,,¬,­,¬,,¬,,¬) | if ($width(%focustext,tahoma,11) > 291) { goto incfocus2 } | drawtext -bc @chpv %cown %cdraw tahoma 11 25 90 291 15 $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc(%focuspoint + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | set %focusposition $calc($iif($calc($width(%focustext,tahoma,11) + 25) >= 319,319,$calc($width(%focustext,tahoma,11) + 25)) - 1) }
n507= else { drawtext -bc @chpv %cown %cdraw tahoma 11 25 $gettok(%hpvedit,3,32) 291 15 $replace($mid([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ],$calc($iif(%focuspoint == $null,0,%focuspoint) + 1),$len([ % [ $+ [ $gettok(%hpvedit,2,32) ] ] ])),,¬,,¬,­,¬,,¬,,¬) | unset %focuspoint }
n508= drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus
n509= }
n510= $gettok(%hpvedit,2,32)
n511= }
n512=}
n513=alias prevchpvrec { drawrect -f @chpv $color(background) 1 19 67 354 17 | if (%prevchpvrec != $null) { drawtext -bcp @chpv $color(own) $color(background) tahoma 11 23 68 346 15 $replace(%prevchpvrec,&me,$me,&nick,Rodrigue) } }
n514=alias prevchpvacc { drawrect -f @chpv $color(background) 1 19 137 354 17 | if (%prevchpvacc != $null) { drawtext -bcp @chpv $color(own) $color(background) tahoma 11 23 138 346 15 $replace(%prevchpvacc,&me,$me,&nick,Rodrigue) } }
n515=alias prevchpvref { drawrect -f @chpv $color(background) 1 19 207 354 17 | if (%prevchpvref != $null) { drawtext -bcp @chpv $color(own) $color(background) tahoma 11 23 208 346 15 $replace(%prevchpvref,&me,$me,&nick,Rodrigue) } }
n516=alias prevchpvatt { drawrect -f @chpv $color(background) 1 19 277 354 17 | if (%prevchpvatt != $null) { drawtext -bcp @chpv $color(own) $color(background) tahoma 11 23 278 346 15 $replace(%prevchpvatt,&me,$me,&nick,Rodrigue) } }
n517=alias hpvbackrefresh { if ($window(@chpv) != $null) { clear @chpv | picchpv } | if ($window(@hpv) != $null) { clear @hpv | pichpv } }
n518=alias chpveditrefresh { drawrect -f @chpv %cdraw 1 21 89 303 17 | drawrect -f @chpv %cdraw 1 21 159 303 17 | drawrect -f @chpv %cdraw 1 21 229 303 17 | drawrect -f @chpv %cdraw 1 21 299 303 17
n519= if (%prevchpvrec != $null) { drawtext -bc @chpv %cown %cdraw tahoma 11 25 90 291 15 $replace(%prevchpvrec,,¬,,¬,­,¬,,¬,,¬) }
n520= if (%prevchpvacc != $null) { drawtext -bc @chpv %cown %cdraw tahoma 11 25 160 291 15 $replace(%prevchpvacc,,¬,,¬,­,¬,,¬,,¬) }
n521= if (%prevchpvref != $null) { drawtext -bc @chpv %cown %cdraw tahoma 11 25 230 291 15 $replace(%prevchpvref,,¬,,¬,­,¬,,¬,,¬) }
n522= if (%prevchpvatt != $null) { drawtext -bc @chpv %cown %cdraw tahoma 11 25 300 291 15 $replace(%prevchpvatt,,¬,,¬,­,¬,,¬,,¬) }
n523=}
n524=alias chpvpopups { if (%hpvedit != $null) { var %dx = $mouse.dx | var %dy = $mouse.dy | window -apdChk +deL @pop $calc(%dx - 71) $calc(%dy - 1) 124 201 | unset %numpopups | picpopups } }
n525=alias picpopups { clear @pop
n526= drawfill @pop $iif(%cpopupsfond != $null,%cpopupsfond,0) 1 0 0
n527= drawrect @pop 1 1 0 0 123 200
n528= if (%numpopups != $null) && (%numpopups == 1) { drawrect -f @pop $iif(%cpopupsfocus != $null,%cpopupsfocus,2) 1 5 4 113 17 }
n529= drawtext -n @pop $iif(%cpopupstext != $null,%cpopupstext,1) tahoma 11 15 5 Défault
n530= drawline @pop $iif(%cpopupstext != $null,%cpopupstext,1) 1 5 25 118 25
n531= if (%numpopups != $null) && (%numpopups == 2) { drawrect -f @pop $iif(%cpopupsfocus != $null,%cpopupsfocus,2) 1 5 31 113 17 }
n532= drawtext -n @pop $iif(%cpopupstext != $null,%cpopupstext,1) tahoma 11 15 32 Couper Tout
n533= if (%numpopups != $null) && (%numpopups == 3) { drawrect -f @pop $iif(%cpopupsfocus != $null,%cpopupsfocus,2) 1 5 47 113 17 }
n534= drawtext -n @pop $iif(%cpopupstext != $null,%cpopupstext,1) tahoma 11 15 48 Copier Tout
n535= if (%numpopups != $null) && (%numpopups == 4) { drawrect -f @pop $iif(%cpopupsfocus != $null,%cpopupsfocus,2) 1 5 63 113 17 }
n536= drawtext -n @pop $iif(%cpopupstext != $null,%cpopupstext,1) tahoma 11 15 64 Coller
n537= if (%numpopups != $null) && (%numpopups == 5) { drawrect -f @pop $iif(%cpopupsfocus != $null,%cpopupsfocus,2) 1 5 79 113 17 }
n538= drawtext -n @pop $iif(%cpopupstext != $null,%cpopupstext,1) tahoma 11 15 80 Supprimer Tout
n539= drawline @pop $iif(%cpopupstext != $null,%cpopupstext,1) 1 5 100 118 100
n540= if (%numpopups != $null) && (%numpopups == 6) { drawrect -f @pop $iif(%cpopupsfocus != $null,%cpopupsfocus,2) 1 5 106 113 17 }
n541= drawtext -n @pop $iif(%cpopupstext != $null,%cpopupstext,1) tahoma 11 15 107 Add Mon Nick
n542= if (%numpopups != $null) && (%numpopups == 7) { drawrect -f @pop $iif(%cpopupsfocus != $null,%cpopupsfocus,2) 1 5 122 113 17 }
n543= drawtext -n @pop $iif(%cpopupstext != $null,%cpopupstext,1) tahoma 11 15 123 Add Nick Pv
n544= drawline @pop $iif(%cpopupstext != $null,%cpopupstext,1) 1 5 143 118 143
n545= if (%numpopups != $null) && (%numpopups == 8) { drawrect -f @pop $iif(%cpopupsfocus != $null,%cpopupsfocus,2) 1 5 149 113 17 }
n546= drawtext -n @pop $iif(%cpopupstext != $null,%cpopupstext,1) tahoma 11 15 150 Couleur Edit
n547= if (%numpopups != $null) && (%numpopups == 9) { drawrect -f @pop $iif(%cpopupsfocus != $null,%cpopupsfocus,2) 1 5 165 113 17 }
n548= drawtext -n @pop $iif(%cpopupstext != $null,%cpopupstext,1) tahoma 11 15 166 Couleur Text
n549= if (%numpopups != $null) && (%numpopups == 10) { drawrect -f @pop $iif(%cpopupsfocus != $null,%cpopupsfocus,2) 1 5 181 113 17 }
n550= drawtext -n @pop $iif(%cpopupstext != $null,%cpopupstext,1) tahoma 11 15 182 Couleur Popups
n551= drawdot @pop
n552=}
n553=menu @pop {
n554= mouse:{
n555= if $inrect($mouse.x,$mouse.y,5,5,113,17) && (%numpopups != 1) { set %numpopups 1 | picpopups }
n556= if $inrect($mouse.x,$mouse.y,5,32,113,17) && (%numpopups != 2) { set %numpopups 2 | picpopups }
n557= if $inrect($mouse.x,$mouse.y,5,48,113,17) && (%numpopups != 3) { set %numpopups 3 | picpopups }
n558= if $inrect($mouse.x,$mouse.y,5,64,113,17) && (%numpopups != 4) { set %numpopups 4 | picpopups }
n559= if $inrect($mouse.x,$mouse.y,5,80,113,17) && (%numpopups != 5) { set %numpopups 5 | picpopups }
n560= if $inrect($mouse.x,$mouse.y,5,107,113,17) && (%numpopups != 6) { set %numpopups 6 | picpopups }
n561= if $inrect($mouse.x,$mouse.y,5,123,113,17) && (%numpopups != 7) { set %numpopups 7 | picpopups }
n562= if $inrect($mouse.x,$mouse.y,5,150,113,17) && (%numpopups != 8) { set %numpopups 8 | picpopups }
n563= if $inrect($mouse.x,$mouse.y,5,166,113,17) && (%numpopups != 9) { set %numpopups 9 | picpopups }
n564= if $inrect($mouse.x,$mouse.y,5,182,113,17) && (%numpopups != 10) { set %numpopups 10 | picpopups }
n565= }
n566= sclick:{
n567= if ($window(@chpv) != $null) && (%hpvedit != $null) {
n568= if $inrect($mouse.x,$mouse.y,5,5,113,17) {
n569= if ($gettok(%hpvedit,1,32) == 1) { set %prevchpvrec [(­Addon-Auto-Msg)] Système De Vérification De Pv. Wait...... | drawrect -f @chpv %cdraw 1 21 89 303 17 | drawtext -bc @chpv %cown %cdraw tahoma 11 25 90 291 15 $replace(%prevchpvrec,,¬,,¬,­,¬,,¬,,¬) | prevchpvrec }
n570= if ($gettok(%hpvedit,1,32) == 2) { set %prevchpvacc [(­Addon-Auto-Msg)] Demande De Vérification Accepté...... | drawrect -f @chpv %cdraw 1 21 159 303 17 | drawtext -bc @chpv %cown %cdraw tahoma 11 25 160 291 15 $replace(%prevchpvacc,,¬,,¬,­,¬,,¬,,¬) | prevchpvacc }
n571= if ($gettok(%hpvedit,1,32) == 3) { set %prevchpvref [(­Addon-Auto-Msg)] &me Est Dans L'invalidé De Vous Répondre Pour Le Moment...... | drawrect -f @chpv %cdraw 1 21 229 303 17 | drawtext -bc @chpv %cown %cdraw tahoma 11 25 230 291 15 $replace(%prevchpvref,,¬,,¬,­,¬,,¬,,¬) | prevchpvref }
n572= if ($gettok(%hpvedit,1,32) == 4) { set %prevchpvatt [(­Addon-Auto-Msg)] Aucune Réponse De &me $+ ...... | drawrect -f @chpv %cdraw 1 21 299 303 17 | drawtext -bc @chpv %cown %cdraw tahoma 11 25 300 291 15 $replace(%prevchpvatt,,¬,,¬,­,¬,,¬,,¬) | prevchpvatt }
n573= window -c @pop
n574= }
n575= if $inrect($mouse.x,$mouse.y,5,32,113,17) {
n576= if ($gettok(%hpvedit,1,32) == 1) { clipboard %prevchpvrec | unset %prevchpvrec | drawrect -f @chpv %cdraw 1 21 89 303 17 | prevchpvrec }
n577= if ($gettok(%hpvedit,1,32) == 2) { clipboard %prevchpvacc | unset %prevchpvacc | drawrect -f @chpv %cdraw 1 21 159 303 17 | prevchpvacc }
n578= if ($gettok(%hpvedit,1,32) == 3) { clipboard %prevchpvref | unset %prevchpvref | drawrect -f @chpv %cdraw 1 21 229 303 17 | prevchpvref }
n579= if ($gettok(%hpvedit,1,32) == 4) { clipboard %prevchpvatt | unset %prevchpvatt | drawrect -f @chpv %cdraw 1 21 299 303 17 | prevchpvatt }
n580= set %focusposition 23 | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus | window -c @pop
n581= }
n582= if $inrect($mouse.x,$mouse.y,5,48,113,17) { if ($gettok(%hpvedit,1,32) == 1) { clipboard %prevchpvrec } | if ($gettok(%hpvedit,1,32) == 2) { clipboard %prevchpvacc } | if ($gettok(%hpvedit,1,32) == 3) { clipboard %prevchpvref } | if ($gettok(%hpvedit,1,32) == 4) { clipboard %prevchpvatt } | window -c @pop }
n583= if $inrect($mouse.x,$mouse.y,5,64,113,17) { var %ha = 1 | while (%ha <= $len($cb)) { hpvadd $replace($mid($cb,%ha,1),$chr(32),$chr(160)) | inc %ha } | window -c @pop }
n584= if $inrect($mouse.x,$mouse.y,5,80,113,17) {
n585= if ($gettok(%hpvedit,1,32) == 1) { unset %prevchpvrec | drawrect -f @chpv %cdraw 1 21 89 303 17 | prevchpvrec }
n586= if ($gettok(%hpvedit,1,32) == 2) { unset %prevchpvacc | drawrect -f @chpv %cdraw 1 21 159 303 17 | prevchpvacc }
n587= if ($gettok(%hpvedit,1,32) == 3) { unset %prevchpvref | drawrect -f @chpv %cdraw 1 21 229 303 17 | prevchpvref }
n588= if ($gettok(%hpvedit,1,32) == 4) { unset %prevchpvatt | drawrect -f @chpv %cdraw 1 21 299 303 17 | prevchpvatt }
n589= set %focusposition 23 | drawline @chpv %cown 1 %focusposition $gettok(%hpvedit,3,32) %focusposition $calc($gettok(%hpvedit,3,32) + 15) | set %focus ok | .timerfocus -m 0 500 picfocus | window -c @pop
n590= }
n591= if $inrect($mouse.x,$mouse.y,5,107,113,17) { hpvadd & | hpvadd m | hpvadd e | window -c @pop }
n592= if $inrect($mouse.x,$mouse.y,5,123,113,17) { hpvadd & | hpvadd n | hpvadd i | hpvadd c | hpvadd k | window -c @pop }
n593= if $inrect($mouse.x,$mouse.y,5,150,113,17) { ouvrir_color Edit 2 %cdraw %cown | window -c @pop }
n594= if $inrect($mouse.x,$mouse.y,5,166,113,17) { ouvrir_color Cancel 1 %cdraw %cown | hpvadd  | window -c @pop }
n595= if $inrect($mouse.x,$mouse.y,5,182,113,17) { ouvrir_color Popups 3 %cpopupsfond %cpopupstext focus %cpopupsfocus | window -c @pop }
n596= }
n597= }
n598= leave:window -c @pop
n599=}