14 lines
178 B
Text
14 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
|