tglogo.png
0 LIKES

Snippet


PM Request by YmmaX

In Category General IRC Posted by Snippets On 12/04/23
Tags: pm request ymmax 

With this mIRC script you can manage your query by accepting or decline it. Also in this script you can set some common channel(s) and if user is in that channel/s the PM will be not filtered and it can write without moderation; script makes a exception for channel @ops too.
Because after query acceptation you can't see the text lines before, this script give you posibility to check the logs, but for that, you will need to enable logging system by /log on, in your mIRC.
;###
;# PM Request
;# yM]x @ UnderNet
;###

ON *:LOAD: {
.set %pmrowner $decode(WU1d,m)
noop $input(You are now using %pmrowner $+ 's PM Accept/Decline script.,oi,Script was successfully loaded.)
.set %expChans $$?="Except channels (e.g.: #channel1 #channel2)"
.set %igTime $$?="Set the ignore time duration (in minutes) of declined PMs."
}
alias F11 { .set %expChans $$?="Except channels (e.g.: #channel1 #channel2)" }
alias cF11 { .set %igTime $$?="Set the ignore time duration (in minutes) of declined PMs." }

dialog pm {
  title "PM Request"
  size -1 -1 216 221
  option pixels
  edit "", 1, 17 36 180 20
  edit "", 2, 17 72 180 108, read multi vsbar
  text "From:", 3, 17 19 45 15
  text "Message:", 4, 17 56 50 15
  button "Accept", 5, 38 184 59 20,
  button "Decline", 6, 107 184 59 20, ok
  box "", 7, 7 2 201 212
}

on *:OPEN:?:{
  .set %x $comchan($nick,0)
  .set %i 1
  if (%x == 0) { goto pm }
  if (%x > 0) {
    :start
     if (%i > %x) { goto pm }
     if (%i <= %x) {
       if ($comchan($nick,%i) isin %expChans) || ($nick isop $comchan($nick,%i)) { goto stop }
       elseif ($comchan($nick,%i) !isin %expChans) || ($nick !isop $comchan($nick,%i)) && (%i < %x) { inc %i | goto start }
       elseif ($comchan($nick,%i) !isin %expChans) || ($nick !isop $comchan($nick,%i)) && (%i == %x) { goto pm }
     }
    :pm
      .dialog -mod pm pm pm
      .did -a pm 2 $1-
      .did -a pm 1 $nick
      .msg $nick Hi $nick $+ ! Your message has been sent, but need to be 3accepted or 4declined, so please wait patiently.
      .close -m $nick
    :stop
     .timer 1 4 .unset %x
     .timer 1 6 .unset %i
  }
}
on *:dialog:pm:sclick:5:{
  .query $did(pm,1).text
  .msg $did(pm,1).text Your PM request was 3accepted. You can now write your message.
  echo 14 $did(pm,1).text * $me you can check PM logs by pressing CTRL+F12 keys.
  .dialog -x pm
}
on *:dialog:pm:sclick:6:{
  .msg $did(pm,1).text  This PM was 4declined. Also you had been ignored for  $+ %igTime $+  minutes.
  .ignore -u $+ $calc( %igTime * 60 ) $address($did(pm,1).text,2)
  .dialog -x pm pm
}

;Logs
menu query {
  -
  $active logs ( $+ $findfile($mircdirlogs\, $+ $active $+ *.log,0) $+ ):run $findfile($mircdirlogs\, $+ $active $+ *.log,1)
}
alias cF12 { run $findfile($mircdirlogs\, $+ $active $+ *.log,1) }


Comments 0


Please note that on our website we use cookies necessary for the functioning of our website, cookies that optimize the performance. To learn more about our cookies, how we use them and their benefits, please read our Cookie Policy.
I Understand