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

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

on dspten n
  global gten, gai
  set gten to gten + n
  if gten < 0 then
    set gten to 0
  end if
  set gai to gten
  if gai > 9 then
    set gai to 9
  end if
  set j to gai
  repeat with i = 16 to 24
    if j <> 0 then
      set the puppet of sprite i to 1
      set the blend of sprite i to 100
      set j to j - 1
      next repeat
    end if
    set the puppet of sprite i to 1
    set the blend of sprite i to 30
  end repeat
end

on dspscore
  global userid, gten, gai, userpm
  put userid into field "userID"
  put integer(gai * 10) into field "point"
  if gai = 9 then
    put 100 into field "label"
    put field "addInfoText2" into field "addInfo"
  else
    put integer(gai * 10) into field "label"
    put field "addInfoText1" into field "addInfo"
  end if
  put gai into char 14 of userpm
end

on _dspscore
  global gname, gten, gai
  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 gai > 0 then
    put "à§Ç™" && gai && "DžǻǡÇýÅI" after field "SCORE"
  else
    put "à§Ç™ 0 ÇæÇ¡ÇýÅI" after field "SCORE"
  end if
end