Away siestement util

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 742 fois - Téléchargée 26 fois

Contenu du snippet

il est un tres bon sitem daway mes ami voules en navoir un mes tk en voici un bon et selui qui la vresment cree ces ScripTage

Source / Exemple :


on *:load: { 
 /echo -s Merci davoir downloadder le away sistem par ScripTage
 /echo -s et du server Undernet 
}
dialog aconf {
  option dbu
  size -1 -1 200 132
  title "Away System"
  tab "Control",500,2 0 196 119
  tab "Away's Nicks",501
  tab "Pager Control",504
  tab "Message",502
  tab "Message [2]",503
  button "Close",1,2 121 60 10,ok
  box "Configuration du systeme away",2,10 15 180 90,tab 500
  check "Pager",3, 25 38 60 12,tab 500
  check "Activer le logger pour les channels",5,25 48 90 12,tab 500
  check "Activer le logger pour les privates",6,25 58 90 12,tab 500
  check "Avertir les channels de votre abscsence/retour",7,25 68 120 10,tab 500
  check "Avertir vos privates de votre abscence/retour",8,25 78 120 10,tab 500
  check "Avertir toutes les ",9,25 88 50 12,tab 500
  edit "",10,77 88 18 10,tab 500
  text "minutes que vous êtes away",11,97 91 78 12,tab 500
  check "Auto Away après",12,25 28 50 10,tab 500
  edit "",13,77 26 18 10,tab 500
  text "minutes d'inactivité",14,98 29 64 10,tab 500
  box "Configuration du nick / prefixes / suffixes away",15,20 20 160 55,tab 501
  radio "suffixe",16,35 30 30 12,tab 501
  radio "préfixe",17,80 30 30 12,tab 501
  radio "nick complet",18,125 30 50 12,tab 501
  text "Entrer un su/préfixe ou un nick complet ",19,53 64 100 10,tab 501
  edit "",20,55 47 90 10,tab 501
  box "Raisons par défaut de votre AWAY/BACK" ,21,5 17 130 57,tab 502
  text "Message quand vous vous mettez away",22,10 27 100 10,tab 502
  edit "",23,10 37 120 10,tab 502
  text "Message quand vous revenez d'une abscence",24,10 49 120 10,tab 502
  edit "",25,10 59 120 10,tab 502
  box "",26,5 73 130 40,tab 502
  check "Ajouter l'heure/durée de votre away au message",27,8 78 124 12,tab 502
  box "Style Messages",29,138 16 59 97,tab 502
  radio "normal",30,140 25 30 9,tab 502
  radio "Gras / Souligné",31,140 37 50 9,tab 502
  radio "Maj / Minuscules",32,140 49 50 9,tab 502
  radio "Souligné",33,140 61 40 9,tab 502
  radio "Gras",34,140 73 20 9,tab 502
  radio "Coloré",35,140 85 40 9,tab 502
  combo 36,142 95 52 70,drop,tab 502
  radio "lamer",37,170 73 24 9,tab 502
  check "Afficher si les loggers sont activés",42,8 89 124 12,tab 502
  check "Afficher si le pager est activé",43,8 100 124 12,tab 502
  box "Personnaliser l'affichage du Message Away",44,5 17 190 87,tab 503
  text "Complete -1- ( away ) ",45,10 24 30 18,tab 503,center
  edit "",46,45 25 40 12,tab 503,autohs
  text "Complete -1- ( back )",47,115 24 30 18,tab 503,center
  edit "",48,150 25 39 12,tab 503,autohs
  box "",49,5 39 190 3,tab 503
  text "Prefixe Heure/Durée",50,10 46 35 18,center,tab 503
  text "Suffixe Heure/Durée",51,110 46 35 18,center ,tab 503
  edit "",52,50 47 40 12,tab 503,autohs
  edit "",53,150 47 40 12,tab 503,autohs
  box "",54,5 60 190 3,tab 503
  text "Prefixe Log/Pager",55,10 68 35 18,center,tab 503
  text "Suffixe Log/Pager",56,110 68 35 18,center ,tab 503
  edit "",57,50 67 40 12,tab 503,autohs
  edit "",58,150 67 40 12,tab 503,autohs
  box "",63,5 82 190 3 ,tab 503
  text "Prefixe Raison",59,10 92 35 8,center,tab 503
  text "Suffixe Raison",60,110 92 35 8,center ,tab 503
  edit "",61,50 89 40 12,tab 503,autohs
  edit "",62,150 89 40 12,tab 503,autohs
  button "Prévisualisation",64,135 106 60 10,tab 503
  box "Pager",69,5 20 190 55,tab 504
  text "Limiter à",71, 50 32 20 9,tab 504
  edit "",72,73 30 15 10,tab 504
  text "pages maximum par personne",73,91 32 70 9,tab 504
  text "Message de confirmation:",74,10 46 62 9,tab 504
  edit "",75,75 44 115 10,autohs,tab 504
  button "Derniers Pages reçus",76,45 62 120 8,tab 504
  combo 78,5 106 80 50,drop,tab 503,center
  text "Une personne souhaitant vous envoyer un page devra taper /ctcp votre_nick page le_message",79,20 80 150 17,center,tab 504
  check "Mettre cette info dans votre message d'away",80,35 97 120 10,tab 504
}
on *:dialog:aconf:sclick:80:{ var %? = $iif($did($dname,$did).state == 1,on,off) | writeini system.ini away pager_help %? }
on *:dialog:aconf:sclick:78:{
  var %l = $did($dname,$did).sel
  if %l == 1 { return }
  if %l == 2 { away.style.fun1 }
  if %l == 3 { away.style.fun2 }
  if %l == 4 { away.style.clas1 }
  if %l == 5 { away.style.clas2 }
  if %l == 6 { away.style.dead }
}
alias aconf { dialog -m aconf aconf }
on *:dialog:aconf:init:0:{
  if $readini system.ini away pager_help == on { did -c $dname 80 }
  combo.color $dname 36
  did -a $dname 78 ----------------- Styles -----------------
  did -a $dname 78 Fun [1] 
  did -a $dname 78 Fun [2]
  did -a $dname 78 Classik [1]
  did -a $dname 78 Classik [2]
  did -a $dname 78 Dead-Time
  did -c $dname 78 1
  if $readini system.ini away away.nicksys == su { did -c $dname 16 | did -a $dname 20 $readini system.ini away  away.suffixe }
  if $readini system.ini away away.nicksys == pre { did -c $dname 17 | did -a $dname 20 $readini system.ini away away.prefixe }
  if $readini system.ini away away.nicksys == nick { did -c $dname 18 | did -a $dname 20 $readini system.ini away away.nick }
  if $readini system.ini away pager.private == on did -c $dname 3
  if $readini system.ini away log.chan == on did -c $dname 5 
  if $readini system.ini away log.priv == on did -c $dname 6
  if $readini system.ini away avert.chan == on did -c $dname 7
  if $readini system.ini away avert.priv == on did -c $dname 8
  if $readini system.ini away away.avert == on  { did -c $dname 9 }
  did -a $dname 10 $gettok( [ $readini system.ini away away.avert.time ] ,1 ,46)  
  if $readini system.ini away away.after == on { did -c $dname 12 }
  did -a $dname 13 $gettok( [ $readini system.ini away away.after.time ] ,1,46)
  did -a $dname 23 $readini system.ini away away.msg.come
  did -a $dname 25 $readini system.ini away away.msg.back
  if $readini system.ini away msg.duree == on did -c $dname 27
  if $readini system.ini away msg.log == on did -c $dname 42
  if $readini system.ini away msg.page == on did -c $dname 43
  did -a $dname 46 %away.msg.complete.away
  did -a $dname 48 %away.msg.complete.back
  did -a $dname 52 %away.msg.prefixe.heure
  did -a $dname 53 %away.msg.suffixe.heure
  did -a $dname 57 %away.msg.prefixe.logpage
  did -a $dname 58 %away.msg.suffixe.logpage
  did -a $dname 61 %away.msg.prefixe.reason
  did -a $dname 62 %away.msg.suffixe.reason
  if $readini system.ini away msg.type == aucun { did -c $dname 30 }
  if $readini system.ini away msg.type == GS12_22 { did -c $dname 31 }
  if $readini system.ini away msg.type == MN12_22 { did -c $dname 32 }
  if $readini system.ini away msg.type == souligne { did -c $dname 33 }
  if $readini system.ini away msg.type == gras { did -c $dname 34 }
  if $readini system.ini away msg.type == coloraway { did -c $dname 35  | did -c $dname 36 $calc( [ $readini system.ini away msg.type2 ] + 1 ) }
  if $readini system.ini away msg.type == lamerz { did -c $dname 37 }
  var %? = $readini system.ini away pager_confirm 
  var %? = $remasctocod(%?)
  did -ra $dname 75 %?
  did -ra $dname 72 $readini system.ini away pager_max
}
on *:dialog:aconf:sclick:*:{
  if $did ==  1 { play.snd_close }
  if $did == 16 { did -ra $dname 20 $readini system.ini away  away.suffixe 
  if $did(16).state == 1 { writeini system.ini away away.nicksys su } }
  if $did == 17 { did -ra $dname 20 $readini system.ini away  away.prefixe
  if $did(17).state == 1  { writeini system.ini away away.nicksys pre } }
  if $did == 18 { did -ra $dname 20 $readini system.ini away  away.nick
  if $did(18).state == 1  { writeini system.ini away away.nicksys nick } }
  if $did == 3 { if $did(3).state == 1 { writeini system.ini away pager.private  on } 
  else { writeini system.ini away pager.private off  } }
  if $did == 5 { if $did(5).state == 1 { writeini system.ini away log.chan on } 
  else { writeini system.ini away log.chan off  } }
  if $did == 6 { if $did(6).state == 1 { writeini system.ini away log.priv  on } 
  else { writeini system.ini away log.priv off  } }
  if $did == 7 { if $did(7).state == 1 { writeini system.ini away avert.chan  on } 
  else { writeini system.ini away avert.chan off  } }
  if $did == 8 { if $did(8).state == 1 { writeini system.ini away avert.priv  on } 
  else { writeini system.ini away avert.priv off  } }
  if $did == 9 { if $did(9).state == 1 && $did(10) isnum { writeini system.ini away away.avert on | writeini system.ini away away.avert.time . $+ $did(10) }
  else { writeini system.ini away away.avert off | did -u $dname 9 } }
  if $did == 12 { if $did(12).state == 1 && $did(13) isnum  { writeini system.ini away away.after  on | writeini system.ini away away.after.time . $+ $did(13) | checkidle }
  else { writeini system.ini away away.after off  | did -u $dname 12 | .timeridle off } }
  if $did == 27 { 
    if $did(27).state == 1 { writeini system.ini away msg.duree on }
    else { writeini system.ini away msg.duree off }
  }
  if $did == 42 { 
    if $did(42).state == 1 { writeini system.ini away msg.log on }
    else { writeini system.ini away msg.log off }
  }
  if $did == 43 { 
    if $did(43).state == 1 { writeini system.ini away msg.page on }
    else { writeini system.ini away msg.page off }
  }
  if $did == 64 { if $window(@prev_away) { window -c @prev_away } | else prev.away } 
  if $did == 30 { writeini system.ini away msg.type aucun }
  if $did == 31 { writeini system.ini away msg.type GS12_22 }
  if $did == 32 { writeini system.ini away msg.type MN12_22 }
  if $did == 33 { writeini system.ini away msg.type souligne }
  if $did == 34 { writeini system.ini away msg.type gras }
  if $did == 35 { 
    var %sel = $calc( $did($dname,36).sel - 1)
    if %sel == -1 { writeini system.ini away msg.type aucun | return }
    if %sel <= 9 { var %sel = 0 $+ %sel }
    writeini system.ini away msg.type coloraway
    writeini system.ini away msg.type2 %sel
  }
  if $did == 36 && $did($dname,35).state == 1 { 
    var %sel = $calc( $did($dname,36).sel - 1)
    if %sel <= 9 { var %sel = 0 $+ %sel }
    writeini system.ini away msg.type coloraway
    writeini system.ini away msg.type2 %sel
  }
  if $did == 37 { writeini system.ini away msg.type lamerz }
  if $did == 76 { pagerview }
}
on *:dialog:aconf:edit:*:{
  if $did == 10 { 
    if $did(10) !isnum && $did(9).state == 1 { did -u $dname 9 | writeini system.ini away away.avert off }
    if $did(10) isnum { writeini system.ini away away.avert.time . $+ $did(10) }
    else { writeini system.ini away away.avert.time . } 
  }
  if $did == 13 { 
    if $did(13) !isnum && $did(12).state == 1 { did -u $dname 12 | writeini system.ini away away.after off }
    if $did(13) isnum { writeini system.ini away away.after.time . $+ $did(13) }
    else { writeini system.ini away away.after.time . } 
  }
  if $did == 20 {
    if $did(16).state == 1 {
      if $did(20) != $null { writeini system.ini away away.suffixe $ifmatch }
      else { writeini system.ini away away.suffixe _away }
    }
    if $did(17).state == 1 {
      if $did(20) != $null { writeini system.ini away away.prefixe $ifmatch }
      else { writeini system.ini away away.prefixe away_ }
    }
    if $did(18).state == 1 {
      if $did(20) != $null { writeini system.ini away away.nick $ifmatch }
      else { writeini system.ini away away.nick PasLa }
    }
  }
  if $did == 23 {
    if $did(23) != $null { writeini system.ini away away.msg.come $ifmatch }
    else { writeini system.ini away away.msg.come no reason }
  }
  if $did == 25 {
    if $did(25) != $null { writeini system.ini away away.msg.back $ifmatch }
    else { writeini system.ini away away.msg.back no reason }
  }
  if $did == 46 {
    if $did(46) != $null { set %away.msg.complete.away $ifmatch }
    else { set %away.msg.complete.away [:]away[:] }
  }
  if $did == 48 {
    if $did(48) != $null { set %away.msg.complete.back $ifmatch }
    else { set %away.msg.complete.back [:]back[:] }
  }

  if $did == 52 {
    if $did(52) != $null { set %away.msg.prefixe.heure $ifmatch }
    else { set %away.msg.prefixe.heure ( }
  }
  if $did == 53 {
    if $did(53) != $null { set %away.msg.suffixe.heure $ifmatch }
    else { set  %away.msg.suffixe.heure ) }
  }
  if $did == 57 {
    if $did(57) != $null { set %away.msg.prefixe.logpage $ifmatch }
    else { set %away.msg.prefixe.logpage [: }
  }
  if $did == 58 {
    if $did(58) != $null { set %away.msg.suffixe.logpage $ifmatch }
    else { set %away.msg.suffixe.logpage :] }
  }
  if $did == 61 {
    if $did(61) != $null { set %away.msg.prefixe.reason $ifmatch }
    else { set %away.msg.prefixe.reason ( }
  }
  if $did == 62 {
    if $did(62) != $null { set %away.msg.suffixe.reason $ifmatch }
    else { set %away.msg.suffixe.reason ) }
  }
  if $did == 75 {
    var %? = $did($dname,75) 
    if %? == $null { var %? = Page Reçu !! }
    remcodtoasc system.ini away pager_confirm %?
  }
  if $did == 72 {
    var %? = $did($dname,72)
    if %? == $null || %? < 0 { var %? = 0 }
    writeini system.ini away pager_max %?
  }
}
alias prev.away {
  window -akp +b @prev_away 80 370 490 80
  set -u %1 %away.msg.complete.away
  set -u %3 %away.msg.suffixe.heure
  set -u %2 %away.msg.prefixe.heure
  set -u %5 %away.msg.suffixe.logpage
  set -u %4 %away.msg.prefixe.logpage
  set -u %6  %away.msg.prefixe.reason
  set -u %7  %away.msg.suffixe.reason

  set -u %mess  %6 je suis parti scripté %7 %2 15:56:47 %3 %4 Log:on \ Pager:off %5 
  drawtext -pr @prev_away $rgb(0,0,0) "Arial" 15 10 25 13*delaw %1  %mess
}
menu @prev_away { 
  -=close=-:/window -c @prev_away 
}
;---- - - - - - - - - - - -  - - - - - -- - - -  TOOLBAR --- - - - -  - --  --   --
dialog dtool {
  option dbu
  size -1 -1 200 100
  title "ToolBar Configuration for LawSide "
  button "Close",1,148 89 50 10,ok
  box "List",2,2 2 60 85
  box "Propriétés",3,65 2 133 85
  list 4,4 10 55 70
  button "Add",5,4 75 27 9
  button "Del",6,32 75 27 9
  text "Commande:",7,70 14 30 10
  edit "",8,100 12 90 11
  button "...........",9,165 24 25 7
  box "Image",10,80 30 45 45 
  button "change",11,80 76 45 9
  icon 12,82 35 40 40,
  radio "Activer",13,135 40 40 8
  radio "Désactiver",14,135 52 40 8
  button "Aide",15,135 65 40 10
  link "LawSide by delaw",16,4 89 120 14
}
on *:dialog:dtool:sclick:9:{ allcom }
on *:dialog:dtool:sclick:16:{ delawinfo }
dialog aide_toolbar {
  size -1 -1 180 90
  title "Aide"
  button "",1,158 79 20 10,ok
  text "Configurer la toolbar à votre guise ! Ajouter un nouvel élément en lui attribuant un nom ( sans espace ) ,une image au fomat bmp de taille 40x40, et une commande !",2,5 5 170 70
}

on *:dialog:dtool:sclick:15:{ dialog -m aide_toolbar aide_toolbar } 
on *:dialog:dtool:sclick:1:{ play.snd_close }
alias dtool { dialog -m dtool dtool }
alias tool.create_emp {
  var %x = $1
  var %y = $2
  var %n = $chr(64) $+ $3
  var %p =  $4-
  window -pk +be %n %x %y  45 45
  window -h %n
  window -a %n
  drawpic %n 0 0 $4-
}

on *:dialog:dtool:init:0:{
  var %i = 1
  while $ini(scriptsys\toolbar.ini,%i) != $null { did -a $dname 4 $ini(scriptsys\toolbar.ini,%i) | inc %i 1 }
}
on *:dialog:dtool:sclick:4:{
  var %? = $did($dname,4,$did($dname,4).sel).text
  if %? == $null { return }
  did -ra $dname 8 $readini scriptsys\toolbar.ini %? commande
  did -g $dname 12 $shortfn( [ $readini scriptsys\toolbar.ini %? image ] )
  if $readini scriptsys\toolbar.ini %? status == on { did -c $dname 13 }
  else { did -c $dname 14 }
}
alias tool.vide { echo2 -s $t.error Aucune commande configurée ! }
on *:dialog:dtool:edit:8:{
  var %? = $did($dname,4,$did($dname,4).sel).text
  if %? == $null { return }
  var %c = $did($dname,8).text
  if %c == $null { writeini scriptsys\toolbar.ini %? commande tool.vide }
  else { writeini scriptsys\toolbar.ini %? commande %c }
}

