Docstoc

A id

Document Sample
A id Powered By Docstoc
					++++++++++++++++++++++++++++++++++++++++
+ マヌ涖赭 ハレム泚 ツ硼 .. 葹ヌハ 翩砒 蒟ヌ淲 +
+                                      +
+    Made By MoGrM                         +
++++++++++++++++++++++++++++++++++++++++

********************************
***    ヌ睇耜 淸ヘリ ネヌ瞋淏賁          ***
***    Put it In Remote      ***
*** alt+R 矍ハヘ ヌ瞋淏賁 ヌヨロリ ***
********************************


alias auto-id {
  var %bt = $var(%ai.*,0) , %b = 0 , %b2
  while (%b < %bt) {
    inc %b
    inc %b2 5
    .timer $+ %b 1 %b2 /ns identify $remove($var(%ai.*,%b),$+($chr(37),ai.))
$eval($var(%ai.*,%b),2)
  }
}
alias ai { dialog -m ai ai }
alias listai {
  did -r ai 10
  var %bt = $var(%ai.*,0) , %b = 0
  while (%b < %bt) {
    inc %b
    did -a ai 10 $remove($var(%ai.*,%b),$+($chr(37),ai.))
  }
}


dialog ai {
  title "identify dialog By GooD"
  size -1 -1 185 163
  option dbu
  button "Add Nick", 1, 2 12 36 12,flat
  edit "", 2, 42 13 44 14
  edit "", 3, 88 13 43 14
  list 10, 132 3 43 143, size
  button "Identify", 12, 13 55 114 13,flat
  button " Del Nick " 11, 13 34 114 10,flat
  button " Change Nickname " 17, 13 44 114 10,flat
  edit "", 13, 13 69 114 2
  button "Identify all nick In list", 14, 14 77 113 12,flat
  box "Auto Identify", 15, 5 95 124 26
    check "Do You Want To auto identify when Connect", 16, 8 105 119 10,flat
    button "Cancel", 18, 24 125 84 9,cancel flat
    button "OK", 19, 49 138 30 11,ok flat
    text "identify dialog To Nicks By", 20, 24 153 91 8
    link "GooD", 21, 24 153 22 8
    text "     Nick ", 22, 50 4 25 8
    text " Pass", 23, 96 3 25 8
}

on *:dialog:ai:init:*: {
  listai
  if (%autoid == +) { did -c ai 16 }
}

on *:dialog:ai:sclick:*: {
  if ($did == 16) { if (%autoid == +) { .set %autoid - } | else { .set %autoid + } }
  if ($did == 1) {
    if ($did(2).text != $null && $did(3).text != $null) {
      .set %ai. [ $+ [ $did(2).text ] ] $did(3).text
      listai
    }
  }
  if ($did == 11) {
    if ($did(ai,10).seltext != $null) {
      .unset %ai. [ $+ [ $did(ai,10).seltext ] ]
      listai
    }
  }
  if ($did == 17 && $did(ai,10).seltext != $null) { nick $did(ai,10).seltext }
  if ($did == 12 && $did(ai,10).seltext != $null) { ns identify $did(ai,10).seltext
$eval(%ai. [ $+ [ $did(ai,10).seltext ] ],2) }
  if ($did == 14) { auto-id }
}

on *:connect:{
  if (%autoid == +) {
    auto-id
  }
}

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:7
posted:10/31/2012
language:
pages:2