home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2007 February / maximum-cd-2007-02.iso / main.dxr / Internal_194_databaseText.b.ls < prev    next >
Encoding:
Text File  |  2006-07-19  |  1.2 KB  |  35 lines

  1. global database
  2.  
  3. on beginSprite me
  4.   member("bodyCopy3").scrollTop = 0
  5. end
  6.  
  7. on mouseWithin me
  8.   member("bodyCopy3").color = rgb(0, 255, 0)
  9.   p = pointToLine(sprite(91), the mouseLoc)
  10.   member("bodyCopy3").line[p].color = rgb(255, 255, 0)
  11. end
  12.  
  13. on mouseLeave me
  14.   member("bodyCopy3").color = rgb(0, 255, 0)
  15. end
  16.  
  17. on mouseUp me
  18.   p = pointToLine(sprite(91), the mouseLoc)
  19.   entry = database[p]
  20.   member("bodyCopy").text = entry.gamename & RETURN & RETURN & "PUBLISHER:" & RETURN & entry.gamepub & RETURN & entry.gameurl & RETURN & RETURN & "GAME STYLE:" & RETURN & entry.gamecategory & RETURN & RETURN & "PC GAMER RATING: " & entry.gamerating & RETURN & RETURN & "HIGH POINTS:" & RETURN & entry.gamehigh & RETURN & RETURN & "LOW POINTS:" & RETURN & entry.gamelow & RETURN & RETURN & "BOTTOM LINE:" & RETURN & entry.bottomline & RETURN & RETURN & entry.gamepub & RETURN
  21.   parseForSpecs(sprite(me.spriteNum).member.name)
  22.   parseForURL("bodyCopy")
  23. end
  24.  
  25. on doSearch me
  26.   t = member("inputField").text
  27.   put t
  28.   repeat with i = 1 to member("bodyCopy3").line.count
  29.     if offset(t, member("bodyCopy3").line[i]) = 1 then
  30.       member("bodyCopy3").scrollTop = (i - 1) * 12
  31.       exit repeat
  32.     end if
  33.   end repeat
  34. end
  35.