on *:dialog:dtool:sclick:11:{ .timer 1 0 tool.change.image }
alias tool.change.image {
  var %? = $did(dtool,4,$did(dtool,4).sel).text
  if %? == $null { return }
  var %i = $file="Sélection d'une image bmp de taille 40x40" $mircdir
  if %i == $null { return }
  writeini scriptsys\toolbar.ini %? image %i
  did -g dtool 12 $shortfn(%i)
}

alias tool.add {
  var %name = $?="Entrez le nom du nouveau button"
  if %name == $null { return }
  var %name = $rem_space(%name)
  var %i = $file="Sélection d'une image bmp de taille 40x40" $mircdir
  if %i == $null { var %i = $mircdirimages\1.bmp }
  writeini scriptsys\toolbar.ini %name image %i
  writeini scriptsys\toolbar.ini %name status  on
  writeini scriptsys\toolbar.ini %name commande /tool.vide
  did -g dtool 12 $shortfn(%i)
  did -a dtool 4 %name
  dic -c dtool 4 $did(dtool,4).lines
}
on *:dialog:dtool:sclick:13:{ 
  var %? = $did(dtool,4,$did(dtool,4).sel).text
  if %? == $null { return }
  writeini scriptsys\toolbar.ini %? status  on
}
on *:dialog:dtool:sclick:14:{ 
  var %? = $did(dtool,4,$did(dtool,4).sel).text
  if %? == $null { return }
  writeini scriptsys\toolbar.ini %? status  off
}
on *:dialog:dtool:sclick:5:{ .timer 1 0 tool.add }
on *:dialog:dtool:sclick:6:{
  var %? = $did(dtool,4,$did(dtool,4).sel).text
  if %? == $null { return }
  remini scriptsys\toolbar.ini %? 
  did -r $dname 8
  did -d $dname 4 $did($dname,4).sel
}

alias open_tool {
  var %i = 1
  var %x = 20
  var %y = 300
  while $ini(scriptsys\toolbar.ini,%i) != $null {
    if $readini scriptsys\toolbar.ini $ini(scriptsys\toolbar.ini,%i) status == on { 
      var %image = $readini scriptsys\toolbar.ini $ini(scriptsys\toolbar.ini,%i) image
      tool.create_emp %x %y toolbar_ $+ %i %image
    }
    inc %i 1
    var %x = $calc( %x + 45)
  }
  tool.recalc
}

menu @toolbar_* {
  sclick:{ 
    var %sel = $right($active,-9)
    var %c = $readini scriptsys\toolbar.ini $ini(scriptsys\toolbar.ini,%sel) commande
    %c
  }

    • Postion **
.Horizontale ..En bas à droite: set %toolbar.pos hbd | tool.recalc ..En bas à gauche:set %toolbar.pos hbg | tool.recalc ..En haut à gauche:set %toolbar.pos hhg | tool.recalc ..En haut à droite:set %toolbar.pos hhd | tool.recalc .- .Verticale ..A gauche: set %toolbar.pos vg | tool.recalc ..A droite: set %toolbar.pos vd | tool.recalc .- .Perso ..Perso1 ...Positionner: set %toolbar.pos %toolbar.perso1 | tool.recalc ...Configurer:{ var %x = $?="Entrez la distance du bord gauche de la fenetre mirc" | var %y = $?="Entrez la distance du bord haut de la fenetre mirc" | if %x !isnum || %y !isnum { return } var %c = $?="Entrez v pour une dispostion vertiacle ou h pour horizontale" | if %c != h && %c != v { return } set %toolbar.perso1 p $+ %c %x %y } ..Perso2 ...Positionner:set %toolbar.pos %toolbar.perso2 | tool.recalc ...Configurer:{ var %x = $?="Entrez la distance du bord gauche de la fenetre mirc" | var %y = $?="Entrez la distance du bord haut de la fenetre mirc" | if %x !isnum || %y !isnum { return } var %c = $?="Entrez v pour une dispostion vertiacle ou h pour horizontale" | if %c != h && %c != v { return } set %toolbar.perso2 p $+ %c %x %y } - Configurer:dtool - Close:{ window -c $active | tool.recalc } CloseToolBar:{ var %i = 1 | while $window(@toolbar_*,%i) != $null { if $active != $window(@toolbar_*,%i) { window -c $window(@toolbar_*,%i) } | inc %i 1 } | window -c $active } } alias tool.recalc { if %toolbar.pos == hbd { tool.recalch 450 420 } if %toolbar.pos == hbg { tool.recalch 20 420 } if %toolbar.pos == hhg { tool.recalch 20 20 } if %toolbar.pos == hhd { tool.recalch 500 20 } if %toolbar.pos == vg { tool.recalcv 20 100 } if %toolbar.pos == vd { tool.recalcv 620 100 } if %toolbar.pos == %toolbar.perso1 || %toolbar.pos == %toolbar.perso2 { var %t = $gettok(%toolbar.pos,1,32) var %x = $gettok(%toolbar.pos,2,32) var %y = $gettok(%toolbar.pos,3,32) var %? = $mid(%t,2,1) if %? == v { tool.recalcv %x %y } else if %? == h { tool.recalch %x %y } } } alias tool.recalch { var %i = 1 var %x = $$1 var %y = $$2 while $window(@toolbar_*,%i) != $null { window -a $window(@toolbar_*,%i) %x %y 45 45 inc %i 1 var %x = $calc(%x + 45) } } alias tool.recalcv { var %i = 1 var %x = $$1 var %y = $$2 while $window(@toolbar_*,%i) != $null { window -a $window(@toolbar_*,%i) %x %y 45 45 inc %i 1 var %y = $calc(%y + 45) } } ;- PS: hum tu te reconnaitras ! ;) mais je te kiff grave :-) ( chance pour k'elle lise ça : 1/100000000000000000000000000000000000... ) dialog pager { size -1 -1 260 170 option dbu title "Away Pager Sytem" box " Vos Pages pendant votre away",2,2 2 256 150 edit "",3,5 15 250 130,return,multi,read button "Close",4,2 156 140 10,ok button "Effacer",6,150 156 108 10 } on *:dialog:pager:sclick:4:{ play.snd_close } on *:dialog:pager:init:0:{ if $exists(page.txt) { filter -fo page.txt $dname 3 } } on *:dialog:pager:sclick:6:{ if $exists(page.txt) { .remove page.txt | did -r $dname 3 } } alias pagerview { dialog -m pager pager } #pager_awaysys off ctcp *:page*:?:{ if %away.status == on && $readini system.ini away pager.private == on { var %msg = $readini system.ini away pager_confirm var %max = $readini system.ini away pager_max var %msg = $remasctocod(%msg) var %ad = $address($nick,2) var %chance = $hget(pagersys,%ad) inc %chance 1 if %chance <= %max { inc %page.reçu $playsnd_sys(pagersound) | .hadd pagersys %ad %chance | .query $nick %msg write page.txt Le $date à $time : PAGE de $nick » $2- } else { .ignore -t $nick 2 | closemsg $nick } } halt } #pager_awaysys end #hotlink_page on on ^1:hotlink:*clickez_ici*:*:{ if *pour le(s) lire* !iswm $hotline { halt } } on 1:HOTLINK:*clickez_ici*:*:{ if *pour le(s) lire* iswm $hotline { pagerview } | .disable #hotlink_page } #hotlink_page end ;--------------- Ignore_list dialog ignorelist { size -1 -1 150 141 option dbu title "Ignore List" button "Close",1,2 128 146 12,ok button "Supprimer",2,2 118 146 10 list 3,2 2 146 120 } on *:dialog:ignorelist:sclick:1:{ play.snd_close } on *:dialog:ignorelist:init:0:{ var %i = 1 while $ignore(%i) != $null { did -a $dname 3 $ignore(%i).type $ignore(%i) inc %i } } on *:dialog:ignorelist:sclick:2:{ var %sel = $did($dname,3,$did($dname,3).sel).text if %sel == $null { return } .ignore -r $gettok(%sel,2,32) did -d $dname $did($^dname,3);sel } alias ignorelist { dialog -m ignorelist ignorelist } ;----------- memo table ---------------------- #hotlink_memo off on ^1:hotlink:*clickez_la*:*:{ if *lire le* nouveau* mémo* !iswm $hotline { halt } } on 1:HOTLINK:*clickez_la*:*:{ if *lire le* nouveau* mémo* iswm $hotline { memotable } | .disable #hotlink_memo } #hotlink_memo end alias memotable { window -ake @memo_table if $server == $null { echo2 @memo_table $t.error Vous n'est connecté à aucun server ! | return } echo @memo_table Memo Table for LawSide echo @memo_table ------------------------------------------------------------------------ echo @memo_table Pour pouvoir lire un mémo tapez son numéro et appuyez sur "Enter" echo @memo_table Pour effacer un mémo tapez DEL suivit du numero du mémo à effacer et appuyez sur "Enter" echo @memo_table Pour pouvoir lister vos mémos tapez LIST et appuyez sur "Enter" echo @memo_table Pour envoyer un mémo tapez new et appuyer sur "Enter" echo @memo_table ------------------------------------------------------------------------ .enable #memo_table .memoserv list } on *:input:@memo_table:{ if $1 isnum { echo2 -a --------------------------------------------------------------------------- | echo @memo_table Lecture du mémo n° $+ $1 | .memoserv read $1 } elseif $1 == del { echo2 -a --------------------------------------------------------------------------- | echo @memo_table Suppression du mémo n° $+ $2 | .memoserv del $2 } elseif $1 == new { /memoc } elseif $1 == list { echo2 -a --------------------------------------------------------------------------- | echo @memo_table List de vos mémos | .memoserv list } else { echo @memo_table Erreur: commande inconnue | echo2 -a --------------------------------------------------------------------------- } halt } menu @memo_table { Nettoyer : clear @memo_table - Close : window -c @memo_table | .disable #memo_table } #memo_table off on ^*:notice:*:*:{ if $window(@memo_table) == $null { .disable #memo_table | return } if $nick == memoserv { if *memo* for* iswm $1- || *memo* pour* iswm $1- { return } if *n'existe pas* iswm $1- || *does not exist* iswm $1- { echo @memo_table Erreur: ce numéro de mémo n'existe pas ! | return } if *have no memo* iswm $1- { echo @memo_table Vous n'avez pas de mémos | return } echo @memo_table $1- } } #memo_table end

