| 1 | scope Credits initializer Init |
| 2 | |
| 3 | globals |
| 4 | private quest array Q |
| 5 | endglobals |
| 6 | |
| 7 | private function StartCredit takes integer questType, string title, string description, string iconPath returns quest |
| 8 | local boolean required = (questType == bj_QUESTTYPE_REQ_DISCOVERED) or (questType == bj_QUESTTYPE_REQ_UNDISCOVERED) |
| 9 | local boolean discovered = (questType == bj_QUESTTYPE_REQ_DISCOVERED) or (questType == bj_QUESTTYPE_OPT_DISCOVERED) |
| 10 | local quest q = CreateQuest() |
| 11 | call QuestSetTitle(q, title) |
| 12 | call QuestSetDescription(q, description) |
| 13 | call QuestSetIconPath(q, iconPath) |
| 14 | call QuestSetRequired(q, required) |
| 15 | call QuestSetDiscovered(q, discovered) |
| 16 | call QuestSetCompleted(q, false) |
| 17 | return q |
| 18 | endfunction |
| 19 | |
| 20 | private function StartSubCredit takes quest whichQuest, string description returns nothing |
| 21 | local questitem q = QuestCreateItem(whichQuest) |
| 22 | call QuestItemSetDescription(q, description) |
| 23 | call QuestItemSetCompleted(q, false) |
| 24 | set q = null |
| 25 | endfunction |
| 26 | |
| 27 | private function Actions takes nothing returns nothing |
| 28 | // Main credit |
| 29 | set Q[0] = StartCredit( bj_QUESTTYPE_REQ_DISCOVERED, "Power of Corruption", "This is an altered melee map, where you can play a very improved Naga or Demon race.\n\nAny comments and suggestions can be placed in poc.it.cx. Thanks for playing.", "ReplaceableTextures\\CommandButtons\\BTNBrutalLord.blp" ) |
| 30 | call StartSubCredit( Q[0], "Visit [url=http://www.powerofcorruption.com]www.powerofcorruption.com[/url]" ) |
| 31 | call StartSubCredit( Q[0], "And download the latest version" ) |
| 32 | // Staff credit |
| 33 | set Q[1] = StartCredit( bj_QUESTTYPE_REQ_DISCOVERED, "Team", "This is the staff behind of this game", "ReplaceableTextures\\CommandButtons\\BTNNagaKing.blp" ) |
| 34 | call StartSubCredit( Q[1], "Moyack: Main map developer." ) |
| 35 | call StartSubCredit( Q[1], "Av3n: Ideas, Spells, AI and suggestions" ) |
| 36 | call StartSubCredit( Q[1], "Tarrasque: Modelling & suggestions" ) |
| 37 | call StartSubCredit( Q[1], "JetFangInferno: Suggestions & FX design" ) |
| 38 | call StartSubCredit( Q[1], "Archmage Owenalacaster: AI development" ) |
| 39 | call StartSubCredit( Q[1], "THE_END: Comments, support and Skins" ) |
| 40 | // Models credit |
| 41 | set Q[2] = StartCredit( bj_QUESTTYPE_REQ_DISCOVERED, "Models - Skins - Spells", "Armel:\n - Naga Enchantress\nAv3n:\n - Demon caster spells\nCookie:\n - Arachnian Queen\nD.O.G:\n - Demon Birth model\n - Chaos Razormane\nDonDustin:\n - VolcanoShieldTarget\nFrankster:\n - Fel hound Rider\n - Fel Orc Rampager\n - Chaos Altar of Terror\n - Fel Orc Assassin\n-Grendel:\n - Ogre Iron Fist (modified)\n - Legionnaire (modified)\nGottfrei:\n - CruelCloister\n - Demonic Sanctuary\nTarrasque:\n - WarQueen\n - incursor (terror king)\n - Naga Royal Guard\n - Dragon Turtle (Transport turtle)\n - Death Knight (Burning Knight)\n - Rock Prison\n - Sea Drake\n - Lord of Darkness", "ReplaceableTextures\\CommandButtons\\BTNLordofDarkness.blp") |
| 42 | call StartSubCredit( Q[2], "Armel" ) |
| 43 | call StartSubCredit( Q[2], "Av3n" ) |
| 44 | call StartSubCredit( Q[2], "Cookie" ) |
| 45 | call StartSubCredit( Q[2], "D.O.G" ) |
| 46 | call StartSubCredit( Q[2], "DonDustin" ) |
| 47 | call StartSubCredit( Q[2], "Frankster" ) |
| 48 | call StartSubCredit( Q[2], "-Grendel") |
| 49 | call StartSubCredit( Q[2], "Gottfrei" ) |
| 50 | call StartSubCredit( Q[2], "Tarrasque" ) |
| 51 | call StartSubCredit( Q[2], "JetFangInferno" ) |
| 52 | call StartSubCredit( Q[2], "Judash137" ) |
| 53 | call StartSubCredit( Q[2], "Mephestrial" ) |
| 54 | call StartSubCredit( Q[2], "Pheonix-IV" ) |
| 55 | call StartSubCredit( Q[2], "Sellenisko & 67Chrome" ) |
| 56 | call StartSubCredit( Q[2], "sPy") |
| 57 | call StartSubCredit( Q[2], "THE_END" ) |
| 58 | call StartSubCredit( Q[2], "Whitehorn" ) |
| 59 | call StartSubCredit( Q[2], "WyrWuulfe" ) |
| 60 | // more art credits |
| 61 | set Q[6] = StartCredit( bj_QUESTTYPE_REQ_DISCOVERED, "More art credits", "(Continuation):\nJetFagInferno\n - Spiral Aura\n - Fanactism Aura\n - Greater Geiser\n - Aura of Damnation\n - Aura of Damnation buff\n - BlackHole\n - ManaThirst\n - Treacherous Attack\n - EnergyBreathDamage\n - HolyAurora\nMephestrial:\n - Legion Teleporter model\nJudash137\n - Soul Aura\nPheonix-IV:\n - Naga Town Hall\nSellenisko & 67Chrome:\n - Alexstrazsa model\nSpy:\n - Lava Bomb model\nTHE_END:\n - Venom Warrior skin\n - Demon Hall model\nWhitehorn:\n - Diabolic skin\n - Despoiler skin\nWyrWuulfe:\n - Satyr Worker model", "ReplaceableTextures\\CommandButtons\\BTNNagaQueen.blp") |
| 62 | call StartSubCredit( Q[6], "Armel" ) |
| 63 | call StartSubCredit( Q[6], "Av3n" ) |
| 64 | call StartSubCredit( Q[6], "Cookie" ) |
| 65 | call StartSubCredit( Q[6], "D.O.G" ) |
| 66 | call StartSubCredit( Q[2], "Frankster" ) |
| 67 | call StartSubCredit( Q[6], "-Grendel") |
| 68 | call StartSubCredit( Q[6], "Gottfrei" ) |
| 69 | call StartSubCredit( Q[6], "Tarrasque" ) |
| 70 | call StartSubCredit( Q[6], "JetFangInferno" ) |
| 71 | call StartSubCredit( Q[6], "Mephestrial" ) |
| 72 | call StartSubCredit( Q[6], "Peekay" ) |
| 73 | call StartSubCredit( Q[6], "Pheonix-IV" ) |
| 74 | call StartSubCredit( Q[6], "Sellenisko & 67Chrome" ) |
| 75 | call StartSubCredit( Q[6], "sPy") |
| 76 | call StartSubCredit( Q[6], "THE_END" ) |
| 77 | call StartSubCredit( Q[6], "Whitehorn" ) |
| 78 | call StartSubCredit( Q[6], "WyrWuulfe" ) |
| 79 | // Suggestions and Ideas credit |
| 80 | set Q[3] = StartCredit( bj_QUESTTYPE_OPT_DISCOVERED, "Script & suggestions", "- Av3n (Your valuable help with items, abilities and other stuff)\n- RedDragon (Abilities help and other stuff)\n- Tarrasque (Your models and feedback were very useful)\n- JetFangInferno (For his suggestions and FX development)\n- GaDDeN (he has been a great helper with this project)\n- Kyrbi0: Abilities and some other ideas\n- Tim. (Thanks for his comments and for directing WC3C <3\n- Veev. For his help in grammar\n- Archmage Owenalacaster. For his help with the AI improvement.\n- Vexorian. For TimedLoop script\n- Earth-Fury for Board script.\n- WC3C community (for all the feedback received)", "ReplaceableTextures\\CommandButtons\\BTNBansheeMaster.blp" ) |
| 81 | call StartSubCredit( Q[3], "Archmage Owenalacaster" ) |
| 82 | call StartSubCredit( Q[3], "Av3n" ) |
| 83 | call StartSubCredit( Q[3], "Earth-Fury" ) |
| 84 | call StartSubCredit( Q[3], "GaDDeN" ) |
| 85 | call StartSubCredit( Q[3], "Tarrasque" ) |
| 86 | call StartSubCredit( Q[3], "Jualin (Caster abilities ideas)" ) |
| 87 | call StartSubCredit( Q[3], "Kyrbi0" ) |
| 88 | call StartSubCredit( Q[3], "Tim." ) |
| 89 | call StartSubCredit( Q[3], "Raq_Thao" ) |
| 90 | call StartSubCredit( Q[3], "RedDragon" ) |
| 91 | call StartSubCredit( Q[3], "Sevion") |
| 92 | call StartSubCredit( Q[3], "Whitehorn (Naga Imperial Warrior abilities)" ) |
| 93 | call StartSubCredit( Q[3], "Zantetsuken@Azeroth (Veev)" ) |
| 94 | |
| 95 | set Q[4] = StartCredit( bj_QUESTTYPE_OPT_DISCOVERED, "Icons", "Some of this icons are as is, others were modified in borders and/or recolored in some cases, but they are based on the original work of the following authors:", "ReplaceableTextures\\CommandButtons\\BTNRune.blp" ) |
| 96 | call StartSubCredit( Q[4], "BLIZZARD" ) |
| 97 | call StartSubCredit( Q[4], "CrazzyRussian" ) |
| 98 | call StartSubCredit( Q[4], "FrIkY" ) |
| 99 | call StartSubCredit( Q[4], "Handclaw" ) |
| 100 | call StartSubCredit( Q[4], "M0rbid" ) |
| 101 | call StartSubCredit( Q[4], "neo1989" ) |
| 102 | call StartSubCredit( Q[4], "NFWar" ) |
| 103 | call StartSubCredit( Q[4], "TDR" ) |
| 104 | call StartSubCredit( Q[4], "TripleDotta" ) |
| 105 | // Other credits |
| 106 | set Q[5] = StartCredit( bj_QUESTTYPE_OPT_DISCOVERED, "Other Credits", "- Vexorian: For your excellent WC3mapoptimizer. This map was reduced and protected with wc3optimizer 5.0\n- RedDragon: A great supporter, thanks a lot.\n- scumedit.net (R.I.P.): I have an special gratitude with this clan for its support and bugs comments.\n- PitzerMike: For keeping alive JNGP. This map has been developed in Jass New Generation Pack (5b).\n- WC3Campaigns.net: For all the great support and hosting of this project.\n- This map has been compiled using Jass Helper version 0.9.J.0. (required for 1.24 patch and the known shit...) Credits to the respective authors.", "ReplaceableTextures\\CommandButtons\\BTNInfernalFlameCannon.blp" ) |
| 107 | call StartSubCredit( Q[5], "Cohadar (For improving JassHelper and keep it alive)" ) |
| 108 | call StartSubCredit( Q[5], "Pipedream (Grimoire is too sexy)" ) |
| 109 | call StartSubCredit( Q[5], "PitzerMike (safety dance )" ) |
| 110 | call StartSubCredit( Q[5], "Zoxc" ) |
| 111 | call StartSubCredit( Q[5], "RedDragon: Ideas and suggestions" ) |
| 112 | call StartSubCredit( Q[5], "Red-Bones-Ghoul: Ideas and suggestions (Lord of Darkness abilities)" ) |
| 113 | call StartSubCredit( Q[5], "Blade.dk (his war stomp spell making tutorial opens my mind to the JASS world)" ) |
| 114 | call StartSubCredit( Q[5], "scumedit.net (R.I.P.)" ) |
| 115 | call StartSubCredit( Q[5], "www.wc3campaigns.net" ) |
| 116 | call StartSubCredit( Q[5], "Blizzard: For creating patch 1.24 and fuck the WC3 modding community" ) |
| 117 | call DestroyTimer(GetExpiredTimer()) |
| 118 | call CinematicFadeBJ( bj_CINEFADETYPE_FADEIN, 5.00, "ReplaceableTextures\\CameraMasks\\Black_mask.blp", 0, 0, 0, 0 ) |
| 119 | endfunction |
| 120 | |
| 121 | //=========================================================================== |
| 122 | private function Init takes nothing returns nothing |
| 123 | call TimerStart(CreateTimer(), 3., false, function Actions) |
| 124 | call CinematicFadeBJ( bj_CINEFADETYPE_FADEOUT, 0., "ReplaceableTextures\\CameraMasks\\Black_mask.blp", 0, 0, 0, 0 ) |
| 125 | call DisplayTimedTextToForce( bj_FORCE_ALL_PLAYERS, 8., "|cffffff00Power of Corruption v2.3 patch 1.24+ compatible version|r\n|CFF00FF00By MOYACK. 2012.|r\nFeaturing models from Tarrasque and JetFangInferno\nSpells by Av3n and Moyack,\nAI scripting improvements by Archmage Owenalacaster\n|cffffff00Press F9 for basic help and credits" ) |
| 126 | endfunction |
| 127 | |
| 128 | endscope |
| 129 | |
| 130 | |