home *** CD-ROM | disk | FTP | other *** search
- on dspscore
- global userid, gten, gcoin
- clearlamp()
- put userid into field "userID"
- put gten into field "point"
- put gcoin into field "label"
- end
-
- on _dspscore
- global gname, gten, gcoin
- set n to "ÉXÉRÉAÉ`ÉFÉbÉN" & RETURN & RETURN
- if gname = EMPTY then
- set n to n & "ǏÇÒÇ×Ç•" && "ÇŽÇÒÇÃ" & RETURN
- else
- set n to n & gname && "ÇŽÇÒÇÃ" & RETURN
- end if
- set n to n & "DZÇÃÉQÅ[ÉÄÇÃ" & RETURN & "ìæì_ÇÕ "
- if gten <= 0 then
- set n to n & "0 ì_ǼÇÝÅB" & RETURN & RETURN
- else
- set n to n & gten && "ì_ǼÇÝÅB" & RETURN & RETURN
- end if
- if gcoin > 0 then
- set n to n & "Ç®ã‡Ç™" && gcoin && "DžǻǡÇýÅI"
- else
- set n to n & "Ç®ã‡Ç™ 0 DžǻǡÇýÅI"
- end if
- put n into field "SCORE"
- end
-