Fungsi Blow Up

*--------------
Function BlowUp
*--------------
* Fungsi ini akan menampakkan efek seakan-akan box meledak
ParameterS atas, kiri, bawah, kanan
Private seed01, seed02, blowing01, blowing02, blowing03, blowing04, ;
oldcolor, oldscreen

oldcolor = SetColor()
oldscreen = SavEscreen(atas,kiri,bawah,kanan)
seed01 = INT((bawah - atas) / 2)
seed02 = INT((kanan - kiri) / 2)
blowing01 = atas + seed01
blowing03 = blowing01
blowing02 = kiri + seed02
blowing04 = blowing02

Do While (blowing01 > atas .AND. blowing02 > kiri) .AND. ;
(blowing03 <>

@ blowing01, blowing02, blowing03, blowing04 BOX "ÉÍ»º¼ÍȺ" + Chr(176)
Inkey(0.01)
SCROLL(blowing01, blowing02, blowing03, blowing04, 0)
blowing01 = blowing01 - 1
blowing02 = blowing02 - (seed02 /seed01)
blowing03 = blowing03 + 1
blowing04 = blowing04 + (seed02 /seed01)
Enddo
SetColor(oldcolor)
RestScreen(atas,kiri,bawah,kanan,oldscreen)
Return .T.
*---------