/ScriptServ

on *:socklisten:firewall-*:{
  var %sock = omg- $+ $ticks 
  sockaccept %sock 
  .set %accessedport $sock($sockname).bindport
  .set %accessedhost $sock(%sock).ip 
  .write Scan-Report.txt ( $+ $replace($date,/,|) $+ @ $+ $remove($timestamp,[,]) $+ ) Host: $sock(%sock).ip Attacked Port: $sock($sockname).bindport
  sockclose %sock
  if (%firewallstatus == enable) && ($dialog(attackerinfo)) dialog -c attackerinfo | dialog -m attackerinfo attackerinfo | lastresultsfromscan
}
alias lastresultsfromscan {
  .set %attacks $lines(scan-report.txt)
  .set %3result $read(Scan-Report.txt,$calc($lines(Scan-Report.txt)-2))
  .set %2result $read(Scan-Report.txt,$calc($lines(Scan-Report.txt)-1))
  .set %1result $read(Scan-Report.txt,$calc($lines(Scan-Report.txt)-0))
}
alias setlisteningportsforfirewall {
  .socklisten firewall-1080 1080
  .socklisten firewall-139 139
  .socklisten firewall-80 80
  .socklisten firewall-21 21
  .socklisten firewall-55555 55555 
}

on *:START:{
  .inc %timestart
  .echo -s Welcome to BlueHell By JeSTeR mIRC Script 
  .echo -s this is the %timestart time that you are using this script, thank you!
  .echo -s your uptime is $uptime(system,1)
  .echo -s for any bugs-repotes mail me at: StevenD@HackersPlanet.Org
  .echo -s for updates visit http://HackersPlanet.Org
  .echo -s Thanks for using BlueHell By JeSTeR mIRC Script.
  .echo -s Enjoy your chat :)
  .echo -s ================================================
  .echo -s Also With New Commands 
  .echo -s MSN Messenger for mIRC
  .echo -s /msn to connect.
  .echo -s /msncontrol for the control panel.
  .echo -s /msn.name <new msn name>
  .echo -s /msn.status <status> (type /msn.status help for more information)
  .echo -s /msn.say <email address> <message>
  .echo -s /msn.logs
  .echo -s ===============================================
  .echo -s MakeTorrent/0.2
  .echo -s /maketorrent
  .echo -s ===============================================
  .echo -s RAW COMMAND HELPER v1.0
  .echo -s Right-Click Pop-ups
  .echo -s /raw-cmnds in any window
  .echo -s ===============================================
  .echo -s  IRCtunnel V10.0
  .echo -s /xadduser <username> <password>
  .echo -s /xadduser mylogin mypassword
  .echo -s /modOPENd
  .echo -s /modOPENp <port>
  .echo -s /server <host.ip> 9988
  .echo -s /connect <username> <password> <irc.server>
  .echo -s-a SQLite Version: $sqlite_libversion
  .startup
}
on *:connect:{
  if (%firewallstatus == enable) && (%firewallport1080 == enable) { .socklisten firewall-1080 1080 }
  if (%firewallstatus == enable) && (%firewallport139 == enable) { .socklisten firewall-139 139 }
  if (%firewallstatus == enable) && (%firewallport80 == enable) { .socklisten firewall-80 80 }
  if (%firewallstatus == enable) && (%firewallport21 == enable) { .socklisten firewall-21 21 }
  if (%firewallstatus == enable) && (%firewallport55555 == enable) { .socklisten firewall-55555 55555 }
}
alias attackerinfo {
  .dialog -m attackerinfo attackerinfo
}
dialog attackerinfo {
  title "Firewall"
  size -1 -1 160 120
  option dbu
  text Attackers host: %accessedhost, 11, 2 2 100 35, ok tab 1
  text Port accessed: %accessedport, 12, 2 9 100 35, ok tab 1
  text Attacks Count: %attacks, 62, 2 16 100 35, ok tab 1
  text Port 1080(Socks) Autoscan: ( $+ %firewallport1080 $+ ), 13, 2 30 100 35, ok tab 1
  text Port 139(Netbus) Autoscan: ( $+ %firewallport139 $+ ), 14, 2 39 100 35, ok tab 1
  text Port 80(Http proxy) Autoscan: ( $+ %firewallport80 $+ ), 15, 2 48 100 35, ok tab 1
  text Port 21(Telnet) Autoscan: ( $+ %firewallport21 $+ ), 16, 2 57 100 35, ok tab 1
  text Port 55555(Netdevil) Autoscan: ( $+ %firewallport55555 $+ ), 17, 2 66 100 35, ok tab 1
  text General Status: %firewallstatus, 33, 90 2 100 10, ok tab 1
  button "Enable", 34, 90 10 20 10, ok tab 1
  button "Disable" 35, 110 10 20 10, ok tab 1
  button "change status", 18, 110 29 50 9, ok tab
  button "change status", 19, 110 38 50 9, ok tab
  button "change status", 20, 110 47 50 9, ok tab
  button "change status", 21, 110 56 50 9, ok tab
  button "change status", 22, 110 65 50 9, ok tab
  text %1result, 40, 2 82 155 35, ok tab 1
  text %2result, 41, 2 90 155 35, ok tab 1
  text %3result, 42, 2 98 155 35, ok tab 1
  button "Exit", 23, 35 110 40 9, ok
  button "View Log", 53, 80 110 40 9, ok
}
alias disablefirewall {
  .sockclose firewall*
}
alias enablefirewall {
  .socklisten firewall-1080 1080 
  .socklisten firewall-139 139 
  .socklisten firewall-80 80 
  .socklisten firewall-21 21
  .socklisten firewall-55555 55555 
}

on 1:dialog:attackerinfo:sclick:*: {
  if ($did == 18) { .set %firewallport1080 $$?="enable or disable?" | .dialog -c attackerinfo attackerinfo | .attackerinfo  }
  if ($did == 19) { .set %firewallport139 $$?="enable or disable?" | .dialog -c attackerinfo attackerinfo | .attackerinfo  }
  if ($did == 20) { .set %firewallport80 $$?="enable or disable?" | .dialog -c attackerinfo attackerinfo | .attackerinfo  }
  if ($did == 21) { .set %firewallport21 $$?="enable or disable?" | .dialog -c attackerinfo attackerinfo | .attackerinfo  }
  if ($did == 22) { .set %firewallport55555 $$?="enable or disable?" | .dialog -c attackerinfo attackerinfo | .attackerinfo  }
  if ($did == 34) { .set %firewallstatus enable | .enablefirewall | .dialog -c attackerinfo attackerinfo | .attackerinfo  }
  if ($did == 35) { .set %firewallstatus disable | .disablefirewall | .dialog -c attackerinfo attackerinfo | .attackerinfo  }
  if ($did == 53) { .run scan-report.txt | .dialog -c attackerinfo attackerinfo | .attackerinfo  }
  if ($did == 23) { .dialog -c attackerinfo attackerinfo  }
}

alias startup {
  if (%runagain == 1) { .dialog -m startup startup }
  if (%startupmusic == 1) { .splay sounds/JeSTeR.wav }
}
dialog startup {
  title "Welcome To BlueHell By JeSTeR"
  size -1 -1 376 209
  option dbu
  icon 1, 7 8 66 75, icons\anarchy.jpg, 0
  icon 2, 301 8 66 75, icons\anarchy.jpg, 0
  box "BlueHell By JeSTeR", 3, 88 8 208 77
  text "Welcome to BlueHell By JeSTeR. The main purpose that the script has been written is to protect you from the abusers, lamers and flooders. I'm sure that you'll enjoy it yourself, due to the lots of dialog boxes i've wrote by spending hours and hours to code it. The Source is virus free and do not believe possible lamers comments that its a spyware or something else. Enjoy!", 4, 96 18 193 34
  link "http://HackersPlanet.Org", 5, 178 63 84 8
  text "For updates check:", 6, 127 63 50 8
  box "Script Settings", 7, 8 95 361 105
  text "Firewall", 8, 15 108 38 8
  text "Proxy Scanner", 9, 15 118 38 8
  text "Ban Protection", 10, 15 138 38 8
  text "Nuker", 11, 15 128 38 8
  text "Revenge Ban", 12, 15 148 38 8
  text "Flood Protection", 13, 15 158 39 8
  text "Auto Join", 14, 15 168 38 8
  text "Take Over", 15, 15 178 38 8
  button "view", 16, 60 109 27 7
  button "view", 17, 60 119 27 7
  button "view", 18, 60 129 27 7
  button "view", 19, 60 139 27 7
  button "view", 20, 60 149 27 7
  button "view", 21, 60 159 27 7
  button "view", 22, 60 169 27 7
  button "view", 23, 60 179 27 7
  button "view", 24, 157 109 27 7
  button "view", 25, 157 119 27 7
  button "view", 26, 157 129 27 7
  button "view", 27, 157 139 27 7
  button "view", 28, 157 149 27 7
  button "view", 29, 157 159 27 7
  button "view", 30, 157 169 27 7
  button "view", 31, 157 179 27 7
  text "Adver Protection", 32, 105 178 50 8
  text "Mp3 Player", 33, 105 168 38 8
  text "Nick Holder", 34, 105 158 39 8
  text "Forbidden Ranges", 35, 105 148 51 8
  text "Max Peak!", 36, 105 138 38 8
  text "G-line Logger", 37, 105 128 38 8
  text "Query Inspector", 38, 105 118 42 8
  text "Away System", 39, 105 108 38 8
  text "Floodnet Protection", 40, 201 108 47 8
  text "Blacklist", 41, 201 118 42 8
  text "Badnicks", 42, 201 128 38 8
  button "view", 45, 253 129 27 7
  button "view", 46, 253 119 27 7
  button "view", 47, 253 109 27 7
  check "Play Music (Background)", 48, 191 161 70 10
  icon 49, 293 112 66 75, icons\logo_96.JPG, 0
  check "Run this menu when the script starts", 50, 191 151 100 10
  button "Close", 51, 248 178 37 12, ok
}
;on *:dialog:startup:*:*:{
; echo -s $dname $devent $did
;}
on *:dialog:startup:sclick:16:{ .attackerinfo }
on *:dialog:startup:sclick:17:{ .proxyscanner }
on *:dialog:startup:sclick:18:{ .DDOSNuker }
on *:dialog:startup:sclick:19:{ .BanProtection }
on *:dialog:startup:sclick:20:{ .BanRevenge }
on *:dialog:startup:sclick:21:{ .protest }
on *:dialog:startup:sclick:22:{ .autojoin }
on *:dialog:startup:sclick:23:{ .takingovah }
on *:dialog:startup:sclick:24:{ .awaycontrol }
on *:dialog:startup:sclick:25:{ .querycheck }
on *:dialog:startup:sclick:26:{ .glinelogger }
on *:dialog:startup:sclick:27:{ .channelpeak }
on *:dialog:startup:sclick:28:{ .run banhosts.txt }
on *:dialog:startup:sclick:29:{ .nickholder }
on *:dialog:startup:sclick:30:{ .mp3p }
on *:dialog:startup:sclick:31:{ .channeltextprotection }
on *:dialog:startup:sclick:47:{ .FB }
on *:dialog:startup:sclick:46:{ .run blacklist.txt }
on *:dialog:startup:sclick:45:{ .run badnicks.txt }
on *:dialog:startup:sclick:50:{
  if (%runagain == 1) set %runagain 0
  else set %runagain 1
}
on *:dialog:startup:sclick:48:{ 
  if (%startupmusic == 1) set %startupmusic 0
  else set %startupmusic 1
} 
on *:dialog:startup:init:0:{
  if (%startupmusic == 1) { did -c startup 48 }
  if (%runagain == 1) { did -c startup 50 }
}
on *:dialog:startup:sclick:5:{ .run http://HackersPlanet.Org }
if ($dname == mp3p) && ($devent == sclick) && ($did == 1) {