#ppe
#libpath ..\..\lib
#use nameisin
#use typer

Declare Procedure Beep_Vip()
Declare Procedure Beep_Lamah()
Declare Procedure FadeIn(String FadeInString, String FadeInDelay)
Declare Procedure FadeOut(String FadeOutString, String FadeOutDelay)
Declare Procedure TypeFade(String Str, String Col, Integer TypeDlay, Integer NextDlay, Integer FadeDlay)

string clr, del, str1, str2, str3, vip_snds, lamah_snds, credit, woe
integer vip_snd1, vip_snd2, vip_snd3, vip_snd4
integer lamah_snd1, lamah_snd2, lamah_snd3, lamah_snd4 
boolean vip, lamah

WOE = ""
WOE = ".sS$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$Ss."
WOE = "$$$$$SýS$$$$$$$Sý$$$$SýýýýýýS$$$SýýýýýýS$$$$$"
WOE = "$$$'.s$s.`$$$'.s$s.'.sS$$$ýSs.'.sS$$$ýSs.`$$$"
WOE = "$$$ $$$$$ $$$ $$$$$ $$$$$$ $$$ $$$$$$.`ý$ $$$"
WOE = "$$$ $$$$$ $ý$ $$$$$ $$$$$$ $$$ $$$$$$$s   $$$"
WOE = "$$$ $$$$$.s$s.$$$$$ $$$$$$ $$$ $$ZB!$'.s$ $$$"
WOE = "$$$ $$$$$$$$$$$$$$$ $$$$$$ $$$ $$$$$$ $$$ $$$"
WOE = "$$$.`ýS$Sý'~`ýS$Sý',`ýS$$$sSý',`ýS$$$sSý'.$$$"
WOE = "$$$$$SsssS$$$SsssS$$$SssssssS$$$SssssssS$$$$$"
WOE = "$$ý^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ý$$"
WOE = "$$ (-) wASTED - oBFUSCATED - eVOLUTiON (-) $$"
WOE = "$$s,.....................................,s$$"
WOE = "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
WOE = "`ýS$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$Sý'"
WOE = ""
WOE = "     (c) Wasted Obfuscated Evolution  "
WOE = ""
WOE = " sO yOU'VE dECiDED tO dECOMPiLE mY wORK? "
WOE = " iF iT'S bECAUSE yOU wANNA lEARN mORE "
WOE = " aBOUT tHiS, tHEN iT'S oK!, aS lONG aS "
WOE = " yOU giVE cREDiT tO mE! "
WOE = " dON'T cHANGE aNYTHiNG iN hERE! "
WOE = " iF yOU wANT cHANGES mADE, siMPLY mAiL mE "
WOE = " aT zubfatal_dk@hotmail.com "
WOE = " aND i'LL gET bACK tO yOU ASAP! "
WOE = ""
WOE = " l8R dUDE.. "
WOE = "                           ....ZubFataL"
WOE = ""

clr = readline(ppepath() + ppename() + ".cfg",1)
del = readline(ppepath() + ppename() + ".cfg",2)
str1 = readline(ppepath() + ppename() + ".cfg",3)
str2 = readline(ppepath() + ppename() + ".cfg",4)
str3 = readline(ppepath() + ppename() + ".cfg",5)
vip_snds = readline(ppepath() + ppename() + ".cfg",6)
vip_snds = replace(vip_snds,","," ")
tokenize vip_snds
vip_snd1 = gettoken()
vip_snd2 = gettoken()
vip_snd3 = gettoken()
vip_snd4 = gettoken()

lamah_snds = readline(ppepath() + ppename() + ".cfg",7)
lamah_snds = replace(lamah_snds,","," ")
tokenize lamah_snds
lamah_snd1 = gettoken()
lamah_snd2 = gettoken()
lamah_snd3 = gettoken()
lamah_snd4 = gettoken()

credit = "coded by zubfatal^wasted obfuscated evolution"

:init
cls
print "@X08" + "[" + Space(13) + "]"
ansipos 2,gety()
FadeIn("UserBeep v1.1",2)
ansipos 17,gety()

:scan_vip
if (nameisin("vip.lst")) then
 vip = true
 lamah = false
 typefade(str1,clr,del,10,2)
 typer(credit,clr,del)
 delay 5
 ansipos 1,1
 fadeout(scrtext(1,1,78,0),2)
 log "[UserBeep v1.1] - viP uSER dETECTED...", false
 cls
 end
else
 goto scan_lamah
endif

:scan_lamah
if (nameisin("lamah.lst")) then
 vip = false
 lamah = true
 typefade(str2,clr,del,10,2)
 typer(credit,clr,del)
 delay 5
 ansipos 1,1
 fadeout(scrtext(1,1,78,0),2)
 log "[UserBeep v1.1] - lAMAH dETECTED...", false
 cls
 end
else
 lamah = false
 goto regular
endif

:regular
typefade(str3,clr,del,10,2)
typer(credit,clr,del)
delay 5
ansipos 1,1
fadeout(scrtext(1,1,78,0),2)
log "[UserBeep v1.1] - rEGULAR uSER dETECTED...", false
cls
end

;------------------------------------------------------------------------------
 Procedure Beep_Vip()
;------------------------------------------------------------------------------

Sound Vip_Snd1
Delay 1
Sound 0
Delay 1
Sound Vip_Snd2
Delay 1
Sound 0
Delay 1
Sound Vip_Snd3
Delay 1
Sound 0
Delay 1
Sound Vip_Snd4
Delay 1
Sound 0
Delay 1

EndProc

;------------------------------------------------------------------------------
 Procedure Beep_Lamah()
;------------------------------------------------------------------------------

Sound Lamah_Snd1
Delay 1
Sound 0
Delay 1
Sound Lamah_Snd2
Delay 1
Sound 0
Delay 1
Sound Lamah_Snd3
Delay 1
Sound 0
Delay 1
Sound Lamah_Snd4
Delay 1
Sound 0
Delay 1

EndProc

;----------------------------------------------------------------------------
 Procedure FadeIn(String FadeInString, String FadeInDelay)
;----------------------------------------------------------------------------

Print "@X08" + FadeInString
Delay FadeInDelay
Backup Len(FadeInString)
Print "@X07" + FadeInString
Delay FadeInDelay
Backup Len(FadeInString)
Print "@X0F" + FadeInString
Delay FadeInDelay
Backup Len(FadeInString)

EndProc

;----------------------------------------------------------------------------
 Procedure FadeOut(String FadeOutString, String FadeOutDelay)
;----------------------------------------------------------------------------

Print "@X0F" + FadeOutString
Delay FadeOutDelay
Backup Len(FadeOutString)
Print "@X07" + FadeOutString
Delay FadeOutDelay
Backup Len(FadeOutString)
Print "@X08" + FadeOutString
Delay FadeOutDelay
Backup Len(FadeOutString)
Print Space(Len(FadeOutString))
Delay FadeOutDelay
Backup Len(FadeOutString)

EndProc


;----------------------------------------------------------------------------
Procedure TypeFade(String Str, String Col, Integer TypeDlay, Integer NextDlay, Integer FadeDlay)
;----------------------------------------------------------------------------

String Temp
Integer Tmp

For Tmp = 1 To Len(Str)
 Temp = Mid(Str,Tmp,1)
 Print "@X0F" + Lower(Temp)
 Delay TypeDlay
 Backup 1
 If (Upper(Temp) = "I") Then
  Print String(Col) + Lower(Temp)
 Else
  Print String(Col) + Upper(Temp)
Endif
Next

If ((Vip = False) & (Lamah = False)) Then
 Delay NextDlay
 Backup (Len(Str))
Endif

If (Vip = True) Then
 Beep_Vip()
 Delay NextDlay
 Backup (Len(Str))
Endif

If (Lamah = True) Then
 Beep_Lamah()
 Delay NextDlay
 Backup (Len(Str))
Endif

Print "@X0F" + Upper(Str)
Delay FadeDlay
Backup Len(Str)
Print "@X07" + Upper(Str)
Delay FadeDlay
Backup Len(Str)
Print "@X08" + Upper(Str)
Delay FadeDlay
Backup Len(Str)
Print Space(Len(Str))
Delay FadeDlay
Backup Len(Str)

EndProc