X-Static Codes Pastebin Uploader

By F*U*R*B*Y* on Feb 02, 2008

just load it in remotes and type /paste

Image

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 You can find your post at $regml(1)
  ;echo -a %a
}

Comments

Sign in to comment.
Joshuaxiong1   -  Jan 03, 2009

So it's really does can be done.

More
 Respond  
Lindrian   -  Feb 02, 2008

I refer to http://www.hawkee.com/profile/img/1235/#bottom regarding the design.

More
 Respond  
F*U*R*B*Y*   -  Feb 02, 2008

:S strange

More
 Respond  
LucSatise   -  Feb 02, 2008

Yeh i posted tht then posted ur code under it

More
 Respond  
F*U*R*B*Y*   -  Feb 02, 2008

its showing that you posted

;;;;I DID NOT MAKE THIS. IM TESTING IT;;;;;;;;

More
 Respond  
LucSatise   -  Feb 02, 2008

Hey this never worked: http://www.xstaticcodes.com/paste.php?id=136

I added the bit it says there and pasted in this code to test it

More
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.