__ShArK__

New Fresh Packets. Roughly Around 50 - 70 Packets, 95% Of Them Work. Enjoy Them While They Last. Only 1 Packet....... :neutral: :neutral: :neutral:



'-//---Chat Packets--------------------------------------------------------------------

Public Function ChatIgnoreChatter(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??13??1??66??2??0??" & whoto & "??"
ChatIgnoreChatter = Header("85", Pckz)
Debug.Print ChatIgnoreChatter
End Function
Public Function ChatInvite(Whofrom As String, whoto As String, Room As String) As String
Dim Pckz As String
Pckz = "L??" & Whofrom & "??118??" & whoto & "??104??" & Room & "??117????129??0??"
ChatInvite = Header("9D", Pckz)
Debug.Print ChatInvite
End Function
Public Function ChatReportSpam(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??269??" & whoto & "??15??1153992103??270??2??302??274??303??274? ?"
ChatReportSpam = Header("E0", Pckz)
Debug.Print ChatReportSpam
End Function
Public Function ChatSend(Whofrom As String, Room As String, What As String) As String
Dim Pckz As String
Pckz = "4??" & Room & "1??109??" & Whofrom & "??117??" & What & "??124??1??"
ChatSend = Header("A8", Pckz)
Debug.Print ChatSend
End Function
Public Function ChatUserJoins(Whofrom As String, RoomDescript As String, RoomKey As String) As String
Dim Pckz As String
Pckz = "4??" & Room & "??105??" & RoomDescript & "??108??1??109??" & Whofrom & "??112??0??113??1024??"
ChatUserJoins = Header("98", Pckz)
Debug.Print ChatUserJoins
End Function
Public Function ChatUserLeaves(Whofrom As String, RoomDescript As String, RoomKey As String) As String
Dim Pckz As String
Pckz = "4??" & Room & "??105??" & RoomDescript & "??108??1??109??" & Whofrom & "??112??0??113??1024??"
ChatUserLeaves = Header("9B", Pckz)
Debug.Print ChatUserLeaves
End Function
Public Function ChatLogin(Whofrom As String, SessionKey As String) As String
Pckz = "109??" & Whofrom & "??1??" & Whofrom & "??6??abcde??"
ChatLogin = "YMSG" & Chr(&HA) & String(4, 0) & Chr(Len(pck)) & Chr(&H0) & Chr(&H96) & String(4, 0) & SessionKey & Pckz
End Function
Public Function ChatLeave(Whofrom As String, SessionKey As String) As String
Pckz = "1??" & username & "??1005??"
ChatLeave = "YMSG" & Chr(&HA) & String(4, 0) & Chr(Len(pck)) & Chr(&H0) & Chr(&HA0) & String(4, 0) & SessionKey & Pckz
End Function
Public Function ChatRoomLogin(Whofrom As String, Room As String, SessionKey As String) As String
Pckz = "1??" & Whofrom & "??104??" & Room & "??"
ChatRoomLogin = "YMSG" & Chr(&H0) & Chr(&HB) & String(3, 0) & Chr(Len(pck)) & Chr(&H0) & Chr(&H98) & String(4, 0) & SessionKey & Pckz
End Function
Public Function ChatWebCamStatOn(Whofrom As String, Room As String, RoomId As String, SessionKey As String) As String
Dim i, X As Integer
Pckz = "1??" & username & "??62??1??104??" & Room & "??"
i = 0
X = Len(Pckz)
ReCheck:
If X > 255 Then
X = X - 256
i = i + 1
GoTo ReCheck
End If
ChatWebCamStatOn = "YMSG" & Chr(&H0) & Chr(&HB) & String(2, 0) & Chr(i) & Chr(X) & Chr(&H0) & Chr(&H98) & String(4, 0) & SessionKey & Pckz
End Function
Public Function ChatWebCamStatOff(Whofrom As String, Room As String, RoomId As String, VaTree As String) As String
Dim i, X As Integer
Pckz = "1??" & username & "??62??2??104??" & Room & "??"
i = 0
X = Len(Pckz)
ReCheck:
If X > 255 Then
X = X - 256
i = i + 1
GoTo ReCheck
End If
ChatWebCamStatOff = "YMSG" & Chr(&H0) & Chr(&HB) & String(2, 0) & Chr(i) & Chr(X) & Chr(&H0) & Chr(&H98) & String(4, 0) & VaTree & Pckz
End Function

'-//--Misc Packets---------------------------------------------------------------------

Public Function BuddyRemove1(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??7??" & whoto & "??14??" & What & "??"
BuddyRemove1 = Header("86", Pckz)
Debug.Print BuddyRemove1
End Function
Public Function BuddyRemove2(Whofrom As String, whoto As String) As String ' x2
Dim Pckz As String
Pckz = "1??" & Whofrom & "??66??0??7??" & whoto & "??"
BuddyRemove2 = Header("86", Pckz)
Debug.Print BuddyRemove2
End Function
Public Function ViewCam1(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??"
ViewCam1 = Header("50", Pckz)
Debug.Print ViewCam1
End Function
Public Function ViewCam2(Whofrom As String) As String
Dim Pckz As String
Pckz = "5??" & Whofrom & "??61??r0IyEBdC._7VAQNZqcx6Ksqd8mOClMnq0-??102??webcam.yahoo.com??"
ViewCam2 = Header("50", Pckz)
Debug.Print ViewCam2
End Function
Public Function Ping(Whofrom As String) As String
Dim Pckz As String
Pckz = "0??" & Whofrom & "??"
Ping = Header("8A", Pckz)
Debug.Print Ping
End Function

'-//--Client Packets-------------------------------------------------------------------

Public Function MyChat(Whofrom As String, whoto As String) As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??3????14?? ?????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-???????????????+@-+@-+-@@-+@-+-@@- ??97??1??63??;0??64??0??"
MyChat = Header("06", Pckz)
Debug.Print MyChat
End Function
Public Function Yazak(Whofrom As String, whoto As String) As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??3????14??<FADE #768489,#00ff00,#0000ff,#3030cf,#5cd228,#fcef03,#e 3391c,#2c1de2>" & "m" & "a" & "g" & "i" & "c" & "!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-$%^&*()_+!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-$%^&*()_+</fade>??97??1??63??;0??64??0??"
Yazak = Header("06", Pckz)
Debug.Print Yazak
End Function
Public Function YahELITE(Whofrom As String, whoto As String) As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??3????14??<FADE #768489,#00ff00,#0000ff,#3030cf,#5cd228,#fcef03,#e 3391c,#2c1de2>NOSPAM!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-$%^&*()_+!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-`~!@#$%^&*()_+=-$%^&*()_+</fade>??97??1??63??;0??64??0??"
YahELITE = Header("06", Pckz)
Debug.Print YahELITE
End Function


'-//--Games Packets---------------------------------------

Public Function GamePool(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??180??pl??11??4mcxy4ba2h0mgnoldbesrg--??13??1??"
GamePool = Header("B7", Pckz)
Debug.Print GamePool
End Function
Public Function GameLiterati(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??180??lt??11??s7pbhtur1sk7q9vtiopirg--??13??1??"
GameLiterati = Header("B7", Pckz)
Debug.Print GameLiterati
End Function
Public Function Game_Backgammon(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??180??bg??11??rraowwx2x.ltjy7sb_l0xq--??13??1??"
GameBackgammon = Header("B7", Pckz)
Debug.Print GameBackgammon
End Function
Public Function GameTokiTokiBoom(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??180??ttb??11??b5.zq.usx4yohf3krajdtq--??13??1??"
GameTokiTokiBoom = Header("B7", Pckz)
Debug.Print GameTokiTokiBoom
End Function
Public Function GameCheckers(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??180??ck??11??kjoowxz3k4qhveqkgqpxhq--??13??1??"
GameCheckers = Header("B7", Pckz)
Debug.Print GameCheckers
End Function
Public Function GameChess(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??180??ch??11??uw6evkdqd.euxczb6orzsa--??13??1??"
GameChess = Header("B7", Pckz)
Debug.Print GameChess
End Function
Public Function GameDominoes(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??180??do??11??dne86r29pedakbpmtne0wg--??13??1??"
GameDominoes = Header("B7", Pckz)
Debug.Print GameDominoes
End Function
Public Function GamePearlHunter(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??180??ph??11??e8fenrmwg0j62ab_t_92jg--??13??1??"
GamePearlHunter = Header("B7", Pckz)
Debug.Print GamePearlHunter
End Function
Public Function GameWordRacer(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??180??ww??11??qghn2nc2gm90qksvac9wiw--??13??1??"
GameWordRacer = Header("B7", Pckz)
Debug.Print GameWordRacer
End Function

'-//--Imv Packets------------------------------------------------------------------

Public Function ImvCleanClear(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063cleanandclear;16401009341401"
ImvCleanClear = Header("4D", Pckz)
Debug.Print ImvCleanClear
End Function
Public Function ImvNavy(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "49IMVIRONMENT1" & Whofrom & "14" & What & "1305" & whoto & "63navy;1640"
ImvNavy = Header("4D", Pckz)
Debug.Print ImvNavy
End Function
Public Function ImvHondaFit(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063hondafit;16401009341401"
ImvHondaFit = Header("4D", Pckz)
Debug.Print ImvHondaFit
End Function
Public Function ImvPepsi(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063pepsiringtones;26401009341401"
ImvPepsi = Header("4D", Pckz)
Debug.Print ImvPepsi
End Function
Public Function ImvJcPennys(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063jcpenney;16401009341401"
ImvJcPennys = Header("4D", Pckz)
Debug.Print ImvJcPennys
End Function
Public Function ImvGlade(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063glade;16401009341401"
ImvGlade = Header("4D", Pckz)
Debug.Print ImvGlade
End Function
Public Function ImvLeaves(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063leaves;1006401009341401"
ImvLeaves = Header("4D", Pckz)
Debug.Print ImvLeaves
End Function
Public Function ImvFishTank(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063fishtank;06401009341401"
ImvFishTank = Header("4D", Pckz)
Debug.Print ImvFishTank
End Function
Public Function ImvBeneful(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063beneful2;06401009341401"
ImvBeneful = Header("4D", Pckz)
Debug.Print ImvBeneful
End Function
Public Function ImvSnowflake(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063snowflake;06401009341401"
ImvSnowflake = Header("4D", Pckz)
Debug.Print ImvSnowflake
End Function
Public Function ImvNascar(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063nascar;06401009341401"
ImvNascar = Header("4D", Pckz)
Debug.Print ImvNascar
End Function
Public Function ImvDodgeCars(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063dodgecaliber;06401009341401"
ImvDodgeCars = Header("4D", Pckz)
Debug.Print ImvDodgeCars
End Function
Public Function ImvSaturn(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063saturn;06401009341401"
ImvSaturn = Header("4D", Pckz)
Debug.Print ImvSaturn
End Function
Public Function ImvMaybellineLash(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063maybellinelash;06401009341401"
ImvMaybellineLash = Header("4D", Pckz)
Debug.Print ImvMaybellineLash
End Function
Public Function ImvNordstom(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063nordstrom4;06401009341401"
ImvNordstom = Header("4D", Pckz)
Debug.Print ImvNordstom
End Function
Public Function ImvDilbert(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063dilbert;06401009341401"
ImvDilbert = Header("4D", Pckz)
Debug.Print ImvDilbert
End Function
Public Function ImvGarfield(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063garfieldgames;06401009341401"
ImvGarfield = Header("4D", Pckz)
Debug.Print ImvGarfield
End Function
Public Function ImvHappyTree(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063htf;06401009341401"
ImvHappyTree = Header("4D", Pckz)
Debug.Print ImvHappyTree
End Function
Public Function ImvPeanuts(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063peanuts;06401009341401"
ImvPeanuts = Header("4D", Pckz)
Debug.Print ImvPeanuts
End Function
Public Function ImvEverest(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063everest;06401009341401"
ImvEverest = Header("4D", Pckz)
Debug.Print ImvEverest
End Function
Public Function ImvET(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063et;06401009341401"
ImvET = Header("4D", Pckz)
Debug.Print ImvET
End Function
Public Function ImvMonsterHouse(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063monsterhouse;06401009341401"
ImvMonsterHouse = Header("4D", Pckz)
Debug.Print ImvMonsterHouse
End Function
Public Function ImvOpenSeason(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063openseason;06401009341401"
ImvOpenSeason = Header("4D", Pckz)
Debug.Print ImvOpenSeason
End Function
Public Function ImvOverHedge(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063overthehedge;06401009341401"
ImvOverHedge = Header("4D", Pckz)
Debug.Print ImvOverHedge
End Function
Public Function ImvYSmash(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063ysmash;06401009341401"
ImvYSmash = Header("4D", Pckz)
Debug.Print ImvYSmash
End Function
Public Function ImvApprentice(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063apprentice5;06401009341401"
ImvApprentice = Header("4D", Pckz)
Debug.Print ImvApprentice
End Function
Public Function ImvVerizon(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063verizon;06401009341401"
ImvVerizon = Header("4D", Pckz)
Debug.Print ImvVerizon
End Function
Public Function ImvBudwieser(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063budweiser;06401009341401"
ImvBudwieser = Header("4D", Pckz)
Debug.Print ImvBudwieser
End Function
Public Function ImvButterFinger(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063butterfinger;06401009341401"
ImvButterFinger = Header("4D", Pckz)
Debug.Print ImvButterFinger
End Function
Public Function ImvAirforce(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063airforce;06401009341401"
ImvAirforce = Header("4D", Pckz)
Debug.Print ImvAirforce
End Function
Public Function ImvAngelSoft(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063angelsoft2;06401009341401"
ImvAngelSoft = Header("4D", Pckz)
Debug.Print ImvAngelSoft
End Function
Public Function ImvColgate(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063colgatemax;06401009341401"
ImvColgate = Header("4D", Pckz)
Debug.Print ImvColgate
End Function
Public Function ImvPanasonic(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063panasonicoxyride;06401009341401"
ImvPanasonic = Header("4D", Pckz)
Debug.Print ImvPanasonic
End Function
Public Function ImvPopTarts(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063poptartsescape;06401009341401"
ImvPopTarts = Header("4D", Pckz)
Debug.Print ImvPopTarts
End Function
Public Function ImvQuilted(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063quiltednorthern2;06401009341401"
ImvQuilted = Header("4D", Pckz)
Debug.Print ImvQuilted
End Function
Public Function ImvPersonals(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063personals2;06401009341401"
ImvPersonals = Header("4D", Pckz)
Debug.Print ImvPersonals
End Function
Public Function ImvHearts(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063hearts;06401009341401"
ImvHearts = Header("4D", Pckz)
Debug.Print ImvHearts
End Function
Public Function ImvPrecious(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063precious;06401009341401"
ImvPrecious = Header("4D", Pckz)
Debug.Print ImvPrecious
End Function
Public Function ImvSearch(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063search;06401009341401"
ImvSearch = Header("4D", Pckz)
Debug.Print ImvSearch
End Function
Public Function ImvShopping(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063shoppingxl;06401009341401"
ImvShopping = Header("4D", Pckz)
Debug.Print ImvShopping
End Function

'-//--Pm Packets------------------------------------------------------------------

Public Function PmBuzz(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??14??<ding>??97??1??63????64??2??206??2??"
PmBuzz = Header("06", Pckz)
Debug.Print PmBuzz
End Function
Public Function PmSend(Whofrom As String, whoto As String, What As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??14??" & What & "??97??1??48??1??63????64??2??206??2??"
PmSend = Header("06", Pckz)
Debug.Print PmSend
End Function
Public Function PmTyping(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "4??" & Whofrom & "??49??TYPING??1??" & Whofrom & "??14?? ??13??1??5??" & whoto & "??10093??4??"
PmTyping = Header("4B", Pckz)
Debug.Print PmTyping
End Function
Public Function PmPing(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "1??" & Whofrom & "??5??" & whoto & "??13??1??"
PmPing = Header("D4", Pckz)
Debug.Print PmPing
End Function

'-//--Stealth Packets------------------------------------------------------------------

Public Function StealthNormalOffline(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "0??" & Whofrom & "??1??" & Whofrom & "??7??" & whoto & "??13??1??31??2??66??0??140??1??10093??4??"
StealthNormalOffline = Header("BA", Pckz)
Debug.Print StealthNormalOffline
End Function
Public Function StealthPermOffline(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "0??" & Whofrom & "??1??" & Whofrom & "??7??" & whoto & "??13??2??31??1??66??0??140??1??10093??4??"
StealthPermOffline = Header("B9", Pckz)
Debug.Print StealthPermOffline
End Function
Public Function StealthPermOnline1(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "0??" & Whofrom & "??1??" & Whofrom & "??7??" & whoto & "??13??2??31??2??66??0??140??1??10093??4??"
StealthPermOnline1 = Header("B9", Pckz)
Debug.Print StealthPermOnline1
End Function
Public Function StealthPermOnline2(Whofrom As String, whoto As String) As String
Dim Pckz As String
Pckz = "0??" & Whofrom & "?1??" & Whofrom & "??7??" & whoto & "??13??1??31??1??66??0??140??1??10093??4??"
StealthPermOnline2 = Header("BA", Pckz)
Debug.Print StealthPermOnline2
End Function

'-//--Status Packets---------------------------------------

Public Function StatusAvailable(Whofrom As String) As String
Dim Pckz As String
Pckz = "7??" & Whofrom & "??10??0??13??1??138??1??97??1??"
StatusAvailable = Header("C6", Pckz)
Debug.Print StatusAvailable
End Function
Public Function StatusBeRightBack(Whofrom As String) As String
Dim Pckz As String
Pckz = "7??" & Whofrom & "??10??1??13??1??138??1??"
StatusBeRightBack = Header("C6", Pckz)
Debug.Print StatusBeRightBack
End Function
Public Function StatusBusy(Whofrom As String) As String
Dim Pckz As String
Pckz = "7??" & Whofrom & "??10??2??13??1??138??1??"
StatusBusy = Header("C6", Pckz)
Debug.Print StatusBusy
End Function
Public Function StatusCustom(Whofrom As String, What As String) As String
Dim Pckz As String
Pckz = "7??" & Whofrom & "??10??99??13??1??19??" & What & "??47??0??138??1??187??0??"
StatusCustom = Header("C6", Pckz)
Debug.Print StatusCustom
End Function
Public Function StatusCustomBusy(Whofrom As String, What As String) As String
Dim Pckz As String
Pckz = "7??" & Whofrom & "??10??99??13??1??19??" & What & "??47??1??138??1??187??0??"
StatusCustomBusy = Header("C6", Pckz)
Debug.Print StatusCustomBusy
End Function
Public Function StatusIdle(Whofrom As String) As String
Dim Pckz As String
Pckz = "7??" & Whofrom & "??10??99??13??1??19????47??1??138??1??187??0? ?"
StatusIdle = Header("C6", Pckz)
Debug.Print StatusIdle
End Function
Public Function StatusIdleCustom(Whofrom As String, What As String) As String
Dim Pckz As String
Pckz = "7??" & Whofrom & "??10??99??13??1??19??" & What & "??47??1??138??1??187??0??"
StatusIdleCustom = Header("C6", Pckz)
Debug.Print StatusIdleCustom
End Function
Public Function StatusNotAtMyDesk(Whofrom As String) As String
Dim Pckz As String
Pckz = "7??" & Whofrom & "??10??4??13??1??138??1??"
StatusNotAtMyDesk = Header("C6", Pckz)
Debug.Print StatusNotAtMyDesk
End Function
Public Function StatusOffline(Whofrom As String) As String
Dim Pckz As String
Pckz = "0??" & Whofrom & "??1??" & Whofrom & "??13??1??31??3??66??0??140??1??10093??4??"
StatusOffline = Header("BA", Pckz)
Debug.Print StatusOffline
End Function
Public Function StatusOnThePhone(Whofrom As String) As String
Dim Pckz As String
Pckz = "7??" & Whofrom & "??10??6??13??1??138??1??"
StatusOnThePhone = Header("C6", Pckz)
Debug.Print StatusOnThePhone
End Function
Public Function StatusOpenTalk(Whofrom As String, What As String) As String
Dim Pckz As String
Pckz = "7??" & Whofrom & "??10??99??13??1??19??" & What & "??47??0??138??1??184??mode=Active??187??4??"
StatusOpenTalk = Header("C6", Pckz)
Debug.Print StatusOpenTalk
End Function
Public Function StatusSteppedOut(Whofrom As String) As String
Dim Pckz As String
Pckz = "7??" & Whofrom & "??10??9??13??1??138??1??"
StatusSteppedOut = Header("C6", Pckz)
Debug.Print StatusSteppedOut
End Function

'-//--Randomized Packets-----------------------------------

Public Function RandomImv(Whofrom As String, whoto As String, What As String) As String
Dim ImvNum As Integer, Imvz As String
Randomize
ImvNum% = 33 * Rnd
Select Case ImvNum%
Case 1: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063cleanandclear;16401009341401"
Case 2: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063hondafit;16401009341401"
Case 3: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063pepsiringtones;26401009341401"
Case 4: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063jcpenney;16401009341401"
Case 5: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063glade;16401009341401"
Case 6: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063leaves;1006401009341401"
Case 7: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063fishtank;06401009341401"
Case 8: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063beneful2;06401009341401"
Case 9: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063snowflake;06401009341401"
Case 10: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063nascar;06401009341401"
Case 11: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063dodgecaliber;06401009341401"
Case 12: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063saturn;06401009341401"
Case 13: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063maybellinelash;06401009341401"
Case 14: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063nordstrom4;06401009341401"
Case 15: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063dilbert;06401009341401"
Case 16: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063garfieldgames;06401009341401"
Case 17: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063htf;06401009341401"
Case 18: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063peanuts;06401009341401"
Case 19: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063everest;06401009341401"
Case 20: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063et;06401009341401"
Case 21: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063monsterhouse;06401009341401"
Case 22: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063openseason;06401009341401"
Case 23: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063overthehedge;06401009341401"
Case 24: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063ysmash;06401009341401"
Case 25: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063apprentice5;06401009341401"
Case 26: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063verizon;06401009341401"
Case 27: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063budweiser;06401009341401"
Case 28: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063butterfinger;06401009341401"
Case 29: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063airforce;06401009341401"
Case 30: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063angelsoft2;06401009341401"
Case 31: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063colgatemax;06401009341401"
Case 32: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063panasonicoxyride;06401009341401"
Case 33: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063poptartsescape;06401009341401"
Case 34: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063quiltednorthern2;06401009341401"
Case 35: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063personals2;06401009341401"
Case 36: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063hearts;06401009341401"
Case 37: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063precious;06401009341401"
Case 38: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063search;06401009341401"
Case 39: Imvz = "5" & whoto & "4" & Whofrom & "49IMVIRONMENT1" & Whofrom & "14" & What & "13063shoppingxl;06401009341401"
End Select
Pckz = Imvz$
RandomImv = Header("4D", Pckz)
Debug.Print RandomImv
End Function
Public Function RandomImvBuzz(Whofrom As String, whoto As String, What As String) As String
Dim ImvzbNum As Integer, ImvzBz As String
Randomize
ImvzbNum% = 33 * Rnd
Select Case ImvzbNum%
Case 1: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??nascar;1??64??0??"
Case 2: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??soccer;1??64??0??"
Case 3: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??beneful2;1??64??0??"
Case 4: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??snowflake;1??64??0??"
Case 5: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??dilbert;1??64??0??"
Case 6: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??htf;1??64??0??"
Case 7: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??peanuts;1??64??0??"
Case 8: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??everest;1??64??0??"
Case 9: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??et;1??64??0??"
Case 10: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??harrypotter4dvd;1??64??0??"
Case 11: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??iceage2;1??64??0??"
Case 12: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??overthehedge;1??64??0??"
Case 13: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??shestheman;1??64??0??"
Case 14: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??ysmash;1??64??0??"
Case 15: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??apprentice5;1??64??0??"
Case 16: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??sims2ofb;1??64??0??"
Case 17: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??saturn;1??64??0??"
Case 18: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??xmen3;1??64??0??"
Case 19: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??maddie;1??64??0??"
Case 20: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??maybelline2;1??64??0??"
Case 21: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??maybellinelash;1??64??0??"
Case 22: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??nordstrom3;1??64??0??"
Case 23: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??budweiser;1??64??0??"
Case 24: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??butterfinger;1??64??0??"
Case 25: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??chilis;1??64??0??"
Case 26: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??doritos2;1??64??0??"
Case 27: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??easymac;1??64??0??"
Case 28: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??poptartsescape;1??64??0??"
Case 29: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??tridentsplash;1??64??0??"
Case 30: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??airforce;1??64??0??"
Case 31: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??search;1??64??0??"
Case 32: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??shoppingxl;1??64??0??"
Case 33: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??personals2;1??64??0??"
Case 34: ImvzBz = "71??" & Whofrom & "??5??" & whoto & "??14??<ding>" & What & "??97??1??63??garfieldgames;1??64??0??"
End Select
Pckz = ImvzBz$
RandomImvBuzz = Header("06", Pckz)
Debug.Print RandomImvBuzz
End Function
Public Function RandomGame(Whofrom As String, whoto As String) As String
Dim GameNum As Integer, Game As String
Randomize
GameNum% = 33 * Rnd
Select Case GameNum%
Case 1: Game = "1??" & Whofrom & "??5??" & whoto & "??180??bg??11??dkk3wxljg5fbeixdmvp5ya--??13??1??"
Case 2: Game = "41??" & Whofrom & "??5??" & whoto & "??180??ck??11??k.zq_8mcvx2hou6i3a1r2a--??13??1??"
Case 3: Game = "41??" & Whofrom & "??5??" & whoto & "??180??ch??11??lxcalpde9fqj10vgy98udw--??13??1??"
Case 4: Game = "1??" & Whofrom & "??5??" & whoto & "??180??do??11??euwlwad.he8clr6jradnow--??13??1??"
Case 5: Game = "1??" & Whofrom & "??5??" & whoto & "??180??lt??11??pen5nxif9_yk6mcthedpea--??13??1??"
Case 6: Game = "41??" & Whofrom & "??5??" & whoto & "??180??ph??11??nfy5uzeumokbyifzm438bw--??13??1??"
Case 7: Game = "1??" & Whofrom & "??5??" & whoto & "??180??pl??11??8lsr3h3n_tvau1xhpcxjsa--??13??1??"
Case 8: Game = "41??" & Whofrom & "??5??" & whoto & "??180??ttb??11??pr0syuyavm0pmsmvyn4wvw--??13??1??"
Case 9: Game = "41??" & Whofrom & "??5??" & whoto & "??180??ww??11??0osl1lfnhddkjl17__pkdw--??13??1??"
End Select
Pckz = Game$
RandomGame = Header("B7", Pckz)
Debug.Print RandomGame
End Function
Public Function RandomAudibles(Whofrom As String, whoto As String) As String
Dim AudyNum As Integer, Audy As String
Randomize
AudyNum% = 33 * Rnd
Select Case AudyNum%
Case 1: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.work.asset_08??231??They said you were a great asset. . .I told them they were off by two letters.??232??f2142dc807bfd2151225f0216616e491fe1 f7931??"
Case 2: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.work.brown_8??231??You got a little brown on your nose there sweetie??232??74de2b835ee093bb3818f4e96d2dc54f7fd6 2b5e??"
Case 3: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.work.IQ_08??231??When your IQ reaches 50, you should sell!??232??e8275ba70aa3ede2c6bbe825ca31e7f117c201 ff??"
Case 4: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.work.trade_08??231??Can I trade this here job for what's behind door #1???232??be04021e21890c94e763c80ae6633bfce31f4a58 ??"
Case 5: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.cpr_08??231??I hope you know CPR, cuz you take my breath away . . . ??232??dfa5db6fe91d46c15748b5f3b022ba90bca0697b??"
Case 6: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.cupid_08??231??Hello... Cupi d called. He says to tell you I need my heart back.??232??3379f2f688510ed0e31a1ddb2911458578544d 49??"
Case 7: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.dang_08??231??Dang baby! Would you like some fries with that shake???232??af89e28cbb4320920fcc39c1dfecd1b9a06ba 6bd??"
Case 8: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.dead_08??231??You remind me of my ex-girlfriend. . . my DEAD ex-girlfriend!??232??fd93873923692fc56665d3dfa3d3a475 fb3097b2??"
Case 9: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.fat_08??231??So, do you like fat guys with no money???232??29b25411dda007d70d1f7e830a195312dbed3 561??"
Case 10: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.so_08??231??So...you're a girl, huh???232??80d4b111496c26689df4226f86c9761ed9cdef9 8??"
Case 11: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.booty1??231??Arrr! Your booty shivers me timbers??232??0fbd4c07404eab4a067a372aa9f5c5f3be3e 4865??"
Case 12: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.window1??231??I love what you've done with your window??232??b4721fa281eab71f56e1874a74ea8279569f9 81b??"
Case 13: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.sexy1??231??Hey sexy??232??e399c55f0863ff0e4a82d20e81640b4adb63565 d??"
Case 14: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.realslow1??231??I love it when you type real slow??232??04bb8215d6856011cd63986e3e0515f2944ed9d d??"
Case 15: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.comecloser1??231??Come here you. Come on. Closer. Closer.??232??25a3cfce27a3b917133cf09ea0ffc3c70bc8 fe2b??"
Case 16: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.lovesme1??231??She loves me not. She loves me.??232??7e4475d91030605c53c16e4ee1804c1f735910d0 ??"
Case 17: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.heartmelt1??231??You make my heart melt??232??1d781eb55e4f1fc6595bb9338d3357573acebf6 3??"
Case 18: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.flirts.hot1??231??Is it just me or is it getting really hot in here???232??991ce29c682118f24cb6d338c5a43fc18c8d70 b5??"
Case 19: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.hello.guess_08??231??Hey! How it goi. . . oh. . .I thought you were someone else. . . but I guess I can talk to you.??232??1b00a53bccabfbe5bd5cb630308668dc610f04f 9??"
Case 20: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.hello.ok_08??231??(music) It's okay now, I'm here! ??232??3494d814c9255f83fd15c6940df5e689c21d9906??"
Case 21: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.hello.skin_08??231??Gimme some skin!??232??879c7266b2b1555d8d8a30e0cab5a93124401f fc??"
Case 22: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.hello.sup_08??231??Sup???232?? 039b 8ce9177dbf7e1bafc710bb1d20a2286e271d??"
Case 23: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.hello.dude1??231??Dude!??232?? 0d29 376f051ad14fb85f2fc9ff8b03b3106d4689??"
Case 24: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.hello.nosepick1??231??Oh... uh... Hello??232??234206a7191d02472d4f76df4dae96a4cae907 ee??"
Case 25: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.hello.echo1??231??Hello? Hello? Anybody there? Echo!??232??6fffd5f4e833d3bbac5f60f0af0cba7fe07663 b5??"
Case 26: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.hello.seeyou1??231??Hello? I know you're there. I can see you!??232??86e07e3f911a741bdc0d9fd11cf1c4a53e1f5e6 6"
Case 27: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.hello.whadup1??231??Whaaadddup ?!?? 232??dfb67c13a06049e08458ba1273f54cae32f4b193??"
Case 28: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.hello.ladies1??231??All the ladies in the house say...??232??e6e04dfe428c6bf75d5ea021ee58c583e53af b89??"
Case 29: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.hello.whistle1??231??Whistle?? 232? ?3257b0c61637efd75b5bd84113100c2e18a7540a??"
Case 30: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.hello.welcome1??231??Welcome. I've been expecting you.??232??e4fa5ec263485ed14ff7462890f0a306bb88f0a 2??"
Case 31: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.barf_08??231??(barfing sound)??232??a90eaefa528b8b8e928f0d74bf89d2c4e1536 f90??"
Case 32: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.hand_08??231??Talk to the Hand! So, uh, what's going on???232??1c8f452ae187694531be3262fedd28ffc0440a84 ??"
Case 33: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.laughing_08??231??(lau ghin g)??232??7ec20f2bfe7736affab6a961abb41dc4127902e6? ?"
Case 34: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.man_08??231??Oh man! That is hilarious! Sucks for you though, sorry 'bout that.??232??f1c2e0374c98530a2f65b3ef974f4e0e23930f 54??"
Case 35: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.rest_08??231??You know something? I could have gone the rest of my life without knowing that.??232??d179c819d5c356f40387897113e44c7490d7a0 98??"
Case 36: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.serioulsy_08??231??Ser ious ly, were you even typing a language right there???232??aad489c465403c25d340588e6a25ad244ef5e 2fa??"
Case 37: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.shower_08??231??Ah, c'mon mannnn. . . that makes me want to take a shower.??232??635ee5777dfe0af8c5880a85a853be34f801 71a8??"
Case 38: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.snap_08??231??Ohhhhhh snap!??232??e148400fdb8fcd5c78c517e556a0bfc50eeaad 17??"
Case 39: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.sock_09??231??Hey! Put a sock in it!??232??01f4f6f1cca6a34592ebcc846ea3dfdba47964e0 ??"
Case 40: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.stick_08??231??So where do you want me to stick ya? Cuz you're done.??232??62f0f5cc4f1583c9c22e07db620e13fc997ef8 38??"
Case 41: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.suck_08??231??You suck more than I do.??232??42abdc982cdb86a32928ddeac682d36e278f4a85 ??"
Case 42: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.whine_09??231??Would you like some cheese and crackers to go with that whine???232??1f8460c58b1adbe0601d8a8335a58b1835bdf 68e??"
Case 43: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.why_08??231??Why, in the world, would I, or anybody else, want to know that???232??5856851f71c7bf796321b435??232??402d388 e20079??"
Case 44: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.funny1??231??Haha... you're funny!??232??f336a75908403f101a4d44cecba1bf6d1f4a1 ee3??"
Case 45: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.lonely1??231??It must be really lonely being you.??232??c07bdcf7a2fbdd6d1e05676a45407ce8d37ad73 e??"
Case 46: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.monkey1??231??I've gotten better IM's from a drunken monkey??232??467e40ae7babc6d1ddf83458309ba8be3a33c f4f??"
Case 47: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.notfunny1??231??That's not funny. That's not even in the same zip code as funny.??232??83d90ebb6412fcb1c1ad261b17a577f7a302a f5b??"
Case 48: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.typo1??231??I'm sorry - was that a typo? Or are you really that stupid???232??8bdb3b919bc4ba4803cebe3ca81eb2fa183d d125??"
Case 49: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.spellcheck1??231??It's called spell check. Look into it.??232??e87418bdd321caeb62d2fededfc2a91d40e17ad5 ??"
Case 50: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.unplug1??231??Seriousl y - do us all a favor and unplug your computer now!??232??8ebab9094156135f5dcbaccbeee662a5c5fd142 0??"
Case 51: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.insults.brain1??231??It's 10 o'clock. Do you know where your brain is???232??47071d49261b14cf0794c544352e073600abe979 ??"
Case 52: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.goodbyes.IM_08??231??I think we should stop. . . .my IM window just started screaming 'No More!, No More!'??232??6ef3e8d560e9f815cd0f05bb5baec445d4ac1 5e5??"
Case 53: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.goodbyes.meds_09??231??Gotta go. . . my Meds are kickin' in!??232??1efacb1324800db797b7eda1930f1e432045dbbe ??"
Case 54: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.goodbyes.stop_08??231??(laughi ng) Please stop. . .(more laughing) I'm dying over here??232??6603c6199f0c7583682e9f61ed569e990d16842 9??"
Case 55: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.goodbyes.parole1??231??Gotta go. My parole officer needs to use the computer??232??0f5f12c43f97d524b73e7ba305c7bc16f9b 0c9e3??"
Case 56: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.goodbyes.buhbye1??231??Buh-bye! Buh-bye now. Buh-Bye!??232??85935a59f9c5e1a3dcee70a8a864362e5ebeddd 8??"
Case 57: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.goodbyes.pee1??231??Gotta go. Gotta go. I gotta pee!??232??d11df67ac5fd8fa9846b90f4dcf7a55f871e37e 4??"
Case 58: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.goodbyes.split1??231??See ya. I gotta split.??232??98a96a9d714cd5a821882a54a4be44b8bc5f4 1c6??"
Case 59: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.goodbyes.seeya1??231??See ya - wouldn't want to be ya??232??59f24b917a8f1650dbff45fdb37cc56b6ea8171c? ?"
Case 60: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.goodbyes.reboot1??231??Oops. Sorry... I have to reboot. Goodbye...??232??865449e3ba9df10c8d36e8139a58b0077 63e3239??"
Case 61: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.goodbyes.boss1??231??Ooh gotta go, the boss is coming.??232??2414035a3b44c91619f2e5f44567719a0e55 5084??"
Case 62: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.goodbyes.outtahere1??231??That 's it. I'm outta here??232??08e64a7e6a8d1491852271e569da49c21951941 4??"
Case 63: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.contender.tommy_01b??231??C'mo n! Keep punchin'!??232??79c121e5f2a993613bc198cdb811d9749f 79f6d4??"
Case 64: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.contender.tommy_02b??231??If you don't have the heart for this, let's do something else.??232??048772164cfa439a8883444b1f513c01f0973b d6??"
Case 65: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.contender.tommy_03b??231??You gotta keep *$#&* in there. . .Punch! ??232??16cfe9b8a98611d010e409c8b398b65c12d6353c??"
Case 66: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.contender.tommy_04c??231??That punch hurt. You mighten shook your head like it didn't hurt, but that hurt.??232??ed5a79371b8e0ba07ef5dfdeee48ca3f6d9214 21??"
Case 67: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.htf.disco1??231??Disco: Roar??232??33462c5fff155157670264ce96c3b2c681509cb b??"
Case 68: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.htf.flaky1??231??Flaky: Hi!??232??083516aeca37604b318018c95471b5af22befbbd ??"
Case 69: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.htf.flippy1??231??Flippy: Growl!??232??aa29731a5c1e894a275d3abde2b9856a275a7 135??"
Case 70: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.htf.giggles1??231??Giggles: Hee Hee??232??5daff4d0b19e70d5878b82fe807835987b1de879 ??"
Case 71: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.htf.nutty1??231??Nutty: Sugar High!??232??15a31ef9985ac8bb6d8f0da28263caa40c011f 76??"
Case 72: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.htf.toothy1??231??Toothy: Yawn??232??556a4c70c8e52e67a15add02e6c16ecd8255284 f??"
Case 73: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.personals3.jenni_kissed2_v05?? 231? ?I just french kissed the monitor!??232??c9ed951d16c8b9793160225146f76168363 1bab4??"
Case 74: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.personals3.jenni_likey2_v03??2 31?? Oh, me likey!??232??bcdfe4f6ef03ac13979c15ae8b57893d27209 68c??"
Case 75: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.personals3.jenni_winner2_v04" & Whofrom & "We have a winner!??232??075bd3c8cf28d4bf3b447c5e397c2221008e c5fb??"
Case 76: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.personals3.jeni_smokin2_v02??2 31?? This one is sort, kinda, slightly smokin', kinda.??232??1fc13accbe3aeead0aed964424557567a3895 c4b??"
Case 77: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.personals3.jeni_maybe2_v1??231 ??Th at's a definite... maybe??232??0c6eb02bd9e83d649cf59e84bf104812441f12 25??"
Case 78: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.personals3.jenni_dressed2_v04" & Whofrom & "See, this is what happens when you get dressed in the dark.??232??b14b49dca5523ebcc6c5f73a3fde32dde7dde6 2d??"
Case 79: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.personals3.jenni_circus2_v08?? 231? ?Oh.. looks like the circus is in town.??232??11d898e6f6a98ff6d133d9391a2549ecdfd713 da??"
Case 80: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.personals3.rj_aisle2_v02??231? ?Att ention: Clean up on aisle 5, clean up on aisle 5.??232??009de5a6328b532e772680f14879c32003566359? ?"
Case 81: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.us.personals3.jeni_next2_v02??231 ??Ne xt!??232??d9589756e043d3f7c6463f0f49b9bc14d97b2c37 ??"
Case 82: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.uk.general.bob_final??231??It wasn't me!??232??5061ab874890d66167499ff727e8f8aab426daf0 ??"
Case 83: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.uk.general.discodave_final??231?? Groo vy baby, it's almost the weekend!??232??b271cc0258ca6077f3ad4ac8b2610e9d147 d08c8??"
Case 84: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.uk.general.kylie_final??231??No but yeah but no but yes, actually yes!??232??6d11a4590432b9706262ba8ebb70c957f23d711 c??"
Case 85: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.uk.general.mike_final??231??Heavy night last night!??232??cde05897d63fa7b1559d0bf9fe5b5deb76934 e33??"
Case 86: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.uk.general.pinga_final??231??Ping me!??232??0fe4f280f0295f0999ad17d90af15522d4e56938 ??"
Case 87: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.uk.general.taxi_final??231??Taxi for a Juan Kerr!??232??3fe496108efe64da043da61252f4299c630506 cc??"
Case 88: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.de.siedler5.ari4" & Whofrom & "Ihr entkommt mir nicht!??232??f957661c15a3304f23bf384a6633f57615b3f 5ec??"
Case 89: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.de.siedler5.dario3??231??In Ordnung.??232??aaeedbd20fb76fddc946f179c5a991737f3 93ae1??"
Case 90: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.de.siedler5.pilgrim3??231??Das haben wir gleich.??232??672637e63d0c6218e??232??30f2205d7545 80023d7e??"
Case 91: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.in.masti.aankhe??231??aankhen hai ki batatein...dikhta nahin kya???232??9b1cc8b217da6c7a48de0a320e657c73b54cc38 d??"
Case 92: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.in.masti.bday??231??Happy Birthday!??232??2f893be62ee558ad6ee763a620250e672d 25e36d??"
Case 93: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.in.masti.bhoot??231??bhooooooot?? 232? ?988a89388219b9a4a7061a004f41b4e7be8c9bce??"
Case 94: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.in.masti.chakde??231??OYE! chuk de patte??232??583292f4674c9596f86b11f89f788ed1574afe 8f??"
Case 95: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.in.masti.daiyya??231??Hai Daiyya..bas bhi karo..log kya kahenge!??232??e19f013a8f574aec4878eb14d69694621fa b2037??"
Case 96: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.in.masti.dilpe??231??Arre dil pe mat le yaar??232??c3eccc517d93e5909f8ce9219ca80c618b08d73 4??"
Case 97: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.in.masti.kyaaap??231??Kya aap mere saath coffee peene chalenge???232??684645a3a76e15e8826f247cd83b993945 4cdbba??"
Case 98: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.in.masti.mrindia??231??abbey e..offline ho gaya kya, ya Mr.India bana baitha hai? Lal chasma lagaoon kya???232??cc0aa7c0a6247e57180ae509821494500a45ea1 2??"
Case 99: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.in.masti.shaane??231??e chal e shaane..hawa aane de??232??c7708717d5ac261a12252ef5d6c50df3d08daa0f? ?"
Case 100: Audy = "1??" & Whofrom & "??5??" & whoto & "??230??base.in.masti.yahitoh??231??Arre...yah in to dhokha kha gaya India..??232??800347a8b7e9f2280d43695876e649bddbd3 c484??"
End Select
Pckz = Audy$
RandomAudibles = Header("D0", Pckz)
Debug.Print RandomAudibles
End Function

'-//--Client Tags----------------------------------------------------------------------

<font INF ID:YmLite AVA:CH\ ltime:38925.5290606829 ver:262 lpos:1 prot:YMSG igs:3 IDcol:$0>
<font INF ID:YHLT VER:292 LINE:1 SEX:U TM:10 AVA:YA\yhlt PROT:YMSG>
<font INF ID:JAM AVA:CH\ ltime:38925.5680651389 ver:262 lpos:2 prot:YMSG igs:4 IDcol:$0>
<font INF ID:YAM AVA:CH\ ltime:38925.5680651389 ver:262 lpos:2 prot:YMSG igs:4 IDcol:$0>
<font INF ID:Yzak AVA:CH\ ltime:38925.5698135417 ver:262 lpos:1 prot:YMSG igs:3 IDcol:$0>
<font INF ID:YmLite AVA:CH\ ltime:38925.5290606829 ver:262 lpos:1 prot:YMSG igs:3 IDcol:$0>

^ Not Packets, But Helpfull

Max!

LOL! This could sure use some formatting... but nvm.. :P