home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
napalm.napnet.hu
/
2015-02-12.napalm.napnet.hu.tar
/
napalm.napnet.hu
/
programok
/
kommunikacio
/
mpp700.exe
/
noticesystem.smarticq-plugin.mrc
< prev
next >
Wrap
Text File
|
2003-04-04
|
21KB
|
649 lines
;name Notice System
;version 1.0
;author tronicer
;email
on *:signal:smarticq.awaymsgreq:{
var %file = $+(",$scriptdir,sn.ini")
var %section = awaymsg
; echo
if ( $readini( %file , %section , echo ) ) {
echo -a [ICQ] * $_icq.g($1,SHOW,$1) requested your away msg!
}
; sound
if ( $readini( %file , %section , sound ) ) {
var %sound = $readini( %file , %section , sound.file )
var %n = $readini( %file , %section , sound.n )
if ($exists(%sound)) {
.splay %sound
if (%n > 1) { .timer 1 %n .splay -q %sound }
}
}
; flash
if ( $readini( %file , %section , flash ) ) {
flash $_icq.g($1,SHOW,$1) requested your away msg!
}
; beep
if ( $readini( %file , %section , beep ) ) {
beep 5 1
}
}
on *:signal:smarticq.start:{
var %file = $+(",$scriptdir,sn.ini")
var %section = closed
; echo
if ( $readini( %file , %section , echo ) ) {
echo -a [ICQ] * SmartICQ is started!
}
; sound
if ( $readini( %file , %section , sound ) ) {
var %sound = $readini( %file , %section , sound.file )
var %n = $readini( %file , %section , sound.n )
if ($exists(%sound)) {
.splay %sound
if (%n > 1) { .timer 1 %n .splay -q %sound }
}
}
; flash
if ( $readini( %file , %section , flash ) ) {
flash SmartICQ is started!
}
; beep
if ( $readini( %file , %section , beep ) ) {
beep 5 1
}
}
on *:signal:smarticq.exit:{
var %file = $+(",$scriptdir,sn.ini")
var %section = closed
; echo
if ( $readini( %file , %section , echo ) ) {
echo -a [ICQ] * SmartICQ is closed!
}
; sound
if ( $readini( %file , %section , sound ) ) {
var %sound = $readini( %file , %section , sound.file )
var %n = $readini( %file , %section , sound.n )
if ($exists(%sound)) {
.splay %sound
if (%n > 1) { .timer 1 %n .splay -q %sound }
}
}
; flash
if ( $readini( %file , %section , flash ) ) {
flash SmartICQ is closed!
}
; beep
if ( $readini( %file , %section , beep ) ) {
beep 5 1
}
}
on *:signal:smarticq.connect:{
var %file = $+(",$scriptdir,sn.ini")
var %section = connected
; echo
if ( $readini( %file , %section , echo ) ) {
echo -a [ICQ] * SmartICQ is connected!
}
; sound
if ( $readini( %file , %section , sound ) ) {
var %sound = $readini( %file , %section , sound.file )
var %n = $readini( %file , %section , sound.n )
if ($exists(%sound)) {
.splay %sound
if (%n > 1) { .timer 1 %n .splay -q %sound }
}
}
; flash
if ( $readini( %file , %section , flash ) ) {
flash SmartICQ is connected!
}
; beep
if ( $readini( %file , %section , beep ) ) {
beep 5 1
}
}
on *:signal:smarticq.disconnect:{
var %file = $+(",$scriptdir,sn.ini")
var %section = disconnected
; echo
if ( $readini( %file , %section , echo ) ) {
echo -a [ICQ] * SmartICQ is disconnected!
}
; sound
if ( $readini( %file , %section , sound ) ) {
var %sound = $readini( %file , %section , sound.file )
var %n = $readini( %file , %section , sound.n )
if ($exists(%sound)) {
.splay %sound
if (%n > 1) { .timer 1 %n .splay -q %sound }
}
}
; flash
if ( $readini( %file , %section , flash ) ) {
flash SmartICQ is disconnected!
}
; beep
if ( $readini( %file , %section , beep ) ) {
beep 5 1
}
}
on *:signal:smarticq.pager:{
if ($_icq.ign.DO_NOT_ECHO_PAGER) { return }
if (@pager@icq != $active) || !($appactive) {
var %file = $+(",$scriptdir,sn.ini")
if ( $readini( %file , pager , echo ) ) {
if (@pager@icq != $active) { echo -a [ICQ] * Paged by $gettok($1-,1,254) - $gettok($1,2,254) }
}
if ( $readini( %file , pager , sound ) ) {
var %sound = $readini( %file , pager , sound.file )
var %n = $readini( %file , pager , sound.n )
if ($exists(%sound)) {
.splay %sound
if (%n > 1) { .timer 1 %n .splay -q %sound }
}
}
if ( $readini( %file , pager , flash ) ) {
flash Paged by $gettok($1-,1,254) - $gettok($1,2,254)
}
if ( $readini( %file , pager , beep ) ) {
beep 5 1
}
}
}
on *:signal:smarticq.sms:{
var %file = $+(",$scriptdir,sn.ini")
if ( $readini( %file , sms , echo ) ) {
echo -a [ICQ] * SMS from $1
}
if ( $readini( %file , sms , sound ) ) {
var %sound = $readini( %file , sms , sound.file )
var %n = $readini( %file , sms , sound.n )
if ($exists(%sound)) {
.splay %sound
if (%n > 1) { .timer 1 %n .splay -q %sound }
}
}
if ( $readini( %file , sms , flash ) ) {
flash SMS from $1
}
if ( $readini( %file , sms , beep ) ) {
beep 5 1
}
}
on *:signal:smarticq.url:{
if ($_icq.ign.DO_NOT_ECHO_URL) { return }
if ($_icq.windowname($1) != $active) || !($appactive) {
var %file = $+(",$scriptdir,sn.ini")
if ( $readini( %file , url , echo ) ) {
if ($_icq.windowname($1) != $active) { echo -a [ICQ] * $_icq.g($1,SHOW,$1) sent a url! }
}
if ( $readini( %file , url , sound ) ) {
var %sound = $readini( %file , url , sound.file )
var %n = $readini( %file , url , sound.n )
if ($exists(%sound)) {
.splay %sound
if (%n > 1) { .timer 1 %n .splay -q %sound }
}
}
if ( $readini( %file , url , flash ) ) {
flash $_icq.g($1,SHOW,$1) sent a url!
}
if ( $readini( %file , url , beep ) ) {
beep 5 1
}
}
}
on *:signal:smarticq.message:{
if ($_icq.ign.DO_NOT_OPEN_MSG_WINDOWS) { return }
if ($_icq.windowname($1) != $active) || !($appactive) {
var %file = $+(",$scriptdir,sn.ini")
if ( $readini( %file , msg , echo ) ) {
if ($_icq.windowname($1) != $active) { echo -a [ICQ] * $_icq.g($1,SHOW,$1) sent a message! }
}
if ( $readini( %file , msg , sound ) ) {
var %sound = $readini( %file , msg , sound.file )
var %n = $readini( %file , msg , sound.n )
if ($exists(%sound)) {
.splay %sound
if (%n > 1) { .timer 1 %n .splay -q %sound }
}
}
if ( $readini( %file , msg , flash ) ) {
flash $_icq.g($1,SHOW,$1) sent a message!
}
if ( $readini( %file , msg , beep ) ) {
beep 5 1
}
}
}
on *:signal:smarticq.status:{
if ($group(#_icq.FL) == on) { return }
var %file = $+(",$scriptdir,sn.ini")
var %section = $+(status,.,$replace($1,n/a,na))
; echo
if ( $readini( %file , %section , echo ) ) {
echo -a [ICQ] * $_icq.g($2,SHOW,$2) is $1
}
; sound
if ( $readini( %file , %section , sound ) ) {
var %sound = $readini( %file , %section , sound.file )
var %n = $readini( %file , %section , sound.n )
if ($exists(%sound)) {
.splay %sound
if (%n > 1) { .timer 1 %n .splay -q %sound }
}
}
; flash
if ( $readini( %file , %section , flash ) ) {
flash $_icq.g($2,SHOW,$2) is $1
}
; beep
if ( $readini( %file , %section , beep ) ) {
beep 5 1
}
}
alias -l _icq.dlg_ns {
if ($dialog(_icq.dlg_ns)) { dialog -v _icq.dlg_ns _icq.dlg_ns }
else { dialog -m _icq.dlg_ns _icq.dlg_ns }
}
on *:dialog:_icq.dlg_ns:sclick:77:{
var %c = $did($dname,77).sel
if (%c == 1) { var %n = status.online }
if (%c == 2) { var %n = status.f4c }
if (%c == 3) { var %n = status.away }
if (%c == 4) { var %n = status.na }
if (%c == 5) { var %n = status.occupied }
if (%c == 6) { var %n = status.dnd }
if (%c == 7) { var %n = status.invisible }
if (%c == 8) { var %n = status.offline }
var %file = $+(",$scriptdir,sn.ini.tmp")
did -u $dname 52,53,54,55
if ($readini(%file,%n,echo)) { did -c $dname 52 }
if ($readini(%file,%n,sound)) { did -c $dname 53 }
if ($readini(%file,%n,beep)) { did -c $dname 54 }
if ($readini(%file,%n,flash)) { did -c $dname 55 }
did -ra $dname 59 $readini(%file,%n,sound.file)
did -ra $dname 57 $readini(%file,%n,sound.n)
}
on *:dialog:_icq.dlg_ns:sclick:52,53,54,55:{
var %c = $did($dname,77).sel
if (%c == 1) { var %n = status.online }
if (%c == 2) { var %n = status.f4c }
if (%c == 3) { var %n = status.away }
if (%c == 4) { var %n = status.na }
if (%c == 5) { var %n = status.occupied }
if (%c == 6) { var %n = status.dnd }
if (%c == 7) { var %n = status.invisible }
if (%c == 8) { var %n = status.offline }
var %file = $+(",$scriptdir,sn.ini.tmp")
writeini %file %n echo $did($dname,52).state
writeini %file %n sound $did($dname,53).state
writeini %file %n beep $did($dname,54).state
writeini %file %n flash $did($dname,55).state
}
on *:dialog:_icq.dlg_ns:edit:57:{
var %c = $did($dname,77).sel
if (%c == 1) { var %n = status.online }
if (%c == 2) { var %n = status.f4c }
if (%c == 3) { var %n = status.away }
if (%c == 4) { var %n = status.na }
if (%c == 5) { var %n = status.occupied }
if (%c == 6) { var %n = status.dnd }
if (%c == 7) { var %n = status.invisible }
if (%c == 8) { var %n = status.offline }
var %file = $+(",$scriptdir,sn.ini.tmp")
var %t = $did($dname,57).text
if (%t != $null) { writeini %file %n sound.n %t }
else { remini %file %n sound.n }
}
on *:dialog:_icq.dlg_ns:sclick:79:{
var %c = $did($dname,79).sel
if (%c == 1) { var %n = started }
if (%c == 2) { var %n = closed }
if (%c == 3) { var %n = connecting }
if (%c == 4) { var %n = connected }
if (%c == 5) { var %n = connerror }
if (%c == 6) { var %n = disconnected }
if (%c == 7) { var %n = awaymsg }
var %file = $+(",$scriptdir,sn.ini.tmp")
did -u $dname 62,63,64,65
if ($readini(%file,%n,echo)) { did -c $dname 62 }
if ($readini(%file,%n,sound)) { did -c $dname 63 }
if ($readini(%file,%n,beep)) { did -c $dname 64 }
if ($readini(%file,%n,flash)) { did -c $dname 65 }
did -ra $dname 69 $readini(%file,%n,sound.file)
did -ra $dname 67 $readini(%file,%n,sound.n)
}
on *:dialog:_icq.dlg_ns:sclick:62,63,64,65:{
var %c = $did($dname,79).sel
if (%c == 1) { var %n = started }
if (%c == 2) { var %n = closed }
if (%c == 3) { var %n = connecting }
if (%c == 4) { var %n = connected }
if (%c == 5) { var %n = connerror }
if (%c == 6) { var %n = disconnected }
if (%c == 7) { var %n = awaymsg }
var %file = $+(",$scriptdir,sn.ini.tmp")
writeini %file %n echo $did($dname,62).state
writeini %file %n sound $did($dname,63).state
writeini %file %n beep $did($dname,64).state
writeini %file %n flash $did($dname,65).state
}
on *:dialog:_icq.dlg_ns:edit:67:{
var %c = $did($dname,79).sel
if (%c == 1) { var %n = started }
if (%c == 2) { var %n = closed }
if (%c == 3) { var %n = connecting }
if (%c == 4) { var %n = connected }
if (%c == 5) { var %n = connerror }
if (%c == 6) { var %n = disconnected }
if (%c == 7) { var %n = awaymsg }
var %file = $+(",$scriptdir,sn.ini.tmp")
var %t = $did($dname,67).text
if (%t != $null) { writeini %file %n sound.n %t }
else { remini %file %n sound.n }
}
on *:dialog:_icq.dlg_ns:init:*:{
if ($exists($+(",$scriptdir,sn.ini"))) {
.copy -o $+(",$scriptdir,sn.ini") $+(",$scriptdir,sn.ini.tmp")
}
var %file = $+(",$scriptdir,sn.ini")
did -a $dname 77 Online
did -a $dname 77 Free for chat
did -a $dname 77 Away
did -a $dname 77 N/A
did -a $dname 77 Occupied
did -a $dname 77 DND
did -a $dname 77 Invisible
did -a $dname 77 Offline
did -c $dname 77 1
if ($readini(%file,status.online,echo)) { did -c $dname 52 }
if ($readini(%file,status.online,sound)) { did -c $dname 53 }
if ($readini(%file,status.online,beep)) { did -c $dname 54 }
if ($readini(%file,status.online,flash)) { did -c $dname 55 }
did -ra $dname 59 $readini(%file,status.online,sound.file)
did -ra $dname 57 $readini(%file,status.online,sound.n)
did -a $dname 79 SmartICQ Started
did -a $dname 79 SmartICQ Closed
did -a $dname 79 Connecting
did -a $dname 79 Connected
did -a $dname 79 Connection Error
did -a $dname 79 Disconnected
did -a $dname 79 Checked your away msg
did -c $dname 79 1
if ($readini(%file,started,echo)) { did -c $dname 62 }
if ($readini(%file,started,sound)) { did -c $dname 63 }
if ($readini(%file,started,beep)) { did -c $dname 64 }
if ($readini(%file,started,flash)) { did -c $dname 65 }
did -ra $dname 69 $readini(%file,started,sound.file)
did -ra $dname 67 $readini(%file,started,sound.n)
if ($readini(%file,msg,echo)) { did -c $dname 8 }
if ($readini(%file,msg,sound)) { did -c $dname 9 }
if ($readini(%file,msg,beep)) { did -c $dname 10 }
if ($readini(%file,msg,flash)) { did -c $dname 11 }
did -ra $dname 14 $readini(%file,msg,sound.file)
did -ra $dname 17 $readini(%file,msg,sound.n)
if ($readini(%file,url,echo)) { did -c $dname 22 }
if ($readini(%file,url,sound)) { did -c $dname 23 }
if ($readini(%file,url,beep)) { did -c $dname 24 }
if ($readini(%file,url,flash)) { did -c $dname 25 }
did -ra $dname 29 $readini(%file,url,sound.file)
did -ra $dname 27 $readini(%file,url,sound.n)
if ($readini(%file,sms,echo)) { did -c $dname 32 }
if ($readini(%file,sms,sound)) { did -c $dname 33 }
if ($readini(%file,sms,beep)) { did -c $dname 34 }
if ($readini(%file,sms,flash)) { did -c $dname 35 }
did -ra $dname 39 $readini(%file,sms,sound.file)
did -ra $dname 37 $readini(%file,sms,sound.n)
if ($readini(%file,pager,echo)) { did -c $dname 42 }
if ($readini(%file,pager,sound)) { did -c $dname 43 }
if ($readini(%file,pager,beep)) { did -c $dname 44 }
if ($readini(%file,pager,flash)) { did -c $dname 45 }
did -ra $dname 49 $readini(%file,pager,sound.file)
did -ra $dname 47 $readini(%file,pager,sound.n)
}
on *:dialog:_icq.dlg_ns:sclick:15,19,71,72,73,74:{
if ($did == 15) { did -ra $dname 14 $sfile($wavedir*.wav,Choose a wave,Add) }
if ($did == 71) { did -ra $dname 29 $sfile($wavedir*.wav,Choose a wave,Add) }
if ($did == 72) { did -ra $dname 39 $sfile($wavedir*.wav,Choose a wave,Add) }
if ($did == 73) { did -ra $dname 49 $sfile($wavedir*.wav,Choose a wave,Add) }
if ($did == 74) {
var %c = $did($dname,77).sel
if (%c == 1) { var %n = status.online }
if (%c == 2) { var %n = status.f4c }
if (%c == 3) { var %n = status.away }
if (%c == 4) { var %n = status.na }
if (%c == 5) { var %n = status.occupied }
if (%c == 6) { var %n = status.dnd }
if (%c == 7) { var %n = status.invisible }
if (%c == 8) { var %n = status.offline }
var %file = $+(",$scriptdir,sn.ini.tmp")
var %sfile = $sfile($wavedir*.wav,Choose a wave,Add)
if (%sfile != $null) { writeini %file %n sound.file %sfile }
else { remini %file %n sound.file }
did -ra $dname 59 %sfile
}
if ($did == 19) {
; ok button
var %file = $+(",$scriptdir,sn.ini.tmp")
writeini %file msg echo $did($dname,8).state
writeini %file msg sound $did($dname,9).state
writeini %file msg beep $did($dname,10).state
writeini %file msg flash $did($dname,11).state
if ($did($dname,14).text != $null) { writeini %file msg sound.file $ifmatch }
else { remini %file msg sound.file }
writeini %file msg sound.n $iif($did($dname,17).text,$ifmatch,1)
writeini %file url echo $did($dname,22).state
writeini %file url sound $did($dname,23).state
writeini %file url beep $did($dname,24).state
writeini %file url flash $did($dname,25).state
if ($did($dname,29).text != $null) { writeini %file url sound.file $ifmatch }
else { remini %file url sound.file }
writeini %file url sound.n $iif($did($dname,27).text,$ifmatch,1)
writeini %file sms echo $did($dname,32).state
writeini %file sms sound $did($dname,33).state
writeini %file sms beep $did($dname,34).state
writeini %file sms flash $did($dname,35).state
if ($did($dname,39).text != $null) { writeini %file sms sound.file $ifmatch }
else { remini %file sms sound.file }
writeini %file sms sound.n $iif($did($dname,37).text,$ifmatch,1)
writeini %file pager echo $did($dname,42).state
writeini %file pager sound $did($dname,43).state
writeini %file pager beep $did($dname,44).state
writeini %file pager flash $did($dname,45).state
if ($did($dname,49).text != $null) { writeini %file pager sound.file $ifmatch }
else { remini %file pager sound.file }
writeini %file pager sound.n $iif($did($dname,47).text,$ifmatch,1)
flushini $+(",$scriptdir,sn.ini.tmp")
.copy -o $+(",$scriptdir,sn.ini.tmp") $+(",$scriptdir,sn.ini")
dialog -x $dname
}
}
dialog -l _icq.dlg_ns {
title "SmartICQ - NOTICE SYSTEM"
size -1 -1 190 96
option dbu
tab "Message", 1, 1 3 187 77
box "Options", 7, 4 19 59 57, tab 1
check "Echo in active", 8, 9 30 48 10, tab 1
check "Play sound", 9, 9 40 39 10, tab 1
check "Internal beeper", 10, 9 60 50 10, tab 1
check "Flash mIRC", 11, 9 50 43 10, tab 1
box "Sound Settings", 12, 65 19 120 35, tab 1
edit "", 14, 68 28 99 10, tab 1 read autohs
button "...", 15, 168 28 13 10, tab 1
text "Play sound", 16, 69 41 26 8, tab 1
edit "", 17, 97 39 15 10, tab 1 autohs limit 3
text "Times", 18, 114 41 14 8, tab 1
tab "URL", 2
box "Options", 21, 4 19 59 57, tab 2
check "Echo in active", 22, 9 30 48 10, tab 2
check "Play sound", 23, 9 40 39 10, tab 2
check "Internal beeper", 24, 9 60 50 10, tab 2
check "Flash mIRC", 25, 9 50 43 10, tab 2
text "Play sound", 26, 69 41 26 8, tab 2
edit "", 27, 97 39 15 10, tab 2 autohs limit 3
text "Times", 28, 114 41 14 8, tab 2
edit "", 29, 68 28 99 10, tab 2 read autohs
box "Sound Settings", 30, 65 19 120 35, tab 2
button "...", 71, 168 28 13 10, tab 2
tab "SMS", 3
box "Options", 31, 4 19 59 57, tab 3
check "Echo in active", 32, 9 30 48 10, tab 3
check "Play sound", 33, 9 40 39 10, tab 3
check "Internal beeper", 34, 9 60 50 10, tab 3
check "Flash mIRC", 35, 9 50 43 10, tab 3
text "Play sound", 36, 69 41 26 8, tab 3
edit "", 37, 97 39 15 10, tab 3 autohs limit 3
text "Times", 38, 114 41 14 8, tab 3
edit "", 39, 68 28 99 10, tab 3 read autohs
box "Sound Settings", 40, 65 19 120 35, tab 3
button "...", 72, 168 28 13 10, tab 3
tab "Pager", 4
box "Options", 41, 4 19 59 57, tab 4
check "Echo in active", 42, 9 30 48 10, tab 4
check "Play sound", 43, 9 40 39 10, tab 4
check "Internal beeper", 44, 9 60 50 10, tab 4
check "Flash mIRC", 45, 9 50 43 10, tab 4
text "Play sound", 46, 69 41 26 8, tab 4
edit "", 47, 97 39 15 10, tab 4 autohs limit 3
text "Times", 48, 114 41 14 8, tab 4
edit "", 49, 68 28 99 10, tab 4 read autohs
box "Sound Settings", 50, 65 19 120 35, tab 4
button "...", 73, 168 28 13 10, tab 4
tab "Status", 5
box "Options", 51, 4 19 59 57, tab 5
check "Echo in active", 52, 9 30 48 10, tab 5
check "Play sound", 53, 9 40 39 10, tab 5
check "Internal beeper", 54, 9 60 50 10, tab 5
check "Flash mIRC", 55, 9 50 43 10, tab 5
text "Play sound", 56, 69 41 26 8, tab 5
edit "", 57, 97 39 15 10, tab 5 autohs limit 3
text "Times", 58, 114 41 14 8, tab 5
edit "", 59, 68 28 99 10, tab 5 read autohs
box "Sound Settings", 60, 65 19 120 35, tab 5
button "...", 74, 168 28 13 10, tab 5
text "Choose type of status:", 76, 65 56 53 8, tab 5
combo 77, 65 65 78 100, tab 5 size drop
tab "Misc", 6
box "Options", 61, 4 19 59 57, tab 6
check "Echo in active", 62, 9 30 48 10, tab 6
check "Play sound", 63, 9 40 39 10, tab 6
check "Internal beeper", 64, 9 60 50 10, tab 6
check "Flash mIRC", 65, 9 50 43 10, tab 6
text "Play sound", 66, 69 41 26 8, tab 6
edit "", 67, 97 39 15 10, tab 6 autohs limit 3
text "Times", 68, 114 41 14 8, tab 6
edit "", 69, 68 28 99 10, tab 6 read autohs
box "Sound Settings", 70, 65 19 120 35, tab 6
button "...", 75, 168 28 13 10, tab 6
text "Choose type:", 78, 65 56 31 8, tab 6
combo 79, 65 65 78 100, tab 6 size drop
button "Ok", 19, 112 83 37 12
button "Cancel", 20, 151 83 37 12, cancel
}
on *:signal:smarticq.menu:{
if ($1 == settings) {
if ($2 == on) { .enable #_icq.ns_menu }
if ($2 == off) { .disable #_icq.ns_menu }
}
}
#_icq.ns_menu off
menu @smarticq {
Notice System:_icq.dlg_ns
}
#_icq.ns_menu end