home *** CD-ROM | disk | FTP | other *** search
/ Sverigejakten / sverigejakten.iso / SUCCESS.DIR / 00017_Script_f_result < prev    next >
Text File  |  2003-08-12  |  2KB  |  53 lines
  1. on exitFrame
  2.   global movie_time
  3.   global crimeno
  4.   global level
  5.   set crimes=crimeno
  6.   
  7.   set temp_time=(movie_time)
  8.   
  9.   set hours = (temp_time/60)
  10.   set minutes=abs(temp_time-(hours*60))
  11.   
  12.   set temp_value=(crimes*2)+hours+(6*(3-level))
  13.   set points=((10-crimes)*350) + (4000-movie_time) + (600*level)
  14.   set title=9
  15.   if temp_value<45 then set title=9
  16.   if temp_value<40 then set title=8
  17.   if temp_value<35 then set title=7
  18.   if temp_value<30 then set title=6
  19.   if temp_value<25 then set title=5
  20.   if temp_value<20 then set title=4
  21.   if temp_value<16 then set title=3
  22.   if temp_value<11 then set title=2
  23.   if temp_value<7 then set title=1
  24.   
  25.   
  26.   set time=""
  27.   
  28.   -- ##international: change from Swedish time units and sentenses below:
  29.   put string(hours) &" timmar och " into line 1 of time
  30.   put string(minutes) &" minuter" into line 2 of time
  31.   
  32.   if hours=1 then put string(hours) &" timme och " into line 1 of time
  33.   if minutes=1 then put string(minutes) &" minut" into line 2 of time
  34.   
  35.   set result=""
  36.   put ("- Jakten tog " & line 1 of time & line 2 of time &".") into line 1 of result
  37.   
  38.   put ("- Skurken hann begσ " &string (crimes) &" brott.")into line 2 of result
  39.   
  40.   put ("- Du har blivit utsedd till " &line title of the text of member "titles" &".") into line 3 of result
  41.   
  42.   put ("- Du fick totalt " & string (points) &" deckarpoΣng.") into line 4 of result
  43.   
  44.   -- ##end international
  45.   
  46.   set the text of member "text" =result
  47.   
  48.   
  49.   if points > value (item 3 of line 12 of the text of member "highscore" of castlib "savegame") or points = value (item 3 of line 12 of the text of member "highscore" of castlib "savegame") then
  50.     set the text of member "name" = ""
  51.     go to frame "highscore"
  52.   end if
  53. end