[beta]rage faces
Platform: mIRC
Published Oct 14, 2011
Updated Oct 14, 2011
for my next version
I need a preview option for the outcome, and then an option to save it.
It would save all 4 pics in the main dialog as 1 picture.
then after (once this is figured out..) would upload to imgur
pretty much a mirc version of
www.ragemaker.net alias rage dialog -m rage rage
dialog rage {
title "New Project"
size -1 -1 279 269
option dbu
icon 1, 2 2 134 117
icon 2, 142 2 134 117
icon 3, 2 136 134 117
icon 4, 142 136 134 117
button "1", 5, 42 122 37 12
button "2", 6, 188 122 37 12
button "3", 7, 42 257 37 12
button "4", 8, 187 256 37 12
button "save", 9, 118 124 37 12
}
on *:dialog:rage:sclick:5:{ set %space 1 | set %spaceimg1 | disable | rpic }
on *:dialog:rage:sclick:6:{ set %space 2 | set %spaceimg2 | disable | rpic }
on *:dialog:rage:sclick:7:{ set %space 3 | set %spaceimg3 | disable | rpic }
on *:dialog:rage:sclick:8:{ set %space 4 | set %spaceimg4 | disable | rpic }
alias enable did -e rage 5-8
alias disable did -b rage 5-8
on *:dialog:rage:sclick:9:{
;this would save all the pics in the dialog as 1
}
Alias rpic {
set %pic $rand(1,312) $+ .png
echo -a %pic
SockOpen RPic www.mslcoding.com 80
}
On 1:SockOpen:RPic:{
sockwrite -nt $sockname GET /mSL/pics/ $+ %pic HTTP/1.1
sockwrite $sockname Host: www.mslcoding.com $+ $crlf $+ $crlf
}
On 1:SockRead:RPic:{
if (!$sock($sockname).mark) {
var %SockReader
sockread %SockReader
if (%SockReader == $null) { sockmark $sockname 1 }
}
else {
sockread &picture
bwrite $qt($mIRCdir $+ pics\ $+ %pic) -1 -1 &picture
}
}
On 1:SockClose:RPic:{
ShowPic
enable
}
Alias ShowPic {
set %height $pic($mIRCdir $+ pics\ $+ %pic).height | set %width $pic($mIRCdir $+ pics\ $+ %pic).width
echo -a width: %width height: %height
set %loc $qt($mIRCdir $+ pics\ $+ %pic)
did -g rage %space %loc
echo -a %loc
unset %pic | unset %window | unset %width | unset %height | unset %space | unset %loc
sockClose RPic
}