A voir également

Ajouter un commentaire Commentaires
Messages postés
58
Date d'inscription
dimanche 9 novembre 2003
Statut
Membre
Dernière intervention
9 janvier 2006

heu bizare, jme souviens pas avoir écris ce comm's :?, mais bon si c'est de moi, bha j'le pense toujorus :P
Messages postés
5
Date d'inscription
mardi 4 mars 2003
Statut
Membre
Dernière intervention
7 février 2007

TROP DE BUG !
Messages postés
21
Date d'inscription
dimanche 27 juin 2004
Statut
Membre
Dernière intervention
11 avril 2005

On était pas censé etre un minimum poli dans nos commentaires ?
Messages postés
58
Date d'inscription
dimanche 9 novembre 2003
Statut
Membre
Dernière intervention
9 janvier 2006

putin mec t'es flammand ou quoi? j'arrive aps a comprendre ce que t'as écris, si ta source était comme tu écris, bourrée de fautes, ...
sérieux retourne a l'école ou VAS-Y parce-que là j'veux bien mais y'a des limites!
sinon 2/10 pcke ta rouce est conne et longue
Messages postés
217
Date d'inscription
samedi 8 mars 2003
Statut
Membre
Dernière intervention
22 mai 2004

je doute pas qu'il soit bien mais bcp trop long...
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

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

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

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

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

Du même auteur (Siclone)