Infoline - משפטי פתיחה

[Editor]

שם הקוד: Infoline
יוצר: Arthas
גרסה: 1.0
תיאור: Infoline, משפטי פתיחה שמדביקים לבן אדם שאתם רוצים.
הפעלה: כנסו למירק ולחצו במקלדת ALT + R, לחצו למעלה בצד שמאל File ואז New, תעתיקו את הסקריפט ותאשרו.

קוד: בחר הכל

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Infoline, v1
;;  By Arthas
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
dialog Infoline {
  title "Infoline list"
  size -1 -1 104 188
  option dbu notheme
  box "Infoline users list", 1, 3 3 96 94
  list 2, 8 12 86 80, size
  button "Add user", 6, 52 152 47 10
  button "Delete user", 7, 52 163 47 10
  button "Clear users", 8, 52 174 47 10
  box "Infolines", 9, 3 100 96 46
  list 10, 8 109 86 32, size
  button "Add Infoline", 3, 3 152 47 10
  button "Delete Infoline", 4, 3 163 47 10
  button "Clear Infolines", 5, 3 174 47 10
}
dialog Infolineadd {
  title "Add Infoline user"
  size -1 -1 102 34
  option dbu notheme
  edit "", 1, 3 3 96 11, autohs
  button "Add", 2, 52 17 46 13, ok
  button "Close", 3, 3 17 46 13, ok
}
dialog Infoline2add {
  title "Add Infoline"
  size -1 -1 101 45
  option dbu notheme
  edit "", 1, 28 3 70 11, autohs
  button "Add", 2, 52 29 46 13, ok
  button "Close", 3, 3 29 46 13, ok
  text "User:", 4, 4 4 18 8
  edit "", 5, 28 15 70 11, autohs
  text "Infoline:", 6, 4 16 21 8
}
 
on *:dialog:*:*:*:{
  if ($dname == Infoline) {
    if ($devent == sclick) {
      if ($did == 5 && $did($dname,2).seltext) { remini Infoline.ini Infoline $did($dname,2).seltext | did -r $dname 10 }
      if ($did == 4 && $did($dname,2).seltext && $did($dname,10).seltext) {
        var %u = $did($dname,10).seltext
        did -d $dname 10 $did($dname,10).sel
        if ($numtok($readini(Infoline.ini,Infoline,$did($dname,2).seltext),92) == 1) { remini Infoline.ini Infoline $did($dname,2).seltext }
        else { writeini Infoline.ini Infoline $did($dname,2).seltext $remtok($readini(Infoline.ini,Infoline,$did($dname,2).seltext),%u,1,92) }
      }
      if ($did == 3) && ($did($dname,2).seltext) { dialog -m Infoline2add Infoline2add | did -a Infoline2add 1 $did($dname,2).seltext }
      if ($did == 2) { did -r $dname 10 | var %x = 1 | while (%x <= $numtok($readini(Infoline.ini,Infoline,$did($dname,2).seltext),92)) { did -a $dname 10 $gettok($readini(Infoline.ini,Infoline,$did($dname,2).seltext),%x,92) | inc %x }
      }
      If ($did == 6) { dialog -m Infolineadd Infolineadd }
      If ($did == 7) && ($did($dname,2).seltext) { var %u = $did($dname,2).seltext
        if ($?!=\"Are you sure?") {
          if ($numtok($readini(Infoline.ini,Infoline,Infoline),32) == 1) { remini Infoline.ini Infoline Infoline }
          else { writeini Infoline.ini Infoline Infoline $remtok($readini(Infoline.ini,Infoline,Infoline),%u,1,32) }
          did -d $dname 2 $did($dname,2).sel
        }
      }
      If ($did == 8) { .remove Infoline.ini | did -r $dname 2 | did -r $dname 10 }
    }
    if ($devent == init) { var %x = 1 | while (%x <= $numtok($readini(Infoline.ini,Infoline,Infoline),32)) { did -a $dname 2 $gettok($readini(Infoline.ini,Infoline,Infoline),%x,32) | inc %x } }
  }
  if ($dname == Infolineadd) && ($devent == sclick) && ($did == 2 && $did(1)) {
    if ($iif($gettok($gettok($did(1),1,46),2,64) !== $null,$gettok($gettok($did(1),1,46),2,64),$did(1)) !isin $readini(Infoline.ini,Infoline,Infoline) || $did(1) !isin $readini(Infoline.ini,Infoline,Infoline)) { did -a Infoline 2 $did(1) | writeini Infoline.ini Infoline Infoline $addtok($readini(Infoline.ini,Infoline,Infoline),$iif($gettok($gettok($did(1),1,46),2,64) !== $null,$gettok($gettok($did(1),1,46),2,64),$did(1)),32)
      dialog -x $dname $dname
    }
  }
  if ($dname == Infoline2add) && ($devent == sclick) && ($did == 2) && ($did(1)) && ($did(5)) { writeini Infoline.ini Infoline $did(1) $addtok($readini(Infoline.ini,Infoline,$did(1)),$did(5),92) | did -a Infoline 10 $did(5) | dialog -x $dname $dname }
}
on *:join:#:{
  if ($gettok($gettok($wildsite,1,46),2,64) isin $readini(Infoline.ini,Infoline,Infoline)) || ($nick isin isin $readini(Infoline.ini,Infoline,Infoline)) {
    var %nick = $iif($gettok($gettok($wildsite,1,46),2,64) isin $readini(Infoline.ini,Infoline,Infoline),$gettok($gettok($wildsite,1,46),2,64),$nick)),92)
    var %sw = $iif($numtok($readini(Infoline.ini,Infoline,%nick),92) == 0,0,$r(1,$numtok($readini(Infoline.ini,Infoline,%nick),92)))
    var %r =  $+ $r(2,15) | msg # %r $+ Hi %r $+  $+ $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ %r $+  $+ $right($nick,1) $+  $+ $chr(44) $+  %r $+ You %r $+ Are %r $+ In %r $+ My %r $+ Friends %r $+ List ( $+ %r $+ ArthasScript)
    msg # %r $+ Info %r $+ Line %r $+ For %r $+  $+ $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ %r $+  $+ $right($nick,1) $+  $+ $chr(44) $iif(%sw !== 0, $+ %sw $+ / $+ $numtok($readini(Infoline.ini,Infoline,%nick),92) $+ : $+ ) $iif($gettok($readini(Infoline.ini,Infoline,%nick),%sw,92),$gettok($readini(Infoline.ini,Infoline,%nick),%sw,92),NOTSET) ( $+ %r $+ ArthasScript)
  }
}
menu * {
  Infoline: dialog -m Infoline Infoline
}
menu nicklist {
  Infoline
  .Add Infoline user: if ($gettok($gettok($address($1,2),1,46),2,64) !isin $readini(Infoline.ini,Infoline,Infoline)) { if ($dialog(Infoline)) did -a Infoline 2 $gettok($gettok($address($1,2),1,46),2,64) | writeini Infoline.ini Infoline Infoline $addtok($readini(Infoline.ini,Infoline,Infoline),$gettok($gettok($address($1,2),1,46),2,64),32) } | else { echo -a $address($1,2) is already on the Infoline list }
}
 

יש למצוא גם: pastebin.php?mode=view&s=20