Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @name Minge blind
- @persist Player:entity Sounds:array HoloIndex
- if (first()) {
- function number blind(Player:entity){
- Start = randint(1,500)
- Ang = Player:angles()
- for (X=Start,Start+3){
- holoCreate(X)
- holoModel(X,"hq_hdome_thin")
- holoPos(X,entity():pos())
- holoMaterial(X,"debug/env_cubemap_model")
- holoPos(X,Player:pos()+vec(0,0,40))
- holoAng(X,Ang)
- holoParent(X,Player)
- }
- holoScale(Start,vec(8,8,8))
- holoScale(Start+1,vec(8,8,8))
- holoAng(Start+1,Ang+ang(vec(180,0,0)))
- holoScale(Start+2,vec(15,15,15))
- holoScale(Start+3,vec(15,15,15))
- holoAng(Start+3,Ang+ang(vec(180,0,0)))
- return Start
- }
- function unblind(Start){
- for (X=Start,Start+3){
- holoDelete(X)
- }
- }
- runOnChat(1)
- }
- if (chatClk(owner())) {
- M = lastSaid():explode(" ") #Split what you said into an array
- if (M[1,string] == ".blind") { #If you said ".blind"
- hideChat(1) #Hide your message
- if (M[2,string]) {
- Ply = findPlayerByName(M[2,string]) #find the player..
- if (Ply) {
- Sounds = array("npc/fast_zombie/fz_scream1.wav","npc/fast_zombie/fz_frenzy1.wav","npc/fast_zombie/leap1.wav")
- Player = Ply
- HoloIndex = blind(Ply)
- holoEntity(HoloIndex):soundPlay(0,0,"hahayoufool.wav")
- dsJoinGroup("Security")
- dsSetScope(2)
- timer("MingeSound",2000)
- }else {print("Player '" + M[2,string] + "' not found.")}
- } else {print("You must enter a name.")}
- } elseif (M[1,string] == ".unblind") { #If you said ".unblind"
- hideChat(1)
- unblind(HoloIndex)
- print("Unblinded.")
- }
- }
- if (clk("MingeSound")){
- soundPurge()
- Sound = Sounds[randint(1,Sounds:count()),string]
- Duration = soundDuration(Sound)
- holoEntity(HoloIndex):soundPlay(0,0,Sound)
- if (Player:lastSaid()=="42"){unblind(HoloIndex)}
- elseif (Duration!=60){
- timer("MingeSound",Duration*1000)
- }
- else{
- timer("MingeSound",3000)
- }
- }
- runOnChat(1)
- if (dsClk("KillAll")){
- unblind(HoloIndex)
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement