Guild Create Script (script submission, 4/5 difficulty)

[Ilnair]

Well, since unnown is gone now, I think i'll try to take over his position as uber-scripter :D.

I'll start with a very simple script. However, I think most people will love me for nailing this one :D.

Scripting level:
0 - damned easy
5 - very hard
Newbies: 4/5
Advanced scripters: 1/5
Others: 0/5

A Guild Create script, this is how it works:

As soon as you are level 50, you can talk to Guild Admin. A querybox will pop up, and you can enter the name of your guild. After that you will be kicked from the server. If you log in 15 seconds later your guild wil be created.


Installing the script:

Step 1: Make a npc, called Guild Admin. Change behaviour to scripted, and change script to 4.

Step 2: Open your main.txt, and find "Sub ScriptedNPC(index, Script)". Without the " and ". And enter the following code above "End Select":

Code: [Select]

Case 4
If GetPlayerLevel(index) > 49 Then
Call playerquerybox(index, "How do you want to name your guild?", 0)
Exit Sub
End If
Call PlayerMsg(index, "Guild Admin: You have to be level 50 to create a guild!", 2)
Exit Sub

If you cannot find "Sub ScriptedNPC(index, Script)", paste the following code at the bottom of your main.txt:

Code: [Select]

Sub ScriptedNPC(index, Script)
Select Case Script
Case 4
If GetPlayerLevel(index) > 49 Then
Call playerquerybox(index, "How do you want to name your guild?", 0)
Exit Sub
End If
Call PlayerMsg(index, "Guild Admin: You have to be level 50 to create a guild!", 2)
Exit Sub
End Select
End Sub

Step 3: The playerprompt sub. Find "Sub Querybox(index, script)", and enter the following code above the LAST end select:

Code: [Select]

Case 0
If response = "<GM>" then
If GetPlayerAccess(index) = 0 Then
Call PlayerMsg(index, "You cannot create this guild!", 12)
Exit Sub
End If
End If
Call PutVar("tempvars.ini", "GuildCreate", "Login", GetPlayerLogin(index))
Call PutVar("tempvars.ini", "GuildCreate", "CharNum", GetPlayerCharNum(index))
Call PutVar("tempvars.ini", "GuildCreate", "GuildName", response & "")
Call SetTimer("tmrTest " & 0 & ",5", 5000)
Call GlobalMsg(GetPlayerName(index) & " has created the guild: " & response & "!", 10)
Call AlertMsg(index, "Your Guild: " & response & " will be created, please relog into the game AFTER 15 seconds!")
Exit Sub
If you cannot find it, please enter the following code at the bottom of your main.txt:

Code: [Select]

Sub Querybox(index, script)
On Error Resume next
Dim response

response=getvar("\responses.ini","Responses",Int(index))

Select Case script

Case 0
If response = "<GM>" then
If GetPlayerAccess(index) = 0 Then
Call PlayerMsg(index, "You cannot create this guild!", 12)
Exit Sub
End If
End If
Call PutVar("tempvars.ini", "GuildCreate", "Login", GetPlayerLogin(index))
Call PutVar("tempvars.ini", "GuildCreate", "CharNum", GetPlayerCharNum(index))
Call PutVar("tempvars.ini", "GuildCreate", "GuildName", response & "")
Call SetTimer("tmrTest " & 0 & ",5", 5000)
Call GlobalMsg(GetPlayerName(index) & " has created the guild: " & response & "!", 10)
Call AlertMsg(index, "Your Guild: " & response & " will be created, please relog into the game AFTER 15 seconds!")
Exit Sub

End Select

End Sub

Step 4: The timer sub. Find Sub tmrTest(index, script), and enter the following code above End Select:

Code: [Select]

Case 5
Call RemoveTimer("tmrtest " & index & "," & 5)
login = GetVar("tempvars.ini", "GuildCreate", "Login")
charnum = GetVar("tempvars.ini", "GuildCreate", "CharNum")
GuildName = GetVar("tempvars.ini", "GuildCreate", "GuildName")

