; Dropbox Screen Shot Uploader
;Uses mirc_ss.dll and dropbox
;Logs each image url in a hash file
;You must have a dropbox account and Dropbox installed and running. As well the dll for this addon to work!!!
;Link to get the dll https://dl.dropbox.com/u/6355058/mIRC-Stuff/mirc_ss.zip

on *:start: { 
  hmake db 300
  if ($exists(dropbox.dat)) { hload db dropbox.dat }
}

;F Key change number to what you wish to use. 
alias F8 { screenshot msg }

alias screenshot {
  if (!$hget(db,ID)) { hadd db ID $$?="Please enter your dropbox id ie(6355058):" }
  if (!$hget(db,filepath)) { hadd db filepath $sdir(c:\,Please select a public dropbox folder to save screen shots) }
  $iif($1,$1,echo) $active Taking screenshot, Please hold.
  var %i $+(ss_,$asctime(mmddhhnnsstt),.jpg) , %f $hget(db,filepath) 
  if ($regex(%f,/.*\\Dropbox\\Public\\(.+)?(\\)/i)) { var %d $regml(1) }
  if (!%d) { var %d screenshots , %f = %f $+ %d }
  if (!$isdir(%f)) { mkdir %f }
  var %url $+(https://dl.dropbox.com/u/,$hget(db,ID),/,%d,/,%i)
  hadd db %i %url | hsave db dropbox.dat
  .timer 1 3 dll $findfile($mircdir,mirc_ss.dll,1) takess 099 $+(%f,\,%i)
  .timer 1 5 $iif($1,$1,echo) $active Screenshot taken you can view it here %url
}

menu status,channel,menubar, {
  -
 Dropbox Screen Shot Uploader
  .Update Account ID ( $hget(db,ID) ): hadd db ID $$?="Please enter your dropbox id ie(6355058):"
  .Update File Path: hadd db filepath $sdir(c:\,Please select a public dropbox folder to save screen shots)
  .-
  .Take Screenshot: { var %i $?!="Do you want to msg the url to the room?" |  screenshot $iif(%i == $True,msg) }
  -
}