Monday, August 28, 2006

Awards

Juniour craft competion - 2000





Yahoo! Answers "Best answer" Wins
answers.yahoo.com

Web design, iframes
http://answers.yahoo.com/question/?qid=20060823110514AAuTshw


Zoom using scroll in photoshop

India on the globe!

A presentation on India, Indians and Indian values!

Download presentation now
(right click and select "save link as" or "save target as")




The Geniune genius

A small presentation of the Master Batsman Sachin Tendulkar!


Media player (open source)

<<Handlers require MPEG advance XTRA,MPEG Drivers etc
property videoSprite -- the sprite number that is getting controlled
property videoCommand -- the command to be issued
property standardImage -- the Button Image
property alternateImage -- the Rollover Image for the button
property clickedImage -- the Clicked Image for the button rollover and click.
property param1 -- first parameter of the command
property param2 -- second parameter of the command

on Control me
case ( the VideoCommand of me ) of:
#Play:
videoplay(sprite the videoSprite of me)
#Pause:
videopause(sprite the videoSprite of me)
#Rewind:
videoseek(sprite the videoSprite of me, the segmentstart of sprite the videoSprite of me)
#StepForward:
videopause(sprite the videoSprite of me)
videoseek(sprite the videoSprite of me, the currenttime of sprite the videoSprite of me+30)
#StepBackward:
videopause(sprite the videoSprite of me)
videoseek(sprite the videoSprite of me, the currenttime of sprite the videoSprite of me-30)
#Seek:
videoseek(sprite the videoSprite of me, the param1 of me)

end case
end


on mouseUp me
set the member of sprite the spritenum of me = the standardImage of me
DoControl me
end

on mouseDown me
set the member of sprite the spritenum of me = the clickedImage of me
end

on mouseEnter me
set the member of sprite the spritenum of me = the alternateImage of me
end

on mouseLeave me
set the member of sprite the spritenum of me = the standardImage of me
end

---

on beginSprite me
set the standardImage of me = the member of sprite the spriteNum of me
end

---

on getPropertyDescriptionList
if the currentspritenum = 0 then
set memdefault = 0
else
set memref = the member of sprite the currentspritenum
set castlibnum = the castlibnum of memref
set memdefault = member (the membernum of member memref + 1) of castlib castlibnum
set memdefault2 = member (the membernum of member memref + 2) of castlib castlibnum
end if

