All pastes #994250 Raw Edit

Netsplit Detector - EcKstasy

public text v1 · immutable
#994250 ·published 2008-04-23 07:41 UTC
rendered paste body
on *:LOAD:{
  if ($version < 6.03) { echo -a  12You Need mIRC 6.03 Or Later For This Addon 4www.mirc.com | .unload -rs $script }
  else {
    echo -a 4Creating Hash Tables,12Please Wait.....
    echo -a 12You Have 4Successfully 12Loaded The Netsplit Detector By 4EcKstasy
    echo -a 12To View The Dialog Click On 4Menu>Netsplit Detector>Configure
   
  }
}
dialog nsap {
  title "Netsplit Detector By EcKstasy"
  size -1 -2 138 155
  option dbu
  tab "Netsplit Detector", 1, 1 0 124 167
  combo 3, 7 84 112 53, tab 1 size drop
  box "On/Off", 6, 3 17 120 25, tab 1
  box "Notify", 7, 3 44 120 27, tab 1
  radio "All Channels", 8, 8 56 50 10, group tab 1
  radio "Active Channel", 9, 70 56 50 10, tab 1
  box "Styles", 10, 3 75 120 48, tab 1
  text "Colorless Preview:", 11, 8 97 43 8, tab 1
  edit "", 12, 7 107 112 12, tab 1 autohs
  button "Cancel", 16, 63 127 60 12, tab 1 cancel
  check "Enable / Disable", 17, 6 25 114 15, group tab 1 push
  button "Save", 15, 3 127 60 12, ok
}

