Script Submission: Playerhouse (long post, hard script)

[Ilnair]

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.

[pheXion (Fred)]

thats realy cool, alot hard work behind you, i will surley use this script when i implement hauses for my game.
Now houses have new dimension!
Thanks for it, and congratulation you made something like this.

[Ilnair]

Thanks :D, I always like to hear stuff like that ^^.

[Daddy Gnome Draken]

OMG very nice i like this way better thanks for this

[Ilnair]

Np draken. I just hope someone gets it to work ^^. Anyway, I added a lil edit, I forgot a few Dim's, added them now.

[Kay-No]

This one rocks! ive tested it and its really awesome!
GJ Ilnair

[Daddy Gnome Draken]

lol so i need to resave the page then also how would i change which maps are used? im useing apartments buildings and i dont want them to make what it look like outside.  inside will be useing the templets. also im useing 100 maps for houseing. maps 900-1000

[Ilnair @Some other place]

Hmm, i'll look into that one later on, but it's kinda a lot of edititing, I'm currently at a friend, but i'll post again in a few hours.

[Daddy Gnome Draken]

k ill be asleep lol its 6 in the morning now need to go to bed soon. thanks for looking into it.

[unnown]

why isn't my name in the dificulty indicator?

[Ilnair]

Sorry unnown, forgot you, added you know.

A lil warning, this script causes MASIVE LAG when copying a map.

[unnown]

aah my scripting is 21 .... :shock:

but good script anyhow :lol:

[Fulou]

Nice script, even after seeing it work, its still a marvel too look at the code.

[Ilnair]

I know lol, I still get headacke when I think back at writing this shit.

Anyway, the only more complex script than this one would be baron his super skill script (but nobody is ever gonna pown that one) :D.

[unnown]

hmm...and what about a WORKING pet script...with a pet really following you and attacking players? (no paperdoll shit)  :twisted:

it's almost done it folows the player and attacks onther players...only need to create some lvl thingy..but that's easy

[Daddy Gnome Draken]

or do like some other game and make the pets give players xp when they kill. just an idea lol.