View difference between Paste ID: wRpVrSVr and mB09r07J
SHOW: | | - or go back to the newest paste.
1
-- Created by purple#0666
2
-- His post on V3r:https://v3rmillion.net/member.php?action=profile&uid=1705776
3
-- His V3r Profile: https://v3rmillion.net/member.php?action=profile&uid=1705776
4
local library = loadstring(game:HttpGet(('https://raw.githubusercontent.com/AikaV3rm/UiLib/master/Lib.lua')))()
5
local RunService = game:GetService("RunService")
6
local player = game.Players.LocalPlayer
7
local hum = player.Character.HumanoidRootPart
8
local mouse = player:GetMouse() 
9
local tpservice= game:GetService("TeleportService")
10
11
local ToolsCache = game:GetService("ReplicatedStorage").ToolsCache[player.UserId]
12
local plrTools
13
local bLocation
14
local fuckMonster
15
local fuckMobby
16
local autoSell
17
local autoChest
18
local autoCaught
19
20
-- Credits To Charwar for Server Hop
21
local PlaceID = game.PlaceId
22
local AllIDs = {}
23
local foundAnything = ""
24
local actualHour = os.date("!*t").hour
25
local Deleted = false
26
local File = pcall(function()
27
    AllIDs = game:GetService('HttpService'):JSONDecode(readfile("NotSameServers.json"))
28
end)
29
if not File then
30
    table.insert(AllIDs, actualHour)
31
    writefile("NotSameServers.json", game:GetService('HttpService'):JSONEncode(AllIDs))
32
end
33
34
35
-- Server Hop
36
function TPReturner()
37
    local Site;
38
    if foundAnything == "" then
39
        Site = game.HttpService:JSONDecode(game:HttpGet('https://games.roblox.com/v1/games/' .. PlaceID .. '/servers/Public?sortOrder=Asc&limit=100'))
40
    else
41
        Site = game.HttpService:JSONDecode(game:HttpGet('https://games.roblox.com/v1/games/' .. PlaceID .. '/servers/Public?sortOrder=Asc&limit=100&cursor=' .. foundAnything))
42
    end
43
    local ID = ""
44
    if Site.nextPageCursor and Site.nextPageCursor ~= "null" and Site.nextPageCursor ~= nil then
45
        foundAnything = Site.nextPageCursor
46
    end
47
    local num = 0;
48
    for i,v in pairs(Site.data) do
49
        local Possible = true
50
        ID = tostring(v.id)
51
        if tonumber(v.maxPlayers) > tonumber(v.playing) then
52
            for _,Existing in pairs(AllIDs) do
53
                if num ~= 0 then
54
                    if ID == tostring(Existing) then
55
                        Possible = false
56
                    end
57
                else
58
                    if tonumber(actualHour) ~= tonumber(Existing) then
59
                        local delFile = pcall(function()
60
                            delfile("NotSameServers.json")
61
                            AllIDs = {}
62
                            table.insert(AllIDs, actualHour)
63
                        end)
64
                    end
65
                end
66
                num = num + 1
67
            end
68
            if Possible == true then
69
                table.insert(AllIDs, ID)
70
                wait()
71
                pcall(function()
72
                    writefile("NotSameServers.json", game:GetService('HttpService'):JSONEncode(AllIDs))
73
                    wait()
74
                    game:GetService("TeleportService"):TeleportToPlaceInstance(PlaceID, ID, game.Players.LocalPlayer)
75
                end)
76
                wait(4)
77
            end
78
        end
79
    end
80
end
81
82
function switchServer()
83
    while wait() do
84
        pcall(function()
85
            TPReturner()
86
            if foundAnything ~= "" then
87
                TPReturner()
88
            end
89
        end)
90
    end
91
end
92
93
94
-- Teleportion system by [...] Open source script from RobloxScripts.com
95
function teleport(loc)
96
    bLocation = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame
97
    if game.Players.LocalPlayer.Character.Humanoid.Sit then
98
        game.Players.LocalPlayer.Character.Humanoid.Sit = false
99
    end
100
    wait()
101
    game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = loc
102
end
103
104
-- Get Tools Name (Just hidden the tool in replicatedstorage, savageeeee but characte win)
105
for i, getTools in pairs(player.Character:GetChildren()) do
106
    if getTools:IsA("Tool") and  getTools:FindFirstChild("GripC1") then
107
        plrTools = getTools.Name
108
    end