set p_list = [ #videoCommand: [ #comment: "Action:",#format: #symbol, #range: [ #Play, #Pause, #Rewind,#StepBackward,#StepForward, #Seek, #PlaySegment],#default: #Play ], #param1: [ #comment: "First Parameter (Use with seek or playsegment):", #format: #long, #default: 0] , #param2: [ #comment: "Second Parameter (Use with playsegment):", #format: #long, #default: 0] , #videoSprite: [ #comment: "DirectMedia Sprite Channel:", #format: #integer, #default: 1] , #alternateImage: [ #comment: "Rollover Button Cast Member:", #format: #graphic, #default: memdefault ], #clickedImage: [ #comment: "Clicked Button Cast Member:", #format: #graphic, #default: memdefault2 ]]
return p_list
end



----------------------
-- DirectMedia Xtra Rate Slider


-- Control

-- requires an 'extent' cast member
-- that limits the range the slider 'slides'
-- controls the currenttime of a DirectMedia Xtra sprite,
-- if the sprite is playing the slider moves automatically



property pDuration, pMovieTime, VideoSprite

property horizontal -- if false, vertical
property extentSprite
property hiliteMember -- looks like the handle plus hilite graphics
-- also holds the member of handle while hilited

property tracking
property newLocH
property newLocV

property sending -- if true, sends value when parked
property dynamic -- if true and sending true, sends value while tracking
property style -- [sendAllSprites, SendSprite, Call]
property addressee -- which spritenum gets the message if SendSprite or Call
property name -- Sliders identity so messages can be traced
property notify_list -- list of sprites to receive event, only has 1 item this time

property min, max -- the range the slider maps to
property valrange -- the difference of max and min, set on begin
property minScreen, maxScreen -- calculated from the screen coords of the extent
property currentScreenVal -- the data point in screen coords, set in tracking
property extentlength -- in screen coords, set on begin

property CurrentVal

on getPropertyDescriptionList
if the currentspritenum = 0 then
set memdefault = 0
else
set memref = the member of sprite the currentspritenum
set castlibnum = the castlibnum of memref
set memdefault = member (the membernum of member memref + 1) of castlib castlibnum
end if


set description = [:]

addprop description, #VideoSprite, [#default: 1, #format:#integer, #comment: "Video Sprite:"]

addprop description, #extentSprite, [#default: 1, #format:#integer, #comment: "Extent Sprite:"]

addprop description, #hiliteMember, [#default: memdefault , #format:#graphic,#comment: "Hilite Member:"]

addprop description, #horizontal, [#default: 1, #format:#boolean,#comment: "Horizontal (if not vertical):"]

addprop description, #dynamic, [#default: 1, #format:#boolean,#comment: "Dynamic:"]

return description
end

on getBehaviorDescription
return "Drag to slider 'handle' to enable control of video play time. Requires additional 'extent' member which limits the handle travel range." & RETURN & "PARAMETERS:" & RETURN & "• Video Sprite - Enter the number of sprite channel in which video is displayed." & RETURN & "• Extent Sprite - Enter the number of sprite channel that contains the 'extent' sprite." & RETURN & "• Hilite Member - Member to display while handle is being dragged." & RETURN & "• Horizontal - If set, orient extent sprite horizontally, if not set orient vertically." & RETURN & "• Dynamic - If set, video time will be updated while handle is dragged, else when handle is released."
end

on compute_val me
-- relies on tracking to update the currentScreenVal (different for Hor, Vert)
set val = 0.0
set val = float(the currentScreenVal of me) / float (the extentlength of me)
set val = val * the valrange of me
set val = val + the min of me
return val
end

on send_the_val me, val
-- sets the digital video volume to the val * paramter
set pMovieTime = val * pDuration
setrate(sprite VideoSprite, pMovieTime)
end


on beginSprite me

set pDuration = 200

set the min of me = 0.0
set the max of me = 1.0
set the sending of me = true

--
set handle = the spritenum of me
set the tracking of me = FALSE
set the newLocH of me = the locH of sprite handle
set the newLocV of me = the locV of sprite handle

if the horizontal of me then
set the newLocV of me = the locV of sprite the extentSprite of me
set the minScreen of me = the left of sprite the extentSprite of me
set the maxScreen of me = the right of sprite the extentSprite of me
else -- vertical slider
set the newLocH of me = the locH of sprite the extentSprite of me
set the minScreen of me = the left of sprite the extentSprite of me
set the maxScreen of me = the right of sprite the extentSprite of me
end if

-- puppetsprite handle, TRUE -- take this out when beginSpriteAutoPuppet fixed

set the locH of sprite handle to the newLocH of me
set the locV of sprite handle to the newLocV of me

set the valrange of me = the max of me - the min of me
set the extentlength of me = the maxScreen of me - the minScreen of me

if the sending of me = FALSE then -- check for wrong input (dyn true, send false)
set the dynamic of me = FALSE
end if

-- set CurrentVal = compute_val()

end

on prepareFrame me
-- limits motion of handle to extents of extentSprite
-- and locks the handle to the track of the extentSprite

if tracking then
set handle = the spriteNum of me
set extent = the extentSprite of me

if the horizontal of me then
set the newLocH of me = the mouseH
set the newLocV of me = the locV of sprite extent
if the newLocH of me <>
set the newLocH of me = the left of sprite extent
end if
if the newLocH of me > the right of sprite extent then
set the newLocH of me = the right of sprite extent
end if

set the currentScreenVal of me = the newLocH of me - the minScreen of me

else -- vertical slider
set the newLocH of me = the locH of sprite extent
set the newLocV of me = the mouseV
if the newLocV of me <>
set the newLocV of me = the top of sprite extent
end if
if the newLocV of me > the bottom of sprite extent then
set the newLocV of me = the bottom of sprite extent
end if

set the currentScreenVal of me = the newLocV of me - the minScreen of me

end if -- if vertical

set the locH of sprite handle to the newLocH of me
set the locV of sprite handle to the newLocV of me

if the dynamic of me then
send_the_val me, compute_val (me)
end if

else -- end if tracking, control slider position by movieTime

set x = float(getrate(sprite VideoSprite))/ float(pDuration)


set handle = the spriteNum of me
set extent = the extentSprite of me

if the horizontal of me then
set ScreenX = the left of sprite extent + (x * (the right of sprite extent - the left of sprite extent))
set the newLocH of me = screenX
set the newLocV of me = the locV of sprite extent
if the newLocH of me <>
set the newLocH of me = the left of sprite extent
end if
if the newLocH of me > the right of sprite extent then
set the newLocH of me = the right of sprite extent
end if

set the currentScreenVal of me = the newLocH of me - the minScreen of me

else -- vertical slider
set ScreenY = the top of sprite extent + (x * (the bottom of sprite extent - the top of sprite extent))
set the newLocH of me = the locH of sprite extent
set the newLocV of me = ScreenY
if the newLocV of me <>
set the newLocV of me = the top of sprite extent
end if
if the newLocV of me > the bottom of sprite extent then
set the newLocV of me = the bottom of sprite extent
end if

set the currentScreenVal of me = the newLocV of me - the minScreen of me

end if -- if vertical

set the locH of sprite handle to the newLocH of me
set the locV of sprite handle to the newLocV of me

end if


end

on mouseDown me
set tracking = TRUE
set temp = the member of sprite the spritenum of me
set the member of sprite the spritenum of me = member the hiliteMember of me
set the hiliteMember of me = temp
end

on mouseUp me
set tracking = FALSE
set temp = the member of sprite the spritenum of me
set the member of sprite the spritenum of me = member the hiliteMember of me
set the hiliteMember of me = temp

if the sending of me then
set x = compute_val (me)
send_the_val me, x
end if

end

on mouseUpOutside me
set tracking = FALSE
set temp = the member of sprite the spritenum of me
set the member of sprite the spritenum of me = member the hiliteMember of me
set the hiliteMember of me = temp

if the sending of me then
set x = compute_val (me)
send_the_val me, x
end if

end

on mouseEnter me

end

on mouseLeave me

end

-----------------------
property pDuration, pMovieTime, VideoSprite

property horizontal -- if false, vertical
property extentSprite
property hiliteMember -- looks like the handle plus hilite graphics
-- also holds the member of handle while hilited

property tracking
property newLocH
property newLocV

property sending -- if true, sends value when parked
property dynamic -- if true and sending true, sends value while tracking
property style -- [sendAllSprites, SendSprite, Call]
property addressee -- which spritenum gets the message if SendSprite or Call
property name -- Sliders identity so messages can be traced
property notify_list -- list of sprites to receive event, only has 1 item this time

property min, max -- the range the slider maps to
property valrange -- the difference of max and min, set on begin
property minScreen, maxScreen -- calculated from the screen coords of the extent
property currentScreenVal -- the data point in screen coords, set in tracking
property extentlength -- in screen coords, set on begin

property CurrentVal

on getPropertyDescriptionList
if the currentspritenum = 0 then
set memdefault = 0
else
set memref = the member of sprite the currentspritenum
set castlibnum = the castlibnum of memref
set memdefault = member (the membernum of member memref + 1) of castlib castlibnum
end if


set description = [:]

addprop description, #VideoSprite, [#default: 1, #format:#integer, #comment: "Video Sprite:"]

addprop description, #extentSprite, [#default: 1, #format:#integer, #comment: "Extent Sprite:"]

addprop description, #hiliteMember, [#default: memdefault , #format:#graphic,#comment: "Hilite Member:"]

addprop description, #horizontal, [#default: 1, #format:#boolean,#comment: "Horizontal (if not vertical):"]

addprop description, #dynamic, [#default: 1, #format:#boolean,#comment: "Dynamic:"]

return description
end

on getBehaviorDescription
return "Drag to slider 'handle' to enable control of video play time. Requires additional 'extent' member which limits the handle travel range." & RETURN & "PARAMETERS:" & RETURN & "• Video Sprite - Enter the number of sprite channel in which video is displayed." & RETURN & "• Extent Sprite - Enter the number of sprite channel that contains the 'extent' sprite." & RETURN & "• Hilite Member - Member to display while handle is being dragged." & RETURN & "• Horizontal - If set, orient extent sprite horizontally, if not set orient vertically." & RETURN & "• Dynamic - If set, video time will be updated while handle is dragged, else when handle is released."
end

on compute_val me
-- relies on tracking to update the currentScreenVal (different for Hor, Vert)
set val = 0.0
set val = float(the currentScreenVal of me) / float (the extentlength of me)
set val = val * the valrange of me
set val = val + the min of me
return val
end

on send_the_val me, val
-- sets the digital video time to the val * paramter {0 - movieduration}
set pMovieTime = val * pDuration
videoseek(sprite VideoSprite, pMovieTime)

end


on beginSprite me

set pDuration = the duration of sprite VideoSprite

set the min of me = 0.0
set the max of me = 1.0
set the sending of me = true

--
set handle = the spritenum of me
set the tracking of me = FALSE
set the newLocH of me = the locH of sprite handle
set the newLocV of me = the locV of sprite handle

if the horizontal of me then
set the newLocV of me = the locV of sprite the extentSprite of me
set the minScreen of me = the left of sprite the extentSprite of me
set the maxScreen of me = the right of sprite the extentSprite of me
else -- vertical slider
set the newLocH of me = the locH of sprite the extentSprite of me
set the minScreen of me = the left of sprite the extentSprite of me
set the maxScreen of me = the right of sprite the extentSprite of me
end if

-- puppetsprite handle, TRUE -- take this out when beginSpriteAutoPuppet fixed

set the locH of sprite handle to the newLocH of me
set the locV of sprite handle to the newLocV of me

set the valrange of me = the max of me - the min of me
set the extentlength of me = the maxScreen of me - the minScreen of me

if the sending of me = FALSE then -- check for wrong input (dyn true, send false)
set the dynamic of me = FALSE
end if

-- set CurrentVal = compute_val()

end

on prepareFrame me
-- limits motion of handle to extents of extentSprite
-- and locks the handle to the track of the extentSprite

if tracking then
set handle = the spriteNum of me
set extent = the extentSprite of me

if the horizontal of me then
set the newLocH of me = the mouseH
set the newLocV of me = the locV of sprite extent
if the newLocH of me <>
set the newLocH of me = the left of sprite extent
end if
if the newLocH of me > the right of sprite extent then
set the newLocH of me = the right of sprite extent
end if

set the currentScreenVal of me = the newLocH of me - the minScreen of me

else -- vertical slider
set the newLocH of me = the locH of sprite extent
set the newLocV of me = the mouseV
if the newLocV of me <>
set the newLocV of me = the top of sprite extent
end if
if the newLocV of me > the bottom of sprite extent then
set the newLocV of me = the bottom of sprite extent
end if

set the currentScreenVal of me = the newLocV of me - the minScreen of me

end if -- if vertical

set the locH of sprite handle to the newLocH of me
set the locV of sprite handle to the newLocV of me

if the dynamic of me then
send_the_val me, compute_val (me)
end if

else -- end if tracking, control slider position by movieTime

set x = float(the currenttime of sprite VideoSprite)/ float(pDuration)


set handle = the spriteNum of me
set extent = the extentSprite of me

if the horizontal of me then
set ScreenX = the left of sprite extent + (x * (the right of sprite extent - the left of sprite extent))
set the newLocH of me = screenX
set the newLocV of me = the locV of sprite extent
if the newLocH of me <>
set the newLocH of me = the left of sprite extent
end if
if the newLocH of me > the right of sprite extent then
set the newLocH of me = the right of sprite extent
end if

set the currentScreenVal of me = the newLocH of me - the minScreen of me

else -- vertical slider
set ScreenY = the top of sprite extent + (x * (the bottom of sprite extent - the top of sprite extent))
set the newLocH of me = the locH of sprite extent
set the newLocV of me = ScreenY
if the newLocV of me <>
set the newLocV of me = the top of sprite extent
end if
if the newLocV of me > the bottom of sprite extent then
set the newLocV of me = the bottom of sprite extent
end if

set the currentScreenVal of me = the newLocV of me - the minScreen of me

end if -- if vertical

set the locH of sprite handle to the newLocH of me
set the locV of sprite handle to the newLocV of me

end if


end

on mouseDown me
set tracking = TRUE
set temp = the member of sprite the spritenum of me
set the member of sprite the spritenum of me = member the hiliteMember of me
set the hiliteMember of me = temp
end

on mouseUp me
set tracking = FALSE
set temp = the member of sprite the spritenum of me
set the member of sprite the spritenum of me = member the hiliteMember of me
set the hiliteMember of me = temp

if the sending of me then
set x = compute_val (me)
send_the_val me, x
end if

end

on mouseUpOutside me
set tracking = FALSE
set temp = the member of sprite the spritenum of me
set the member of sprite the spritenum of me = member the hiliteMember of me
set the hiliteMember of me = temp

if the sending of me then
set x = compute_val (me)
send_the_val me, x
end if

end

on mouseEnter me

end

on mouseLeave me

end
property pDuration, pMovieTime, VideoSprite

property horizontal -- if false, vertical
property extentSprite
property hiliteMember -- looks like the handle plus hilite graphics
-- also holds the member of handle while hilited

property tracking
property newLocH
property newLocV

property sending -- if true, sends value when parked
property dynamic -- if true and sending true, sends value while tracking
property style -- [sendAllSprites, SendSprite, Call]
property addressee -- which spritenum gets the message if SendSprite or Call
property name -- Sliders identity so messages can be traced
property notify_list -- list of sprites to receive event, only has 1 item this time

property min, max -- the range the slider maps to
property valrange -- the difference of max and min, set on begin
property minScreen, maxScreen -- calculated from the screen coords of the extent
property currentScreenVal -- the data point in screen coords, set in tracking
property extentlength -- in screen coords, set on begin

property CurrentVal

on getPropertyDescriptionList
if the currentspritenum = 0 then
set memdefault = 0
else
set memref = the member of sprite the currentspritenum
set castlibnum = the castlibnum of memref
set memdefault = member (the membernum of member memref + 1) of castlib castlibnum
end if


set description = [:]

addprop description, #VideoSprite, [#default: 1, #format:#integer, #comment: "Video Sprite:"]

addprop description, #extentSprite, [#default: 1, #format:#integer, #comment: "Extent Sprite:"]

addprop description, #hiliteMember, [#default: memdefault , #format:#graphic,#comment: "Hilite Member:"]

addprop description, #horizontal, [#default: 1, #format:#boolean,#comment: "Horizontal (if not vertical):"]

addprop description, #dynamic, [#default: 1, #format:#boolean,#comment: "Dynamic:"]

return description
end



on compute_val me
-- relies on tracking to update the currentScreenVal (different for Hor, Vert)
set val = 0.0
set val = float(the currentScreenVal of me) / float (the extentlength of me)
set val = val * the valrange of me
set val = val + the min of me
return val
end

on send_the_val me, val
-- sets the digital video time to the val * paramter {0 - movieduration}
set pMovieTime = val * pDuration
videoseek(sprite VideoSprite, pMovieTime)

end


on beginSprite me

set pDuration = the duration of sprite VideoSprite

set the min of me = 0.0
set the max of me = 1.0
set the sending of me = true

--
set handle = the spritenum of me
set the tracking of me = FALSE
set the newLocH of me = the locH of sprite handle
set the newLocV of me = the locV of sprite handle

if the horizontal of me then
set the newLocV of me = the locV of sprite the extentSprite of me
set the minScreen of me = the left of sprite the extentSprite of me
set the maxScreen of me = the right of sprite the extentSprite of me
else -- vertical slider
set the newLocH of me = the locH of sprite the extentSprite of me
set the minScreen of me = the left of sprite the extentSprite of me
set the maxScreen of me = the right of sprite the extentSprite of me
end if

-- puppetsprite handle, TRUE -- take this out when beginSpriteAutoPuppet fixed

set the locH of sprite handle to the newLocH of me
set the locV of sprite handle to the newLocV of me

set the valrange of me = the max of me - the min of me
set the extentlength of me = the maxScreen of me - the minScreen of me

if the sending of me = FALSE then -- check for wrong input (dyn true, send false)
set the dynamic of me = FALSE
end if

-- set CurrentVal = compute_val()

end

on prepareFrame me
-- limits motion of handle to extents of extentSprite
-- and locks the handle to the track of the extentSprite

if tracking then
set handle = the spriteNum of me
set extent = the extentSprite of me

if the horizontal of me then
set the newLocH of me = the mouseH
set the newLocV of me = the locV of sprite extent
if the newLocH of me <>
set the newLocH of me = the left of sprite extent
end if
if the newLocH of me > the right of sprite extent then
set the newLocH of me = the right of sprite extent
end if

set the currentScreenVal of me = the newLocH of me - the minScreen of me

else -- vertical slider
set the newLocH of me = the locH of sprite extent
set the newLocV of me = the mouseV
if the newLocV of me <>
set the newLocV of me = the top of sprite extent
end if
if the newLocV of me > the bottom of sprite extent then
set the newLocV of me = the bottom of sprite extent
end if

set the currentScreenVal of me = the newLocV of me - the minScreen of me

end if -- if vertical

set the locH of sprite handle to the newLocH of me
set the locV of sprite handle to the newLocV of me

if the dynamic of me then
send_the_val me, compute_val (me)
end if

else -- end if tracking, control slider position by movieTime

set x = float(the currenttime of sprite VideoSprite)/ float(pDuration)


set handle = the spriteNum of me
set extent = the extentSprite of me

if the horizontal of me then
set ScreenX = the left of sprite extent + (x * (the right of sprite extent - the left of sprite extent))
set the newLocH of me = screenX
set the newLocV of me = the locV of sprite extent
if the newLocH of me <>
set the newLocH of me = the left of sprite extent
end if
if the newLocH of me > the right of sprite extent then
set the newLocH of me = the right of sprite extent
end if

set the currentScreenVal of me = the newLocH of me - the minScreen of me

else -- vertical slider
set ScreenY = the top of sprite extent + (x * (the bottom of sprite extent - the top of sprite extent))
set the newLocH of me = the locH of sprite extent
set the newLocV of me = ScreenY
if the newLocV of me <>
set the newLocV of me = the top of sprite extent
end if
if the newLocV of me > the bottom of sprite extent then
set the newLocV of me = the bottom of sprite extent
end if

set the currentScreenVal of me = the newLocV of me - the minScreen of me

end if -- if vertical

set the locH of sprite handle to the newLocH of me
set the locV of sprite handle to the newLocV of me

end if


end

on mouseDown me
set tracking = TRUE
set temp = the member of sprite the spritenum of me
set the member of sprite the spritenum of me = member the hiliteMember of me
set the hiliteMember of me = temp
end

on mouseUp me
set tracking = FALSE
set temp = the member of sprite the spritenum of me
set the member of sprite the spritenum of me = member the hiliteMember of me
set the hiliteMember of me = temp

if the sending of me then
set x = compute_val (me)
send_the_val me, x
end if

end

on mouseUpOutside me
set tracking = FALSE
set temp = the member of sprite the spritenum of me
set the member of sprite the spritenum of me = member the hiliteMember of me
set the hiliteMember of me = temp

if the sending of me then
set x = compute_val (me)
send_the_val me, x
end if

end

on mouseEnter me

end

on mouseLeave me

end

Lingo MP3 Player (open source)



--Scripted in Lingo 8.5+
--NOT shocksafe!!
--Note-There are 100's of more things that you can do with the player,its up to you.
--If you wish to alter the player then the source must be provided with the player for free.(and ofcourse my name)
--This file does not include scripts for opening the file ,its just by calling the handlers in preparemovie script.
>>VJ
--Moviescript
-------------------------------------------------------------------------------------------------------------------------------
global gSongList, gSongNum, gMP3folder, gMode, gLoop

on preparemovie


gMode = #stop
gLoop = 0
getSongList
end

on getSongList
-- intialize FileXtra
gMP3folder= baGetFolder( "C:\Documents and Settings\ms\My Documents\MP3 Server", "Please select a folder to install into:", 1, "Select a folder", -1, 0 )

--loading files
gSongList = directoryToList (gMP3folder)
put gSongList
if voidp(gSongList) OR gSongList = [] then
alert "Error:No file was found on selected folder" & RETURN & \
gMP3folder & RETURN & "Sorry!!"
end if
end

on playList
gSongNum = 1
playSong
end

on playNextSong
gSongNum = gSongNum + 1
if gSongNum > count(gSongList) then
gSongNum = 1
if NOT(gLoop) then exit
end if
playSong
end

on playPreviousSong
gSongNum = gSongNum - 1
if gSongNum = 0 then
set gsongnum=1
--gSongNum = count(gSongList) << displaymin =" string(min)" str =" displaymin"> str then
pMem.text = str
end if
end if
end
---------------------------------------------------------------------------------------------
property pmem, pHiliteColor, pNonHiliteColor
global gSongList

on beginSprite me
pmem = sprite(me.spritenum).member
pNonHiliteColor = rgb(255, 255, 255) -- white
pHiliteColor = rgb(0, 255, 0) -- green
str = ""
if NOT(voidp(gSongList)) then
repeat with song in gSongList
put song & RETURN after str
end repeat
delete the last char of str
end if
pMem.text = str
select me, #all
end

on mouseDown me
mloc = the mouseLoc
ml = pointToLine(sprite me.spritenum, mloc)
if pmem.line[ml].color = pHiliteColor then
pmem.line[ml].color = pNonHiliteColor
deleteone(gSongList, pmem.line[ml].text)
else
select me, ml
end if
end

on select me, what
case what of
#all:
pmem.color = pHiliteColor
gSongList = []
repeat with m = 1 to member(pmem).line.count
add(gSongList,pmem.line[m])
end repeat
#none:
pmem.color = pNonHiliteColor
gSongList = []
otherwise
pmem.line[what].color = pHiliteColor
add(gSongList, pmem.line[what])
end case
end


------------------------------------------------------------------------------------------
property pMem

on beginSprite me
pMem = sprite(me.spritenum).member
pMem.text = ""
end

on update me, state
str = ""
bitps = member("mp3song").bitsPerSample
bitrt = member("mp3song").bitrate
if member("mp3song").numChannels > 1 then
mode = "stereo"
else
mode = "mono"
end if
member(pMem).text = bitps & RETURN & bitrt & ¬
RETURN & mode
end


--on enterFrame me
-- update me
--end
--------------------------------------------------------------------------------------------------
property pMem, pTxt

on beginSprite me
pMem = sprite(me.spritenum).member
pTxt = getState()
pMem.text = pTxt
end

on enterFrame
if getState() <> pTxt then
pTxt = getState()
pMem.text = pTxt
sendSprite(sprite 7, #update)
sendSprite(sprite 9, #update)
end if
end
------------------------------------------------------------------------------------------------------
property pMem

global gLoop

on beginSprite me
pMem = sprite(me.spritenum).member
pMem.hilite = gLoop
end

on mouseUp me
gLoop = pMem.hilite
end
----------------------------------------------------------------------------------------------------------
property pMem, pTxt

global gSongList, gSongNum

on beginSprite me
pMem = sprite(me.spritenum).member
pMem.text = ""
end

on update me
pMem.text = getAt(gSongList, gSongNum)
end

Tuesday, August 15, 2006

VJ's sunset collection -1 (Photography)


Thirumullavaram beach 2005



Kollam 2006


Kollam 2006

Red Salute to Indian Army! (1)


THE WARS

The Kargil Operation in 1999


In mid 1999, Kashmiri insurgents and Pakistan military personnel took control of some deserted, but strategic, Himalayan heights in Indian-administered Kashmir. These had either been vacated by the Indian army during the onset of inhospitable weather conditions, or not occupied on the presumption that it would be foolhardy, for either side, to risk men in such a manner. The intruders took control of several key areas such as the heights overlooking the vital Srinagar-Leh highway, Batalik, Dras and the strategic Tiger Hill.

Meanwhile, the Indian Navy also readied itself for an attempted blockade of Pakistani ports to cut off supply routes. Later, the-then Prime Minister of Pakistan Nawaz Sharif disclosed that Pakistan was left with just six days of fuel to sustain itself if a full-fledged war had broken out. As Pakistan found itself entwined in a prickly position, the army had covertly planned a nuclear strike on India, the news of which alarmed U.S. President Bill Clinton, resulting in a stern warning to Nawaz Sharif.[1] Two months into the conflict, Indian troops had slowly flushed out most of the foreigners retaking most of the ridges it had lost;[2] according to official count, an estimated 75%–80% of the intruded area and nearly all high ground was back under Indian control.[3] Following the Washington accord on July 4, where Sharif agreed to withdraw the Pakistan-backed troops, most of the fighting came to a gradual halt. However, some of the militants still holed up did not wish to retreat, and the "United Jihad Council" (an umbrella for all extremist groups) rejected Pakistan's plan for a climb-down, instead deciding to fight on.[4] Following this, the Indian army launched its final attacks in the last week of July; as soon as the last of these "Jihadists" in the Drass subsector had been cleared, the fighting ceased on July 26. The day has since been marked as Kargil Vijay Diwas (Victory Day) in India. By the end of the war, India had resumed control of all territory south and east of the Line of Control, as was established in December 1972 as per the Shimla Accord.


Indo-Pakistani War of 1971

In 1971, rebellion broke out in East Pakistan, and India was forced to intervene as an estimated 10 million Bangladeshi refugees fled to India. War again came, but this time decisive change was effected. East Pakistan broke away with Indian intervention and became the independent state of Bangladesh. This was of great help to India, since it no longer had to worry about a two-front war and could concentrate its combat firepower against what had been West Pakistan and the PRC. Under the command of Lt. General J.S. Arora, the Indian army achieved a decisive victory over Pakistan in 1971, taking over 90,000 prisoners of war (38,000 Armed forces personnel and 52,000 civilians of West Pakistani origin) in the Bangladesh liberation war. Even on the western front, the Indian Army was successful in blocking Pakistan's invasion attempts (see Battle of Longewala) and counter attacked capturing more than 12,000 sq. km of enemy territory.

After 1971, tensions between India and Pakistan simmered, periodically threatening to break out into full-scale war, most notably in 1999 and 2002 in recent years. The 1998 tests of Indian and Pakistani nuclear weapons are seen by many commentators as acting as a restraining influence on both sides. Now that each can destroy the other in a war, according to the theory of deterrence, they are less likely to let tensions escalate.


Indo-Pakistani War of 1965

Pakistani Patton M-48 tanks, captured during the Battle of Asal Uttar, on display near Bhilwand
Enlarge
Pakistani Patton M-48 tanks, captured during the Battle of Asal Uttar, on display near Bhilwand

A second confrontation with Pakistan happened in 1965, largely over Kashmir. Pakistani dictator General Ayub Khan launched Operation Gibraltar in August 1965, believing an Indian leadership still recovering from the 1962 war with China to be unable to effectively deal with such a military thrust. It proved to be a serious miscalculation for Ayub, who had also banked on the intelligence report claiming that the people of Kashmir would aid the Pakistani war effort. No such rebellion occurred and India responded almost immediately with armoured regiments being deployed to both counter enemy intrusions and strike across the border.

Initially, the Indian Army met with considerable success in the northern sector. After launching prolonged artillery barrages against Pakistan, India was able to capture three important mountain positions in Kashmir. However, by the end of the month both sides were on even footing as Pakistan had made progress in areas such as Tithwal, Uri and Punch and India had gains in Pakistan Occupied Kashmir, having captured the Haji Pir Pass eight kilometers inside Pakistani territory.

Pakistan launched Operation Grand Slam on September 1, invading the Chamb-Jurian sector. In retaliation, the Indian Army's 15th Infantry Division crossed the International Border on the Western Front on September 6, and attempted to head to Lahore. After suffering some initial reverses, the force managed to cross the Ichhogil canal and come within striking distance of Lahore. Stiff resistance meant the force could go no further and had to later withdraw. The Indian Army had made significant territorial gains on both the Northern and Western fronts. The Indian Air Force, while suffering losses, had also managed to thwart the Pakistani Air Force and provide support to Indian Army movements. Pakistani territory gained by the Indian army was estimated to be between 1500-2000 square kilometers. Much of the success enjoyed by the Indian Army has been attributed to divisional commanders and their innovative leadership. One such famous instance was the foiling of what was probably the most important Pakistani armoured thrust, towards Amritsar in Khem Karan. The brigade commander, Brig. Theogaraj, flooded the sugarcane fields, trapped the superior Pakistani Patton tanks and then proceeded to decimate them, with some help from the IAF (see Battle of Asal Uttar).

Objective details are sketchy but the Pakistani Army appears to have suffered considerable losses after some initial success. It is estimated by neutral observers that Pakistan lost over 250 main battle tanks and nearly 4000 personnel. Equivalent figures for India put its army's losses at over 100 tanks and nearly 3000 personnel. Strategically, the war proved to be a stalemate and the ceasefire on September 23 was followed by talks in Tashkent (brokered by the Soviet Union), where Indian Prime Minister Lal Bahadur Shastri and Ayub Khan agreed to withdraw to virtually all pre-war positions.

Indo-Pakistani War of 1947

Almost immediately after independence, tensions between India and Pakistan began to boil over. And the first of three full-scale wars between the two nations broke out over the then princely state of Kashmir. Upon the Maharaja of Kashmir's reluctance to accede to either India or Pakistan, an impatient Pakistan sponsored a tribal invasion of parts of Kashmir. The men are alleged by India to have also included Pakistan army regulars. Soon after, Pakistan sent in its troops to annex the state. The Maharaja, Hari Singh, appealed to India, and to Lord Mountbatten -- the Governor General -- for help, but it was pointed out to him that India saw no reason to do so. He signed the Instrument of Accession and Kashmir unilaterally acceded to India (a decision ratified by the former colonial masters but never accepted by Pakistan). Immediately after, Indian troops were airlifted into Srinagar and, in a famous operation, repelled the invaders. An intense war was waged across the state and former comrades found themselves fighting each other. Both sides made some territorial gains and also suffered significant losses, but the Indian Army is generally believed to have had the upper hand when hostilities ceased in 1948.

An uneasy UN sponsored peace returned by the end of 1948 with Indian and Pakistani soldiers facing each other directly on the Line of Control, which has since divided Indian from Pakistani-held Kashmir. Tensions between India and Pakistan, largely over Kashmir, have never since been entirely eliminated.

Rang De Basanthi - Movie Review

May the glory of this film spread to every corner of this world just bcoz there just a few movies that tells the story with some logic!




Rating

Technical 9.5/10 (every thing was great other than showing a dish antena on pre 1950 scenes)
Art 10/10
Cinematography 10/10(execllent...really great)
Direction 10/10
Intelligence 7/10
Impact 6/10

overall 6.5/10

Must watch one..eventhough there are goofs here and there:d

So my fav hindi movies are...

RDB
Dil Chatha Hai (8.5/10)

Vadakkumnathan - Movie Review

First word id like to say is..this movie is Geniune!

Was really looking for a movie with a story in kerala background. Id really recoment this if u like malayalam movies...the songs...well..Classic! Unfortunalty we ll never have such great songs again:(

http://www.my-kerala.com/p/m/films/i/vadakkumnathan4.jpg
Finally..abt acting...Lal ..as usual..is a master class performance. He'd made this charector stand out from his 300 odd films! and about Priya...now she my fav actress..she hve a great look!

Cons- mhhh..nthing much to say abt..but when we thin k about how realistic this story cld be..some scences were over dramatised. ...nd in a couple of scenes the dialogoues looked silly..or simply S*****

Technical 10/10
Art 10/10(great)
Cinematography 10/10(execllent...really great)
Direction 10/10
Intelligence 9.5/10
Impact 1/10
Replay value = yes..once in 3 years or less
need a sequel? =well..No

overall 8.5/10

Krish - Movie review

Finally...one superhero for us!

The war was supposed to be between Krish and Superman...media celebrated the release of this much anticipated movie! Unless Superman s**** like ***** i find no ***** ******** reason to compare this ****** movie with superman!


First f all wther is sipderman, superman or Hanuman..a crying superhero looks like s***!

Apart from the so much talked about Hollywood like Visual effects done in chennai and some good action sequences which are copied shamelessly from hoolywood productions, this movie is for kids under 13! Logic of the story is something donkeys cld laugh at:(

Krish is an entertainer to some extend!No regrets on watching it...Yet! Nothing much to write about it. and..u wont loose anything if u miss this!

Technical 6/10
Art 4.5/10
Cinematography 5/10
Direction 4/10
Intelligence - lol..not applicable
Impact 1/10
Replay value = yes..once in 100 years or less
Entertainment value- 6.5/10
need a sequel? =a BIG..NO (unfortunalty there will be)

Guys! i think the third part for this movie will bring the Hrithik's mother chrtr back to life..lol and they live happily everafter , completing the trilogy! dam lol!

Megamalhar - Movie review

First of all, id say..this is a must watch movie! This movie can be categorised with 'Dil chahta hai'(Hindi) and 'Autograph'(Tamil).

Megamalhar, released in 2001, is one of the best movies ever made in Malayalam and it will be always in my top 10 of alltime! I consider this movie as the best made my director Kamal.

Megamalhar (Movie review)

Nanditha Menon (Samyuktha Verma) a budding writer is a sub-editor with Mathrubhumi Sunday supplement. She is leading

a happy life with her daughter and father in law (Raghavan) Her husband Mukundan (Siddique) is abroad and busy with

his business activities. A lawyer by profession, Rajeev (Biju Menon) who is a music lover and also a voracious

reader comes to go through the short story titled 'Meghamalhar' written by Nanditha.

A twist of fate brings them close to each other and they finally come to realize that they have regained the long

lost vigor and vitality of their childhood life. She knows that Rajeev is her childhood playmate, but she does not

reveal that she is the same Sreekkutty who was brought back to life from the brink of fate-worse than-death

situation by Rajeev. A taste of nostalgia is rekindled since both of them have an invaluable storehouse of sweet

memories. They decide to go to Kanyakumari, Nanditha's homeland where Rajiv spent his childhood during his father's

brief stint with Govenment service. Trapped between the blooming love and conjugal duties, both of them prove that

they are brave enough to sacrifice anything for the sake of their household.


Technical 8/10
Art 9.5/10
Cinematography 9/10
Direction 9.8/10
Intelligence - 10/10
Impact 9/10
Replay value = yes..once in 2 years
Entertainment value-6/10
need a sequel? =NA

Overall- 8.5/10



Who would like this movie?
well..i found this movie intersting because it reminded me of my friends...which i had in my childhood days.

Superman returns - Movie review



wanna get bored? go watch it!

Just 2...2 scenes that was interesting! The one which Sman brings that aircraft down and one were a bullet hit his eye..everything else is boring and crap...

it didnt have any thrilling moments, neither the story had any suspense!

too bad for a superhuman hero:(

Technical 7/10
Art 7/10
Cinematography 7/10
Direction 7/10
Intelligence -not applicable
Impact 1/10
Replay value = yes..once in 3 years or less
Entertainment value- 6/10
need a sequel? =there will be anyway.

overall - 5.5/10..srry i didnt like it

Pirates2 - Dead mans chest - Movie review



Couple of Academy awards are sure!

This pirate movie is one of the best ever. No wonder why over 100 tickets are getting sold all over the world per second. Its really worth watching. Its a 100% entertainer. Great storyline, good script, great acting, nice humour......afterall realistic computer graphics.


This movie had the best background score since many years. The thrilling music really takes viewers into the story and hold them there....
watch it...if u like pirate movies;)

Technical 7/10
Art 7/10
Cinematography 7/10
Direction 7.5/10
Intelligence -not applicable
Impact 3/10
Replay value = yes..once in a years
Entertainment value- 8.5/10
need a sequel? =there will be anyway.
overall - 8/10.

Kabhi Alvida Naa Kehna - Movie review


U might feel the movie is kinda average one after reading the following. Honey...its not.. the thing is..this movie isnt made for a single m 22...better u go watch it for urself! I really doubt wthr lower and middle class Indian audience could accept this movie with a storyline and plot of some culture that has just began to root in India...may be i dont know about it. The movie deals with infertility, shattered marriage lives and extra martial affairs and sex. Its really great to see Indians trying to making movies that seem to be realistic. The story begins from where Karan usually ends his movies..the Hero and heroine gettting tied..and here is what that happns later.


Sharukh is playing a charector with some negative outlook to life and stays like that till the end. So he was a bit outperformed by Amithab and Abishek. I just felt like that. Amithab is enegectic and rocking! Preithy Zinta looks fat in the movie and Rani cries a lot better than b4.

Technical 6/10

Art 8/10
Cinematography 8.5/10
Direction 6/10
Intelligence -6/10*
Replay value = yes..once in 2 years
Entertainment value- 5.5/10*
need a sequel? =nope

overall - 6.5/10

+ve's Realistic, Abishek rocks, Cinematography, Fashion costumes, Songs, Dance, Jokes, Romance, not an adaptation or admiration from any previous movies.

-ve's Second half drags, Karan tries some Kinda transition between scenes which at times find disturbing, someparts where scenes arent blended with each other.



The movie is about 3.5 hours long and about 30 mins just after the mid-break..its dam boring and the movie drags.This movie is really enjoyable for people that are married atleast once...otherwise u wont be able to 'feel' the story and situations.So..as im not married and the story is soooo complicated for me...Id better watch this movie again ..maybe after 10-15 years and write about it....again!
And finally, its so brave of Karan to make such a movie. Hope this movie doest get dragged into cospiracies by political and religious parties. They could go to any level for their own good.
Alivida!