Socket Park

; Note tht you must have a text file called nix.txt tht MUST be placed in same
; dir as mirc.exe. This is how the text file should look like.

; EXAMPLE
; john-doe
; michael-jackson
; johnnywakrak
; ayampenyek
; etc

; Put in as many nicks possible. Try to avoid using known nicks as this may render your
; clone's nick to be guest* .

; How to use? Press F3 to load and F2 to join the chan ur on. And of course F4 to close it.

;- Put the below codes in remote section -;
;- BASIC CLONE LOADER START -;
alias bot {
  socklisten $r(a,z) $+ $r(1,100) $r(110,220)
  sockopen bot $+ $r(1,99) irc.webchat.org 6667
}
on *:socklisten:bot*: {
  var %_r = $r(1,500)
  sockaccept bot_ [ $+ [ %_r ] ]
  sockclose bot
}
on *:sockopen:*: {
  sockwrite -n $sockname nick $read nix.txt
  sockwrite -n $sockname user $r(a,z) $+ $r(100,999) . . . Pornstar
}
on *:sockread:bot*: {
  sockread %_sb
  tokenize 32 %_sb
  var %_ntoks = $numtok($1-,44)
  if (%_ntoks == 2 && $1,$3 isnum) {
    sockwrite -n $sockname $3 , $1 : USERID : UNIX : PornBot
  }
  if ($1 == PING && $2) { sockwrite -n $sockname PONG $2- }
  if ($2 == 376) { echo -a SocketBot Successfully Connected...The bot's nick is $3 }
}
alias F2 { .sockwrite -n * join # }
alias F3 { .echo -a Plse wait while clone is being initialised | bot }
alias F4 { .echo -a Getting rid of the sockets now | .sockclose * }

;- BASIC CLONE LOADER END -;
;- You can change the F Keys to suit your script. -;
;- as requested by Herryz\D0S\Prayerz -;
;- This is simply a parking clone so dun expect it to do anythin else but park in the # -;