Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alias Sini {
- dialog -ma Sini Sini
- }
- dialog Sini {
- title "Invite Dialog"
- size -1 -1 385 179
- }
- on *:dialog:Sini:*:*: {
- if ($devent == init) {
- dcx Mark $dname Sini_cb
- xdialog -b $dname +zto
- xdialog -c $dname 2 button 3 155 75 20 tabstop
- xdid -t $dname 2 Join Channel
- xdialog -c $dname 5 edit 278 156 100 20 autohs autovs tabstop
- xdid -a $dname 5 Your Reply
- xdialog -c $dname 1 richedit 1 0 390 150 multi hsbar vsbar tabstop read
- xdialog -c $dname 3 button 83 155 85 20 tabstop
- xdid -t $dname 3 Ignore Invite
- xdialog -c $dname 4 button 174 155 98 20 tabstop
- xdid -t $dname 4 Notice And Ignore
- xdid -f $dname 1 +a ansi 10 Times New Roman
- xdid -f $dname 2,3,4,5 +a ansi 8 Times New Roman
- xdid -C $dname 1 +t $color(15)
- xdid -C $dname 1 +b $color(1)
- xdid -C $dname 1 +k $color(1)
- xdid -k $dname 1 $color(1)
- }
- }
- alias Sini_cb {
- If ($2 == Sclick) {
- If ($3 == 4) { Notice %Nick.Sini 11,1 $chr(171) $+ 14(15Invite Not Approved14)11 $+ $chr(187) Reason: $xdid($1,5).text | Dialog -x $1 $1 }
- If ($3 == 3) { Dialog -x $1 $1 }
- If ($3 == 2) { Join %Chan.Sini | Dialog -x $1 $1 }
- }
- If ($2 == Close) { Unset %Nick.Sini %Chan.Sini }
- }
- On ^*:Invite:*:{
- If (!$Dialog(Sini)) {
- Dialog -m Sini Sini
- Set %Nick.Sini $Nick
- Set %Chan.Sini $Chan
- xdid -a Sini 1 15,1 Invite From $Nick $crlf
- xdid -a Sini 1 15,1 Server: $Server $crlf
- xdid -a Sini 1 15,1 Channel: $chan
- Halt
- }
- elseif ($Dialog(Sini)) {
- Set %Nick.Sini $Nick
- Set %Chan.Sini $Chan
- xdid -r Sini 1
- xdid -a Sini 1 15,1 Invite From $Nick $crlf
- xdid -a Sini 1 15,1 Server: $Server $crlf
- xdid -a Sini 1 15,1 Channel: $chan
- Halt
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement