13 lines
178 B
Text
13 lines
178 B
Text
-- parent script "MobilePhone"
|
|
property ringtone
|
|
|
|
on new (me)
|
|
me.ringtone = "Bell"
|
|
return me
|
|
end
|
|
|
|
on ring (me, n)
|
|
repeat with i = 1 to n
|
|
put "RING!!!"
|
|
end repeat
|
|
end
|