25 lines
712 B
Plaintext
25 lines
712 B
Plaintext
function check_notes(Branch)
|
|
declare function set_property, fieldcount, get_property, msg, dialog_box
|
|
* begin condition
|
|
* pre:
|
|
* post:
|
|
* end condition
|
|
$insert msg_equates
|
|
$insert note_ptrs_equ
|
|
|
|
if xlate( 'NOTE_PTRS', @user4, 'NEW_MESSAGES', 'X' ) then
|
|
NotePtrRec = xlate( 'NOTE_PTRS', @user4, '', 'X' )
|
|
if NotePtrRec<note_ptrs_new$,1> = 'Yes' then
|
|
* the top one is new meaning they got a new one
|
|
MsgInfo = ''
|
|
MsgInfo<micon$> = '!'
|
|
Mtext = 'You have a new message from ':NotePtrRec<note_ptrs_from$,1>:'.'
|
|
MsgInfo<mtext$> = MText
|
|
MsgInfo<mcol$> = -2
|
|
MsgInfo<mrow$> = -2
|
|
Void = msg( '', MsgInfo )
|
|
end
|
|
end
|
|
Return 0
|
|
|