Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Akselj

Members
  • Posts

    2024
  • Joined

  • Last visited

    Never

Everything posted by Akselj

  1. @unnown: > srry :P > just create an scripted tile or an autmated script > (this gets reseted after logout automaticly btw, thus you need to add it to the logon script) > > Sub SendAuction(ByVal index As Long, ByVal Pageid As Long) > Sub SetPlayerFaction(ByVal index As Long, ByVal Faction As Long) > Function GetPlayerFaction(ByVal index As Long) So I would do it like this? (custom menu) Scripted NPC: ``` Sub ScriptedNPC(Index, Script) Select Case Script Case 0 Call CustomMenuShow(index, "The Red Alliance", "\GUI\CUSTOM\Red.jpg", 1) Call CustomMenuLabel(index, 1, "Will you join the Red Alliance?", 150, 50, 10, 0, 0, 400, 20) Call CustomMenuPicture(index, 1, "\GUI\CUSTOM\yes.jpg", 100, 100) Call CustomMenuPicture(index, 2, "\GUI\CUSTOM\no.jpg", 300, 100) Exit Sub Case 1 Call CustomMenuShow(index, "The Blue Alliance", "\GUI\CUSTOM\Blue.jpg", 1) Call CustomMenuLabel(index, 2, "Will you join the Blue Alliance?", 150, 50, 10, 0, 0, 400, 20) Call CustomMenuPicture(index, 3, "\GUI\CUSTOM\yes.jpg", 100, 100) Call CustomMenuPicture(index, 4, "\GUI\CUSTOM\no.jpg", 300, 100) Exit Sub Case 2 Call CustomMenuShow(index, "The Yellow Alliance", "\GUI\CUSTOM\yellow.jpg", 1) Call CustomMenuLabel(index, 3, "Will you join the Yellow Alliance?", 150, 50, 10, 0, 0, 400, 20) Call CustomMenuPicture(index, 5, "\GUI\CUSTOM\yes.jpg", 100, 100) Call CustomMenuPicture(index, 6, "\GUI\CUSTOM\no.jpg", 300, 100) Exit Sub Case 3 Call CustomMenuShow(index, "The Green Alliance", "\GUI\CUSTOM\green.jpg", 1) Call CustomMenuLabel(index, 4, "Will you join the Green Alliance?", 150, 50, 10, 0, 0, 400, 20) Call CustomMenuPicture(index, 7, "\GUI\CUSTOM\yes.jpg", 100, 100) Call CustomMenuPicture(index, 8, "\GUI\CUSTOM\no.jpg", 300, 100) Exit Sub Case Else Call PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", WHITE) Exit Sub End Select End Sub ``` Menuscripts: ``` Sub MenuScripts(Index, Clicked_Index, Menu_Type) Dim MenuTitle Dim FieldMessage MenuTitle = getplayermenuclicktitle(Index) FieldMessage = getplayermenuclickmsg(Index) Select Case Menu_Type Case 1 If Clicked_Index = 1 Then Call SetPlayerFaction(Index, Faction1) Call PutVar("/scripts/charextras" & GetPlayerName(Index) & ".ini", "Faction", "Faction 1") If Clicked_Index = 2 Call PlayerWarp(Index, 63, 15, 15) Call PlayerMsg(Index, "You were knocked unconcious and taken back to camp", BRIGHTRED) If Clicked_Index = 3 Call SetPlayerFaction(Index, Faction2) Call PutVar("/scripts/charextras" & GetPlayerName(Index) & ".ini", "Faction", "Faction 2") If Clicked_Index = 4 Call PlayerWarp(Index, 63, 15, 15) Call PlayerMsg(Index, "You were knocked unconcious and taken back to camp", BRIGHTRED) If Clicked_Index = 5 Call SetPlayerFaction(Index, Faction3) Call PutVar("/scripts/charextras" & GetPlayerName(Index) & ".ini", "Faction", "Faction 3") If Clicked_Index = 6 Call PlayerWarp(Index, 63, 15, 15) Call PlayerMsg(Index, "You were knocked unconcious and taken back to camp", BRIGHTRED) If Clicked_Index = 7 Call SetPlayerFaction(Index, Faction4) Call PutVar("/scripts/charextras" & GetPlayerName(Index) & ".ini", "Faction", "Faction 4") If Clicked_Index = 8 Call PlayerWarp(Index, 63, 15, 15) Call PlayerMsg(Index, "You were knocked unconcious and taken back to camp", BRIGHTRED) Case 2 Call PlayerMsg(Index, "Clicked field number " & Clicked_Index & " on the menu named " & MenuTitle & ". The field text was " & FieldMessage, YELLOW) Case 3 Call PlayerMsg(Index, "Clicked label number " & Clicked_Index & " on the menu named " & MenuTitle, YELLOW) End Select End Sub ``` JoinGame: ``` Sub JoinGame(Index) Dim Faction Faction = GetVar("/script/charextras" & GetPlayerName(Index) & ".ini", "Faction" Call SetPlayerFaction(index, Faction) If GetPlayerAccess(Index) = 0 Then Call GlobalMsg(GetPlayerName(Index) & " has joined " & GameName & "!", GREY) Call GlobalMsg(GetPlayerName(Index) & " is a level " & GetPlayerLevel(index) & " " & GetPlayerClassName(Index) & ".", GREY) Else Call GlobalMsg("Administrator " & GetPlayerName(Index) & " has joined " & GameName & "!", YELLOW) Call GlobalMsg(GetPlayerName(Index) & " is a level " & GetPlayerLevel(index) & " " & GetPlayerClassName(Index) & ".", YELLOW) End If Call PlayerMsg(Index, "Welcome to " & GameName & "!", WHITE) If LenB(MOTD) 0 Then Call PlayerMsg(Index, "MOTD: " & MOTD, BRIGHTCYAN) End If Call SendWhosOnline(Index) If GetVar("var.ini", GetPlayerName(index), "startup") = "" Then weapon = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Weapon")) armor = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Armor")) shield = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Shield")) helmet = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Helmet")) wepdur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Wepdur")) armdur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Armdur")) shldur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Shldur")) hlmdur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Hlmdur")) If weapon 0 Then Call Give_Item(index, weapon, wepdur) End If If armor 0 Then Call Give_Item(index, armor, armdur) End If If shield 0 Then Call Give_Item(index, shield, shldur) End If If helmet 0 Then Call Give_Item(index, helmet, hlmdur) End If Call PutVar("var.ini", GetPlayerName(index), "startup", "yes") End If End Sub ``` I assume this is correct. Just asking to be completly sure :P
  2. Eclipse main page -> EE 2.7 -> Source Oh, and don't triple post.
  3. Thanks for the support guys! I'll work on it, Godlord. Tyr, your first looks really good.
  4. Ok guys, so here's my first pixelart… Is it good? What can I do to improve? Please rate 1-10 Here it is: ![](http://akselscape.com/images/FirstPixelart.bmp)
  5. Sure. Post sprites.bmp and sprites you want to add.
  6. Umm… Is hotscripts the only thing from the main I need? Cause then I could just copy n' paste. EDIT: There's nothing in hotscripts... Looks like a clean main to me.
  7. Must be named sprites, if you want to keep those you have, add the sprites on existing sprites.bmp.
  8. How does this faction system work? Can players join factions? EDIT: And how do you use name colors?
  9. Akselj

    Test… 1 2

    I think it's easy to see, and my resolution is 1680x1050.
  10. Akselj

    Test… 1 2

    I think BMP is the format Eclipse uses for GFX
  11. I know the error, but not the fix; it seems to activate when you run a custom menu, then a custom menu with higher index numbers. At least that's how it happens with me.
  12. I still have the problem. EDIT: Solved. After I refreshhed the map it worked.
  13. ``` mapa = GetVar("houses\number.ini","A","Number") mapb = GetVar("houses\number.ini","B","Number") type = GetVar("houses\number.ini","A","Type") extra = GetVar("houses\number.ini","B","Extra") ``` What about this?
  14. ``` mapa = GetVar("houses\"number.ini","A","Number") mapb = GetVar("houses\"number.ini","B","Number") type = GetVar("houses\"number.ini","A","Type") extra = GetVar("houses\"number.ini","B","Extra") ``` Try this.
  15. But the custom menu doesen't show up at all… And /testscipt says scripts are working properly...
  16. Hi, I tried to make a custom menu to make a player write "Yes" or "No" if they want to join a faction. So I just started the script and made the part where a custom menu pops up, haven't made the part where faction is set. Nothing happened. Here's the script: ``` Sub ScriptedNPC(Index, Script) Select Case Script Case 0 Call CustomMenuShow(index, "The Red Alliance", "\GUI\CUSTOM\red.jpg", 1) Call CustomMenuLabel(index, 1, "Will you join the Red Alliance?", 20, 50, 10, 0, 0, 400, 20) Call CustomMenuTextBox(index, 1, 300, 20, 100, "Type "Yes" or "No" to answer") Case 1 Call CustomMenuShow(index, "The Blue Alliance", "\GUI\CUSTOM\blue.jpg", 1) Call CustomMenuLabel(index, 2, "Will you join the Blue Alliance?", 20, 50, 10, 0, 0, 400, 20) Call CustomMenuTextBox(index, 2, 300, 20, 100, "Type "Yes" or "No" to answer") Case 2 Call CustomMenuShow(index, "The Yellow Alliance", "\GUI\CUSTOM\yellow.jpg", 1) Call CustomMenuLabel(index, 3, "Will you join the Yellow Alliance?", 20, 50, 10, 0, 0, 400, 20) Call CustomMenuTextBox(index, 3, 300, 20, 100, "Type "Yes" or "No" to answer") Case 3 Call CustomMenuShow(index, "The Green Alliance", "\GUI\CUSTOM\green.jpg", 1) Call CustomMenuLabel(index, 4, "Will you join the Green Alliance?", 20, 50, 10, 0, 0, 400, 20) Call CustomMenuTextBox(index, 4, 300, 20, 100, "Type "Yes" or "No" to answer") Case Else Call PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", WHITE) Exit Sub End Select End Sub ``` Did I do this wrong, use out-dated commands or is custom menus screwed up in EE 2.7? EDIT: Oh, and I used commands from a tut I found. I only edited text.
  17. 3 days, 4 hours and 32 minutes. Lol, I've often left my computer on and forgotten to close my web-browser….
  18. Make a spell, make an item to learn spell, memorize spell and cast spell. Easy-peasy.
  19. I told Marsh to sticky it and he did xD Finally!
  20. Why hasn't Marsh or some Admin stickied this? Sticky vote!
  21. Well… Send messages to me at MSN about what you want to know, and I'll tell you. Just send even if I'm offline.
  22. IDK, he was… I'm offline so IDK
  23. He added me at MSN, said he will need to know a bit bout my game before he'll work for me, so you still have the chance xD
×
×
  • Create New...