109
end
110
111
print(plrTools)
112
113
local function fireproximityprompt(Obj, Amount, Skip)
114
    if Obj.ClassName == "ProximityPrompt" then 
115
        Amount = Amount or 1
116
        local PromptTime = Obj.HoldDuration
117
        if Skip then 
118
            Obj.HoldDuration = 0
119
        end
120
        for i = 1, Amount do 
121
            Obj:InputHoldBegin()
122
            if not Skip then 
123
                wait(Obj.HoldDuration)
124
            end
125
            Obj:InputHoldEnd()
126
        end
127
        Obj.HoldDuration = PromptTime
128
    else 
129
        error("userdata<ProximityPrompt> expected")
130
    end
131
end 
132
    
133
_G.MainColor = Color3.fromRGB(255,255,255);
134
_G.MainTextColor = Color3.fromRGB(69,69,69);
135
136
_G.SecondaryColor = Color3.fromRGB(255,255,255);
137
138
_G.ButtonColor = Color3.fromRGB(255,255,255);
139
_G.ToggleColor = Color3.fromRGB(255,255,255);
140
_G.SliderColor = Color3.fromRGB(255,255,255);
141
_G.TertiaryColor = Color3.fromRGB(34, 34, 34);
142
_G.DraggerCircleColor = Color3.fromRGB(255,255,255);
143
_G.PointerColor = Color3.fromRGB(34, 34, 34);
144
145
local w = library:CreateWindow("Utilities") -- Creates the window
146
147
local b = w:CreateFolder("°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°")
148
149
150
151
b:Button("Caught",function()
152
    game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.FishCaught:FireServer()
153
end)
154
155
b:Button("Sell",function()
156
   game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.processGameItemSold:InvokeServer("SellEverything")
157
end)
158
159
b:Button("Remove Fog",function()
160
game.Lighting.FogEnd = 1000000
161
game.Lighting.GlobalLighting:Destroy()
162
game.Lighting.Atmosphere:Destroy()
163
end)
164
165
local hh = library:CreateWindow("Teleport") -- Creates the window
166
167
local h = hh:CreateFolder("•••••••••••Store•••••••••••••")
168
local i = hh:CreateFolder("•••••••••••Island•••••••••••••")
169
170
171
local enterBoat = true
172
h:Button("Boat Store",function()
173
    if enterBoat == true then
174
       game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.EnterDoor:InvokeServer("BoatShopInterior", "Inside")  
175
        enterBoat = false
176
    else
177
         enterBoat = true
178
        game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.EnterDoor:InvokeServer("BoatShopInterior","MainEntrance")
179
    end
180
end)
181
182
local enterTavern = true
183
h:Button("Raygan's Tavern",function()
184
    if enterTavern == true then
185
       game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.EnterDoor:InvokeServer("TavernInterior", "Inside")  
186
        enterTavern = false
187
    else
188
         enterTavern = true
189
        game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.EnterDoor:InvokeServer("TavernInterior","MainEntrance")
190
    end
191
end)
192
193
local enterSupplies = true
194
h:Button("Supplies Store",function()
195
    if enterSupplies == true then
196
       game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.EnterDoor:InvokeServer("SuppliesStoreInterior", "Inside")  
197
        enterSupplies = false
198
    else
199
         enterSupplies = true
200
        game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.EnterDoor:InvokeServer("SuppliesStoreInterior","MainEntrance")
201
    end
202
end)
203
204
local enterPets = true
205
h:Button("Pets Store",function()
206
    if enterPets == true then
207
       game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.EnterDoor:InvokeServer("PetShop", "MainEntrance")  
208
        enterPets = false
209
    else
210
         enterPets = true
211
        game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.EnterDoor:InvokeServer("PetShop","MainExit")
212
    end
213
end)
214
215
h:Button("Suken Ship",function()
216
 for i, v in pairs(game.Workspace:GetChildren()) do
217
    if string.find(v.Name, "ShipModel") then
218
            teleport(v.HitBox.CFrame)
219
        break
220
     end
221
  end
222
end)
223
224
i:Button("Port Jackson",function()
225
     teleport(CFrame.new(1.8703980445862, 53.57190322876, -188.37982177734))
226
end)
227
228
i:Button("Ancient Shores",function()
229
     teleport(CFrame.new(-2436.431640625, 43.564971923828, -1683.4526367188))
230
end)
231
232
i:Button("Shadow Isles",function()
233
     teleport(CFrame.new(2196.9926757812, 43.491630554199, -2216.4543457031))
234
end)
235
236
i:Button("Pharaoh's Dunes",function()
237
     teleport(CFrame.new(-4142.74609375, 46.71378326416, 262.05679321289))
238
end)
239
240
i:Button("Eruption Island",function()
241
     teleport(CFrame.new(3022.9311523438, 52.347640991211, 1323.74609375))
242
end)
243
244
i:Button("Monster's Borough",function()
245
     teleport(CFrame.new(-3211.9047851562, 41.850345611572, 2735.306640625))
246
end)
247
248
local Window2 = library:CreateWindow("Farm")
249
local c = Window2:CreateFolder("°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°")
250
251
c:Toggle("Kill Monster",function(bool)
252
    shared.toggle = bool
253
     if shared.toggle == true then
254
    fuckMonster = RunService.Stepped:Connect(function()
255
     for i, v in pairs(game.Workspace:GetChildren()) do
256
     if v:FindFirstChild("Health") and v:FindFirstChild("IsSeaMonster") and v.Name == "GreatWhiteShark" or v.Name == "BigGreatWhiteShark" or v.Name == "KillerWhale" or v.Name == "NeonGreatWhiteShark" then
257
        if game.Players.LocalPlayer.Character:FindFirstChildOfClass("Tool") then
258
                 
259
                
260
                    for i, getTools in pairs(player.Character:GetChildren()) do
261
                        if getTools:IsA("Tool") and  getTools:FindFirstChild("GripC1") then
262
                            plrTools = getTools.Name
263
                        end
264
                    end
265
                 
266
                    teleport(v.HumanoidRootPart.CFrame + Vector3.new(0, 30, 0))
267
                    wait(0.25)
268
                    game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.MonsterHit:FireServer(workspace[v.Name], tostring(plrTools), true)
269
                    break
270
                elseif not game.Players.LocalPlayer.Character:FindFirstChildOfClass("Tool") then
271
                 
272
               break
273
            end
274
        end
275
     end
276
     end)
277
    else
278
         fuckMonster:Disconnect()
279
          teleport(CFrame.new(1.8703980445862, 53.57190322876, -188.37982177734))
280
        end
281
end)
282
283
c:Toggle("Kill Mobby",function(bool)
284
    shared.toggle = bool
285
     if shared.toggle == true then
286
    fuckMobby = RunService.Stepped:Connect(function()
287
     for i, v in pairs(game.Workspace:GetChildren()) do
288
     if v:FindFirstChild("Health") and v:FindFirstChild("IsSeaMonster") and v.Name == "MobyWood" then
289
        if game.Players.LocalPlayer.Character:FindFirstChildOfClass("Tool") then
290
                 
291
                
292
                    for i, getTools in pairs(player.Character:GetChildren()) do
293
                        if getTools:IsA("Tool") and  getTools:FindFirstChild("GripC1") then
294
                            plrTools = getTools.Name
295
                        end
296
                    end
297
                 
298
                    teleport(v.HumanoidRootPart.CFrame + Vector3.new(0, 10, 0))
299
                    wait(0.25)
300
                    game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.MonsterHit:FireServer(workspace[v.Name], tostring(plrTools), true)
301
                    break
302
                elseif not game.Players.LocalPlayer.Character:FindFirstChildOfClass("Tool") then
303
                 
304
               break
305
            end
306
        end
307
     end
308
     end)
309
    else
310
         fuckMobby:Disconnect()
311
          teleport(CFrame.new(1.8703980445862, 53.57190322876, -188.37982177734))
312
        end
313
end)
314
315
c:Toggle("Auto Caught",function(bool)
316
    shared.toggle = bool
317
     if shared.toggle == true then
318
319
    
320
    autoCaught = coroutine.wrap(function()
321
        while true and shared.toggle == true do
322
            wait(2.6)
323
            warn("Caught")
324
            game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.FishCaught:FireServer()
325
        end
326
    end)()
327
328
    else
329
          autoCaught:Disconnect()
330
          teleport(CFrame.new(1.8703980445862, 53.57190322876, -188.37982177734))
331
        end
332
end)
333
334
c:Toggle("Auto Sell",function(bool)
335
    shared.toggle = bool
336
     if shared.toggle == true then
337
    autoSell = RunService.Stepped:Connect(function()
338
            game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.processGameItemSold:InvokeServer("SellEverything")
339
     end)
340
    else
341
         autoSell:Disconnect()
342
         
343
        end
344
end)
345
346
c:Toggle("Auto Map Chest",function(bool)
347
    shared.toggle = bool
348
     if shared.toggle == true then
349
    autoChest = RunService.Stepped:Connect(function()
350
            
351
 for i, v in pairs(game.Workspace.RandomChests:GetChildren()) do
352
            if v:IsA("Model") then
353
                  teleport(v.HumanoidRootPart.CFrame + Vector3.new(0, 0, 0))
354
                  wait(0.25)
355
                  fireproximityprompt(v.HumanoidRootPart.ProximityPrompt)
356
            end
357
        end
358
     end)
359
    else
360
         autoChest:Disconnect()
361
          teleport(CFrame.new(1.8703980445862, 53.57190322876, -188.37982177734))
362
        end
363
end)
364
365
366
local Window3 = library:CreateWindow("Boat");
367
local d = Window3:CreateFolder("°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°")
368
369
d:Slider("Speed",{
370
    min = 10; -- min value of the slider
371
    max = 400; -- max value of the slider
372
    precise = true; -- max 2 decimals
373
},function(value)
374
     for i, v in pairs(game.Workspace:GetChildren()) do
375
        if v.Name == (game.Players.LocalPlayer.Name .. "'s Boat") then
376
             v.Controller.VehicleSeat.MaxSpeed = tonumber(value)
377
             v.TakeDamage:Destroy()
378
         end
379
    end
380
end)
381
382
383
d:Button("Remove Borders",function()
384
    for i, v in pairs(game.Workspace.IgnoredByMouse.BoatBorders:GetChildren()) do
385
        v:Destroy()
386
    end
387
end)
388
d:Button("Tp to Boat",function()
389
    for i, v in pairs(game.Workspace:GetChildren()) do
390
            if v.Name == (game.Players.LocalPlayer.Name .. "'s Boat") then
391
                teleport(v.Controller.VehicleSeat.CFrame + Vector3.new(0, 3, 0))
392
            end
393
        end
394
end)
395
396
397
398
local Window4 = library:CreateWindow("Unboxing");
399
local e = Window4:CreateFolder("°°°°°°°°°°°Eggs°°°°°°°°°°°°°°°°°°°°°°")
400
local f = Window4:CreateFolder("°°°°°°°°°°°Roads°°°°°°°°°°°°°°°")
401
e:Button("Royal",function()
402
game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.OpenLootboxFunction:InvokeServer("royalegg")
403
end)
404
e:Button("Normal",function()
405
game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.OpenLootboxFunction:InvokeServer("normalegg")
406
end)
407
e:Button("Ruby",function()
408
game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.OpenLootboxFunction:InvokeServer("rubyegg")
409
end)
410
e:Button("Void",function()
411
game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.OpenLootboxFunction:InvokeServer("voidegg")
412
end)
413
414
f:Button("Silver",function()
415
game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.OpenLootboxFunction:InvokeServer("silverchest")
416
end)
417
f:Button("Stone",function()
418
game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.OpenLootboxFunction:InvokeServer("stonechest")
419
end)
420
f:Button("Gold",function()
421
game:GetService("ReplicatedStorage").CloudFrameShared.DataStreams.OpenLootboxFunction:InvokeServer("goldchest")
422
end)
423
424
local Window666 = library:CreateWindow("Misc");
425
local g = Window666:CreateFolder("°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°")
426
local toggleTp = false
427
428
g:Button("Click Teleport (E)",function()
429
             if toggleTp == false then
430
                toggleTp = true
431
            else
432
                toggleTp = false
433
             end
434
    
435
        
436
            mouse.KeyDown:connect(function(key) 
437
                if key == "e" then 
438
                    if mouse.Target then 
439
                        if toggleTp == true then
440
                        hum.CFrame = CFrame.new(mouse.Hit.x, mouse.Hit.y + 5, mouse.Hit.z)
441
                        end
442
                    end 
443
                end 
444
            end)
445
       
446
    
447
    
448
end)
449
450
g:Button("Rejoins",function()
451
tpservice:Teleport(game.PlaceId, plr)
452
end)
453
454
g:Button("Server Hop",function()
455
switchServer()
456
end)
457
458
g:Button("Discord",function()
459
setclipboard("HUnTFaE4H6") 
460
end)
461
462
g:DestroyGui()
463