If CharNum > 1 Then
Call PutVar("Banks\" & login & ".ini", "Char" & charnum, "Guild", GuildName & "")
Call PutVar("Banks\" & login & ".ini", "Char" & charnum, "Guildaccess", "4")
Else
Call PutVar("accounts\" & login & ".ini", "Char" & charnum, "Guild", GuildName & "")
Call PutVar("accounts\" & login & ".ini", "Char" & charnum, "Guildaccess", "4")
End If
Exit Sub

If you cannot find Sub TMRtest, please add the following code at the bottom of your main.txt:

Code: [Select]

'********************************
Sub tmrTest(index, script)
'********************************
Dim guildname
Dim charnum
Dim login
On Error Resume Next
Select case script
Case 5
Call RemoveTimer("tmrtest " & index & "," & 5)
login = GetVar("tempvars.ini", "GuildCreate", "Login")
charnum = GetVar("tempvars.ini", "GuildCreate", "CharNum")
GuildName = GetVar("tempvars.ini", "GuildCreate", "GuildName")

If CharNum > 1 Then
Call PutVar("Banks\" & login & ".ini", "Char" & charnum, "Guild", GuildName & "")
Call PutVar("Banks\" & login & ".ini", "Char" & charnum, "Guildaccess", "4")
Else
Call PutVar("accounts\" & login & ".ini", "Char" & charnum, "Guild", GuildName & "")
Call PutVar("accounts\" & login & ".ini", "Char" & charnum, "Guildaccess", "4")
End If
Exit Sub

End Select
End Sub



Ok, it should work now. talk to the Guild Admin to try it out! Good luck.

I would like someone to reply if it's working.

[MegaNanoLith]

sweetness
Makes people work for getting a guild now

[Ilnair]

Yah, and admins won't have to be online in order for people to create a guild :D.

[Daddy Gnome Draken]

very very very super nice WOOT players can make there own gangs now in COI Finally

you rock man.

[Ilnair]

Hmm, a lil update. Instead of above the FIRST end select, you have to paste the query box thingy above the last one.

[Jarvis]

Well, I was level 48 and I tried talking to the NPC, it said I need to be level 50 to create the guild, therefore it worked so far... After I made it to level 50, I tried and nothing happened... The NPC didn't say or do anything... I tried going to level 51, still nothing =/

A little help ? :x

[Jae]

nice post man.. and replacing unnown is a good thing...to bad we dont have both of you releasing ill shi*t like this

[Ilnair]

hehe, I just hope I'll ever be as good as him, that guy rocks Ducking ass.

[Lee_Dragoon]

Dude I love you!!!!

[Ilnair]

Eeeek, but thanks

[Jarvis]

so yeah any ideas how to get it working? when im below level 50, the npc works fine and tells me i need to be level 50, when i do become level 50 or higher, it doesnt say a thing or do anything

[Ilnair]

Hmm, you got total eclipse?

[UberNullx]

The NPC is not saying anything to me... at al...

[Ilnair]

Well, make sure it has at least 1 hp. I think that would be the problem. And make sure you got the Sub ScriptedNPC the right way.

[UberNullx]

I do, I am using Barons SUper Main, and when I use the /test command everything works. The guy have 10 hp just to be on the safe side, lol.

[Ilnair]

And still nothing when you talk to him? Make sure you got the Sub ScriptedNPC the way I said. And there is only 1 Sub ScriptedNPC.

[Jarvis]

the NPC has stats and all, and yes i have total eclipse. like said, when im below level 50, the npc actually talks and works fine, after i get to level 50 or above and i try to attack it, nothing happens

[Ilnair]

Then there is a problem with your Sub playerprompt (or whatever), could you add me to msn, and send me your main, i'll have a look.

msn@dinand.tk

[Jarvis]

ok i added you , im Leisy2@hotmail.com

[Marsh]

He must have 1 of every stat and you must be using total eclipse.


Btw great script!