on 1:DIALOG:nsap:sclick:15: { if ($did(nsap,3).sel == 1) { write -c $mircdirsystem/nsstyle.txt Style 1 }
  if ($did(nsap,3).sel == 2) { write -c $mircdirsystem/nsstyle.txt Style 2 }
  if ($did(nsap,3).sel == 3) { write -c $mircdirsystem/nsstyle.txt Style 3 }
  if ($did(nsap,3).sel == 4) { write -c $mircdirsystem/nsstyle.txt Style 4 }
  if ($did(nsap,3).sel == 5) { write -c $mircdirsystem/nsstyle.txt Style 5 } 
  if ($did(nsap,17).state == 1) { .enable #netsplit | write -c $mircdirsystem/nsstatus.txt on }
  if ($did(nsap,17).state == 0) { .disable #netsplit | write -c $mircdirsystem/nsstatus.txt off }
}


on 1:DIALOG:nsap:sclick:3: { if ($did(nsap,3).sel == 1) { did -ra nsap 12 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y | echo -a 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y }
  if ($did(nsap,3).sel == 2) { did -ra nsap 12 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y | echo -a 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y }
  if ($did(nsap,3).sel == 3) { did -ra nsap 12 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y | echo -a 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y }
  if ($did(nsap,3).sel == 4) { did -ra nsap 12 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y }
if ($did(nsap,3).sel == 5) { did -ra nsap 12 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y | echo -a 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y } }

on 1:DIALOG:nsap:init:*: { 
  did -i nsap 3 1 Style 1 
  did -i nsap 3 2 Style 2 
  did -i nsap 3 3 Style 3
  did -i nsap 3 4 Style 4 
  did -i nsap 3 5 Style 5  
  if ($read($mircdirsystemnsstyle.txt) == Style 1) { did -c nsap 3 1 | did -ra nsap 12 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y } 
  if ($read($mircdirsystemnsstyle.txt) == Style 2) { did -c nsap 3 2 | did -ra nsap 12 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y } 
  if ($read($mircdirsystemnsstyle.txt) == Style 3) { did -c nsap 3 3 | did -ra nsap 12 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y } 
  if ($read($mircdirsystemnsstyle.txt) == Style 4) { did -c nsap 3 4 | did -ra nsap 12 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y } 
  if ($read($mircdirsystemnsstyle.txt) == Style 5) { did -c nsap 3 5 | did -ra nsap 12 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y } 
  if (amsg iswm $read($mircdirsystem/nsmsg.txt)) { did -c nsap 8 } 
  if (amsg !iswm $read($mircdirsystem/nsmsg.txt)) { did -c nsap 9 } 
  if (on iswm $read($mircdirsystem/nsstatus.txt)) { did -c nsap 17 }
  if (off iswm $read($mircdirsystem/nsstatus.txt)) { did -u nsap 17 }
} 

on 1:DIALOG:nsap:sclick:8: { write $mircdirsystem/nsmsg.txt amsg }
on 1:DIALOG:nsap:sclick:9: { write $mircdirsystem/nsmsg.txt msg }


#netsplit on
on *:QUIT: { if (. isin $1) && (. isin $2) && ($3 == $null) { if ($1 == %split.1) && ($2  == %split.2) goto end
    if ((Style 1 iswm $read($mircdirsystem/nsstyle.txt)) && (amsg iswm $read($mircdirsystem/nsstyle.txt))) goto amsgstyle1
    if ((Style 1 iswm $read($mircdirsystem/nsstyle.txt)) && (msg iswm $read($mircdirsystem/nsstyle.txt))) goto msgstyle1
    if ((Style 2 iswm $read($mircdirsystem/nsstyle.txt)) && (amsg iswm $read($mircdirsystem/nsstyle.txt))) goto amsgstyle2
    if ((Style 2 iswm $read($mircdirsystem/nsstyle.txt)) && (msg iswm $read($mircdirsystem/nsstyle.txt))) goto msgstyle2
    if ((Style 3 iswm $read($mircdirsystem/nsstyle.txt)) && (amsg iswm $read($mircdirsystem/nsstyle.txt))) goto amsgstyle3
    if ((Style 3 iswm $read($mircdirsystem/nsstyle.txt)) && (msg iswm $read($mircdirsystem/nsstyle.txt))) goto msgstyle3
    if ((Style 4 iswm $read($mircdirsystem/nsstyle.txt)) && (amsg iswm $read($mircdirsystem/nsstyle.txt))) goto amsgstyle4
    if ((Style 4 iswm $read($mircdirsystem/nsstyle.txt)) && (msg iswm $read($mircdirsystem/nsstyle.txt))) goto msgstyle4
    if ((Style 5 iswm $read($mircdirsystem/nsstyle.txt)) && (amsg iswm $read($mircdirsystem/nsstyle.txt))) goto amsgstyle5
    if ((Style 5 iswm $read($mircdirsystem/nsstyle.txt)) && (msg iswm $read($mircdirsystem/nsstyle.txt))) goto msgstyle5

    :amsgstyle1
    amsg 4N14etspli4t 4D14etecte4d 4B14etwee4n 14 $1 4<14-4>14 $2 4: 4E14c4K14s4t14a4s14y

    :next
    set %split.1 $1
    set %split.2 $2

    :end
  }
}
#netsplit end

;############# EcKstasy ############

#menu.menubar on

menu menubar {
  -
  Netsplit Detecter
  .Configure: { /nsap | dialog -mdie nsap nsap } 
}
#menu.menubar end

#menu.channel on
menu channel {
  -
  Netsplit Detecter
  .Configure: { /nsap | dialog -mdie nsap nsap }
}
#menu.channel end

#menu.query on
menu query {
  -
  mIRC Stats
  .dialogs
  ..main dialog $iif($hg(menu.commands),	/stats) :stats
  ..configuration $iif($hg(menu.commands),	/stats config) :stats config
  ..-
  ..been stats $iif($hg(menu.commands),	/stats been) :stats been
  ..have stats $iif($hg(menu.commands),	/stats have) :stats have
  ..seen stats $iif($hg(menu.commands),	/stats seen) :stats seen
  .launch webpage $iif($hg(menu.commands), 	/statsweb) :statsweb
  .-
  .help $iif($hg(menu.commands),	/stats help) :stats help
  .-
  .echo stats
  ..Servers $iif($hg(menu.commands),	/secho servers) :secho servers
  ..Power $iif($hg(menu.commands),	/secho power) :secho power
  ..-
  ..Time $iif($hg(menu.commands),	/secho time) :secho time
  ..Uptime $iif($hg(menu.commands),	/secho uptime) :secho uptime
  ..Events $iif($hg(menu.commands),	/secho events) :secho events
  ..Text stuff $iif($hg(menu.commands),	/secho texts) :secho texts
  ..-
  ..Been stats $iif($hg(menu.commands),	/secho been) :secho been
  ..Have stats $iif($hg(menu.commands),	/secho have) :secho have
  ..Seen stats $iif($hg(menu.commands),	/secho seen) :secho seen
  ..-
  ..CPU info $iif($hg(menu.commands),	/secho cpu) :secho cpu
  ..OS info $iif($hg(menu.commands), 	/secho os) :secho os
  ..Cache info $iif($hg(menu.commands),	/secho cache) : secho cache
  ..HDD info $iif($hg(menu.commands),	/secho hdd) :secho hdd
  ..GFX info $iif($hg(menu.commands),	/secho gfx) :secho gfx
  ..Connection info $iif($hg(menu.commands),	/secho con) :secho con
  ..Network info $iif($hg(menu.commands),	/secho eth) :secho eth
  ..-
  ..Custom $iif($hg(menu.commands),	/secho custom) :secho custom
  .$iif($1,CTCP)
  ..$iif($hg(menu.commands),$style(2) Command $+ $chr(58) 	/ctcp $1 STATS [info]):bla
  ..-
  ..Power $iif($hg(menu.commands),	POWER) :ctcp $$1 STATS POWER
  ..-
  ..Time $iif($hg(menu.commands),	TIME) :ctcp $$1 STATS TIME
  ..Uptime $iif($hg(menu.commands),	UPTIME) :ctcp $$1 STATS UPTIME
  ..Events $iif($hg(menu.commands),	EVENTS) :ctcp $$1 STATS EVENTS
  ..Text stuff $iif($hg(menu.commands),	TEXTS) :ctcp $$1 STATS TEXTS
  ..-
  ..Been stats $iif($hg(menu.commands),	BEEN) :ctcp $$1 STATS BEEN
  ..Have stats $iif($hg(menu.commands),	HAVE) :ctcp $$1 STATS HAVE
  ..Seen stats $iif($hg(menu.commands),	SEEN) :ctcp $$1 STATS SEEN
  ..-
  ..CPU info $iif($hg(menu.commands),	CPU) :ctcp $$1 STATS CPU
  ..OS info $iif($hg(menu.commands), 	OS) :ctcp $$1 STATS OS
  ..Cache info $iif($hg(menu.commands),	CACHE) :ctcp $$1 STATS CACHE
  ..GFX info $iif($hg(menu.commands),	GFX) :ctcp $$1 STATS GFX
  ..Connection info $iif($hg(menu.commands),	CON) :ctcp $$1 STATS CON
  ..Network info $iif($hg(menu.commands),	ETH) :ctcp $$1 STATS ETH
  ..-
  ..Custom $iif($hg(menu.commands),	CUSTOM) :ctcp $$1 STATS CUSTOM
}
#menu.query end

#menu.nicklist off
menu nicklist {
  -
  mIRC Stats
  .dialogs
  ..main dialog $iif($hg(menu.commands),	/stats) :stats
  ..configuration $iif($hg(menu.commands),	/stats config) :stats config
  ..-
  ..been stats $iif($hg(menu.commands),	/stats been) :stats been
  ..have stats $iif($hg(menu.commands),	/stats have) :stats have
  ..seen stats $iif($hg(menu.commands),	/stats seen) :stats seen
  .launch webpage $iif($hg(menu.commands), 	/statsweb) :statsweb
  .-
  .help $iif($hg(menu.commands),	/stats help) :stats help
  .-
  .$iif($1,CTCP)
  ..$iif($hg(menu.commands),$style(2) Command $+ $chr(58) 	/ctcp $1 STATS [info]):bla
  ..-
  ..Power $iif($hg(menu.commands),	POWER) :ctcp $$1 STATS POWER
  ..-
  ..Time $iif($hg(menu.commands),	TIME) :ctcp $$1 STATS TIME
  ..Uptime $iif($hg(menu.commands),	UPTIME) :ctcp $$1 STATS UPTIME
  ..Events $iif($hg(menu.commands),	EVENTS) :ctcp $$1 STATS EVENTS
  ..Text stuff $iif($hg(menu.commands),	TEXTS) :ctcp $$1 STATS TEXTS
  ..-
  ..Been stats $iif($hg(menu.commands),	BEEN) :ctcp $$1 STATS BEEN
  ..Have stats $iif($hg(menu.commands),	HAVE) :ctcp $$1 STATS HAVE
  ..Seen stats $iif($hg(menu.commands),	SEEN) :ctcp $$1 STATS SEEN
  ..-
  ..CPU info $iif($hg(menu.commands),	CPU) :ctcp $$1 STATS CPU
  ..OS info $iif($hg(menu.commands), 	OS) :ctcp $$1 STATS OS
  ..Cache info $iif($hg(menu.commands),	CACHE) :ctcp $$1 STATS CACHE
  ..GFX info $iif($hg(menu.commands),	GFX) :ctcp $$1 STATS GFX
  ..Connection info $iif($hg(menu.commands),	CON) :ctcp $$1 STATS CON
  ..Network info $iif($hg(menu.commands),	ETH) :ctcp $$1 STATS ETH
  ..-
  ..Custom $iif($hg(menu.commands),	CUSTOM) :ctcp $$1 STATS CUSTOM
}
#menu.nicklist end