Dobrodosli na forum Extreme. Forum je za sve redom.. Nauka,knjizevnost,zdravlje,sport,ljubav,sex,muzika,filmovi,humor,istorija,skola,posao,fakultet,download,i jos dosta toga.. Jedini uslov da budete na forumu,je da se dobro zabavite..Uzivajte...:))
 
HomeFAQ/УпутствоТражиЛиста члановаКорисничке групеРегиструј сеПриступи

Share | 
 

 Auto Identifikacija !!

Go down 

PA?
Ochajan
0%
 0% [ 0 ]
Bljak...
0%
 0% [ 0 ]
No comment...
100%
 100% [ 1 ]
Pa..Moze da prodje
0%
 0% [ 0 ]
Odavno proshao
0%
 0% [ 0 ]
Vrh Brate :)
0%
 0% [ 0 ]
Укупно гласова : 1
 

АуторПорука
Ljuba

avatar

Број порука : 67
Join date : 10.09.2008
Age : 23
Локација : Marinkova Bara :)

ПорукаНаслов: Auto Identifikacija !!   Sun Sep 14, 2008 3:20 pm

Evo sad vi lepo recite sta mislite o ovom addonu?? Smile
Код:

;Addon created by Lju[B]a
;Auto Identify

alias aid {
  $iif(!$dialog(aid),dialog -m aid aid,dialog -v aid)
}
dialog aid {
  title "Auto Identifikacija by Lju[B]a"
  size -1 -1 201 119
  option dbu
  text "Sifra:", 2, 102 6 50 12
  text "Nick:", 1, 8 6 50 12
  edit %nick1 , 3, 13 22 82 12
  edit %pass1 , 4, 107 22 82 12, pass
  edit %nick2 , 5, 13 37 82 12
  edit %pass2 , 6, 107 37 82 12, pass
  edit %nick3 , 7, 13 52 82 12
  edit %pass3 , 8, 107 52 82 12, pass
  edit %nick4 , 9, 13 67 82 12
  edit %pass4 , 10, 107 67 82 12, pass
  edit %nick5 , 11, 13 82 82 12
  edit %pass5 , 12, 107 82 82 12, pass
  button "&Sacuvaj", 13, 13 102 82 12, flat apply
  button "&Ok", 14, 107 102 82 12, flat ok
}
On 1:Dialog:aid:sclick:13: {
  set %nick1 $did(aid,3).text
  set %pass1 $did(aid,4).text
  set %nick2 $did(aid,5).text
  set %pass2 $did(aid,6).text
  set %nick3 $did(aid,7).text
  set %pass3 $did(aid,8).text
  set %nick4 $did(aid,9).text
  set %pass4 $did(aid,10).text
  set %nick5 $did(aid,11).text
  set %pass5 $did(aid,12).text
  echo -a 1,12Auto identifikacija je potvrdjena
}
on *:dialog:aid:init:*: {
  mdxd SetMircVersion $version
  mdxd MarkDialog $dname
  mdxd SetDialog $dname style tool title
  mdxd SetColor 1,2 text $rgb(255,255,255)
  mdxd SetColor $dname 2,1 background $rgb(0,0,0)
  mdxd SetDialog $dname bgcolor $rgb(0,0,0)
  mdxd SetFont $dname 1,2 20 400 Tahoma Bold
  mdxd SetFont $dname 13,14 14 400 Tahoma Bold
  mdxd SetFont $dname 3,4,5,6,7,8,9,10,11,12 14 400 Arial Bold Italic
  mdxd SetColor 3,4,5,6,7,8,9,10,11,12 text $rgb(0,0,0)
  mdxd SetColor 1,2 textbg $rgb(0,0,0)
}
on *:NOTICE:*This nickname*:?: {
  if ($nick == NickServ) && ($me == %nick1) {
    ns identify %pass1
  }
  if ($nick == NickServ) && ($me == %nick2) {
    ns identify %pass2
  }

  if ($nick == NickServ) && ($me == %nick3) {
    ns identify %pass3
  }

  if ($nick == NickServ) && ($me == %nick4) {
    ns identify %pass4
  }

  if ($nick == NickServ) && ($me == %nick5) {
    ns identify %pass5
  }
}
xD
Назад на врх Go down
Погледај профил корисника
 
Auto Identifikacija !!
Назад на врх 
Страна 1 of 1

Permissions in this forum:Не можете одговорити на теме у овом форуму
Extreme :: mIRC :: mIRC Addoni & mIRC HacK-
Скочи на: