pony

this is what im working on

Mar 13th, 2021
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.46 KB | None | 0 0
  1. alias -l scan.get {
  2. set %adrs $$input(Enter address or IP. Search uses *wildcards*. $&
  3. $crlf $+ Eg. 127 would match all IP's that have 127 in them. $&
  4. $crlf $+ NOTE : Input may consist of both letters and numbers.,ew,Enter Address For Scan&Kick!)
  5. }
  6.  
  7. alias scan {
  8. if ($1 == +k) {
  9. if ($me isop $chan) {
  10. var %scan.cmd kick
  11. if ($2 != $null) var %adrs $2
  12. else scan.get
  13. }
  14. else { echo -a [Ranged IP Kick] You are not OP on $chan $+ . | return }
  15. }
  16. elseif ($1 == +k1) {
  17. if ($me isop $chan) {
  18. var %scan.cmd Ghost
  19. if ($2 != $null) var %adrs $2
  20. else scan.get
  21. }
  22. else { echo -a [Ranged IP Kick] You are not OP on $chan $+ . | return }
  23. }
  24. elseif ($1 == +kb) {
  25. if ($me isop $chan) {
  26. var %scan.cmd ban
  27. if ($2 != $null) var %adrs $2
  28. else scan.get
  29. }
  30. else { echo -a [Ranged IP Ban] You are not OP on $chan $+ . | return }
  31. }
  32. elseif ($1 == $null) scan.get
  33. else var %adrs $1
  34. var %i $nick($chan,0)
  35. while (%i) {
  36. if (%adrs isin $address($nick($chan,%i),0)) {
  37. if (!%scan.cmd) echo -a 4Scan Result for 3* $+ %adrs $+ * !!! $nick($chan,%i) $address($nick($chan,%i),1)
  38. elseif (%scan.cmd == kick) kick $chan $nick($chan,%i) IP matches with requested IP for kicking : 3* $+ %adrs $+ *
  39. elseif (%scan.cmd == Ghost) kick $chan $nick($chan,%i) I Ghosting on Channel Plz return Ty : 3* $+ %adrs $+ *
  40. elseif (%scan.cmd == ban) { var %xx = $nick($chan,%i) | access $chan add deny $address(%xx,3) | kick $chan %xx }
  41. inc %scan.found
  42. }
  43. dec %i
  44. }
  45. if (%scan.found == $null) echo -a 4Scan Result NOT found for 3* $+ %adrs $+ * !!!
  46. unset %scan.found
  47. unset %adrs
  48. }
  49.  
  50.  
  51. menu channel {
  52. [Ranged IP ScanKicker]
  53. .Scan on $chan:scan
  54. .ScanKick on $chan:scan +k
  55. .GhostKick on $chan:scan +k1
  56. .ScanKickBan on $chan:scan +kb
  57. .About:echo -a [Ranged IP ScanKicker] by ch1zra | echo -a [email protected] | echo -a http://uptheirons.co.sr/
  58. ========================================================================
  59. Im try to get this above to work in a dilaog , the conrols are below
  60. the (182) is the edit box i paste it in
  61.  
  62. on *:dialog:nickjoin:sclick:184:{ /echo -a 52 Scan | /set %adrs $did(182).text | /scan.get %adrs | /scan %adrs }
  63. on *:dialog:nickjoin:sclick:186:{ /echo -a 52 Scan Kick }
  64. on *:dialog:nickjoin:sclick:188:{ /echo -a 52 Scan Kick Ban }
  65. on *:dialog:nickjoin:sclick:190:{ /echo -a 52 Scan Ghost Kick }
Advertisement
Add Comment
Please, Sign In to add comment