Script Submission: Playerhouse (long post, hard script)

Well, I've been scripting my ass of for this one, I hope you guys like it. If you prefer a scripted house above a normal playerhouse, this is a kickass option.

level:
1 easy - 5 extreme hard.

beginner: 5
advanced scripter: 3.5
good scripter: 2
baron: 0.5
unnown: 21

Here it goes:

- All maps between map 200 and map 250 are playerhouses.
- A player can buy a playerhouse by going inside a house and pressing /playerhouse buy, after that there name will be on a little sign in the corner of the map.
- After that, a playerer can "build" a house pressing /playerhouse build. This will cost 5000 coins. When they enter the command, they'll be warped to a map where they can chose how they want the house to look (a template so to speak), and if they like it they step on the most left bottom tile, and it will get copied to the house they bought.
- When they have a house build, or before that, they can use /playerhouse item, to place a item (table/chair, w/e) on the map.
- They can use /playerhouse clearitems to clear all the items on the map.

Player Commands:
/playerhouse buy - will buy the current map as playerhouse (if you have a house permit, and if it is for sale).
/playerhouse build - will build a template house into your playerhouse.
/playerhouse item - places an item on your current location
/playerhouse clearitems - will clear all items you placed (recopy template)

admin commands:
/playerhouse clearowner - will clear the owner and reset the current map.
/playerhouse reset - will reset ALL playerhouses (takes some time)

A tutorial to place the script in your server:

Step 1: Making the empty house.
go to map 500, and make an empty house, using only ground and mask tiles. A good example would be:

Make sure there is a warp tile somewhere on the map. The copy map sript will make a warp to the playerhouse entry room. I made this warp on south east corner of the map.

Step 2: Making the items.
make sure your currency item (gold) is item 1, and you have a "house permit" item, which is item 195. Make the gold item currency, and make the house permit normal non stackable.

Step 3: Making the "entry room". Watch out with this one, I made a script so you can close and open your house. Therefore I couldn't use warps, but had to use scripted tiles. So, go to map 258, and make the following room(or something like it, as long as the scripted tiles are on EXACTLY the same location), Use scripted tile 18. Don't care about the warps, it's just to another room inside my game.

Step 4: Placing a .ini file:
Create the folowing .ini file: house.ini. And place the folowing content:
http://www.rapidupload.com/d.php?file=dl&filepath=6745

Step 5: making the commands:
add the folowing at the bottom of your commands sub:

Code: [Select]

'*****************************************************
'HOUSE COMMANDS!!!!! - Dinand Mentink - Ilnair
'*****************************************************
Case "/playerhouse build"
If GetPlayerMap(index) > 250 or GetPlayerMap(index) < 200 Then
	Call PlayerMsg(index, "You cannot build here!", 12)
	Exit Sub
End If

