Advertisement
Guest User

Untitled

a guest
Sep 1st, 2014
228
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ~1::
  2. IfWinNotActive, GTA:SA:MP
  3. return
  4. if (IsChatOpen() || IsDialogOpen())
  5. {
  6. return
  7. }
  8. Wanteds := GetPlayerWanteds()
  9. BoxMenuInfo := BoxCreate(579,169,180,15,0xAA000000,true)
  10. BoxMenu := BoxCreate(579,189,180,100,0xAA000000,true)
  11. BoxMenuInfo := TextCreate("Verdana", 8, false, false, 650, 170, 0xFFFFFFFF, "Info Box", false, true)
  12. FormatTime, Date,, ShortDate
  13. BoxMenuDate := TextCreate("Verdana", 7, false, false, 585, 196, 0xFFFFFFFF, "Datum: " Date " ", false, true)
  14. GetPlayerName(MyName)
  15. BoxMenuName := TextCreate("Verdana", 7, false, false, 585, 210, 0xFFFFFFFF, "Name: " MyName " ", false, true)
  16. MyID := GetPlayerId()
  17. BoxMenuID := TextCreate("Verdana", 7, false, false, 690, 210, 0xFFFFFFFF, "ID: " MyID " ", false, true)
  18. Wanteds := GetPlayerWanteds()
  19. BoxMenuWanteds := TextCreate("Verdana", 7, false, false, 585, 238, 0xFFFFFFFF, "Wanteds: " Wanteds " ", false, true)
  20.  
  21. SetTimer, Overlay, 1000
  22.  
  23.  
  24. Overlay:
  25. IfWinNotActive, GTA:SA:MP
  26. return
  27. TextDestroy(BoxMenuHP)
  28. HP := GetPlayerHealth()
  29. BoxMenuHP := TextCreate("Verdana", 7, false, false, 585, 224, 0xFFFFFFFF, "HP: " HP " ", false, true)
  30. TextDestroy(BoxMenuArmor)
  31. Armor := GetPlayerArmor()
  32. BoxMenuArmor := TextCreate("Verdana", 7, false, false, 690, 224, 0xFFFFFFFF, "Armor: " Armor " ", false, true)
  33. TextDestroy(BoxMenuCity)
  34. GetCityName(City)
  35. BoxMenuCity := TextCreate("Verdana", 7, false, false, 585, 252, 0xFFFFFFFF, "Stadt: " City " ", false, true)
  36. TextDestroy(BoxMenuZone)
  37. GetZoneName(Zone)
  38. BoxMenuZone := TextCreate("Verdana", 7, false, false, 585, 266, 0xFFFFFFFF, "Stadtteil: " Zone " ", false, true)
  39. TextDestroy(BoxMenuTime)
  40. FormatTime, Time, T12, Time
  41. BoxMenuTime := TextCreate("Verdana", 7, false, false, 690, 196, 0xFFFFFFFF, "Uhrzeit: " Time " ", false, true)
  42. TextDestroy(BoxMenuFPS)
  43. FPS := GetFramerate()
  44. BoxMenuFPS := TextCreate("Verdana", 7, false, false, 598, 300, 0xFFFFFFFF, "FPS: " FPS " ", false, true)
  45. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement