Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Panasonic-/funcity/tokyo/e/cool.dcr/00046_ýŠ±ï-é¶.ls

Text File | 2017-09-21 | 1.5 KB | 54 lines

on dspten n
  global gten, gnin
  set gten to gten + n
  set gnin to integer(gten / 2.79999999999999982)
  if gnin > 9 then
    set gnin to 9
  end if
  set i to gnin
  repeat with j = 16 to 24
    set the puppet of sprite j to 1
    if i > 0 then
      set the blend of sprite j to 100
      set i to i - 1
      next repeat
    end if
    set the blend of sprite j to 50
  end repeat
end

on dspscore
  global userid, gten, gnin, userpm
  put userid into field "userID"
  put gnin into char 13 of userpm
  put integer(gnin * 10) into field "point"
  if gnin = 9 then
    put 100 into field "label"
    put "You have been awarded" & RETURN & "10 bonus points." & RETURN & "Total points is 100." into field "addInfo"
  else
    put integer(gnin * 10) into field "label"
    put " " into field "addInfo"
  end if
end

on _dspscore
  global gname, gten, gnin
  put "ÉXÉRÉAÉ`ÉFÉbÉN" & RETURN & RETURN into field "SCORE"
  if gname = EMPTY then
    put "ǏÇÒÇ×Ç•" && "ÇŽÇÒÇÃ" & RETURN after field "SCORE"
  else
    put gname && "ÇŽÇÒÇÃ" & RETURN after field "SCORE"
  end if
  put "DZÇÃÉQÅ[ÉÄÇÃ" & RETURN & "ìæì_ÇÕ " after field "SCORE"
  if gten <= 0 then
    put "0 ì_ǼÇÝÅB" & RETURN & RETURN after field "SCORE"
  else
    put gten && "ì_ǼÇÝÅB" & RETURN & RETURN after field "SCORE"
  end if
  if gnin > 0 then
    put "îEëœóÕÇ™" && gnin && "DžǻǡÇýÅI" after field "SCORE"
  else
    put "îEëœóÕÇ™ 0 ÇæÇ¡ÇýÅI" after field "SCORE"
  end if
end