If GetVar("house.ini", "maps", "" & GetPlayerMap(index) & "owner") = GetPlayerLogin(index) & GetPlayerCharNum(index) Then
	Call PlayerWarp(index, 499, 0, 0)
	Call PlayerMsg(index, "Please walk to the left and find a house you like! To buy it step into the south-west corner 

of the 	map! This will cost 5000 coins!", 10)
	Exit Sub
Else
	Call PlayerMsg(index, "This is not your house!", 12)
	Exit Sub
End If


Case "/playerhouse reset"
Call ResetHouse(index)
Exit Sub

Case "/playerhouse buy"
Call BuyHouse(index)
Exit Sub

Case "/playerhouse item"
If GetPlayerMap(index) > 250 or GetPlayerMap(index) < 200 Then
	Call PlayerMsg(index, "You cannot place items here!", 12)
	Exit Sub
End If

If GetVar("house.ini", "maps", "" & GetPlayerMap(index) & "owner") = GetPlayerLogin(index) & GetPlayerCharNum(index) Then
	Call PutVar("tempvars.ini", "playerhouse", GetPlayerName(index) & "x", GetPlayerX(index) & "")
	Call PutVar("tempvars.ini", "playerhouse", GetPlayerName(index) & "y", GetPlayerY(index) & "")

	Call PlayerWarp(index, 490, 0, 0)
	Call PlayerMsg(index, "Please step on any thing you would like to place on your map!", 10)
	Exit Sub
Else
	Call PlayerMsg(index, "This is not your house!", 12)
	Exit Sub
End If
Exit Sub

Case "/playerhouse clearowner"
If GetPlayerAccess(index) > 0 Then
	If GetPlayerMap(index) > 199 and GetPlayerMap(index) < 251 Then
		Call ClearHouse(index, GetPlayerMap(index))
	Else
		Call PlayerMsg(index, "You have to be in a playerhouse to do this!", 12)
	End If
Else

	Call PlayerMsg(index, "You have to be a GM to use this command!", 12)
End If
Exit Sub

Case "/playerhouse open"
locationtemp = GetVar("house.ini", GetPlayerLogin(index) & GetPlayerCharNum(index), "owns")

If GetVar("house.ini", "maps", "" & locationtemp & "owner") = GetPlayerLogin(index) & GetPlayerCharNum(index) Then
	Call PutVar("house.ini", "open", "" & locationtemp, "1")
	Call PlayerMsg(index, "Your house has opened entrance!", 10)
Else
	Call PlayerMsg(index, "You do not own a house!", 12)
End If
Exit Sub

Case "/playerhouse close"
locationtemp = GetVar("house.ini", GetPlayerLogin(index) & GetPlayerCharNum(index), "owns")

If GetVar("house.ini", "maps", "" & locationtemp & "owner") = GetPlayerLogin(index) & GetPlayerCharNum(index) Then
	Call PutVar("house.ini", "open", "" & locationtemp, "0")
	Call PlayerMsg(index, "Your house has closed entrance!", 10)
Else
	Call PlayerMsg(index, "You do not own a house!", 12)
End If
Exit Sub


Case "/playerhouse clearitems"
locationtemp = GetVar("house.ini", GetPlayerLogin(index) & GetPlayerCharNum(index), "owns")

If GetVar("house.ini", "maps", "" & locationtemp & "owner") = GetPlayerLogin(index) & GetPlayerCharNum(index) Then
	x = GetVar("house.ini", GetPlayerLogin(index) & GetPlayerCharNum(index), "template")
	Call CopyMap(index, x, locationtemp)
	Call SetTile(GetPlayerMap(index), 18, 13, 10, 2, 4, 7)
	Call SetSign(GetPlayerMap(index), 18, 13,"PlayerHouse","Owner: " & GetPlayerName(index),"Number: " & locationtemp - 

200)
	
Else
	Call PlayerMsg(index, "You do not own a house!", 12)
End If
Exit Sub
'*****************************************************
'END OFHOUSE COMMANDS!!!!! - Dinand Mentink - Ilnair
'*****************************************************

Step 6: Adding the subs
Add the folowing subs and functions at the bottom of your main:

Code: [Select]

'****************************************************************
'PLAYERHOUSE SYSTEM, ©Dinand Mentink - ILNAIR!!!!!
'****************************************************************
Sub CopyMap(index, mapin, mapout)
Dim x
Dim y
Dim percent
Dim editx
Dim edity
Dim editset
x = 0
y = 0
percent = 0
Call PlayerMsg(index, percent & "% - Please wait while the system builds your house - Building GROUND!", 10)
Do While Y < 15
	Do While x < 20
		editx = GetTileX(mapin, x, y, 0) 
		edity = GetTileY(mapin, x, y, 0) 
		editset = GetTileSet(mapin, x, y, 0) 
		Call SetTile(mapout, x, y, editx, edity, editset, 0) 
	x = x + 1
	loop
x = 0
y = y + 1
percent = Int(percent + (100/40))
loop
x = 0
y = 0
percent = 20
Call PlayerMsg(index, percent & "% - Please wait while the system builds your house - Building ATRIBUTES!", 10)
Do While Y < 15
	Do While x < 20

		editx = GetAttribute(mapin, x, y) 

		If editx = 1 or editx = 4 Then
			Call SetAttribute(mapout,x,y,editx,0,0,0,"","","")

		ElseIf editx = 2 Then
			Call SetAttribute(mapout,x,y,2,258,9,12,"","","")
		ElseIf editx = 14 Then
			Call SetSign(GetPlayerMap(index), 18, 13,"PlayerHouse","Owner:","none")
		Else
			Call SetAttribute(mapout,x,y,0,0,0,0,"","","")
		End If
		
	x = x + 1
	loop
x = 0
y = y + 1
loop
x = 0
y = 0
percent = 40
Call PlayerMsg(index, percent & "% - Please wait while the system builds your house - Building WALLS!", 10)
Do While Y < 15
	Do While x < 20
		editx = GetTileX(mapin, x, y, 1) 
		edity = GetTileY(mapin, x, y, 1) 
		editset = GetTileSet(mapin, x, y, 1) 
		Call SetTile(mapout, x, y, editx, edity, editset, 1) 
	x = x + 1
	loop
x = 0
y = y + 1
percent = Int(percent + (100/60))
loop
x = 0
y = 0
percent = 60
Call PlayerMsg(index, percent & "% - Please wait while the system builds your house - Building WALLS!", 10)
Do While Y < 15
	Do While x < 20
		editx = GetTileX(mapin, x, y, 3) 
		edity = GetTileY(mapin, x, y, 3) 
		editset = GetTileSet(mapin, x, y, 3) 
		Call SetTile(mapout, x, y, editx, edity, editset, 3) 
	x = x + 1
	loop
x = 0
y = y + 1
percent = Int(percent + (100/60))
loop
x = 0
y = 0
percent = 80
Call PlayerMsg(index, percent & "% - Please wait while the system builds your house - Building ROOF!", 10)
Do While Y < 15
	Do While x < 20
 		editx = GetTileX(mapin, x, y, 5) 
		edity = GetTileY(mapin, x, y, 5) 
		editset = GetTileSet(mapin, x, y, 5) 
		Call SetTile(mapout, x, y, editx, edity, editset, 5) 
	x = x + 1
	loop
x = 0
y = y + 1
percent = Int(percent + (100/60))
loop
Call PlayerMsg(index, "100% - House has been succesfully build!", 10)
End Sub


Sub ResetHouse(index)
Dim loopvar
Dim map
loopvar = 200
Do While loopvar < 251
	Call PutVar("house.ini", "maps", "" & loopvar & "", "0")
	Call PutVar("house.ini", "maps", "" & loopvar & "owner", "0")
	loopvar = loopvar + 1
loop
map = 200
Do While map < 251
	Call CopyMap(index, 500, map)
	Call SetTile(map, 18, 13, 10, 2, 4, 7)
	Call SetSign(map, 18, 13,"PlayerHouse","Owner: none","Number:" & map - 200)
	map = map + 1
loop
End Sub


Sub BuyHouse(index)
Dim item
Dim itemslot
Dim pmap
Dim pown
Dim pmc
item = 195 
itemslot = GetPlayerInvItemSlot(index, 195)
pown = GetVar("house.ini", GetPlayerLogin(index) & GetPlayerCharNum(index), "owns")
pmc = GetVar("house.ini", "maps", pown & "owner")
pmap = GetVar("house.ini", "maps", "" & pown)
If pown > 0 Then
	If pmap > 0 Then
		Call PlayerMsg(index, "You already own a house!", 12)
		Exit Sub
	End If
End If
If GetPlayerMap(index) < 200 or GetPlayerMap(index) > 250 Then
	Call PlayerMsg(index, "This house is not for sale!", 12)
	Exit Sub
End If
If GetVar("house.ini", "maps", GetPlayerMap(index)) = "1" Then
	Call PlayerMsg(index, "Somebody else already owns this house!", 12)
	Exit Sub
End If
If itemslot = 0 Then
	Call PlayerMsg(index, "You do not have a house permit!", 12)
	Exit Sub
End If
Call SetPlayerInvItemNum(index, itemslot, 0)
Call SendInventoryUpdate(index, itemslot)
Call PutVar("house.ini", GetPlayerLogin(index) & GetPlayerCharNum(index), "owns", GetPlayerMap(index))
Call PutVar("house.ini", "maps", GetPlayerMap(index), "1")
Call PutVar("house.ini", "maps", "" & GetPlayerMap(index) & "owner", GetPlayerLogin(index) & GetPlayerCharNum(index))
Call PlayerMsg(index, "You now own this house!", 10)
Call SetTile(GetPlayerMap(index), 18, 13, 10, 2, 4, 7)
Call SetSign(GetPlayerMap(index), 18, 13,"PlayerHouse","Owner: " & GetPlayerName(index), "Number: " & GetPlayerMap(index) - 

200)
Call PutVar("house.ini", GetPlayerLogin(index) & GetPlayerCharNum(index), "template", "500")
End Sub


Sub BuildHouse(index)
Dim map
Dim pmc
Dim pmap
Dim item
Dim itemslot
Dim itemvalue
Dim valueneed
map = GetVar("house.ini", GetPlayerLogin(index) & GetPlayerCharNum(index), "owns")
pmap = GetVar("house.ini", GetPlayerLogin(index) & GetPlayerCharNum(index), "owns")
pmc = GetVar("house.ini", "maps", map & "owner")
If pmc = GetPlayerLogin(index) & GetPlayerCharNum(index) Then	
	item = 1
	itemslot = GetPlayerInvItemSlot(index, item)
	If itemslot = 0 Then
		Call PlayerMsg(index, "You do not have any money!", 12)
		Exit Sub
	End If
	itemvalue = GetPlayerInvItemValue(index, itemslot)
	valueneed = 5000

	If itemvalue < valueneed Then
		Call PlayerMsg(index, "You need " & valueneed & " coins to build a house!", 12)
		Exit Sub
	ElseIf itemvalue = valueneed Then
		Call SetPlayerInvItemNum(index, itemslot, 0)
		Call SetPlayerInvItemValue(index, itemslot, 0)
		Call SendInventoryUpdate(index, itemslot)
	ElseIf itemvalue > valueneed Then
		Call SetPlayerInvItemValue(index, itemslot, itemvalue - valueneed)
		Call SendInventoryUpdate(index, itemslot)
	End If	
	map = GetPlayerMap(index)
	Call PutVar("house.ini", GetPlayerLogin(index) & GetPlayerCharNum(index), "template", GetPlayerMap(index))
	Call PlayerWarp(index, pmap, 8, 8)
	Call CopyMap(index, map, pmap)

	Call SetTile(GetPlayerMap(index), 18, 13, 10, 2, 4, 7)
	Call SetSign(GetPlayerMap(index), 18, 13,"PlayerHouse","Owner: " & GetPlayerName(index),"Number: " & pmap - 200)
Else
	Call PlayerMsg(index, "You do not own a house!", 12)
	Call PlayerWarp(index, 258, 13, 10)
	Exit Sub
End If
End Sub

Sub ClearHouse(index, map)
	Call CopyMap(index, 500, map)
	Call SetTile(map, 18, 13, 10, 2, 4, 7)
	Call SetSign(map, 18, 13,"PlayerHouse","Owner: none","Number: " & map - 200)	
	Call PutVar("house.ini", "maps", "" & map, "0")
	Call PutVar("house.ini", "maps", "" & map & "owner", "0")
End Sub

Function AllowPlayerIn(index, map)
AllowPlayerIn = True
If map > 250 or map < 200 Then
	AllowPlayerIn = True
	Exit Function
End If
If GetVar("house.ini", "open", "" & map) = "0" Then
	AllowPlayerIn = False
End If
If GetVar("house.ini", "maps", "" & map) = "0" Then
	AllowPlayerIn = True
End If
End Function
 

Sub ItemHouse(index)
Dim pmap
Dim map
Dim x
Dim y
Dim editx
Dim edity
Dim editset
Dim mapx
Dim mapy

x = GetPlayerX(index)
y = GetPlayerY(index)

mapx = 	Int(GetVar("tempvars.ini", "playerhouse", GetPlayerName(index) & "x"))
mapy = 	Int(GetVar("tempvars.ini", "playerhouse", GetPlayerName(index) & "y"))

pmap = Int(GetVar("house.ini", GetPlayerLogin(index) & GetPlayerCharNum(index), "owns"))
map = Int(GetPlayerMap(index))

editx = GetTileX(map, x, y, 3)
edity = GetTileY(map, x, y, 3)
editset = GetTileSet(map, x, y, 3) 


If editx = 0 and edity = 0 and editset = 0 Then
	editx = GetTileX(map, x, y, 5)
	edity = GetTileY(map, x, y, 5)
	editset = GetTileSet(map, x, y, 5) 
	Call PlayerWarp(index, pmap, mapx, mapy)
	Call SetTile(pmap, mapx, mapy, editx, edity, editset, 5) 
Else
	Call SetAttribute(pmap,mapx,mapy,1,0,0,0,"","","")
	Call SetTile(pmap, mapx, mapy, editx, edity, editset, 3)
	Call PlayerWarp(index, pmap, mapx, mapy)
End If

End Sub

'****************************************************************
'End of playerhouse system!, ©Dinand Mentink - ILNAIR!!!!!
'****************************************************************

Step 7: The scripted tiles, add them at the bottom of you scripted tiles sub:

Code: [Select]


Case 17
	Call BuildHouse(index)
	Exit Sub

Case 18
	x = Int(GetPlayerX(index))
	y = Int(GetPlayerY(index))

	If x = 1 Then

		y = y - 2
		value = Int(240 + y)

	Else
	y = y - 2
	y = y * 3
	x = x - 4

	value = 200 + x + y
	value = Int(value)
	End if

	If AllowPlayerIn(index, value) = True Then
		Call PlayerWarp(index, value, 19, 14)
		Exit Sub
	Else
		Call PlayerMsg(index, "This house has closed entrance!", 12)
		Call MapMsg(value, GetPlayerName(index) & " is trying to enter!", 12)
		Exit Sub
	End If

Case 19
	Call ItemHouse(index)
	Exit Sub

Step 8: Making the room where people can chose an item:
In my case this is map 257, but that doesn't matter. Make a map where you place all items you want people to be able to place in there house, and use only MASK2 and FRINGE! After that, place scripted tiles 19 on every place where you made something. If they step on a tile, it will get copyd to the player owner map. mask2 will get copyd and will recieve a blocked tile, fringe will just be copyd.
An example:

All items have scripted tile 19 on them.

Step 9: Building the template houses. This is easy, go to map 499 (the script will warp the player there), and create a house you want, an example could be:

Make a scripted tile 17 in the south-west corner, and a warp (doesn't matter where) in the south-east corner, or somewhere else. The script will copy a warp to the entrance room to the playerhouse. Make sure you only use GROUND, MASK, FRINGE tiles, I didn't make the script to copy all of them, to save time.

Step 10: the script copy's a sign to a player house, make sure that you have a nice "sign tile" in tileset 4, row 2 (starting with 0) and colum 10 (starting with 0).

Step 11: If you don't have the folowing subs already, add them:

Code: [Select]

Sub SetBlock(map, X, Y)
Call SetAttribute(map,X,Y,1,0,0,0,"","","")
End Sub

Sub SetWarp(map, X, Y, warpmap, warpx, warpy)
Call SetAttribute(map,X,Y,2,warpmap,warpx,warpy,"","","")
End Sub

Sub SetHeal(map, X, Y)
Call SetAttribute(map,X,Y,7,0,0,0,"","","")
End Sub

Sub SetKill(map, X, Y)
Call SetAttribute(map,X,Y,8,0,0,0,"","","")
End Sub

Sub SetItem(map, X, Y, item, value)
Call SetAttribute(map,X,Y,3,item,value,0,"","","")
End Sub

Sub SetNPCAvoid(map, X, Y)
Call SetAttribute(map,X,Y,4,0,0,0,"","","")
End Sub

Sub SetKey(map, X, Y, key, take)
Call SetAttribute(map,X,Y,5,key,take,0,"","","")
End Sub

Sub SetKeyOpen(map, X, Y, keyx, keyy, message)
Call SetAttribute(map,X,Y,6,keyx,keyy,0,message,"","")
End Sub

Sub SetShop(map, X, Y,shop)
Call SetAttribute(map,X,Y,9,shop,0,0,"","","")
End Sub

Sub SetClassBlock(map, X, Y,allow1,allow2,allow3)
Call SetAttribute(map,X,Y,10,allow,allow2,allow3,"","","")
End Sub

Sub SetArena(map, X, Y,amap,ax,ay)
Call SetAttribute(map,X,Y,11,amap,ax,ay,"","","")
End Sub

Sub SetSound(map, X, Y,filename)
Call SetAttribute(map,X,Y,12,0,0,0,filename,"","")
End Sub

Sub SetSpriteChange(map, X, Y,sprite,item,cost)
Call SetAttribute(map,X,Y,13,sprite,item,cost,"","","")
End Sub

Sub SetSign(map, X, Y,line1,line2,line3)
Call SetAttribute(map,X,Y,14,0,0,0,line1,line2,line3)
End Sub

Sub SetDoor(map, X, Y)
Call SetAttribute(map,X,Y,15,0,0,0,"","","")
End Sub

Sub SetNotice(map, X, Y, title, text, filename)
Call SetAttribute(map,X,Y,16,0,0,0,title,text,filename)
End Sub

Sub SetChest(map, X, Y)
Call SetAttribute(map,X,Y,17,0,0,0,"","","")
End Sub

Sub SetScripted(map, X, Y, script)
Call SetAttribute(map,X,Y,18,script,0,0,"","","")
End Sub

Sub SetBank(map, X, Y)
Call SetAttribute(map,X,Y,23,0,0,0,"","","")
End Sub

Sub SetHouse(map, X, Y,item,cost)
Call SetAttribute(map,X,Y,21,item,cost,0,"","","")
End Sub

Step 12: Last one, finaly.... Save your main.txt file, reload the scripts, go intame, and press /playerhouse reset, make sure there isn't anybody on the server lol, this command will cause some lag, and will take like 10 minutes to complete. DO NOT EXIT OR LEAVE GAME, MIGHT RUIN THE MAP IT'S CURRENLTY WORKING ON! Just wait patiently till it stops spamming ^_^.

Ok, I hope someone is able to get this script to work, it's working bloody smoothly here, so it isn't goof on my part if it isn't working..... Anyway, please post comments, I would like them. I'm not going to change the script, I wrote it for personal use, it would be cool if you guys like it/are able to use it, but I'm not gonna change it to make it easyer to use/inplement.

Just hoping someone is able to do sumting with it, good luck yall. And please tell me if it's working.

Last warning: THIS SCRIPT CAN AND WILL CHANGE ALL THE MAPS BETWEEN 200 AND 250 COMPLETELY, I AM NOT RESPONSIBLE FOR ANY DATA LOSS WHATSOEVER!!!!!

Edit: I forgot something, make sure you put this just below your Sub Commands(index) and Sub ScriptedTiles(index):

Code: [Select]

Dim Portal
Dim mapnum
Dim x
Dim y
Dim I
Dim TextSay
Dim n
Dim m
Dim C   
Dim locationtemp
Dim playernametemp
Dim invitemslot
Dim invemptyslot
Dim value
Dim map

Not all of them are used, but to lazy to check which ones are, and which ones arent.

No Spam Or Websites

Recent Topics

Who's Online