View

X-Static Codes Pastebin Uploader

Snippet Author: FURBY
Rated:

Snippet Description: just load it in remotes and type /paste

alias paste { dialog -mado paste paste }
dialog paste {
  title "X-Static Code Pastebin Uploader"
  size -1 -1 153 112
  option dbu
  link "X-Static Codes", 1, 58 101 36 8
  text "X-Static Codes Pastebin mIRC Script!", 2, 4 3 142 8, center
  text "Please Enter Your Name:", 3, 4 13 61 8
  edit "", 4, 70 12 70 10
  text "Please Enter Your Script:", 5, 4 23 62 8
  edit "", 6, 4 32 147 52, multi return autohs autovs
  button "Paste", 7, 39 87 37 12
  button "Reset", 8, 78 87 37 12
}

on *:DIALOG:paste:sclick:7: {
  if ($did(4) == $null) { did -r 3 | did -a 3 04Please enter your Name: }
  elseif ($did(6) == $null) { did -r 5 | did -a 5 04Please enter your Script: }
  else {
    %Paste.Script = $did(6)
    %Paste.User = $did(4)
    sockopen Paste www.xstaticcodes.com 80
  }
}
on *:DIALOG:paste:sclick:8: {
  did -r paste 4
  did -r paste 6
}
on *:sockopen:Paste: {
  var %a $+(name=,%Paste.User,&paste=,%Paste.Script)
  sockwrite -tn $sockname POST /paste.php HTTP/1.0
  sockwrite -tn $sockname Host: www.xstaticcodes.com
  sockwrite -tn $sockname Content-Type: application/x-www-form-urlencoded 
  sockwrite -tn $sockname Content-length: $len(%a)
  sockwrite -tn $sockname $crlf $+ %a
}
on *:sockread:Paste: {
  var %a
  sockread %a
  if ($regex(%a,You can find your post at <a href="(\S+)">)) echo -a $regml(1)
  ;echo -a %a
}

Favorite Script -

Smilies	Message:
	Comments:

X-Static Codes

Search

Scripting

Links

Sponsors

Stats

View

X-Static Codes Pastebin Uploader